盒子论坛 v2.1

不会用 dll 和 hook现在想学网络上看到教程照样做会出现这个问题，附件是
打包了的源码，请有空的同志帮我看看

错误提示是：
[Error] Hookproc.pas(9): Unsatisfied forward or external declaration: 'keyboardhook'
[Error] Hookproc.pas(10): Unsatisfied forward or external declaration: 'setkeyhook'
[Fatal Error] keyspy.dpr(19): Could not compile used unit 'Hookproc.pas'

-----------------
library keyspy;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  windows,
  messages,
  Hookproc in 'Hookproc.pas',
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
exports
setkeyhook, endkeyhook;

begin
nexthookproc:=0;
procsaveexit:=exitproc;
exitproc:=@keyhookexit;
end.
------------------------
unit Hookproc;

interface
uses
Windows, Messages, SysUtils, Controls, StdCtrls;

var nexthookproc:hhook; procsaveexit:pointer;
function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;
function setkeyhook:bool;export;//加载钩子
function endkeyhook:bool;export;//卸载钩子
procedure keyhookexit;far;
const afilename='c:\debug.txt';//将键盘输入动作写入文件中
var debugfile :textfile;

implementation

function keyboardhookhandler(icode:integer;wparam:wparam;
lparam:lparam):lresult;stdcall;export;
begin
if icode<0 then
begin
  result:=callnexthookex(nexthookproc,icode,wparam,lparam);
  exit;
end;
assignfile(debugfile,afilename); append(debugfile);
if getkeystate(vk_return)<0 then
begin writeln(debugfile,'');
  write(debugfile,char(wparam));
end
else write(debugfile,char(wparam)); closefile(debugfile);
result:=0;
end;

function endkeyhook:bool;export;
begin
  if nexthookproc<>0 then   begin unhookwindowshookex(nexthookproc); nexthookproc:=0;
  messagebeep(0);  end; result:=nexthookproc=0;
end;
procedure keyhookexit;far;
begin
  if nexthookproc<>0 then endkeyhook; exitproc:=procsaveexit;
end;
end.
-------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
setkeyhook//启动
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
endkeyhook;//关闭
end;

end.

此帖子包含附件:lyl910_2004325104144.rar 大小:3,968B

----------------------------------------------
向大家学习。

作者：

ddzhouqian (007)	★☆☆☆☆	-
	盒子活跃会员

2004/3/25 12:45:08

1楼：

1 在unit Hookproc中把function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;中的keyboardhook改成keyboardhookhandler
2 而function setkeyhook:bool;export;//加载钩子此函数只有声明没有定义.
3 在unit unit1中的 implementation下键入uses Hookproc
4 try一下!

----------------------------------------------
-

信息

登陆以后才能回复