Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

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.



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

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
6-81017
Arlekin17
2002-02-14 17:57
2002.04.25
Пожалуйста объясните как работает BROADCAST.....


3-80740
TB2
2002-04-05 22:03
2002.04.25
ОЧЕНЬ важный для меня вопрос.


7-81100
Alex622
2002-01-29 11:46
2002.04.25
Две мыши


14-81067
fishka
2002-03-20 14:29
2002.04.25
Переписать игрушку с компашки с защитой. Можно ли это сделать, чтобы работало корректно?


3-80756
Timka
2002-04-02 08:59
2002.04.25
прошу подсказку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский