Главная страница
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.015 c
3-86687
Aleksandr
2003-01-08 16:21
2003.01.27
Проблема с черезстрочным раскрашиванием Grid.


14-87033
Snake2000
2003-01-10 17:21
2003.01.27
Заработок в Интернет


1-86869
SaperXL
2003-01-15 23:54
2003.01.27
TStringGrid


4-87221
dkDimon
2002-12-12 20:15
2003.01.27
memory stream


3-86629
Explorer
2003-01-10 12:02
2003.01.27
EhDBGrid: сортировка