Windows'u kapatmak veya yeniden  başlatmak(reboot);

var
i:dword;
begin
ExitWindow***(EWX_SHUTDOWN);  //yeniden başlatmak için EWX_REBOOT
end;