Sourcecode: Progressbars über ControlID von ext. App finden

[Amnon82]

http://img74.imageshack.us/img74/8876/switchids2yh.png

Die ID von der Klasse der Progressbar1 ist die der zweiten Progressbar und andersherum.
Nur klappt mein Code nicht:

Delphi-Quellcode:

var
  wnd: HWND;
  ID1,ID2:Integer;
begin
  {get IDs}
  wnd :=  FindWindowbytitle('ProgressTEST');
  wnd :=  FindWindowEx(wnd, 0, 'TProgressBar', nil);
  ID2:= GetDlgCtrlID(wnd);
  wnd :=  FindWindowbytitle('ProgressTEST');
  wnd :=  FindWindowEx(wnd, 0, 'TProgressBar', nil);
  ID1:= GetDlgCtrlID(wnd);

  {get Progressbar information}
  wnd :=  FindWindowbytitle('ProgressTEST');
  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 :=  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;

... man müsste alle IDs von den Progressbar-Klassen auslesen und zuordnen ...