Помогите справиться с хуками [D6, WinXP]
Korona © (2002-12-12 19:01:00)
Начал разбираться с хуками: для начала с локальными. Но что то
не поучается в приведенном ниже коде поставить хук на созданный
процесс:
var
Form1: TForm1;
CurrentHook: HHOOK;
lpProcessInfo: PROCESS_INFORMATION;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
lpStartupInfo: STARTUPINFO;
begin
GetStartupInfo(lpStartupInfo);
CreateProcess(PChar("D:\Delphi
6\Projects\Test\Project1.exe"),nil,nil,nil,False,CREATE_NEW_PROCESS_GROUP,nil,nil,lpStartupInfo,lpProcessInfo);
end;
function MyProc(code: Integer; wParam: Word; lParam:
Longword):Longword;stdcall;
begin
if code = HC_ACTION then
if TMsg(Pointer(lParam)^).message = WM_RBUTTONDOWN then
ShowMessage("ok");
Result := CallNextHookEx(CurrentHook,code,wParam,lParam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CurrentHook :=
SetWindowsHookEx(WH_GETMESSAGE,@MyProc,0,lpProcessInfo.dwThreadId);
if CurrentHook <> 0 then ShowMessage("Хук установлен")
else ShowMessage("Хук не установлен");
end;
Укажите где ошибаюсь?
Song (2002-12-12 20:23:00) [1]
Ошибаешься в lpProcessInfo.dwThreadId Это чего такое?
Ты пытаешься поставить хук на внешнее приложение, которое
запускаешь из своего? И хочешь чтобы хук обрабатывался тем
приложением, а его call-back ф-ия была в твоём? Какой же это
локальный хук?
Наверх 
ЧАТ |
Орешник |
|
