[serebrus]

Привет форумчане

Нужная программа находится функцией FindWindow. Как можно блокировать нажатие (правой) кнопки мыши именно для этой программы (окна)?

[Bargest]

Я бы делал через Hook. На этом форуме или в гугле полно примеров.

[serebrus]

Bargest, а можно в примерах объяснить?

[Bargest]

Для этого есть специальные места. Просто мне писать трактаты по полному описанию нет смысла, тем более за меня это уже сделали.
Главный тык
Тык 2
Тык 3
И т.д.
И на delphisources было не раз:
Тык 4
Тык 5
Только не советую "тупо копипастить".

[serebrus]

Bargest, по книге "Delphi-Глазами хакера" нашел готовый код и изменил его для Калькулятора (результат: в калькуляторе не должна "нажиматься" правая кнопка мыши) так:

PHP код:

var
  Form1: TForm1;
  wnd: HWND;
  b: Boolean;

  procedure RunStopHook(State : Boolean; Wnd: HWND) stdcall;
  external 'hackpass.dll' index 1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
wnd:=FindWindow(nil, 'Calculator');
if wnd<>0 then
 begin
  b:=True;
  RunStopHook(True, wnd);
  ShowMessage('Find');
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if b then RunStopHook(False, wnd);
end;

end. 


Вот сама библиотека:

PHP код:

library hackpass;

uses Windows, Messages;
var
 SysHook : HHook = 0;
 Wnd : Hwnd = 0;
 hd  : 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) and (Wnd=hd) then
    SendMessage(Wnd, WM_CANCELMODE, 0, 0);
    //НО ВСЕ ТАКИ КОНТЕКСТНОЕ МЕНЮ ОТОБРАЖАЕТСЯ
  end;
end;

procedure RunStopHook(State: Boolean; h: HWND) export; stdcall;
begin
if State=true then
 begin
  hd:=h;
  SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0);
 end else
 begin
  UnhookWindowsHookEx(SysHook) ;
  SysHook := 0;
 end;
end;

exports RunStopHook index 1;
begin
end. 


НО ВСЕ ТАКИ КОНТЕКСТНОЕ МЕНЮ ОТОБРАЖАЕТСЯ, как можно блокировать это?

[Bargest]

Я бы сделал иначе. Если окно под мышью - калькулятор, то НЕ вызываем следующий хук (callNextHookEx), иначе вызываем.

[serebrus]

Bargest я исправил код на следующее:

PHP код:

function SysMsgProc(code : integer; wParam : word;
lParam : longint) : longint; stdcall;
begin
if code = HC_ACTION then
 begin
  Wnd := TMsg(Pointer(lParam)^).hwnd;

  if GetParent(Wnd)=hd then
   begin
    if TMsg (Pointer (lParam)^).message = WM_RBUTTONUP then
     SendMessage(Wnd, WM_CANCELMODE, 0, 0);
   end else
   begin
    CallNextHookEx(SysHook, Code, wParam, lParam);
   end; 
 end;
end; 


но все равно не помогло, в этом случае я даже не смог кликать в других окнах, как бы мышь не работает.
И еще одно, оказывается:

PHP код:

if TMsg (Pointer (lParam)^).message = WM_RBUTTONUP then
 SendMessage(Wnd, WM_CANCELMODE, 0, 0); 


вообще не предотвращает контекст меню (т.е.)

Пожалуйста, подскажите как быть?

[Bargest]

Код:

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall; 
begin 
if code = HC_ACTION then 
 begin 
  Wnd := TMsg(Pointer(lParam)^).hwnd; 

  if (Wnd=hd)or(GetParent(Wnd)=hd) then 
    result:=1
  else 
    result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 end; 
end;  

Думаю, как-то так.

[serebrus]

Bargest на вашем листинге нету же кода "блокировки" правой кнопки мыши

[Bargest]

Зато там есть остановка цепочки хуков. Я же писал выше: не советую просто копировать код, лучше разберитесь. В моей программе аналогичный код, работает, как часы.
А, ну да. Естественно надо еще сделать проверку, что это именно правая кнопка мыши, и для других кнопок использовать всё тот же CallNextHookEx.

[serebrus]

Bargest, удалось определить нужное окно при нажатии правой кнопки мыши. Осталось блокировать контекст меню...Поискал, прочитал много стаей, в одном из них написали что достигли это с помощью EndMenu.
Но увы и это мне не помогло.
Вот библиотека:

PHP код:

library hackpass;

uses
  Windows,
  Messages,
  ShellAPI;

var
 SysHook: HHook = 0;
 Wnd: Hwnd = 0;

function SysMsgProc(code: integer; wParam: word; lParam: longint): longint; stdcall;
var buff : array[0.. 127] of Char;
    ts: String;
begin
if code = HC_ACTION then
 begin
  if TMsg(Pointer (lParam)^).message = WM_RBUTTONDOWN then
   begin
    Wnd := TMsg(Pointer(lParam)^).hwnd;
    GetClassName(Wnd, buff, sizeof(buff));
    ts:=buff;
    if ts='ИМЯ КЛАССА НУЖНОГО ОКНА (ИЗВЕСТНО)' then
     begin
      MessageBox(0,'Success','',MB_OK);
      EndMenu;
     end;
   end else
    Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 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. 


Что посоветуете?

[Bargest]

Я же не спроста написал выше:

Код:

result:=1;

Я в хуках не сильно разбираюсь, но насколько я знаю, возврат нуля винда будет расценивать как "все ок, продолжаем работу" и сама передаст управление следующему хуку. Возврат же другого числа винда посчитает ошибкой, и цепь ловушек прервется, сообщение будет остановлено. Так что нужно там, где идет блок, результату присвоить значение, отличное от нуля. Тогда нажатие правой кнопки мыши так и не доберется до калькулятора.
А вот всякие ухищрения вроде попыток убрать меню и пр. бесполезны - хук обрабатывается до того, как сообщение о нажатии кнопки мыши дойдет до окна калькулятора, а значит до того, как это меню отобразится.
[лирическое отступление] Вообще убрать уже открывшееся меню может быть крайне трудной задачей - например, ничто не мешает по нажатию правой кнопки мыши просто-напросто нарисовать белый прямоугольник с текстом в нем, и при движении мыши подсвечивать разные строки. И отловить такое "открытие меню" будет почти невозможно, не говоря уже о том, чтобы стереть это "меню" и восстановить предыдущее изображение, да вдобавок отключить обработчики движения мыши над картинкой. Так что лучше сделать так, чтобы сообщение о ПКМ просто не добиралась до интересующего окна.[/лирическое отступление]

[serebrus]

Bargest, слава Богу, решение найдено, вот отрывок из библиотеки:

PHP код:

function SysMsgProc(code: integer; wParam: word; lParam: longint): longint; stdcall;
var buff : array[0.. 127] of Char;
    ts: String;
    //t: PChar;
begin
if code = HC_ACTION then
 begin
  if TMsg(Pointer (lParam)^).message = WM_RBUTTONDOWN then
   begin
    Wnd := TMsg(Pointer(lParam)^).hwnd;
    GetClassName(Wnd, buff, sizeof(buff));
    ts:=buff;
    if ts='ИМЯ КЛАССА (ИЗВЕСТНО)' then
     begin
      MessageBox(0,'Success','',MB_OK);
      TMsg(Pointer(lParam)^).message:=WM_NULL;
      Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
     end else
     begin
      Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
     end;
   end else
    Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 end else
 begin
  Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 end;
end; 


Спасибо вам за внимание и за поддержку.