procedure TForm1.Button1Click(Sender: TObject);
begin
  {when the button is clicked, Windows shuts the system down}
  ExitWindowsEx(EWX_SHUTDOWN, 0);
end;The Tomes of Delphi 3: Win32 Core API Help File by Larry Diehl参考一下