Programm beendet bei Windows Restart nicht

[Centrii]

Hi,

Hab da ein kleines Problem mit einem Programm von mir.
Wenn ich Windows neustarten, herunterfahren oder den User abmelden will, wird mein Programm nicht beendet.
Es kommt immer die "END NOW" Message, Windows schafft es aber nicht das Programm zu beenden.
Hab schon versucht die WM´s abzufangen und es selber zu beenden, leider komm ich erst dazu, wenn die "END NOW" schon aktiv ist.
Ich hab schon alles was im OnClose steht auskommentiert, leider ohne Erfolg.

Hat jemand eine Idee und kann mir einen Vorschlag machen wie ich das Problem lösen könnte??

Gruß Ruben

[Nuclear-Ping]

Ohne Code zu sehen wie du was machst, ist das ein Raten ins Blaue.

[Muetze1]

Ist das Programm in den Tray minimiert?

[Semmel]

gibt es in CloseQuery eine Abfrage (Ja/Nein) war bei mir schon mal eine Möglichkeit ?

[Centrii]

Zitat von Muetze1:

Ist das Programm in den Tray minimiert?

nein, ist es nicht.

Zitat von Semmel:

gibt es in CloseQuery eine Abfrage (Ja/Nein) war bei mir schon mal eine Möglichkeit ?

in der CloseQuery gibt es keine abfragen, ich hab nichts in die OnCloseQuery geschrieben. Da Delphi beim aufruf der CloseQuery das CanClose standardmäßig auf CanClose := true setzt, habe ich darin nichts gemacht.
Alles was im OnClose Event steht, ist auskommentiert. Wenn ich die WM´s abhandeln will, bin ich immer zu spät dran. Beim Neustart von windows kommt erst das END NOW, wenn ich das weg clicke (mit "X"), komme ich in eine Abhandlungen der WM´s. Das ist aber zu spät. Gibts da eine Lösung?

Danke Euch

[Nuclear-Ping]

Hallo? Code? Oder sollen wir 5 Seiten lang raten?

[Centrii]

Delphi-Quellcode:

procedure Tfmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := true;
end;

Delphi-Quellcode:

procedure Tfmain.FormDestroy(Sender: TObject);
begin
  DeleteThread.Terminate;
  try
    DeleteThread.WaitFor;
  except
  end;
  DeleteThread.Free;
  Lock_Draw.Free;
  Lock_Query.Free;
  Lock_ClientCheck.Free;
  Lock_UpdateList.Free;
  Lock_NameCheck.Free;
end;

Delphi-Quellcode:

procedure Tfmain.WMEndSession(var Msg: TWMEndSession);
begin
  if msg.Unused = 0 then //d.h. es ist ein reboot/shutdown
  begin
   Statusbar1.Panels[2].Text:='Windowsmessage: reboot or shutdown required';
   Statusbar1.Update;
   Application.ProcessMessages;
   close;
  end
  else                  //d.h. es ist ein logoff
  begin
   Statusbar1.Panels[2].Text:='Windowsmessage: logoff required';
   Statusbar1.Update;
   Application.ProcessMessages;
   close;
  end;
end;

procedure Tfmain.WMQUERYENDSESSION(var Msg: TMessage);
begin
  msg.Result := Integer(true);
end;

so das ist alles was meiner Meinung nach relevand ist. Wie gesagt, alles im FormClose ist auskommentiert.

[Jelly]

Warum fängst du denn überhaupt die Windowsbotschaften ab?

[Centrii]

weil sich mein Programm bei einem Windows neustart nicht beendet
und ich die Hoffnung hatte das so in den Griff zu bekommen.
Leider komm ich aber erst zum Abfangen wenn die END NOW Meldung schon da ist.

[NormanNG]

Hi,

Delphi-Quellcode:

procedure Tfmain.FormDestroy(Sender: TObject);
begin
  DeleteThread.Terminate;
  try
    DeleteThread.WaitFor;
  except
  end;
  DeleteThread.Free;
  Lock_Draw.Free;
  Lock_Query.Free;
  Lock_ClientCheck.Free;
  Lock_UpdateList.Free;
  Lock_NameCheck.Free;
end;

Das liegt sicher daran, das DeleteThread nicht beendet. Kommentier mal den Thread aus. Wenns dann beendet, dann wars der Thread...