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?

[TBx]

Hallo!

Du solltest Dich mit der Programmierung von Systemdiensen vertraut machen.

Ich denke, dort wirst Du finden, was Du suchst.

Entsprechende Tutorials solltest Du in der DP finden.

Gruß

onlinekater

[blackdrake]

Hallo.

Bis jetzt hat eine normale Anwendung ohne Forms prima Funktioniert. Die Schleife war eine while-true, jedoch möchte ich jetzt noch eine Aktion beim Herunterfahren durchführen. Es ist auch kein öffentliches Projekt, also muss es nicht absolut Perfekt sein.

Gruß
blackdrake

[DGL-luke]

Die WM_SYSTEMSHUTDOWNQUERY (oder wie auch immer die heisst) sollte doch auch im Thread bzw. process-queue irgendwie irgendwo ankommen... du solltest also immer mal wieder die Nachrichten abholen und dann schauen, ob die entsprechende dabei ist.

EDIT: ja... das ist eigentlcih NonVCL-Programmierung, also müsstest du einen ganz stinknromalen Message-Loop aufbauen können... oder...?!

[Ydobon]

Ich kann gerade meinen Rechner nicht herunterfahren, aber vielleicht funktioniert ja AllocateHWnd, das braucht nur Classes.

[blackdrake]

Hallo.

Leider habe ich von der Windows API absolut keine Ahnung, deswegen sagen mir Message-Loops auch nichts. Unter Google habe ich nichts passendes mit meinen Schlagworten gefunden. Welche Parameter muss AllocateHWnd haben, damit ich abfragen kann, ob Windows herunterfahren will?

Edit: Das hier geht auch nicht:

Delphi-Quellcode:

program test;

uses
  Messages;

{$R *.res}

// Unbekannte direktive "message"
procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession; forward;

procedure WMQueryEndSession(var Msg : TWMQueryEndSession);
begin
end;

begin
end.

Gruß
blackdrake

[blackdrake]

Gibt es für mein Problem technisch keine Lösung? Ich muss dann scheinbar doch mit Forms arbeiten, nur damit ich OnCloseQuery nutzen kann, oder nicht?

[jfheins]

Entweder, du arbeitest mit "Forms" und VCL und Komfort (und kannst dann TFormOnCloseQuery verwenden), oder:

Du verzichtest auf die VCL, deine Exe wird kleiner, und du musst alles per Hand machen (und Messages verwenden).

Aber gerne die Vortele beider ohne Nachteile haben geht nicht
(vll. mit KOL ansatzweise - da kenn ich mich jetzt nit so aus ...)

Such mal nach einem Tutorial für die API-Programmierung ohne die VCL - Luckie hat da auch mal eins geschrieben

[Cyberbob]

Wenn du nur was machen Willst, wenn Windows runterfährt, kannst du unter XP Pro auch ein Programm bei/kurz vor dem Shutdown starten. Dieses wird allerdings erst dann gestartet.