Zum Neustart Auffordern

[Blackheart]

Delphi-Quellcode:

uses ComObj;

procedure TForm1.ShutdownClick(Sender: TObject);
var
  Shll: OleVariant;
begin
  Shll := CreateOleObject('Shell.Application');
  Shll.ShutdownWindows;
end;