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...
