Application.ProcessMessages bei Konsolen-Tätigkeiten??

[Qnkel]

Moin,

Mein Code:

Delphi-Quellcode:

If CreateProcess(PChar(Progpfad + 'seti.exe'), '-stop_after_xfer', nil, nil, False, CREATE_NEW_PROCESS_GROUP, nil, PChar(Progpfad + '\WU' + IntToStr(i)), Startup, Prozess) then
        begin
          try
            WaitForSingleObject(Prozess.hProcess, INFINITE);
            Application.ProcessMessages;
          finally
            CloseHandle(Prozess.hProcess);
            CloseHandle(Prozess.hThread);
          end;

So. Wenn das läuft, macht die Konsole (über AllocConsole) das wasse soll...nur mein Proggi mach garnix mehr...ich kann kein Button anklicken und das Fenster wird net nachgezeichnet bzw. refrehst...

wo krieg ich da jet n Application.ProcessMessages rein, damits funzt??

edit: jetz isses Delphi-Formatiert

[Christian Seehase]

Moin Qnkel,

Zitat:

Zitat von Qnkel

wo krieg ich da jet n Application.ProcessMessages rein, damits funzt??

solange Du mit WaitForSingleObject und INFINITE arbeitest:
Gar nicht, denn die Funktion kehrt erst zurück, wenn der Prozess beendet wird.

Du könntest, mit Hilfe von GetExitCodeProcess und dem Prozesshandle, in einer While Schleife warten, bis der ExitCode <> STILL_ACTIVE ist.
In der Schleife kannst Du dann Application.ProcessMessages verwendent.

Als Alternative könntest Du den gesamten Aufruf auch in einen separaten Thread auslagern.

[Qnkel]

Bahnhof.

Wie du meinen?? Verstehe leider nix :(

[Christian Seehase]

Moin Qnkel,

hast Du Dir denn mal die Fundstellen angesehen?

[Qnkel]

Getexitcodeprocess keine ergebnisse
und still active hat mich net weitergebracht ;)

[Christian Seehase]

Moin Qnkel,

Zitat:

Zitat von Qnkel

Getexitcodeprocess keine ergebnisse

:shock:

also wenn ich da drauf klicke erhalte ich 23 Fundstellen :wink:

[Qnkel]

ahh hab ejtz was von luckie gefunden
:gruebel: wieso warn vorhin keene ergebnisse da??