как завершить роботу компьютера с помощью кода

[The_Darkness]

Мне от этих длинючих кодов даже страшно стало! Я всегда комп выключал такими способами:
ExitWindowsEx(EWX_LOGOFF,0);// смена текущего юзера
вместо EWX_LOGOFF может быть EWX_REBOOT и EWX_SHUTDOWN что соответственно является перезагрузкой и выключением компа!
А диспетчер задач закрывал грубым и некрасивым способом:

procedure TForm4.Timer1Timer(Sender: TObject);
Var
H:hWnd;
begin
     H:=FindWindow(Nil,'Диспетчер задач Windows');
  If H<>0 Then
   Begin
    PostMessage(H,wm_quit,0,0)
  End;
end;