Handle bei mehremals gleichen Klassennamen

[ferby]

Hallo,

habs jetzt zusammengebracht...

ist war noch nicht ganz schön, aber es geht mal

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  wndMain, wndChild, temp: HWND;
begin
  wndMain := FindWindow(nil,'Preference Window');
  temp:=0;
  wndChild:=0;

  if wndMain <> 0 then
  while wndChild=0 do
  begin
    wndChild := FindWindowEx(wndMain, temp, 'AfxWnd70u', nil); 
    temp:=wndChild;
   
    wndChild := FindWindowEx(wndChild, 0, 'AfxWnd70u', nil);
  end;
  
  wndMain:=wndChild;
  temp:=0;
  
  while GetWinText(wndChild)[1]<>'S' do
  begin
    wndChild := FindWindowEx(wndMain, temp, 'Button', nil);
    temp:=wndChild;
  end;

end;