Herunterfahren verhindern, Programm nicht beenden

[samso]

Vielleicht hilft das:

http://www.delphipraxis.net/179814-a...ndsession.html

[BlueStarHH]

Zitat von samso:

Vielleicht hilft das:

http://www.delphipraxis.net/179814-a...ndsession.html

Danke, das habe ich gelesen. Hilft leider nicht.

[Sherlock]

Ja, BlueStarHH, hast Recht, ich hatte das falsch interpretiert.

Vertrackt... Hast Du die Möglichkeit zu loggen, was passiert, also welche Messages reinkommen?

Sherlock

[BlueStarHH]

Zitat von Sherlock:

Ja, BlueStarHH, hast Recht, ich hatte das falsch interpretiert.

Vertrackt... Hast Du die Möglichkeit zu loggen, was passiert, also welche Messages reinkommen?

Sherlock

Kann ich einbauen. Wie? Mit dem Debugger sieht man jedenfalls das erst WMQueryEndSession aufgerunfen wird und dann WMEndSession und danach wird das Programm von Windows beendet.

[Der schöne Günther]

Dumme Idee: Wenn ich den Quelltext in Vcl.Forms richtig verstehe, dann gibt eine VCL-Anwendung auf WM_QUERYENDSESSION immer True (1) zurück. Und gibt das erst gar nicht an deine Formulare weiter.

Umgehen (und richtig bearbeiten) könntest du das indem du Application.HookMainWindow(..) aufrufst und dort deinen eigenen Hook setzt.

Beispiel wäre ungefähr so:

Delphi-Quellcode:

[...]
Application.HookMainWindow(myApp.WndProcHook);
[...]

function TMyApp.WndProcHook(var message: TMessage): Boolean;
begin
   Result := False;

   case message.Msg of
      WM_QueryEndSession:   begin
         Result := True; // Wird in Vcl.Forms nicht weiter abgearbeitet
         (...) // z.B. an Application.MainForm weiterleiten...
      end;
   end;
end;

[Sherlock]

Zitat von Der schöne Günther:

Dumme Idee: Wenn ich den Quelltext in Vcl.Forms richtig verstehe, dann gibt eine VCL-Anwendung auf WM_QUERYENDSESSION immer True (1) zurück.

Immer wieder schön zu sehen, wie einem die VCL Arbeit abnimmt

Sherlock

[BlueStarHH]

Zitat von Sherlock:

Zitat von Der schöne Günther:

Dumme Idee: Wenn ich den Quelltext in Vcl.Forms richtig verstehe, dann gibt eine VCL-Anwendung auf WM_QUERYENDSESSION immer True (1) zurück.

Immer wieder schön zu sehen, wie einem die VCL Arbeit abnimmt

Sherlock

Daher gibt es ja meinen eigenen Handler, der 0 zurückgibt:

Delphi-Quellcode:

procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  Message.Result := 0;
end;

[BlueStarHH]

Zitat von Der schöne Günther:

Dumme Idee: Wenn ich den Quelltext in Vcl.Forms richtig verstehe, dann gibt eine VCL-Anwendung auf WM_QUERYENDSESSION immer True (1) zurück. Und gibt das erst gar nicht an deine Formulare weiter.

Umgehen (und richtig bearbeiten) könntest du das indem du Application.HookMainWindow(..) aufrufst und dort deinen eigenen Hook setzt.

Beispiel wäre ungefähr so:

Delphi-Quellcode:

[...]
Application.HookMainWindow(myApp.WndProcHook);
[...]

function TMyApp.WndProcHook(var message: TMessage): Boolean;
begin
   Result := False;

   case message.Msg of
      WM_QueryEndSession:   begin
         Result := True; // Wird in Vcl.Forms nicht weiter abgearbeitet
         (...) // z.B. an Application.MainForm weiterleiten...
      end;
   end;
end;

Hier wird WM_QueryEndSession nie angesprungen. Warum weiß ich nicht... Die WndProcHook wir ausgeführt. Beendet wird das Programm trotzdem.

[Neutral General]

Kommt die Message vielleicht bei dem Application-Fenster an?
Dann könntest du versuchen im WndProc(-Event) der Application die Message bearbeiten.