Hwnd find durch EXE-name, wie?

[Amnon82]

Ich hab einen meiner Programmcodes zu einem kleinen Demo-Programm zusammengestellt.

Es hat ein Test-Programm und das eigentliche Programm.
Sinn dahinter ist, zwei Progressbars im eigentlichen Programm zu dublizieren, sprich
die Werte des Test-Programms zu übernehmen.

Das HWnd finde ich über FindWindowByTitle.

Nun möchte ich aber das HWnd auch per EXE-Name finden.
Nur weis ich nicht wie.

Folgenden Code hab ich so gefunden:

Delphi-Quellcode:

Uses JCLSYSINFO
...
var PID : DWORD;
begin
  //Hwnd :=  FindWindowbytitle('Titel_der_EXE');
  PID := GetPidFromProcessName('Name_der.exe');
  Hwnd := GetMainAppWndFromPid(PID);
  if Hwnd <> 0
  then
   //tu was
end;

Leider benötigt dann das Programm 100% CPU

Gibt es ne Lösung?