PC fährt nicht runter, wenn Server-Anwendung läuft

[MCQ]

Ich hab die Aufgabe für ein Computer-Kabinett meiner Schule ein kleines Remote-Control-Programm zu schreiben. Das Programm läuft auch soweit, allerdings können die PC's (zummindest unter Win95) nicht mehr herrunter gefahren werden, wärend die Server-Anwendung läuft.

1.) Woran kann das liegen ?
2.) Wie kann ich das ändern ?

*

[Mario]

Schaue mal hier:
http://www.entwickler-forum.de/WebX?13@@.ee8dd90

oder WM_QUERYENDSESSION

[MCQ]

Ich hatte meinem Programm mal gesagt, wenn er die Windows-Message WM_QUERYENDSESSION bekommt soll es beenden. Ist aber nix passiert. Kann das sein das mein Programm diese Meldung aus irgendeinem kühnen grunde nicht bekommt?

[Mario]

Hast Du Dein Programm irgendwie verborgen? Dann könnte ich es mir vorstellen, aber so genau kenne ich mich da nicht aus.

[Luckie]

Hat es ein Fenster? Dann sollte es sie auch bekommen. Du musst allerdings die WndProc überschreiben.

[Mario]

Hier sind noch mal ein paar Tips in Deiner Richtung zusammengestellt:
http://www.entwickler-forum.de/WebX?128@@.ee6b958

Vielleicht kommst Du damit weiter.

[MCQ]

Zitat von Luckie:

Hat es ein Fenster? Dann sollte es sie auch bekommen. Du musst allerdings die WndProc überschreiben.

1.) Ja es hat ein Fenster.
2.) Wie meinst du das, ich müsse die WndProc überschreiben? Hättest du da mal nen Beispiel ?

Zitat von Mario:

Hast Du Dein Programm irgendwie verborgen? Dann könnte ich es mir vorstellen, aber so genau kenne ich mich da nicht aus.

Nein, noch ist das Programm eindeutich zu sehen. Das verstecken sollte als letztes kommen.

[MCQ]

Zitat von Jörg Arndt von [url:

http://www.entwickler-forum.de/WebX?128@@.ee6b958[/url] ]Hallo,

ich denke, ich bin selbst auf die Lösung gekommen: Delphi hat einen Mechanismus, wo man Funktionen einklinken kann, die bei der Beendigung aufgerufen (u.a. auch durch WM_QUERYENDSESSION ausgelöst).

function MyTerminate: Boolean; begin DeInitialize; Result := true; end;

In FormCreate:

AddTerminateProc(MyTerminate);

Das probiere ich gleich morgen mal aus. Sag euch dann bescheid ob's geklappt hat, aber logisch klingts.

Danke Mario

[MCQ]

Konnte nicht bis morgen in der Schule warten. Die neugierde hat mich dazu getrieben, ein ändliches Programm hier zu Hause nochmal nach zu stellen. Leider hat es nicht ganz so wie beschrieben geklappt. Hab's nen bisschen abgewandelt. Ich hab's jatzt wie folgt:

Delphi-Quellcode:

Function Ende:Boolean;
begin
*ExitProcess(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
*AddTerminateProc(Ende);
end;

ES FUNKTIONIERT !!!
Tausend Dank für eure Hilfe