delphi 递归获取窗口所有子窗口所以句柄-木庄网络博客

本文整理自网络，侵删。

 unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure GetChildWindows(h: HWND);
var
buf: array[0..255] of Char; {这个缓冲区是获取类名用的, 如果不需要可以删除}
begin
h := GetWindow(h, GW_CHILD); {第一个子窗口}
while h <> 0 do
begin
    {下面两行是要执行的操作, 并假定只处理 TEdit}
    GetClassName(h, buf, Length(buf));
    //if buf = 'TEdit' then
    ShowMessageFmt('%s:%d', [buf, h]);
    h := GetWindow(h, GW_HWNDNEXT); {下一个子窗口}
    GetChildWindows(h);             {递归}
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=strtoint(edit1.Text);
GetChildWindows(h);

end;
end.

delphi 递归获取窗口所有子窗口所以句柄

相关推荐

评论