String in Fremder Anwendung finden

[jacky213]

Hallo,

ich suche nach einer Möglichkeit einen String in einer Fremden Anwendung zu suchen und auszuwählen. Ich habe es bereits hinbekommen einen ListBox Eintrag zu suchen und zu markieren aber der Code funktioniert in einem anderen bereich der selben Anwendung nicht (Könnte sein, dass es dort keine Listbox sondern eine Listview ist).

Das ist der Code der bisher mit der Listbox funktioniert hat.

Delphi-Quellcode:

Procedure TitelAusw(fname, suchstring:string);
var
  wnd: HWND;
begin
  wnd :=  FindWindow('TAudioManager', 'AudioManager');
  wnd :=  FindWindowEx(wnd, 0, 'TAlbListe', nil);
sleep(250);
if SendMessage(wnd, lb_selectstring, -1,
longint(PChar(suchstring)))<>LB_ERR then begin
SendMessage(wnd, WM_LBUTTONDOWN, -1, longint(PChar(suchstring)));
SendMessage(wnd, WM_LBUTTONUP, -1, longint(PChar(suchstring)));
end;
end;

Die Liste sieht aus wie eine Listview und der String den ich suche befindet sich in den SubItems.

Danke schonmal