Listar todas janelas abertos

Delphi

16/04/2004

Já procurei em todo lugar e naum achei nada a respeito, só achei uma função que eu naum consegui fazer funcionar(ou ela naum funciona mesmo)
como eu faço pra listar todas as janelas abertas ??
Listar todos programas em execução eu já sei, só naum sei listar apenas as janelas abertas.


Kurama

Kurama

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

16/04/2004

Var
  Janelas : TList;
  C : Byte;
Begin
   Janelas.Create;
   For C := 0 To ComponentCount -1 do
   Begin
      If(Components[C] Is TForm)Then
      Begin
         Janelas.Add(Components[C]);
      End; 
   End;
End;



GOSTEI 0
POSTAR