warten bis anwendung gestartet wird...

[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...