Где-то я чего-то не понимаю
Вот что я имею:
| Код |
unit Unit1;
interface
uses Wintypes, Winprocs, Messages,forms;
function SetHook: Boolean;
function UnHookHook: Boolean;
function HookProc(Code: integer; wParam: Word;
lParam: Longint): Longint; export; stdcall;
var
HookedAlready: Boolean;
implementation
exports
HookProc index 1;
var
ourHook: HHook;
function HookProc(Code: integer; wParam: word;
lParam: Longint): Longint;
begin
if (wParam = WM_LBUTTONDOWN) then
MessageBeep(0);
result := CallNextHookEx(ourHook, Code, wParam, lParam);
end;
function SetHook: Boolean;
begin
if HookedAlready then
exit;
ourHook := SetWindowsHookEx(WH_MOUSE, HookProc, GetModuleHandle(nil), 0);
{ Тута пишет:
[color=red] [Error] Unit1.pas(41): Incompatible types: 'Integer' and 'Word'[/color]
Помогите как для чайника, пожалуйста. Никогда не работал с DLL-ками}
HookedAlready := True;
end;
function UnHookHook: Boolean;
begin
UnHookWindowsHookEx(ourHook);
HookedAlready := False;
end;
end.
|
И тута: GetModuleHandle(nil), я хотел поиметь Handle своего приложения, я прав?
 |
