Messages bei nonVCL?

[blackdrake]

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