verhindern dass mein Programm beim abmelden gekillt wird

[Christian Seehase]

Moin Phreax,

Vorausgesetzt, Du startest das Programm als Service (Srvany), könnte es so gehen:

Delphi-Quellcode:

   procedure WMQUERYENDSESSION(var Msg: TMessage); message WM_QUERYENDSESSION;
   procedure WMENDSESSION(var Msg: TMessage); message WM_ENDSESSION;


procedure TForm1.WMENDSESSION(var Msg: TMessage);
begin
  CallWindowProc(DefWndProc,self.Handle,WM_ENDSESSION,Msg.wParam,Msg.lParam);
end;

procedure TForm1.WMQUERYENDSESSION(var Msg: TMessage);
begin
  CallWindowProc(DefWndProc,self.Handle,WM_QUERYENDSESSION,Msg.wParam,Msg.lParam);
end;

Abgeleitet aus

Zitat:

...instead, your windows procedure should call the default windows procedure on these messages.