Count aus einer "fremden" Listbox

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