Herunterfahren abfangen

[viperen]

Hallo!

Ich habe auf einer Seite folgenden Code gefunden:

Delphi-Quellcode:

procedure WMQueryEndSession (var M: TWMQueryEndSession); message
  WM_QUERYENDSESSION;

procedure herunterfahren; //Diese procedure ist von mir und der Aufruf unten auch...
begin
  ShellExecute(0,'open',PChar('shutdown'),PChar('-a'),nil,SW_NORMAL);
  MessageDlg('Ihr Backupprogramm läuft noch! Wollen Sie wirklich Ihren System herunterfahren?',mtWarning,[mbYes,mbNo],0) = mrYes 
  then ShellExecute(0,'open',PChar('shutdown'),PChar('-s -t 00'),nil,SW_NORMAL);
end;

procedure TForm1.WMQueryEndSession (var M: TWMQueryEndSession);
begin
inherited;
  if Optionen.notshutdown.Checked then herunterfahren;
end;

Meine Frage ist jetzt: Ist das so richtig???

Ich habe es bis jetzt ein Mal ausprobiert und es hat nicht geklappt...

Und ich habe erhlich keine Lust, jedes Mal mein Rechner neuzustarten...

Danke!