Count aus einer "fremden" Listbox

[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;