Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Hooks 


MystiX   (2002-04-12 21:38) [0]

Объясните пожалуйста как поставить hook на нажатие средней кнопки на мыши в любом месте экрана
т.е. вне фотмы.
----------------------------------------------------------------
Заранее спасибо!



Fantasist   (2002-04-13 09:29) [1]

А в чем проблема?
Пишишь dll, в ней ставишь свой обработчик(хук) на систему.



MystiX   (2002-04-13 09:58) [2]

Проблема в том, что я не знаю как это сделать.
Можетпример где есть?



Fantasist   (2002-04-13 10:41) [3]

Понял. Пример есть:


library hook;

uses
SysUtils,
Classes,
Windows,
Messages;


var
HookHandle: HHOOK = 0;
wHandle:HWND;

//функция обрабатывающая сообщения (мышиные)
function HookProc(Code:integer; W:WParam; l : LParam): LongInt; stdcall;
begin
///////
//здесь обрабатываем.
//не забываем, что на самом деле надо проанализировать Code,
//и делать или не делать на основании его.
/////
...
Result:=CallNextHookEx(HookHandle,Code,W,L);;
{здесь так же помним, что скорее всего следующий хук этой функцией вызван не будет, так как у нас хук глобальный, а мы не позаботились о разделении HookHanlde между процессами. Но можно на это наплевать. :) }
end;

function SetHook(Hdl:HWND;HookType:Integer;ThreadID:DWord;I:Integer): LongBool; stdcall;
begin
//последний параметр 0 - хук глобальный.
HookHandle := SetWindowsHookEx(HookType, HookProc, HInstance,0);
wHandle:=Hdl; //это просто так - я его для MessageBox"ов использовал
Result := HookHandle <> 0 ;
end;

function RemoveHook: LongBool; stdcall;
begin
Result := UnHookWindowsHookEx(HookHandle)
end;

exports
SetHook, RemoveHook, HookProc;

begin
end.


Тут есть статья на этом сайте - глянь, там правда как-то странно организованно разделение данных dll.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-80908           Ivan Kohut            2002-04-14 21:12  2002.04.25  
Проблема с TFileStream


4-81108           Vladimir Bolotin      2002-01-10 20:33  2002.04.25  
прозрачность в win2k


1-80994           Miwa                  2002-04-12 11:48  2002.04.25  
TP7: Не то чтобы глюк, но все же...


3-80811           valievrf              2002-04-05 12:39  2002.04.25  
информация по БД


1-80886           Beginner              2002-04-14 03:31  2002.04.25  
Вывод real чисел на экран