Скачать: CL | DM;

Помогите справиться с хуками   Найти похожие ветки 

← →
Korona ©   (2002-12-12 19:01) [0]

Начал разбираться с хуками: для начала с локальными. Но что то не поучается в приведенном ниже коде поставить хук на созданный процесс:
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) [1]

Ошибаешься в lpProcessInfo.dwThreadId Это чего такое?
Ты пытаешься поставить хук на внешнее приложение, которое запускаешь из своего? И хочешь чтобы хук обрабатывался тем приложением, а его call-back ф-ия была в твоём? Какой же это локальный хук?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c