var AppBuilder:TAppBuilder

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1; i:word;
implementation
{$R *.DFM}
function enumpROC(winHandle: HWND; Param: Integer): boolean;
var p:Pchar; p2:Pchar;
begin
 if (GetParent(WinHandle)= 0 ) and (not isIconic(winHandle))
  then
   begin
    getwindowtext(winhandle,p2,GetWindowTextLength(winHandle));
    Application.MessageBox(p2,'Caption of window !?', 0 );
    if p2='Delphi 5' then
      begin
       GetClassName(winhandle,p, 255 ); Application.MessageBox(p,'ClassName', 0 );
      end;
  inc(i);
   end;
 result:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 i:= 0 ;
 EnumWindows(@EnumProc, 0 );
 showMessage('Count of window is '+inttostr(i));
end;
end.

procedure TAppBuilder.FormClick(Sender: TObject);
 var wn:HWnd;
      p:array[ 0 .. 30 ] of char;  p2:array[ 0 .. 30 ] of char;
begin
 wn:=handle;
 repeat
  wn:=GetNextWindow(wn,GW_HWNDNEXT);
  if (GetParent(Wn)= 0 ) and (not isIconic(wn)) then
    GetClassName(wn,p, 30 ); GetWindowText(wn,p2, 30 );
    Memo1.Lines.Add('Classname='+p+' Caption'+p2);
 until wn= 0  ;
end;