Count aus einer "fremden" Listbox

[maststef]

Jo, der titel sagts ja schon:
Wie kann ich die Count-Option einer Listbox auslesen, die sich in einer anderen Applikation befindet?

[Luckie]

Handle des Hautpfensters holen FindWindow, [dp[Enumwindows[/dp], Handle der Listbox holen FindWindowEx, EnumChildwindows und den Rest bekommst du hier: http://www.luckie-online.de/tutorials/win32apituts/ -> Listbox Tutorial. Wenn mich nicht alles täuscht, war es ein LB_GETCOUNT oder LB_COUNT oder so was.

[maststef]

Danke für die schnelle Antwort.
Das Handle vom Fenster hab ich schon, aber ich komme irgendwie nicht mit den Parametern von FindWindowEx klar. Kann mir da noch jemand Tipps geben?

[toms]

Delphi-Quellcode:

var
  hListBox, hHandleDesFensters : HWND;
begin
  hHandleDesFensters := FindWindow(nil, 'FormName')
  hListBox := FindWindowEx(hHandleDesFensters, 0, 'TListBox', nil);
  ItemCount := SendMessage(hListBox, LB_GETCOUNT, 0, 0);
end;

[maststef]

Danke für den Code, aber da kommt dann immer 0 bei raus.

Und ja, ich habe 'FormName' in den Namen des Fenster geändert...
Oder muss ich 'TlistBox' auch noch abändern?

[Christian Seehase]

Moin maststef,

prüf' doch einfach, ob das Handle das FindWindowEx einen gültigen Wert enthält.
Der Klassenname muss dem des Controls ensprechen, kann also, z.B., auch LISTBOX heissen.

[maststef]

aha, Danke.
Also mit 'LISTBOX' hat er zumindest das Handle bekommen, aber SendMessage liefert trotzdem noch 0 zurück.

[Alexander]

DAnn würde ich sagen, dass du mal deinen Code posten solltest:
Ich würde das in etwa so machen:
SendMessage({ Hier kommt das gefunde Handle der Listbox rein... }, LB_GETCOUNT, 0, 0);

[maststef]

Also so habe es ich gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hLB, hWindow : HWND;
  itemcount: integer;
begin
  hWindow := FindWindow(nil, 'Erkennungsliste');
  hLB := FindWindowEx(hWindow, 0, 'LISTBOX', nil);
  ItemCount := SendMessage(hLB, LB_GETCOUNT, 0, 0);
  label1.Caption := inttostr(ItemCount);
end;

hLB liefert das Handle der ListBox korrekt zurück (also ich nehme mal an das es das von der ListBox ist, denn eine andere ListBox ist in dem Fenster 'Erkennungsliste' nicht).
ItemCount ist immer 0.
'Erkennungsliste' ist übrigens das Fenster von AntiVir, wo drinsteht welche Viren es erkennt und ich wollte schon immer mal wissen, wie viele das sind...

[Luckie]

Das ist ein Listview und keine Listbox. FensterKlasse: SysListview32.

Delphi-Quellcode:

uses
  commctrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd: Cardinal;
  hListview: Cardinal;
  ItemCount: Cardinal;
begin
  hWnd := FindWindow(nil, 'Erkennungsliste');
  if hWnd <> 0 then
  begin
    hListview := FindWindowEx(hWnd, 0, 'SysListview32', nil);
    ItemCount := SendMessage(hListview, LVM_GETITEMCOUNT, 0, 0);
    ShowMessage(IntToStr(ItemCount));
  end;
end;