[Crack502]

В окне Form1 создал кнопку Button1. Как сделать, чтобы при нажатии на неё выключался компьютер. Помогите пожалуйста.

[AND_REY]

Работает под ХР на других не проверял.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); 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 or ewx_force,0);  end; end;

[Crack502]

Спасибо! Выручил.