|
|
导航: |
论坛 -> 网络通讯
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/27 0:31:41 |
标题: |
这是怎么回事?急,各位仁兄帮忙看看。。。 |
浏览:1624 |
|
加入我的收藏 |
楼主: |
{------------------------------------} {Create_date:2004-07-26 {author:lhxs {功能:学习测试一下hook编程 {Last modify_date: {------------------------------------} library HOOKTEST;
uses SysUtils, Classes, Messages, Shellapi, APPHOOK in 'APPHOOK.pas'; type PData = ^TData; TData = record Hook: THandle; Hooked: Boolean; end;
var DLLData: PData;
{------------------------------------} {过程名:HookProc {过程功能:HOOK过程 {过程参数:nCode, wParam, lParam消息的相 {关参数 {------------------------------------} procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall; begin if not DLLData^.Hooked then begin HookAPI; DLLData^.Hooked := True; end; //调用下一个Hook CallNextHookEx(DLLData^.Hook, nCode, wParam, lParam);这个api为什么不能通过! end;
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰! |
作者: |
|
2004/7/27 0:41:29 |
1楼: |
不好意思,人给晕了,少写了一个包含文件:windows
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!
|
作者: |
li58 (CaiBest) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/7/27 1:43:42 |
2楼: |
呵呵,这位兄弟也是夜猫派。
----------------------------------------------
a fan of delphi! studing now....
|
|