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!

[MagicAndre1981]

der Codeteil nutzt das Programm shutdown.exe aus WinXP, besser ist der Code aus der Codelib ;)

[viperen]

Wo finde ich den Code? Wie heißt er, damit ich suchen kann :)

[Luckie]

Du musst auch noch den Rückgabewert von WM_QUERRYENDSESSION entsprechend setzten:

Zitat:

Return Values
If an application can terminate conveniently, it should return TRUE; otherwise, it should return FALSE.

[viperen]

und wie mach ich das??? :cry:

Asooo, so?:

WMQueryEndSession(FALSE)??;

[Luckie]

In der aller höchsten Not könnte man mal in der Delphipraxis nach WM_QUERRYNDSESSION gucken. :roll:

[viperen]

Ok ich habe es gefunden ;) DANKE!!