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

Вниз

Эмуляция третей кнопки мышки.   Найти похожие ветки 

 
Roman_   (2002-03-21 16:22) [0]

Кто-нибудь где-то видел сабж?
И у меня не было трех-кнопочной мыши, что делает обычно middle button?


 
Song ©   (2002-03-21 16:38) [1]

Например простым добавлением ключика в реестре можно в виндах сделать эмуляцию двойного клика на третью кнопку.


 
Roman_   (2002-03-22 00:56) [2]

Это конечно весело... Но я не об то спрашиваю. Смотри
(код ловушки), по нажатию ScrollLock меняю правую кнопку на среднюю. Правильно ли?

function HookProc(nCode: Integer; wp: WPARAM; lp: LPARAM): LongInt; stdcall;
var
mhs: PMSG;
keyState: TKeyboardState;
begin
if nCode < 0 then
begin
Result:= CallNextHookEx(HookHandle, nCode, wp, lp);
Exit;
end;
mhs:= Pointer(lp);
case mhs^.message of
WM_RBUTTONDOWN: begin
GetKeyboardState(keyState);
if Boolean(keyState[VK_SCROLL]) then begin
ReleaseCapture();
SendMessage(mhs^.hwnd, WM_MBUTTONDOWN, 0, mhs^.lParam);
SendMessage(mhs^.hwnd, WM_MBUTTONUP, 0, mhs^.lParam);
Result:= 1;
Exit;
end;
end;
WM_RBUTTONUP: begin
GetKeyboardState(keyState);
if Boolean(keyState[VK_SCROLL]) then begin
ReleaseCapture();
SendMessage(mhs^.hwnd, WM_MBUTTONUP, 0, mhs^.lParam);
Result:= 1;
Exit;
end;
end;
end;
Result:= CallNextHookEx(HookHandle, nCode, wp, lp);
end;


 
Song ©   (2002-03-22 11:26) [3]

Нет, всё гораздо проще: :)

WinExec(PChar("rundll32.exe user,swapmousebutton"),SW_HIDE);



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
14-73406
SPeller
2002-04-13 10:13
2002.05.23
MySQL


1-73250
dimmu2
2002-05-05 14:39
2002.05.23
dll на c++


14-73385
SteBystep
2002-04-16 15:08
2002.05.23
PDF extract


3-73020
ng
2002-04-26 10:43
2002.05.23
Шифровка данных


1-73114
Anton_a
2002-05-12 16:00
2002.05.23
ini