Also zum runtefahren benutze ich das hier
Delphi-Quellcode:
private
procedure WMQueryEndSession (var M: TWMQueryEndSession); message
WM_QUERYENDSESSION;
Delphi-Quellcode:
procedure TForm1.WMQueryEndSession (var M: TWMQueryEndSession);
begin
inherited; //Wichtig
//Hier kommt dann der Quellcode rein z.B.
ShowMessage('Das Programm wird jetzt gleich durch Windows beendet');
end;
Zum abmelden musst halt nur ne andere Message nehmen