Hallo.
Ich möchte folgenden Code in
nonVCL (also nur noch
DPR, keine DFMs mehr) portieren:
Delphi-Quellcode:
type
TMainForm = class(TForm)
private
procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
end;
Ich habe es bereits mit Application.OnTerminate probiert, aber es hat nicht funktioniert. Sobald ich nicht mehr mit Forms arbeite (TMainForm.MeineProzedur wird zu MeineProzedur), funktioniert es nicht mehr. Meldung kann ich nochmal nachreichen.
Dieser Zusatz "message WM_ENDSESSION" funktioniert auch nur innerhalb eines Forms.
Muss ich nun mit einer Schleife arbeiten, die mittels PeekMessage das Shutdown-Signal abfängt? Dann müsste ich aber extra dafür einen Thread anlegen, weil der Programmfluss sich ja primär mit einer anderen Aufgabe beschäftigt.
Gruß
blackdrake