warten bis anwendung gestartet wird...

[agm65]

hallo leute, hab da mal ne frage...
also ich möchte, dass mein progg wartet bis zB der IE geöffnet wird und dann sollen erst meine funktionen ausgeführt werden...geht sowas? also ich könne ja checken lasses ob die iexplorer.exe bereits ausgeführt ist und dann erst loslegen. dachte vielleicht gibts dafür ne function.. ? thx cu agm65

[Mr_G]

Vielleicht hilft dir das hier:

Delphi-Quellcode:

uses ..., tlhelp32 ...
function GetProcessID(sProcName: String): Integer;
  var
    hProcSnap: THandle;
    pe32: TProcessEntry32;
  begin
    result := -1;
    hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    if hProcSnap = INVALID_HANDLE_VALUE then exit;

    pe32.dwSize := SizeOf(ProcessEntry32);

    //wenn es geklappt hat
    if Process32First(hProcSnap, pe32) = true then
      //Prozess suchen
      while Process32Next(hProcSnap, pe32) = true do
      begin
        if pos(sProcName, pe32.szExeFile) <> 0 then
          result := pe32.th32ProcessID;
      end;
    CloseHandle(hProcSnap);
  end;

Ich glaue ich habs sogar hier aus dem Forum...

[Olli]

ShellExecuteAndWait (Direktlink) tut's auch. Einziges Problem: du weißt nie genau ab wann das Programm auch wirklich komplett geladen ist. Mit beiden Methoden nicht.

@Mr_G: Auf NT4 wird das nicht gehen

[SirThornberry]

@Mr_G: außerdem müsstest du eine repeat-until-scheilfe nehmen da du sonst den ersten prozess den du bereits mit Process32Fist überspringst bei der Prüfung

[Christian Seehase]

Moin Olli,

Zitat von Olli:

Einziges Problem: du weißt nie genau ab wann das Programm auch wirklich komplett geladen ist.

und wenn Du jetzt mal WaitForSingleObject durch WaitForInputIdle austauschst?
Letzteres ist ja schliesslich genau dafür da zu warten, bis der Prozess auf anwenderseitige Eingaben wartet.

[agm65]

danke jungs ich werde das heute abend mal testen ...

[SirThornberry]

@Christian Seehase: Das ist trotzdem nicht eindeutig. Grund sind da die bösen Programmierer von diversen Programmen. Hat man zum Beispiel einen Splashscreen und aktuallisiert den mit Application.ProcessMessages so werden die ersten Nachrichten abgearbeitet und für Windows müsste es so aussehen als ob das Programm jetzt fertig geladen ist und auf nutzereingaben wartet.

[Olli]

Zitat von Christian Seehase:

und wenn Du jetzt mal WaitForSingleObject durch WaitForInputIdle austauschst?
Letzteres ist ja schliesslich genau dafür da zu warten, bis der Prozess auf anwenderseitige Eingaben wartet.

Ja, ist prinzipiell natürlich möglich. Aber die Einschränkung beachten:

Zitat:

If this process is a console application or does not have a message queue, WaitForInputIdle returns immediately.

Beim IE müßte es aber gehen, denke ich.

[Mr_G]

Zitat von SirThornberry:

@Mr_G: außerdem müsstest du eine repeat-until-scheilfe nehmen da du sonst den ersten prozess den du bereits mit Process32Fist überspringst bei der Prüfung

Ich versteh nicht was du mir sagen willst...

P.S.: Hab mich nicht wirklich damit auseinander gesetzt. War nur eine Function die im Rahmen des Prozessekillens brauchte...

[SirThornberry]

woran macht dann die funktion WaitForInputIdle intern fest ob die Anwendung fertig ist? Ich hätte gedacht das dies der fall ist sobald die erste message abgearbeitet ist, aber wenn keine message queue vorhanden wäre würde es nach meiner Theorie ewig warten.

@Mr_G:

Delphi-Quellcode:

if Process32First(hProcSnap, pe32) = true then 
   //An dieser Stelle wurde bereits der erste prozess in pe32 eingelesen
   while Process32Next(hProcSnap, pe32) = true do //un hier liest du schon den nächsten prozess in pe32 ein. Wenn du also nach dem ersten aufruf (Process32First) in pe32.szExeFile den richtigen Namen hast wird dieser einfach ignoriert und nie gefunden