Sourcecode: Progressbars über ControlID von ext. App finden

[Amnon82]

Mit folgendem Code hab ichs zumindest mit dem Delphiprogramm geschafft:

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd :=  FindWindowbytitle('ProgressTEST');
  //wnd :=  FindWindowEx(wnd, 0, 'TProgressBar', nil);
  wnd :=  GetDlgItem(wnd, 11731874);

  if wnd <> 0 then
  begin
  progressbar1.position:=SendMessage(wnd, PBM_GETPOS, 0, 0);
  progressbar1.max:=SendMessage(wnd, PBM_GETRANGE, 0, 0);
  end;

  wnd :=  FindWindowbytitle('ProgressTEST');
  //wnd :=  FindWindowEx(wnd, 0, 'TProgressBar', nil);
  wnd :=  GetDlgItem(wnd, 7668440);

  if wnd <> 0 then
  begin
  progressbar2.position:=SendMessage(wnd, PBM_GETPOS, 0, 0);
  progressbar2.max:=SendMessage(wnd, PBM_GETRANGE, 0, 0);
  end;
end;

Nur einmal, da sich die Werte für wnd := GetDlgItem(wnd, 11731874); ändern ...
Wie kann man die ControlID bekommen?