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

Ничего не понимаю! Помогите разобраться.   Найти похожие ветки 

← →
Вадим ©   (2003-11-25 21:13) [0]

Пытаюсь отловить нажатие правой кнопки мыши на заголовке чужого окна.

Компилирую .dll:

----------------------------------------------------------------------------------
library testhook;

uses
SysUtils,
Windows,
Messages;

var
CallWndHook: HHOOK;

function CallWndProc(nCode: Integer; wParam, lParam: Longint): LRESULT; stdcall;
var
p: PCWPStruct;
h: THandle;
begin
p := Pointer(lParam);

// если пытаюсь отловить WM_CLOSE, то все работает!
// if p.message = WM_CLOSE then Windows.Beep(100, 100); - в этом случае спикер пищит

// а вот так не пищит :-(
if p.message = WM_NCRBUTTONDOWN then Windows.Beep(100, 100);

Result := CallNextHookEx(CallWndHook, nCode, wParam, lParam);
end;

procedure SetCallWndHook; stdcall;
begin
CallWndHook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);
end;

procedure RemoveCallWndHook; stdcall;
begin
UnhookWindowsHookEx(CallWndHook);
end;

exports SetCallWndHook, RemoveCallWndHook;

begin
end.
----------------------------------------------------------------------------------

В чем может быть дело? Почему отловить WM_CLOSE получается, а WM_NCRBUTTONDOWN никак?

Пожалуйста, помогите разобраться.

---

← →
chi   (2003-11-26 00:46) [1]

if TMsg(Pointer(lParam)^).message = WM_NCRBUTTONDOWN then Windows.Beep(100, 100);
все :)

---

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

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



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