найти статью по wndproc

function GetWindowTitle(hwnd: HWND): string;
begin
  SetLength(Result, 255);
  SetLength(Result, GetWindowText(hwnd, PChar(Result), 255));
end;
 
function GetWindowClass(hwnd: HWND): string;
begin
  SetLength(Result, 255);
  SetLength(Result, GetClassName(hwnd, PChar(Result), 255));
end;
 
function GetWindowInfo(hwnd: HWND): string;
begin
  Result := GetWindowTitle(hwnd) + " [" + GetWindowClass(hwnd) +
    "] (" + IntToStr(hwnd) + ")";
end;
 
function EnumChildProc(hwnd: HWND; lParam: Integer): BOOL; stdcall;
var
  NewNode, ParentNode: TTreeNode;
begin
  Result := True;
  ParentNode := TTreeNode(lParam);
  NewNode := ParentNode.Owner.AddChild(ParentNode,
    GetWindowInfo(hwnd));
  EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode));
end;
 
function EnumWindowsProc(hwnd: HWND; lParam: Integer): BOOL; stdcall;
var
  NewNode: TTreeNode;
begin
  Result := True;
  NewNode := TTreeView(lParam).Items.Add(nil, GetWindowInfo(hwnd));
  EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode));
end;
 
procedure EnumWindowsTree(Tree: TTreeView);
begin
  EnumWindows(@EnumWindowsProc, Integer(Tree));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items.Clear;
  EnumWindowsTree(TreeView1);
end;