Mega Code Archive

 

Categories / Delphi / System

 

The easyest way to force shutdown a pc

procedure TForm1.Button1Click(Sender: TObject); begin {use EWX_LOGOFF to log off use EWX_SHUTDOWN to shut down use EWX_REBOOT to reboot use EWX_FORCE to do a force command with a cobination of Power off, or Reboot or shutdown or logoff use EWX_POWEROFF to power off } SetShutdownPrivilege(true) ;//set rights to use this pivrilege if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF , 0) then messagedlg('wasn''t able to shutdown PC!',mterror,[mbok],0); SetShutdownPrivilege(false); //turn of rights end;