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

Нужно отключить левую кнопку на мышке   Найти похожие ветки 

← →
volodya_   (2002-12-02 11:09) [0]

Нужно отключить левую кнопку на мышке, вот исходный код библиотеки

library getmsghook;

uses
Windows,
Messages;

var
HookHandle: HHOOK;

function GetMessageHook(HookCode, RemovalFlag, MsgAddr: integer): integer; stdcall;
begin
if HookCode = HC_ACTION then
begin
//КАК ЗДЕСЬ ОТЛОВИТЬ НАЖАТИЕ ЛЕВОЙ КНОПКИ НА МЫШКЕ И ОТКЛЮЧИТЬ???
end;
Result:= CallNextHookEx(HookHandle, HookCode, RemovalFlag, MsgAddr);
end;

function SetHook: boolean; stdcall;
begin
HookHandle := SetWindowsHookEx(WH_MOUSE, @GetMessageHook, HInstance, 0);
Result := HookHandle <> 0
end;

function RemoveHook: boolean; stdcall;
begin
Result := UnhookWindowsHookEx(HookHandle)
end;

exports
SetHook,
RemoveHook;

begin
end.

---

← →
Song ©   (2002-12-02 11:10) [1]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1037272197

---

← →
volodya_   (2002-12-02 11:38) [2]

Чёто не открывается эта ссылка :(((, можно и сюда бросить всё что там находится или на wolf@kazna.ck.ua

---

← →
Song ©   (2002-12-02 11:43) [3]

http://coolsong.narod.ru/hook.rar

но комментарии все по ссылке, так что подожди, в течении дня заработает.

---

← →
volodya_   (2002-12-02 12:24) [4]

Ок! Спасибо!

---

← →
volodya_   (2002-12-02 12:37) [5]

Всё понятно, разобрался с этим. Но появилась ещё одна проблемка:
Всё работает ( точнее не работает)но когда переключаюсь например на FAR то кнопки все как работали так и работают, как побороть эту проблему????

---

← →
Song ©   (2002-12-02 12:58) [6]

Только в FAR"е? В других программах не работают?

---

← →
volodya_   (2002-12-02 13:14) [7]

Ага, нигде не работает правая кнопка, а вот в Far"e работает, мне кажется такая проблема со всеми досовскими приложениями

---

← →
Song ©   (2002-12-02 13:33) [8]

Всё понятно.
Я когда писал этот пример, тоже задавался этим вопросом.
По-видимому FAR использует нестандартные ф-ии обмена сообщениями. Кстати по-моему такая шняга наблюдается с любой программой в ДОС эмуляции.

---

← →
Diamond Cat ©   (2002-12-03 01:42) [9]

если нужно просто отрубить появление попапов то есть более простой путь (правда не удалось посмотреть что на ссылке, но исходя из названия hook.rar подход совсем другой)
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion
\Policies\Explorer
NoTrayContextMenu = 1 Запретить контекстное меню на трее
NoViewContextMenu = 1 Запретить контекстное меню
прописываешь это в реестр

---

← →
volodya_   (2002-12-03 10:35) [10]

А если использовать в
SetWindowsHookEx(WH_GETMESSAGE, @GetMessageHook, HInstance, 0);
не WH_GETMESSAGE, а WH_MOUSE ????

---

← →
Song ©   (2002-12-03 14:05) [11]

Ну дак попробуй, что же ты спрашиваешь :-)

---

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

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



Память: 0.47 MB
Время: 0.01 c