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

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

Наверх




Память: 0.47 MB
Время: 0.042 c
14-16728
Piter
2004-01-15 15:41
2004.02.06
Перегрузка операторов и Шаблоны


1-16368
SniZ
2004-01-24 00:27
2004.02.06
Как создать маленькое приложение с формой?


6-16553
Gennady
2003-12-03 10:35
2004.02.06
Передача TStream между TIdTCPServer и TIdTCPClient.


7-16750
Вованчик
2003-11-20 09:35
2004.02.06
Фискальный регистратор


3-16139
Dmitriy Yakovenko
2004-01-15 12:44
2004.02.06
Поле типа INT64 в Delphi7