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参考一下
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参考一下
DWORD dwReserved // reserved
);
列出进程再它