Скачать: CL | DM;

Перехват двойного нажатия клавиш такие как Alt+X   Найти похожие ветки 

← →
RustiK ©   (2003-09-13 18:28) [0]

Помогите пожалуста с перехватом клавиш таких как например Alt+X.
у меня стоит хук на клавиатуру и дальше текст такой

case wm_char of

ord("X"):
begin
hw:=GetForegroundWindow;
SetWindowText(hw,"Сработал хук @2003");
end;

ord("C"):
begin
hw:=GetForegroundWindow;
SetWindowText(hw,"Сработал хук @2003");

end;

ORD("Z"):
begin
hw:=GetForegroundWindow;
SetWindowText(hw,"Сработал хук @2003");
end;
end;
end else

Я здесь могу поставить хук только на одну какую-нибудь клавишу, а мне нужно на две. Помоготи пожалуста. Уже три дня парюсь.

---

← →
RustiK ©   (2003-09-14 14:29) [1]

Ни кто не знает что ли?

---

← →
^^^Dragon^^^   (2003-09-14 22:58) [2]

Нужно ввести переменную boolean, при заходе в действие для каждой клавиши вначале проверять флажок: если ФОЛС, тогда делать его ТРУ и EXIt, а если Тру, тогда уже делать действие. На практике так:
var
flag:boolean;
begin

{...какойто код...}

case wm_char of

ord("X"):
begin
if flag=false then
flag:=true;
end

else

begin
flag:=false;
hw:=GetForegroundWindow;
SetWindowText(hw,"Сработал хук @2003");
end;
end;
end;

Наверное так, Делфи под рукой нет, поэтому не проверял...

---

← →
^^^Dragon^^^   (2003-09-14 23:00) [3]

Ошибся...
var
flag:boolean;
begin

{...какойто код...}

case wm_char of

ord("X"):
begin
if flag=false then flag:=true

else

begin
flag:=false;
hw:=GetForegroundWindow;
SetWindowText(hw,"Сработал хук @2003");
end;
end;
end;

---

← →
Diamond Cat ©   (2003-09-15 02:21) [4]

> ^^^Dragon^^^ (14.09.03 23:00) [3]

Да здраствует разум, да згинет маразм....

2 RustiK © ->
Если лень почетать хелп по wm_char то привожу его кусок тут
29 Specifies the context code. The value is 1 if the ALT key is held down while the key is pressed; otherwise, the value is 0.
также почитай хелп по функциям shr и shl с их помощью можно докапаться до этого самого флага и уж если совсем лень, то проверяй с помощью getkeystate с флагом vk_menu

---

← →
RustiK ©   (2003-09-15 09:32) [5]

Сейчас попробуем

---

← →
novenkiy   (2003-09-15 10:32) [6]

Ребята нашел я способ вот пример решения этой проблемы

http://delphimaster.net/view/4-1063366449/

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c