WaitForSingleObject

[ONeill]

Hallo Leute,

mal wieder ne eher kleine Frage mit großen Auswirkungen
Ich habe ein kleines Programm, welches bisher nicht mehr tut als ein paar Befehle an Androidspezifische Kommandozeilenprogramm (adb, fastboot) zu schicken.
Das läuft auch alles ganz klasse. Damit sich das Programm nicht komplett aufhängt, nur weil die fastboot.exe (Androidprogramm) auf ein Gerät wartet, habe ich folgende Line hinzugefpgt:

Code:

repeat
          WaitHandle := WaitForSingleObject(procInfo.hProcess, 200);
          Application.ProcessMessages;
        until application.terminated or (WaitHandle <> WAIT_TIMEOUT);

Das klappt bei adb.exe auch wunderbar, nur leider nicht bei der fastboot.exe, da die anscheinend weiterhin als "aktiv" gilt.
Nun ist meine Frage, wie kann ich das Programm trotzdem nach max. 20 Sekunden beenden, damit das Programm dann eine Fehlermeldung ausgeben kann?
Ein Lösungsansatz wäre zum Beispiel während der Ausführung zu prüfen ob ein bestimmter Text als Rückgabe aus der Kommandozeile kommt (wait for device). Allerdings weiß ich nicht, wie man das mit Delphi realisiert während der Ausführung das Ergebnis zu bekommen (wahrscheinlich nicht möglich )

Bin für jede Hilfe dankbar, auch wenn ich mal wieder ggf. Tomaten auf den Augen habe

[Luckie]

200 Millisekunden sind keine 20 Sekunden.

[ONeill]

Jap, da hast du natürlich Recht (das meinte ich mit den Tomaten auf den AUgen ) ALlerdings müsste sich ja die fastboot.exe dann noch schneller schließen, was die ja schon gar nicht tut. Ist also eher jetzt erstmal ein schönheitsfehler
Trotzdem danke für den Hinweis.

[Luckie]

Siehst du sie denn noch im Taskmanager in der Prozessliste? Und wird die fastboot.exe auch direkt von deinem Prozess gestartet? ist das Prozesshandle gültig?

[ONeill]

Jap, die läuft ja auch vor meinen Augen ohne Probleme weiter, so wie es sein soll. Allerdings wird eben der Prozess nicht beendet.

Aber ich hatte nun wirklich Tomaten auf den Augen. Ich habe es nun wie folgt gelöst:

Code:

repeat
          WaitHandle := WaitForSingleObject(procInfo.hProcess, 2000);
          Application.ProcessMessages;
          closed := closed+1;
        until application.terminated or (WaitHandle <> WAIT_TIMEOUT) or (closed = 10);
        if closed = 10 then
        begin
          killtask('fastboot.exe');
          killtask('adb.exe');
        end

Also sprich: ich habe einfach einen Zähler eingebaut, der sich erhöht. Wird dort eine gewisse Höhe erreicht, wird der Prozess einfach beendet.

Ist das so auch ressourcenschonend?

[Dalai]

Warum benutzt du zum Beenden der Prozesse nicht gleich das eh schon vorhandene Handle in procInfo.hProcess ? Einen Prozess mit seinem Namen zu töten, ist eine ganz dumme Idee, wenn sich noch andere gleichnamige Prozesse auf dem System tummeln...

MfG Dalai

[himitsu]

@Luckie: 10 * 2000

ressourcenschonend ja, aber muß es denn gleich in einem Mord (Kill) enden?