Easy way to list all windows

Easy way to list all windows

var
  h:THandle;
begin
  h:=0;
  h:=Findwindow(nil,nil);
  while h<>0 do
  begin
    list1.items.add(intToStr(h));
    h:=findwindow(nil,nil);
  end;
end;

home