*Юный техник* | Помогите с Hook - убийцей мыши и клавы

SASHA 333

Новый участник

Сообщения: 35
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: hasherfrog
Дата: 19-01-2005

Delphi5, WinXP
1. // Проблема с мышью: В чужом окне кликаю правой мышкой. При этом появляется PopupMenu. Мне это страх
//как ненадо. Хочу вообще отменить правый клик (он мне там в проге не нужен)
//Ан вот не получается.
//Та прога на чьем окне кликаю виснет если я пишу (там где вопросики) WM_MOUSELAST
//или 100000 или что другое. Чего бы ей такое в ответ послать, чтоб меню не
//появлялось (нежное "умри")

2. //Проблема с клвиатурой. Спасибо за подсказку на счет WM_KEYLAST для того чтобы (см. ниже) убивать
//сообщения от нажатия кнопок на клаве. Но вот незадача - как убить нажатие
//кнопки ALT. Она прямо не убиенная какая-то. Я и тка и сяк, а она все жмется и жмется (и левая и правая)
//Как же убить ее клик?

Ответ даже на один из этих вопросов меня крайне обрадует.

Вот листинг библиотеки

Код:

library Dll_KeyboardHook;
uses
  Windows,  Messages,  SysUtils,  Classes,  Graphics,  Controls, Forms,  Dialogs;
var
 SysHook : HHook = 0; Wnd : Hwnd = 0;
function SysMsgProc(code : integer; wParam : word;  lParam : longint) : longint; stdcall;
 begin
  CallNextHookEx(SysHook, Code, wParam, lParam); // Передать сообщение другим ловушкам в системе
 if code = HC_ACTION then  // Проверяю сообщение
 begin
   Wnd := TMsg(Pointer(lParam)^).hwnd;    // Получаю идентификатор окна сгенерировавшего сообщение

//Здесь надо нежно убить сообщение от правой кнопки
//Замена на клик правой и многое другое не прет что то 
   if TMsg(Pointer(lParam)^).message = WM_RBUTTONDOWN then TMsg(Pointer(lParam)^).message:=?????????????????;                          //WM_MOUSELAST
   if TMsg(Pointer(lParam)^).message =WM_KEYDOWN then
   begin
     Case (TMsg(Pointer(lParam)^).wParam) of
       //Эти убивыются
       vk_Back: TMsg(Pointer(lParam)^).message:=WM_KEYLAST;
       vk_Tab:TMsg(Pointer(lParam)^).message:=WM_KEYLAST;
       vk_Clear:TMsg(Pointer(lParam)^).message:=WM_KEYLAST;

       //Тут она гадюка неубиенная (и левая и правая)
//       vk_Menu:ShowMessage('Alt');//TMsg(Pointer(lParam)^).message:=WM_KEYLAST; //Alt
//       VK_LMENU{164}:TMsg(Pointer(lParam)^).message:=WM_KEYLAST; //ShowMessage('Левая Alt');
//       VK_RMENU{165}:TMsg(Pointer(lParam)^).message:=WM_KEYLAST;//ShowMessage('Правая Alt');

       end;//case
  end;
 end;
end;
// Процедура запуска.
procedure RunStopHook(State : Boolean) export; stdcall;
begin if State=true then begin
   // Запускаем ловушку.
   SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0);
 end
 else
 begin
   // Отключить ловушку.
   UnhookWindowsHookEx(SysHook); SysHook := 0;
 end;
end;
exports RunStopHook index 1;
begin
end.

В программе:

Код:

...
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
    //Библиотека перехвата клавиатуры и мыши
  procedure RunStopHook(State : Boolean) stdcall; external 'DLL_KeyboardHook.dll' index 1;
...


procedure TForm1.FormShow(Sender: TObject);
begin
RunStopHook(true);
end
procedure TForm1.FormDestroy(Sender: TObject);
begin
RunStopHook(false);
end;

Отправлено: 15:17, 18-01-2005