callBackFunc

最新推荐文章于 2025-03-11 21:37:16 发布

seagull327

最新推荐文章于 2025-03-11 21:37:16 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：函数&过程

本文链接：https://blog.youkuaiyun.com/haiou327/article/details/11583865

函数&过程专栏收录该内容

39 篇文章

订阅专栏

function EnumUserProc(HWND:Integer;Lparam:LongInt):Boolean;stdcall;
var
  buffer:array [0..255] of Char;
  begin
    Result:=True;
    GetWindowText(HWND,buffer,256);
    if StrPas(buffer)<>'' then
    begin
     Form1.mmo1.Lines.Add(string(buffer));
    end;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  enumChildWindows(StrToInt(edt1.Text), @EnumUserProc, 0);
end;