您的位置：程序门 -> delphi -> windows sdk/api

菜菜的钩子问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

菜菜的钩子问题[已结贴,结贴人:fbiboss]

发表于：2008-01-03 17:38:06 楼主

写好了dll文件,可是在exe中调用一点反应也没有,
implementation
function sethook:boolean;stdcall ; external 'project2.dll';

声明后,在调用的地方写sethook然后按下f12一点反应也没有,还有下面好几个问题,麻烦帮忙看看

library project2;

uses
sysutils,
windows,
classes;
var
oldhook:hhook;

{$r *.res}
function hookproc（ncode,wparam,lparam:integer):integer;stdcall;export;
begin
//设置热键
if （wparam=vk_f12) then messagebox（0,'1','1',mb_ok);
result:=callnexthookex（oldhook,ncode,wparam,lparam);
end;

function uninstallhook: boolean;stdcall; export;
begin
result := unhookwindowshookex（oldhook);
end;

function sethook:boolean;stdcall; export;
var
histance:cardinal;
begin
histance:=0; //这里该怎么初始化了呀?????
oldhook:=setwindowshookex（wh_keyboard,@hookproc,histance,0);
result:=true;
end;

exports
sethook;
--------------> uninstallhook怎么导出了呀,写在这就提示出错了
begin
end.

发表于：2008-01-03 17:50:381楼得分:20

histance:=0; //这里该怎么初始化了呀?????
这里不要初始化..

把这两句代码去掉再试试看:
histance:cardinal;
histance:=0; //这里该怎么初始化了呀?????

发表于：2008-01-03 18:00:062楼得分:0

谢谢,
网上找的那教程代码也不知道哪个版本的,白浪费半天时间

发表于：2008-01-03 18:03:183楼得分:0

那个 uninstallhook是怎么回事呀?

发表于：2008-01-03 18:04:524楼得分:0

提示这个:declaration expected but identifier 'uninstallhook' found

其他资讯