Delphi跨进程访问DBGRID

此文是根据伴水老大的实例做的小修改！

以下是个人见解，如有错误请指正:)

 

      要想跨进程访问DBGRID，貌似只能用HOOK，写一个DLL想办法注入到目标进程。注入成功后，使DLL与目标进程在同一进程空间中(其内有一些细节问题，请参见代码)，这时可以访问目标进程的VCL组件。并把VCL组件的数据通过进程通信的方式发给Sniffer进程。

 

如何进行注入？

     可以安装一个WH_CALLWNDPROC钩子，这样当有消息在窗口函数中时，系统就会装载HOOK，即执行DLL部分。

 

如何发消息？

    可以在DLL中设置一个自定义消息，在安装完钩子后，发送一个自定义消息至目标进程的窗口函数。

 

 

以下实例可读出另一进程的EDIT、LABEL、DBGRID等控件的值。

如何了解这个原理，跨进程读取StringGrid等控件也并非难事！

//DLL单元1

(*// 标题：窗体嗅探器 作者：王集鹄(Zswang) 博客：http://blog.csdn.net/zswang 日期：2009年3月14日 .//*) unit Sniffer; interface uses Windows,DBGrids,DB; function ExeSniffer( // 执行嗅探 AHandle: THandle; // 窗体句柄 AParam: Integer // 附加参数 ): BOOL; stdcall; implementation // 尊重作者，转贴请注明出处 王集鹄(Zswang) 2009年3月14日 uses SysUtils, Classes, Controls, StdCtrls, Messages; var WM_SNIFFWINDOW: Longword; type TSnifferInfo = packed record rHOOK: HHOOK; rHandle: HWND; rParam: Integer; end; PSnifferInfo = ^TSnifferInfo; var vMapFile: THandle; vSnifferInfo: PSnifferInfo; var ControlAtom: TAtom; ControlAtomString: string = ''; RM_GetObjectInstance: DWORD; // registered window message function FindControl(Handle: HWnd): TWinControl; va