Тема: Хук мыши
Показать сообщение отдельно
Старый 03.01.2005, 01:06     # 1
dex0r
Junior Member
 
Регистрация: 03.05.2004
Сообщения: 49

dex0r Нимб уже пробиваетсяdex0r Нимб уже пробивается
Angry Хук мыши

Не могу понять, почему координаты мыши не возвращаются, если курсор находится на заголовке окна (любого, и не важно, активного или нет)
Вот код обработки ловушки:
Код:
function hook(c0de : integer; wParam:WPARAM; lParam:lparam): Lresult; stdcall;
var
w : THandle;
hw: hwnd;
s1,s2:string;
inf:^tagMOUSEHOOKSTRUCT;
begin
  if c0de >= 0 then
  begin
    case wParam of
      WM_MOUSEMOVE :
      begin
        inf :=pointer(lParam);
        str(inf^.pt.X,s1);
        str(inf^.pt.y,s2);
        hw:=GetForegroundWindow;
        SetWindowText(hw,pchar(s1+':'+s2));
      end;
    end;
  end
  else
  begin
    result := CallNextHookEx(H, c0de, wParam, lParam);
    exit;
  end;

result := CallNextHookEx(H, c0de, wParam, lParam);
End;
dex0r вне форума