Delphi EnumWindows 的一个例子

*********************************************************************************

EnumWindows 的功能是遍历所有顶层窗口

<1>

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

------------------------------------------------------------------------------------------------------------------

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

<2>

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

------------------------------------------------------------------------------------------------- ------------------
使用的时候<1><2>要搭配在一起使用，先要声明<2>，因为<1>中的第一个参数就是<2>得来的

***********************************************************************************

获取所有顶层窗口的标题(排除无标题窗口)

使用前先创建一个窗口

窗口里要有一个list控件

和一个button控件

--------------------------------------------------------------------------------------------------------------------

function EnumWindowsProc_2(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;

//这个是声明使用该函数的格式 
var
  buf: array[Byte] of Char;

//创建了一个数组变量叫buf，因为一个桌面上窗口不管怎么样都是很多很多的，所以用数组
begin
  GetWindowText(hwnd, buf, SizeOf(buf));

//得到窗口的标题，然后分别赋值给每一个数组里的变量
  if buf <> '' then Form1.lst1.Items.Add(buf);

//当buf不为零的情况下，使lst1控件装载这个数组，也就是显示数组里的内容
  Result := True;

//函数EnumWidnowsProc_2的返回值，如果是ture的话，就成功了，反之就等于什么结果也没有滴....
end;

{前面这段相当于预处理}
procedure TForm1.btn1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc_2, 0);

//枚举所有的窗口
end;

{这才是真正发挥作用的，就这么一句而已}

***********************************************************************************