How to Reboot the Computer 

// Note. Does not work from IDE - run only from Explorer
procedure TForm1.Reboot;
var
 Flags : Integer;
begin
 If MessageDlg('Reboot: Are you sure?'mtInformation, mbOkCancel, 0) = mrOk
 Then
 Begin
  Flags := EWX_FORCE OR EWX_REBOOT;
  ExitWindowsEx(Flags, 0);
 End;
end;