delphi抓取QQ聊天窗口实例

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(hwnd, Pchar(WindowText), GetWindowTextLength(hwnd)+2);
    WindowText := string(Pchar(WindowText));

    {-----窗体类名------}
    SetLength(WindowClass, 512);
    GetClassName(hwnd, Pchar(WindowClass), 512);
    WindowClass := string(Pchar(WindowClass) );
    if SameStr(WindowClass , 'TXGuiFoundation') then
    begin
      Form1.mmo.Lines.Add(' 窗口标题：' + WindowText +
                          ' 窗体类名: ' + WindowClass);
      BringWindowToTop(hwnd);
      SetWndText(hwnd,'hello,delphi test');
//      tduihuakhandle := GetDlgItem(hwnd, 0);
//      SendMessage()
//      SendHwnd := FindWindowEx(hwnd , 0, nil, '发送(S)');   //找到送信息按钮，
//      ShowMessage(string(SendHwnd));
    end;
  end;
  Result := True;
 end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   Form1.mmo.Clear;
//　EnumWindows　的功能是遍历所有顶层窗口
// function　EnumWindows(
// lpEnumFunc:　TFNWndEnumProc;　{回调函数指针}
// lParam:　LPARAM　　　　　　　{给回调函数的参数,　它对应回调函数的第二个参数}
// ):　BOOL;　stdcall;　//成功与否,　其实是返回了回调函数的返回值   
   EnumWindows(@EnumWindowsProc ,0);
   FQQMessage := edtQQMessage.Text;
end;