function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;
// EnumWindows 专用的回调函数的格式:
// function EnumWindowsProc(
// hwnd: HWND; {找到的窗口句柄}
// lParam: LPARAM {EnumWindows 传给的参数; 因为它是指针, 可传入, 但一般用作传出数据}
// ): Boolean; stdcall; {函数返回 False 时, 调用它的 EnumWindows 将停止遍历并返回 False}
function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;
var
WindowText : string ; // 窗体标题
WindowClass : string ; // 窗体类名
SendHwnd : DWORD ; // 发送按钮
tdiahandle : THandle ;
tedithandle : THandle ;
tduihuakhandle: THandle ;
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(hwn