OnCloseQuery ohne Forms

[blackdrake]

Hallo.

Ich habe eine Anwendung, die einen Hintergrunddienst durchführt und keine Forms verwendet. Die Unit "Forms" ist nicht eingebunden.

Ich möchte folgende Programmstruktur erzielen:

Delphi-Quellcode:

program Test;

begin
  // Vor Schleife

  while not WindowsBeendetSich do
  begin
    // Schleife, bis Windows heruntergefahren/neugestartet wird
  end;

  // Abschließende Arbeiten
end.

Ich möchte also eine Art OnCloseQuery nutzen bzw. eine Funktion haben, die true wird, sobald sich Windows im Herunterfahren-Prozess begibt.

Kann mir jemand helfen?