[stil]

Код:

var h:HWnd; i:integer;
begin
h:=FindWindow(0,0);
i:=0;
While (h<>0) do begin
if not IsIconic(h) then i:=i+1;
h:=GetNextWindow(h,GW_HWNDNEXT);
end;