Выключение ПК с помощью checkBox

[prog38]

Уважаемые! Может кто подскажет почему у меня не работает выключение компа? Код такой:

     if CheckBox3.Checked=true then
     ExitWindowsEx(EWX_ShutDown,0);
     end;

[Stilet]

потому что тебе нужно получить привелегии на такую операцию
Рули поиском по ExitWindowsEx на форуме - уже обсуждалось

[Arigato]

Аналогичная тема, только про перезагрузку:
http://www.programmersforum.ru/showthread.php?t=24248#7
Нужны соответствующие привилегии.

[prog38]

Уже смотрю по форуму, спасибо...

[Terran]

prog38, можете сделать так:

Procedure ShutDown;
Var
HToken: THandle;
Tkp: TTokenPrivileges;
ReturnLength: Cardinal;
Begin
If OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or
TOKEN_QUERY, HToken) Then
Begin
LookupPrivilegeValue(Nil, 'SeShutdownPrivilege', Tkp.Privileges[0].Luid);
Tkp.PrivilegeCount:=1;
Tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
If AdjustTokenPrivileges(HToken, False, Tkp, 0, Nil, ReturnLength) Then
ExitWindowsEx(EWX_ShutDown, 0);
End;
End;
...
if CheckBox3.Checked=true then  
ShutDown; 
end;  
...

[prog38]

Еще вчера нашла такой код на форуме, но все равно спасибо, Terran))
Правда, ругался сначала, типа -unsatisfied forward or external declaration TForm1.ShutDown. Пришлось извратиться немного добавила на форму кнопку сделал а невидимой и процедуру ShutDown заменила на батонКлик Изврат наверное, но работает))))