Выключение компютера

[Rahim1993]

Скажите пожалуйста, как программно выключить компьютер?
Кроме этого кода:

SendMessage(FindWindow('Progman', 'Program Manager'),
WM_CLOSE, 0, 0);

[mihali4]

А поиском по форуму пользоваться не умеете?
Сколько можно задавать один и тот же вопрос?

[Pitbull]

var
  Form1: TForm1;
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin




  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

[Kashp]

Сообщение от Rahim1993

Скажите пожалуйста, как программно выключить компьютер?
Кроме этого кода:

SendMessage(FindWindow('Progman', 'Program Manager'),
WM_CLOSE, 0, 0);

Самое простое, как не раз уже говорилось:
winexec('shutdown -s -t 0',SW_HIDE);