[AnKor94]

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

[stil]

Код:

1 2 3 4 5 6 7 8

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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     <font color="Red">if IsWindow(h) and IsWindowVisible(h) and not IsIconic(h) and (GetParent(h)=0) then</font>     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