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;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 深入理解 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 构建精确任务处理应用