Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
14. Mär 2003
:wiejetzt:
Was ist ein "schnuffel"? Aber ist schon komisch, eine Freundin hat mich immer "Schnuffi" genannt. :roll:
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
14. Mär 2003
So jetzt nimmst du erst mal das Taschentuch, schnäuzt dir die Nase, trocknest deine Tränen und dann kuckst du dir mal den Code vom lieben Onkel Luckie an:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
procedure WMQUERYEBDSESSION(var msg: TMessage); message WM_QUERYENDSESSION;
public
{ Public-Deklarationen }
end;
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
14. Mär 2003
Das hat mit dem Flag CanClose von TForm.CloseQuery nichts zu tun. Das ist eine Message, die du abfangen mußt.
Und desweiteren mußt du natürlcih TRUE oder eins zurückgeben, Windows soll ja weiter runterfahren.
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
14. Mär 2003
WM_QUERYENDSESSION bekommst du von Windows geschickt, wenn es runterfahren will. Gibst du hier 0 oder FALSE zurück, dann bricht Windows das Runterfahren ab.
Aber ich habe schon von diversen TrayIcon-Komponenten gehört, dass sie das Beenden des Programms beim Runterfahren verhindern. Die aus der RXLib gehörte glaube ich dazu.
Du mußt es übrigens nicht deinem Programm sagen, sondern Windows!