Sourcecode: Progressbars über ControlID von ext. App finden

[Amnon82]

Mit Win-Xspy arbeite ich ja schon.

http://img112.imageshack.us/img112/4...ntrolid8fy.png

Ich komm bis zum Klassennamen. Wie kann ich nun die ControlID der Progressbar ermitteln?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd: HWND;
  ID1,ID2:Integer;
begin
  wnd :=  FindWindowbytitle('ProgressTEST');
  wnd :=  FindWindowEx(wnd, 0, 'TProgressBar', nil);
  ID1:= GetDlgCtrlID(wnd);

  wnd :=  GetDlgItem(wnd, ID1);

  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);
  ID2:= GetDlgCtrlID(wnd);
  wnd :=  GetDlgItem(wnd, ID2);


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

  caption:=('GetProgress - ID1: '+inttostr(ID1)+' | ID2: '+inttostr(ID2));
end;

Ich hab mal den Titel geändert ...