Prgramm verhindert herunterfahren

[C.Schoch]

Klar kann man das:

Delphi-Quellcode:

procedure WMQUERYENDSESSION(var msg : TMessage);
begin
msg.Result := Integer(true);
end;

procedure WMENDSESSION(var msg : TMessage);
begin
msg.Result := Integer(true);
end;

Ich weis nicht ob Delphi das Programm selbst schließt oder man dies händisch übernehmen muss, ich machs jedenfalls händisch