Hallo
zuerst einmal:
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
procedure WMQUERYENDSESSION(var msg: TMessage); message WM_QUERYENDSESSION;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMQUERYENDSESSION(var msg: TMessage);
begin
ShowMessage('Windows wird beendet.');
msg.Result := Integer(TRUE); // TRUE: darf weiter runterfahren; FALSE: nicht runterfahren
end;
gefunden bei euch in der
Code-Library
mein
OS: WinXP
Es braucht nicht in 5 Sekunden abgeschlossen zu sein, da der Shutdownvorgang abgebrochen ist. Ich habe mein Programm gestartet, dann über [Start][Herunterfahren][Herunterfahren] Windows beendet. Es wurden ca. 10 Prozesse beendet, dann wurde der Shutdownvorgang abgebrochen. Ein Versuch den Vorgang (nach 2 Minuten) abzubrechen (shutdown - a in Kommandozeile) schlägt fehl mit "Das Herunterfahren des Systems konnte nicht abgebrochen werden, da das System zurzeit nicht heruntergefahren wird.
P.S. Falls ich (wieder einmal) etwas nicht beachtet habe, sagt es mir bitte, bin noch Anfänger. Danke.