unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, Menus, ActnList, StdCtrls, Grids;
type
// тип для хранения информации об окне
TNode=record
  Handle:THandle;// хэндл окна
  Text:string[ 255 ];// текст окна
  CName:string[ 255 ];// имя класса
  Menu:HMenu;// хендл меню
end;

PNode=^TNode;
// порядок работы
{Буфер типа PChar
 1  StrAlloc - резервируем область
 2  DisposeStr  - удалить буфер
 3  StrPas  - для передачи в Delphi
}

type
  TForm1 = class(TForm)
    Tree: TTreeView;
    Status: TStatusBar;
    MainMenu1: TMainMenu;
    ImageList1: TImageList;
    N1: TMenuItem;
    N2: TMenuItem;
    Grid01: TStringGrid;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Setactivewindow1: TMenuItem;


    procedure N2Click(Sender: TObject);
    procedure TreeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Setactivewindow1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure FillTree;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// процедура заполнения дерева
procedure TForm1.FillTree;
var
  h,h1:THandle;
  Buffer:PChar;
// рекурсивная процедура заполнения дерева
procedure RegisterWindow(hWnd:THandle;ParentTreeItem:TTreeNode);
var
  Node:PNode;		// данные окна
  TreeNode:TTreeNode;	// узел дерева
  h:THandle;		// хэндл окна, промежуточная переменная
begin
// получение и сохранение информации об окне
  // создание переменной информации обокне
  New(Node);
// присвоение дескриптора
  Node^.Handle:=hWnd;
// получение текста окна
  GetWindowText(hWnd,Buffer, 256 );
  Node^.Text:=Trim(StrPas(Buffer));
// получение класса окна
  GetClassName(hWnd,Buffer, 255 );
  Node^.CName:=Trim(StrPas(Buffer));
// получение дескриптора меню окна
  Node^.Menu:=GetMenu(hWnd);
// размещение в дереве
  TreeNode:=Tree.Items.AddChild(ParentTreeItem,'');
// присвоение отображаемого текстового значения
  if Node^.Text<>'' then TreeNode.Text:=Node^.Text
    else if Node^.CName<>'' then TreeNode.Text:=Node^.CName
      else TreeNode.Text:=IntToStr(Node^.Handle);
// сохранение ссылки на информацию об окне в соответствующем узле дерева
  TreeNode.Data:=Node;
// Рекурсивные вызовы получение подчинённых элементов

  h:=GetWindow(hWnd,gw_Child);
  if h<> 0  then
    RegisterWindow(h,TreeNode);
// получение элеметов того же уровня
  h:=GetWindow(hWnd,gw_hWndNext);
  if h<> 0  then
    RegisterWindow(h,ParentTreeItem);
end;

begin
// сообщение в строке статуса
  Status.SimpleText:='Обновление информации об окнах ...';
  Application.ProcessMessages;
// выключение отображения изменений дерева
  Tree.Items.BeginUpdate;
// очистка дерева
  Tree.Items.Clear;
// создание буфера для работы с PChar
 Buffer:=StrAlloc( 256 );
// Получаем хэндл текущего окна
  h1:=Handle;
  repeat
// получаем хэндл окна-владельца
   h:=GetWindow(h1,GW_OWNER);
// если не окно верхнего уровня, то ищем дальше
    if h<> 0  then begin
      h1:=h;
    end;
  until h= 0 ;

// находим первое верхнее окно
  h:=GetWindow(h1,GW_HWNDFIRST);
// запуск рекурсии
  RegisterWindow(h,nil);
// задание выделенного элемента дерева
  Tree.Selected:=Tree.Items[ 0 ];
// включение отображения изменений дерева
  Tree.Items.EndUpdate;
// удаление буфера для работы с PChar
  StrDispose(Buffer);
// сообщение в строке статуса
  Status.SimpleText:='Готово.';
end;

procedure TForm1.N2Click(Sender: TObject);
begin
FillTree;
end;

procedure TForm1.TreeClick(Sender: TObject);
begin
  with Grid01 do
   Begin
   Cells[ 0 , 1 ]:='Handle';
   Cells[ 1 , 1 ]:=IntTOstr(TNode(Tree.Selected.Data^).Handle);
   Cells[ 0 , 2 ]:='Text';
   Cells[ 1 , 2 ]:=TNode(Tree.Selected.Data^).Text;
   Cells[ 0 , 3 ]:='Class';
   Cells[ 1 , 3 ]:=TNode(Tree.Selected.Data^).CName;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Grid01.ColWidths[ 0 ]:= 100 ;
Grid01.ColWidths[ 1 ]:= 200 ;
FillTree;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
ShowWindow(TNode(Tree.Selected.Data^).Handle,sw_Show);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
ShowWindow(TNode(Tree.Selected.Data^).Handle,sw_Hide);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
PostMessage(TNode(Tree.Selected.Data^).Handle,wm_Close, 0 , 0 );
Tree.Items.BeginUpdate;
FillTree;
Tree.Items.EndUpdate;
end;

procedure TForm1.Setactivewindow1Click(Sender: TObject);
var ExtData: TRect;
begin
GetWindowRect(TNode(Tree.Selected.Data^).Handle,ExtData);
ShowMessage('Left:' + IntTOStr(ExtData.Left) + ''# 10 # 13  +
             'Top:' + IntToStr(ExtData.Top) + ''# 10 # 13  +
             'Right' + IntToStr(ExtData.Right) + ''# 10 # 13  +
             'Bottom' + IntToStr(ExtData.Bottom));
end;

end.