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!