高手帮忙看下

visen

我写了一个单机鼠标截图的软件，不知道怎么动态调用鼠标钩子DLL，鼠标钩子DLL是做成资源文件加载的

visen

高手们都在哪里

aminghanhua

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     Button2: TButton;
    
13.     Label1: TLabel;
    
14.     procedure Button1Click(Sender: TObject);
    
15.     procedure Button2Click(Sender: TObject);
    
16.     procedure FormCreate(Sender: TObject);
    
17.   Private
    
18.     { Private declarations }
    
19.   public
    
20.     constructor Create(AOwner: TComponent); override;
    
21. 
    
22.     { Public declarations }
    
23.   end;
    
24. 
    
25. var
    
26.   Form1: TForm1;
    
27.   libhande: THandle;
    
28. 
    
29. implementation
    
30. 
    
31. {$R *.dfm}
    
32. 
    
33. procedure TForm1.Button1Click(Sender: TObject);
    
34. var
    
35.   a: function: Boolean; stdcall;
    
36. begin
    
37.   try
    
38.     @a := GetProcAddress(libhande, 'sethook');
    
39.     Label1.Caption := '钩子安装成功，按鼠标左键会发出声音';
    
40.   finally
    
41.     freelibrary(libhande);
    
42.   end;
    
43. end;
    
44. 
    
45. procedure TForm1.Button2Click(Sender: TObject);
    
46. var
    
47.   b: function: Boolean; stdcall;
    
48. begin
    
49.   try
    
50.     @b := GetProcAddress(libhande, 'delhook');
    
51.     Label1.Caption := '钩子删除成功，按鼠标左键会发出声音';
    
52.   finally
    
53.     freelibrary(libhande);
    
54.   end;
    
55. end;
    
56. 
    
57. constructor TForm1.Create(AOwner: TComponent);
    
58. begin
    
59.   inherited;
    
60.   Form1.Label1.Caption := '';
    
61. end;
    
62. 
    
63. procedure TForm1.FormCreate(Sender: TObject);
    
64. begin
    
65.   try
    
66.     libhande := Loadlibrary('mousechek.dll');
    
67.     ShowMessage('初始化成功!!!');
    
68.   except
    
69.     ShowMessage('初始化失败!!!');
    
70.     Exit;
    
71.   end;
    
72. end;
    
73. 
    
74. end.

复制代码