delphi 使用WindowsAPI回调函数EnumWindowsProc获取系统窗口列表
本文地址转载请保留:http://blog.csdn.net/sushengmiyan/article/details/8623874
{-----------------------------------------作者：sushengmiyan 2013.02.28备注：仅供学习交流使用博客：http://blog.csdn.net/sushengmiyan功能：枚举系统窗口-----------------------------------------}unit GetWinProcMainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) mmo: TMemo; btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);begin// EnumWindows 专用的回调函数的格式:// function EnumWindowsProc(// hwnd: HWND; {找到的窗口句柄}// lParam: LPARAM {EnumWindows 传给的参数; 因为它是指针, 可传入, 但一般用作传出数据}// ): Boolean; stdcall; {函数返回 False 时, 调用它的 EnumWindows 将停止遍历并返回 False} Form1.mmo.Clear; EnumWindows(@EnumWindowsProc ,0);end;function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;var WindowText : string ; // 窗体标题 begin if ( IsWindowVisible(hwnd) or IsIconic(hwnd) ) and ( (GetWindowLong(hwnd, GWL_HWNDPARENT) = 0) or (GetWindowLong(hwnd, GWL_HWNDPARENT) = Longint(GetDesktopWindow)) )and ( GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0 ) then {-----标题文字------} begin SetLength(WindowText, GetWindowTextLength(hwnd)+2); Getwindowtext(hwnd, Pchar(WindowText), GetWindowTextLength(hwnd)+2); WindowText := string( Pchar(WindowText)); Form1.mmo.Lines.Add(WindowText); end; Result := True; end;// EnumWindows 的功能是遍历所有顶层窗口// function EnumWindows(// lpEnumFunc: TFNWndEnumProc; {回调函数指针}// lParam: LPARAM {给回调函数的参数, 它对应回调函数的第二个参数}// ): BOOL; stdcall; //成功与否, 其实是返回了回调函数的返回值end.
先上源码。再解释
主要使用的windowsAPI回调含函数EnumWindows。本文列举了系统的窗口。并将标题输出到了memo中