Текущий архив: 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.013 c