delphi抓取QQ聊天窗口实例

这篇博客介绍了如何使用Delphi编写一个函数,通过EnumWindows遍历所有顶层窗口,查找并操作QQ聊天窗口。函数EnumWindowsProc检查窗口是否可见,获取窗口标题和类名,如果找到TXGuiFoundation类的窗口(QQ聊天窗口),则将其添加到列表,并修改窗口标题为'hello,delphi test'。此外,还展示了在按钮点击事件中调用这个过程的代码。" 132806494,19671094,使用改进遗传算法优化城市交通信号:MATLAB实现,"['遗传算法', '交通优化', 'MATLAB编程', '信号控制']

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值