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.

[phreax]

Hallo Christian!
Ich habe deine Code getestet. So wie du ihn geschrieben hast, blockiert er jedoch das abmelden. Wenn ich es per "shutdown -l" erzwinge wird die anwendung wieder beendet...

mit einer kleinen änderung:

Delphi-Quellcode:

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

//bzw:

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

funktioniert zwar das normale abmelden wieder aber das Programm wird immer noch beendet...
schade eigentlich klang vielversprechend....
Trotzdem danke

Also wer weiss eine weiter Lösungsmöglichkeit??

[phreax]

Ach ja ausserdem:

Zitat von phreax:

Mein Programmm reagiert nicht mehr auf WM_CLOSE Messages dank:

Delphi-Quellcode:

procedure OnTryClose(var msg: TWMClose); message WM_CLOSE;
//...
procedure TForm1.OnTryClose;
begin
msg.Result := 0;
end;

Stimmt so nicht ich habe das nochmals überprüft.
Obiger code bringt gar nix was geholfen hat war:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;

[Union]

Ist Dein Problem jetzt gelöst? Ansonsten schau Dir mal http://www.rz.uni-freiburg.de/pc/sys/srvany/srvany.doc ganz genau an.

[Olli]

Wenn dein Programm keine Oberfläche hat und braucht, warum dann die Forms? Nur dadurch werden ja die Nachrichten auch empfangen.

Abgesehen davon setzt du dein Programm potentiellen Gefahren aus ...

[phreax]

Hallo Zusammen!
@Union: dankö für das Dokument es hat mich auf dei richtige Idee gebracht...
das Problem war einfach das mein Service auf "interaktiv" und "lokales Systemkonto" eingestellt
war. Dadurch wurde mein Programm immer platt gemacht vllt. auch deshalb

Zitat:

The LocalSystem account does not have access to the network.

Denn mein Programm versucht genau das...
Jedenfalls als ich den Service auf ein Administrator Konto
einstellte funktionierte es brilliant, mein Programm läuft auch noch nach einer abmeldung...
Fazit: PROBLEM GELÖST

@Olli: Mein Programm besitzt noch eine Oberfläche weil ich kaum Erfahrung mit non-VCL Programmierung habe und nicht wüsste wie die INDY Komponenten ohne Form zu verwenden wären...

Also das Problem lag woanderst als erst vermutet...
ALso ein riesen großes DANKESCHÖN an alle die so tatkräftig mitgeholfen haben das Problem zu lösen

[Olli]

Zitat von phreax:

Hallo Zusammen!
@Union: dankö für das Dokument es hat mich auf dei richtige Idee gebracht...
das Problem war einfach das mein Service auf "interaktiv" und "lokales Systemkonto" eingestellt
war. Dadurch wurde mein Programm immer platt gemacht vllt. auch deshalb

Zitat:

The LocalSystem account does not have access to the network.

Denn mein Programm versucht genau das...

Nicht ganz, dein Programm wird nur wegen der Benutzung bestimmter Funktionen (bspw. Fenster) "plattgemacht". Mit Netzwerkzugriff hat das in dem Fall nichts zu tun, schließlich läufst du in einer anderen Logonsession. Es ist übrigens nicht ganz korrekt, daß SYSTEM keinerlei Netzwerkzugriff hat, allerdings hat es (normalerweise) keine Zugriffsrechte auf SMB-Shares.

Zitat von phreax:

Jedenfalls als ich den Service auf ein Administrator Konto
einstellte funktionierte es brilliant, mein Programm läuft auch noch nach einer abmeldung...
Fazit: PROBLEM GELÖST

Könnte sogar sein, daß sich dein Programm selber abgeschossen hat, denn wenn es als Admin plötzlich läuft ist das schon ein Hinweis drauf ...

Zitat von phreax:

@Olli: Mein Programm besitzt noch eine Oberfläche weil ich kaum Erfahrung mit non-VCL Programmierung habe und nicht wüsste wie die INDY Komponenten ohne Form zu verwenden wären...

Also mit nonVCL hat das erstmal wenig zu tun. Und mit den Indys habe ich mich noch nicht genügend beschäftigt, um dir einen Rat geben zu können. Allerdings kann ich mir nicht vorstellen, daß alle Klassen dort an ein Fenster gekoppelt sind. Sprich: es muß auch nicht-visuelle Komponenten geben.

Nochmal zum Thema interaktiv, lies dir mal meine und Luckies Hinweise zum Thema Shatter Attack (hier ein Direktlink http://security.tombom.co.uk/shatter.html) durch.