[AnKor94]

Как-то можно посчитать количество несвернутых окон в системе?

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

[NumLock]

тогда уж (если касается предыдущей теме автора):

Код:

var
  h: THandle;
  c: Integer;
  data: array [0..$ff] of Char;
  l: Integer;
  txt, clss: String;
begin
  Memo1.Lines.Clear;
  c:=0;
  h:=GetTopWindow(GetDesktopWindow);
  if h<>0 then
  repeat
    if IsWindow(h) and IsWindowVisible(h) and not IsIconic(h) and (GetParent(h)=0) then
    begin
      Inc(c);
      l:=GetWindowText(h, data, $100);
      if l>0 then txt:=Copy(data, 1, l);
      l:=GetClassName(h, data, $100);
      if l>0 then clss:=Copy(data, 1, l);
      Memo1.Lines.Add(IntToStr(h)+' ['+clss+'] "'+txt+'"');
    end;
    h:=GetNextWindow(h, GW_HWNDNEXT);
  until h=0;
  Edit1.Text:=IntToStr(c);
end;

http://data.cod.ru/85181