delphi 遍历窗口

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

delphi 遍历窗口  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);