Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.27;
Скачать: 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 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
7-87167
wandp
2002-11-16 01:48
2003.01.27
Помогите с мышкой


14-87060
RV
2003-01-08 08:45
2003.01.27
я было испугался :)


6-87008
OlBan
2002-11-28 08:26
2003.01.27
Pop3 в Indy


1-86865
Allex
2003-01-16 09:07
2003.01.27
windows-1251>>>koi8-r


8-86976
DJ_Sedoy
2002-10-11 06:31
2003.01.27
Получить картинку с камеры