Ошибка в "клавиатурном шпионе"

← →
Серёга (2004-03-10 18:09) [0]

Народ помогите! Скачал с этого "сайта клавиатурного шпиона", а при компиляции dll Дельфи выдаёт ошибку: "[Error] HookDLL.dpr(68): Not enough actual parameters" Вод код библиотеки: (в выделенной строке происходит ошибка) 
Library HookDLL; 

Uses 
Windows, Messages, SysUtils; 

Const 
GlobMapID = "Global Keyboard Hook Demo {917C91AA-88D5-4134-BB91-15161728594D}"; 

Type 
PShareInf = ^TShareInf; 
TShareInf = Record 
AppWndHandle: HWND; 
OldHookHandle: HHOOK; 
hm:THandle; 
End; 

Var 
MapHandle: THandle = 0; 
ShareInf: PShareInf = nil; 
ptr:PByteArray; 

Procedure DLLEntryPoint(dwReason: DWORD); stdcall; 
Begin 
Case dwReason Of 
DLL_PROCESS_ATTACH: 
Begin 
MapHandle:=CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(TShareInf), GlobMapID);
ShareInf:=MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TShareInf));
End; 
DLL_PROCESS_DETACH: 
Begin 
UnMapViewOfFile(ShareInf); 
CloseHandle(MapHandle); 
End 
End; 
End; 

Function KeyboardHook(Code: Integer; ParamW: WPARAM; ParamL: LPARAM): LRESULT;stdcall; 
Begin 
If Code IN [HC_ACTION, HC_NOREMOVE] Then 
Begin 
SendMessage(ShareInf^.AppWndHandle, WM_USER, ParamW, Code); 
End; 
Result := CallNextHookEx(ShareInf^.OldHookHandle, Code, ParamW, ParamL) 
End; 

Function SetKeyboardHook(Wnd: HWND): BOOL; stdcall; 
Begin 
If ShareInf<>Nil Then 
Begin 
ShareInf^.AppWndHandle:=Wnd; 
ShareInf^.OldHookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, HInstance, 0); 
Result:=ShareInf^.OldHookHandle<>0; 
End 
Else Result:=False 
End; 

Function RemoveKeyboardHook: BOOL; stdcall; 
Begin
Result := UnhookWindowsHookEx(ShareInf^.OldHookHandle); 
CloseHandle(ShareInf^.hm); 
End;

Exports
SetKeyboardHook, RemoveKeyboardHook; 

BEGIN 
If DLLProc = Nil Then DLLProc := @DLLEntryPoint;
DLLEntryPoint(DLL_PROCESS_ATTACH); 
END.

← →
Алхимик © (2004-03-10 20:18) [1]

"[Error] HookDLL.dpr(68): Not enough actual parameters"
Смотрим на
Procedure DLLEntryPoint(dwReason: DWORD); stdcall;

← →
Юрий Зотов © (2004-03-10 20:33) [2]

Ба-а, какой знакомый код. Лихо его хацкеры-кряцкеры под свои черные замыслы приспособили. Правда, грязи немножко добавили... так что теперь и не знаю, остался ли он рабочим..

Ответ, собственно говоря, очевиден. Но, увы, на вопросы по всяким там "шпионам" я не отвечаю. Могу только подсказать - в D7 определение DLLProc по сравнению с прежним немного изменилось. Нужно добавить всего два символа - и ошибка исчезнет.

← →
Серёга (2004-03-11 20:38) [3]

> Ба-а, какой знакомый код. Лихо его хацкеры-кряцкеры под
> свои черные замыслы приспособили. Правда, грязи немножко
> добавили... так что теперь и не знаю, остался ли он рабочим..
>
> Ответ, собственно говоря, очевиден. Но, увы, на вопросы
> по всяким там "шпионам" я не отвечаю. Могу только подсказать
> - в D7 определение DLLProc по сравнению с прежним немного
> изменилось. Нужно добавить всего два символа - и ошибка
> исчезнет.

А кто Вам сказал, что я собираюсь писать "шпиона"? Я хотел написать трейнер для компьютерной игры, а в трейнерах как раз используется метод ловли клавиш, когда приложение не активно.

← →
ssk (2004-03-11 20:42) [4]

>Юрий Зотов © (10.03.04 20:33) [2]
>Ба-а, какой знакомый код.

кажется, я знаю, почему ;-)

> А кто Вам сказал, что я собираюсь писать "шпиона"?

Вы. В Subj-е.

← →
Андрей__ (2004-03-12 16:26) [6]

> > А кто Вам сказал, что я собираюсь писать "шпиона"?
>
> Вы. В Subj-е.

Я сказал что ошибка в "клавиатурном шпионе", написанным неизвестно кем, но не писал, что собираюсь использовать этот исходник как "клавиатурного шпиона".

Ошибка в "клавиатурном шпионе" Найти похожие ветки