Handle und Klassen - Um welche Klasse handelt es sich?

[MisterNiceGuy]

Hmm also mit

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  wnd: HWND;
    WindowText: array[0..2000] of char;
begin
  wnd := FindWindow('wxWindowClassNR',nil);
  wnd := FindWindowEx(wnd, 0, 'wxWindowClassNR', nil);
  wnd := FindWindowEx(wnd, 0, 'Button',nil);
  if wnd <> 0 then
  begin
        GetWindowText(wnd, WindowText, 2000);
      {Display it}
      memo1.Text := WindowText;
  end;
end;

bekomm ich den richtigen Text auf dem Button.
Aber mit

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  WindowText: array[0..2000] of char;
  wnd: HWND;
begin
  wnd := FindWindow('wxWindowClassNR',nil);
  wnd := FindWindowEx(wnd, 0, 'wxWindowClassNR', nil);
  wnd := FindWindowEx(wnd, 0, 'SysListView32', nil);
  if wnd <> 0 then
  begin
      GetWindowText(wnd, WindowText, 2000);
      {Display it}
      memo1.Text := WindowText;
  end;
end;

bekomm ich nicht den Inhalt der Liste Warum geht das bei dir? Was machst du anders? @toms