使用钩子函数[6] - 数据传递
2008-07-14 12:45
141 查看
上一个例子是从 DLL 中接受数据, 那怎么给 DLL 传递数据呢? 还有, 在接受数据时, 让 Timer 一直在那扫描也不是个好办法呀. 本例解决了这些问题(但不知解决了博友 "鹏" 的问题没有?).
为了方便测试, 提供一个源码下载吧: http://files.cnblogs.com/del/MouseHook_2.rar
本例效果图(和上一例是一样的):
![](http://images.cnblogs.com/cnblogs_com/del/142973/o_87141.gif)
DLL 文件:
测试代码:
测试窗体:
为了方便测试, 提供一个源码下载吧: http://files.cnblogs.com/del/MouseHook_2.rar
本例效果图(和上一例是一样的):
![](http://images.cnblogs.com/cnblogs_com/del/142973/o_87141.gif)
DLL 文件:
library MyHook; uses SysUtils, Windows, Messages, Classes; {$R *.res} const WM_MyMessage = WM_USER + 1; {自定义消息} var hook: HHOOK; info: string; h: HWND; {用作外部窗口的句柄} {获取外部窗口的句柄} function SetHWnd(hwnd: HWND): Boolean; stdcall; begin h := hwnd; Result := True; end; function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin case wParam of WM_MOUSEMOVE : info := '鼠标位置'; WM_LBUTTONDOWN : info := '按下'; WM_LBUTTONUp : info := '放开'; end; info := Format('%s: %d,%d', [info, PMouseHookStruct(lParam)^.pt.X, PMouseHookStruct(lParam)^.pt.Y]); {通过消息把数据传递给指定窗口} PostMessage(h, WM_MyMessage, 0, Integer(PChar(info))); Result := CallNextHookEx(hook, nCode, wParam, lParam); end; function SetHook: Boolean; stdcall; const WH_MOUSE_LL =14; begin hook := SetWindowsHookEx(WH_MOUSE_LL, @MouseHook, HInstance, 0); Result := hook <> 0; end; function DelHook: Boolean; stdcall; begin Result := UnhookWindowsHookEx(hook); end; exports SetHook, DelHook, MouseHook, SetHWnd; begin end.
测试代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; const WM_MyMessage = WM_USER + 1; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure MyMessage(var msg: TMessage); message WM_MyMessage; {定义一个消息方法接受消息} end; function SetHook: Boolean; stdcall; function DelHook: Boolean; stdcall; function SetHWnd(hwnd: HWND): Boolean; stdcall; var Form1: TForm1; implementation {$R *.dfm} function SetHook; external 'MyHook.dll'; function DelHook; external 'MyHook.dll'; function SetHWnd; external 'MyHook.dll'; procedure TForm1.Button1Click(Sender: TObject); begin SetHook; SetHWnd(Handle); end; procedure TForm1.Button2Click(Sender: TObject); begin DelHook; end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := '安装钩子'; Button2.Caption := '载卸钩子'; FormStyle := fsStayOnTop; {为了测试, 让窗口一直在前面} end; procedure TForm1.FormDestroy(Sender: TObject); begin DelHook; end; {把接受到的内容显示在窗体} procedure TForm1.MyMessage(var msg: TMessage); begin Text := PChar(msg.LParam); end; end.
测试窗体:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 78 ClientWidth = 271 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 48 Top = 32 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 144 Top = 32 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 1 OnClick = Button2Click end end
相关文章推荐
- 使用钩子函数[5] - 数据传递
- 使用值栈向JSP中传递数据
- 使用window.name 进行数据跨域传递
- Qt 线程间信号槽传递自定义数据类型(qRegisterMetaType的使用)
- 如何在前台脚本通过json传递数据到后台(使用微软自带的ajax)
- 使用Cookie传递数据
- 【Android】使用AIDL传递用户自定义类型数据--附完整示例代码
- 使用Bundle在Activity间传递数据
- 【iOS界面处理】使用storyboard实现页面跳转,简单的数据传递
- 使用StoryBoard:用Segue传递数据
- MVC使用jQuery从视图向控制器传递Model,数据验证,MVC HTML辅助方法小结
- Android使用Bundle进行数据传递分析
- 基于Web Service的客户端框架搭建一:C#使用Http Post方式传递Json数据字符串调用Web Service
- 使用get方法传递数据
- Android使用JNI实现Java与C之间传递数据
- Application对象的使用-数据传递以及内存泄漏问题
- 在数据绑定控件中使用LinkButton传递参数方法
- Android笔记 Application对象的使用-数据传递以及内存泄漏问题
- 基于Web Service的客户端框架搭建一:C#使用Http Post方式传递Json数据字符串调用Web Service
- android中使用两个intent使数据在两个Activity中传递