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;

通过 为知笔记 发布