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