Вниз
Скачать: CL | DM;

КАК ОПРЕДЕЛИТЬ HANDLE НАЗНАЧЕНИЯ СООБЩЕНИЯ ?!!!   Найти похожие ветки 

← →
moreo_xayam ©   (2003-11-27 13:47) [0]

Вобщем, перехватывю сообщение (с помощью hook"ов)... Мне нужно узнать handle окна назначения этого сообщения...
ОТВЕТЬЕ КТО-НИБУДЬ!


← →
Simon ©   (2003-12-01 22:21) [1]

Хуки бывают разные... но в каждый из них приходит само сообщение, просто в некоторые не в том виде, который хотелось бы. В WH_GetMessge, например, сообщение приходит в "удобном" виде:

function HookProc(nCode: integer; wp: Wparam; lp: LParam): LRESULT; stdcall;
type TPntMsg = ^MSG; //F1
var m: TPntMsg;
begin
if nCode=HC_ACTION then
begin
m:=TPntMsg(lp);
m.hwnd - вот и хэндл!
end;
Result := CallNextHookEx(HookHandle, nCode, wP, lP);
end;

В других типах ловушек по другому, в хэлпе всё есть


← →
LWait ©   (2003-12-02 00:27) [2]

у хука CALLWNDPPOC похоже

type
PCWPSTRUCT = ^CWPSTRUCT;
CWPSTRUCT = packed record
lParam: LPARAM;
wParam: WPARAM;
message: UINT;
hwnd: HWND;
end;

function HookProc(nCode: integer; wp: Wparam; lp: LParam): LRESULT; stdcall;
var m: PCWPSTRUCT;
begin
if nCode=HC_ACTION then
begin
m:=PCWPSTRUCT(lp);
m.hwnd - вот и хэндл!
end;
Result := CallNextHookEx(HookHandle, nCode, wP, lP);
end;



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

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



Память: 0.45 MB
Время: 0.019 c
3-16101
CraKer
2004-01-10 23:12
2004.02.06
Сортировка по алфавиту


1-16506
DelphiNew
2004-01-27 12:43
2004.02.06
Количетво записей в файле


14-16724
Lony
2004-01-16 13:11
2004.02.06
Файлы вместо ADO


1-16476
Alien
2004-01-27 17:14
2004.02.06
GetLogicalDriveStrings


14-16735
Volodya_
2004-01-16 01:28
2004.02.06
IE




   Наверх