Delphi实现获取句柄并发送消息的方法
在Delphi中，利用FindWindow查找主窗口、FindWindowEx查找子控件句柄，通过SendMessage或PostMessage发送WM_SETTEXT、WM_CLICK、WM_CLOSE、WM_GETTEXT等消息实现跨进程设置文本、模拟点击、关闭及获取文本操作；keybd_event可模拟组合键如Ctrl+C、Ctrl+V等。该技术是Wi
在Windows开发中，通过句柄跨进程操作窗口是常见的需求，Delphi 在这块提供了非常直接的 API 支持。说实话，这类技术看起来门槛高，但把核心的几招搞清楚后，用起来其实挺顺手。下面直接上干货——从获取句柄到发送消息，一步不落。
先拿下窗口句柄
最基础的操作就是通过窗口标题找到顶层窗体的句柄：
handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
如果目标窗口里有子控件，比如一个 Edit 框，那就需要用 FindWindowEx 沿着父子关系往下找：
childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
想要一次性把所有子窗口都翻个底朝天？可以用 EnumChildWindows 这个枚举函数，不过得自己写一个回调函数：
EnumChildWindows(主创体句柄,@回调函数,用户参数);
回调函数的典型写法长这样：
function EnumChildProc(ahWND:HWND; param:LPARAM):boolean; stdcall; sendmessage(handle,message,wl,rl)
拿到句柄后，怎么发消息？
SendMessage 是主角。它会把一条消息直接塞进目标窗口的消息队列，而且会等对方处理完才返回。四个参数分别是：目标句柄、消息常量、wParam、lParam。下面这段完整示例展示了如何给记事本的编辑框里塞文本：
unit Unit1;
interface
uses Windows,Messages,Tlhelp32,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;
type
TForm1=class(TForm)
procedure FormCreate(Sender: TObject);
private
{
Private declarations
}
public
{
Public declarations
}
end;
var Form1: TForm1;
implementation
{
$R *.DFM
}
procedure TForm1.FormCreate(Sender: TObject);
var a,b:PAnsiChar;
h:HWND;
begin
h:= FindWindow(nil,'abc.txt - 记事本');
h:= FindWindowEx(h,0,'edit',nil);
SendMessage(h,WM_SETTEXT,255,Integer(PChar('我来测度了')));
ShowMessage( IntToStr(h));
end;
实际项目中经常用到的几个 SendMessage 场景：
SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0)); 设置TV背景颜色
SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0); 鼠标左键按下
SendMessage(Button.Handle,WM_LBUTTONUP,0,0); 鼠标左键抬起
SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc'))); 传递文本
SendMessage(Edit.Handle,WM_Char,Wparam('Q'),2); 传递字符
SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1); 改变Button风格
SendMessage(ComboBox.Handle,CB_SETDropPEDWIDTH,300,0); 改变CBDownWidth
另外，WM_CUT、WM_COPY、WM_PASTE 这三兄弟专门负责剪切、复制、粘贴，操作剪贴板时很实用。
模拟组合键——keybd_event 的玩法
有些操作没法直接发消息，比如 Ctrl+V，那就得靠键盘模拟：
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
注意顺序：先按下 Ctrl，再按 V，然后松开 V，最后松开 Ctrl。这套流程在自动化测试或远程控制中经常用到。
常用 wMsg 消息速查表
写代码时最烦的就是记不住那些消息常量。下面把常用的整理出来，方便直接复制粘贴：
- WM_Create —— 创建一个窗口
- WM_DESTROY —— 窗口被销毁时发送
- WM_MOVE —— 移动一个窗口
- WM_SIZE —— 改变窗口大小
- WM_ACTIVATE —— 窗口激活或失去激活
- WM_SETFOCUS —— 窗口获得焦点
- WM_KILLFOCUS —— 窗口失去焦点
- WM_ENABLE —— 窗口启用/禁用状态改变
- WM_SETREDRAW —— 设置窗口能否重画
- WM_SETTEXT —— 设置窗口文本
- WM_GETTEXT —— 获取窗口文本
- WM_GETTEXTLENGTH —— 获取文本长度
- WM_PAINT —— 要求窗口重画
- WM_CLOSE —— 关闭窗口或应用程序
- WM_QUERYENDSESSION —— 用户选择结束会话
- WM_QUIT —— 结束程序运行
- WM_QUERYOPEN —— 恢复窗口大小位置时发送
- WM_ERASEBKGND —— 擦除窗口背景
- WM_SYSCOLORCHANGE —— 系统颜色改变
- WM_SHOWWINDOW —— 隐藏或显示窗口
- WM_ACTIVATEAPP —— 哪个窗口被激活
- WM_FONTCHANGE —— 系统字体资源变化
- WM_TIMECHANGE —— 系统时间变化
- WM_CANCELMODE —— 取消当前模态操作
- WM_SETCURSOR —— 鼠标光标移动
- WM_ENDSESSION —— 系统进程退出
- WM_MOUSEACTIVATE —— 非激活窗口上按鼠标
- WM_CHILDACTIVATE —— 点击 MDI 子窗口标题栏
- WM_QUEUESYNC —— 训练程序的消息同步
- WM_GETMINMAXINFO —— 窗口将要改变大小或位置
- WM_PAINTICON —— 重画最小化窗口图标
- WM_ICONERASEBKGND —— 画图标前擦除背景
- WM_NEXTDLGCTL —— 对话框更改焦点
- WM_SPOOLERSTATUS —— 打印队列变化
- WM_DRAWITEM —— 控件可视外观改变
- WM_MEASUREITEM —— 控件被创建时
- WM_VKEYTOITEM —— 列表框响应键盘消息
- WM_CHARTOITEM —— 列表框响应字符消息
- WM_SETFONT —— 设置控件字体颜色
- WM_GETFONT —— 获取当前字体
- WM_SETHOTKEY —— 关联热键
- WM_GETHOTKEY —— 判断热键关联
- WM_QUERYDRAGICON —— 拖放最小化窗口时获取图标句柄
- WM_COMPAREITEM —— 比较组合框或列表框项位置
- WM_COMPACTING —— 内存不足
- WM_WINDOWPOSCHANGING —— 窗口位置大小即将改变
- WM_WINDOWPOSCHANGED —— 窗口位置大小已改变
- WM_POWER —— 系统进入暂停状态
- WM_COPYDATA —— 跨进程传递数据
- WM_CANCELJOURNAL —— 取消日志激活
- WM_NOTIFY —— 子控件事件通知父窗口
- WM_INPUTLANGCHANGEREQUEST —— 输入语言选择
- WM_INPUTLANGCHANGE —— 输入语言已改变
- WM_TCARD —— Windows 帮助例程初始化
- WM_HELP —— 按下 F1 键
- WM_USERCHANGED —— 用户登录或退出
- WM_NOTIFYFORMAT —— 判断控件使用 ANSI 或 UNICODE
一个完整的枚举子窗口示例
最后给一个实战代码片段，它枚举指定窗口下的所有子控件，找到第一个类名为 'Edit' 的控件并把它的文本取出来：
function EnumChildWindowsProc(hwnd, lparam: Integer): Boolean;
var
buffer: array[0..255] of char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer)='Edit' then
begin
SendMessage(hwnd,WM_GETTEXT,256,lparam);
Result:=False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
buffer: array[0..255] of char;
Begin
hwnd := FindWindow('CabinetWClass',nil);
if hwnd<> 0 then
begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Longint(@buffer[0]));
Caption := StrPas(buffer);
end;
end;
这段代码的精髓在于回调函数里一旦找到目标控件就返回 False 停止枚举，效率不错。拿到文本后直接往 Caption 里一塞，效果立现。
以上内容覆盖了从句柄获取到消息发送的常见套路，代码可以直接拿去用。搞 Windows 自动化或者桌面辅助工具，这几招基本够用。
IntelliJ IDEA 是 JetBrains 推出的专业集成开发环境，重点服务于 Java、Kotlin 与 JVM 项目开发。软件集成代码补全、静态检查、重构、调试、测试、版本控制及构建工具，并可借助插件扩展语言和框架支持。
JetBrains PyCharm 是面向 Python 开发者的集成开发环境，提供智能补全、代码检查、重构、调试、测试、版本控制及虚拟环境管理功能。Mac 版兼容 Intel 与 Apple 芯片，核心功能可免费使用。
JetBrains WebStorm 是面向 JavaScript、TypeScript 和现代 Web 技术的专业集成开发环境，可智能理解项目结构，提供代码补全、重构、错误检查、运行调试、测试及 Git 工具。
Adobe After Effects 是面向动态图形、影视特效与视频合成的专业创作软件。它提供关键帧动画、遮罩抠像、运动跟踪、三维空间、文字动画和表达式等工具，并可与 Premiere Pro、Photoshop、Illustrator
Adobe Audition 是面向播客、影视后期、音乐制作及内容创作者的专业音频工作站，提供波形精修、多轨录制与混音、频谱编辑、降噪修复、响度匹配和效果处理工具，并可与 Adobe Premiere 协同完成视频声音制作。
Adobe Bridge 是面向摄影师、设计师及内容团队的免费数字资产管理工具，可集中预览照片、视频和 Adobe 项目文件，并利用评级、标签、关键词、元数据、筛选与收藏集完成分类检索。它还支持批量重命名、格式导出、相机导入及 Camera
Adobe Illustrator 是 Adobe 推出的专业矢量图形设计软件，适合在 Mac 上制作标志、图标、插画、包装、信息图及印刷版面。它以路径和锚点构建可无损缩放的图形，并提供钢笔、形状、文字、图像描摹、渐变、画板及生成式功能。
Adobe InDesign 是面向印刷品与数字出版物的专业版面设计软件，可在 Mac 上制作书籍、杂志、宣传册、海报、报告及交互式文档。它提供精细的文字样式、网格、母版、长文档管理和印前输出能力。
Adobe Lightroom Classic 是面向桌面摄影工作流的照片管理与后期处理软件，可将原始照片保存在本地硬盘，通过目录、关键词、评分和收藏夹高效整理图库，并提供 RAW 冲印、蒙版、镜头校正、批量同步及多格式导出等功能。
Adobe Media Encoder 是 Adobe 推出的专业音视频编码与转码工具，可通过队列、预设和监视文件夹批量完成格式转换、代理文件创建及多平台成片输出，并与 Premiere Pro、After Effects 等软件紧密协作。
Adobe Photoshop 是面向摄影师、设计师和内容创作者的专业图像处理软件，提供图层、蒙版、选区、修复、调色、文字排版、智能对象及生成式编辑等能力。Mac 版支持 Intel 与 Apple Silicon 处理器。
Adobe Premiere Pro 是面向专业视频制作的非线性剪辑软件，提供多轨时间线、调色、音频处理、字幕、代理工作流和多格式输出能力，并可与 After Effects、Audition、Photoshop 及 Frame.io 协同
JetBrains IntelliJ IDEA 是以 Java、Kotlin 和 JVM 项目为核心的专业集成开发环境，提供智能补全、代码检查、安全重构、调试、测试、版本控制及构建工具集成。统一发行版的核心功能可免费用于商业和非商业项目，
PhpStorm 是 JetBrains 面向 PHP 与现代 Web 开发打造的专业集成开发环境，提供代码补全、静态检查、重构、调试、测试、数据库、版本控制及前端语言支持。Windows 用户可直接下载安装程序，
PyCharm 是 JetBrains 推出的 Python 集成开发环境，提供智能代码补全、错误检查、重构、调试、测试、Git、终端及 Jupyter Notebook 支持。统一版安装后可体验 30 天 Pro 功能，
WebStorm 是 JetBrains 面向 JavaScript、TypeScript 和现代 Web 技术打造的集成开发环境。它提供项目级代码分析、智能补全、安全重构、导航搜索，并集成调试、测试、终端、Git 与常用前端工具，
Adobe Photoshop 是面向摄影师、设计师和内容创作者的专业图像处理工具，可在 Windows 上完成照片修饰、选区抠图、图层合成、文字排版、绘画及生成式编辑。软件采用订阅授权，由 Creative Cloud 管理安装、更新与许
Adobe InDesign 是面向印刷与数字出版的专业页面排版工具，可制作书籍、杂志、宣传册、海报、交互式 PDF 和电子书。它提供精细的文字样式、多页面管理、印前检查及多格式输出能力，并能与 Photoshop、Illustrator
Adobe Illustrator 是用于绘制矢量图形、插画、图标、徽标和版式的专业设计工具。它以路径和锚点为核心，作品放大后仍能保持清晰，并提供画板、文字、渐变、图像描摹及精确变换等功能，适合品牌视觉、印刷物料、数字界面和商业插画创作。
Adobe Bridge 是 Adobe 推出的创意资产管理工具，可集中预览、分类和查找照片、视频、PDF及多种设计文件，并支持元数据、关键词、评级、批量重命名和格式导出。它可与 Photoshop、Illustrator 等应用衔接，
Adobe Lightroom Classic 是面向 Windows 桌面摄影工作流的照片管理与无损编辑工具，可通过目录集中整理大型图库，并完成 RAW 显影、局部蒙版、批量调整、打印和多格式导出。它强调本地文件管理与精细控制，
Adobe Acrobat Pro 是面向专业 PDF 工作的综合解决方案，可在 Windows 中创建、编辑、转换、比较、整理和保护文档，并支持表单、电子签名、扫描件文字识别及敏感信息永久遮盖。订阅还包含网页、移动服务和云端协作能力，
Adobe After Effects 是面向动态图形、动画与影视视觉特效制作的专业工具，可完成关键帧动画、图层合成、遮罩跟踪、抠像、文字动画和二维三维元素整合。Windows 版通过 Adobe Creative Cloud 安装及更新，
Adobe Media Encoder 是 Adobe 面向视频与音频制作流程提供的专业编码和转码工具，可批量处理媒体文件、创建代理、套用输出预设并监控文件夹自动执行任务。它与 Premiere、After Effects、Audition