posts - 29,comments - 4,views - 9697
复制代码
procedure TForm1.btnFindClick(Sender: TObject);
var
  hr, hr1, hr_id, hr_pwd: THandle;
  WindowText: array[0..MAX_PATH] of Char;
begin
  hr := FindWindow('#32770', 'TeamViewer');
  hr := FindWindowEx(hr, 0, 'MainWindowRemoteControlPage', nil);
  hr1 := FindWindowEx(hr, 0, 'IncomingRemoteControlComponentView', nil);
  hr_id := FindWindowEx(hr1, 0, 'CustomRunner', nil);
  hr := FindWindowEx(hr_id, 0, 'Edit', nil);
  SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText));
  lblID.Caption := WindowText;
  hr_pwd := FindWindowEx(hr1, hr_id, 'CustomRunner', nil);
  hr := FindWindowEx(hr_pwd, 0, 'Edit', nil);
  SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText));
  lblPWD.Caption := WindowText;
end;
复制代码

 

posted on   陆战队  阅读(371)  评论(0编辑  收藏  举报
编辑推荐:
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
阅读排行:
· Spring AI + Ollama 实现 deepseek-r1 的API服务和调用
· 《HelloGitHub》第 106 期
· 数据库服务器 SQL Server 版本升级公告
· 深入理解Mybatis分库分表执行原理
· 使用 Dify + LLM 构建精确任务处理应用

点击右上角即可分享
微信分享提示