本文整理自网络，侵删。
delphi Shutdown() 关机
{
shutdown -s -t 0 立即关闭计算机
shutdown -l 立即注销计算机
shutdown -r -t 0 立即重启计算机
shutdown -a 取消关闭计算机
}
{在uses中引入 ShellAPI}
uses ShellAPI;
{关机相关}
//调用// Shutdown(0);
procedure Shutdown(sType:integer);
begin
case sType of
0: ShellExecute(Application.Handle, 'open', 'shutdown.exe', '-s -t 0', 0, SW_SHOWNORMAL); {关闭计算机}
1: ShellExecute(Application.Handle, 'open', 'shutdown.exe', '-l', 0, SW_SHOWNORMAL); {注销计算机}
2: ShellExecute(Application.Handle, 'open', 'shutdown.exe', '-r -t 0', 0, SW_SHOWNORMAL); {重启计算机}
3: ShellExecute(Application.Handle, 'open', 'shutdown.exe', '-a', 0, SW_SHOWNORMAL); {取消关闭计算机}
end;
end;
相关阅读 >>
Delphi string.create(char,count)
Delphi 判断是否为空('none', 'null', '')
Delphi winapi: flashwindow - 闪烁窗口
更多相关阅读请进入《Delphi》频道 >>
