delphi 遍历窗口

最新推荐文章于 2023-04-09 15:30:34 发布

weixin_30885111

最新推荐文章于 2023-04-09 15:30:34 发布

阅读量601

点赞数

原文链接：http://www.cnblogs.com/delphi-xe5/p/5392441.html

版权

http://blog.163.com/t_form/blog/static/12348523220115132155814/

function EnumWindowsProc_2(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
buf: array[Byte] of Char;
begin
GetWindowText(hwnd, buf, SizeOf(buf));
if buf <> '' then
begin
 if pos('YY3.8（', buf) <> 0 then
 begin
 Form1.cbox_YYID.Items.Add(buf);
 Form1.cbox_YYID.ItemIndex := 0;
 end;
end;
Result := True;
end;

EnumWindows(@EnumWindowsProc_2, 0);