| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Вадим ©   (2003-11-25 21:13:00) 

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

Компилирую .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:00) [1]

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

---

Наверх