https://www.cnblogs.com/tk-del/archive/2012/03/28/2421470.html

EnumWindows遍历所有顶层窗口

 
复制代码
EnumWindows 的功能是遍历所有顶层窗口

 function EnumWindows(
  lpEnumFunc: TFNWndEnumProc; {回调函数指针}
  lParam: LPARAM              {给回调函数的参数, 它对应回调函数的第二个参数}
): BOOL; stdcall; //成功与否, 其实是返回了回调函数的返回值

EnumWindows 专用的回调函数的格式:

 function EnumWindowsProc(
  hwnd: HWND;        {找到的窗口句柄}
  lParam: LPARAM     {EnumWindows 传给的参数; 因为它是指针, 可传入, 但一般用作传出数据}
): Boolean; stdcall; {函数返回 False 时, 调用它的 EnumWindows 将停止遍历并返回 False}

使用的时候要搭配在一起使用，先要声明EnumWindowsProc，因为EnumWindows中的第一个参数就是@EnumWindowsProc


procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo1.Clear;
  EnumWindows(@EnumWindowsProc_2, 0);{枚举所有的窗口}
end;


function EnumWindowsProc_2(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
  buf: array[Byte] of Char;
begin
  GetWindowText(hwnd, buf, SizeOf(buf));{得到窗口的标题}
  if buf <> '' then Form1.Memo1.Lines.Add(buf);
  Result := True;
end;