Вниз
Скачать: CL | DM;

Key_Hook и зажатие клавиши   Найти похожие ветки 

← →
SerMax ©   (2006-11-19 15:29) [0]

Пишу программу, отлавливающую все нажатия клавиш в системе (хочу уровень громкости менять с клавиатуры :)
Хотелось бы знатЬ, можно ли отследить ЗАжатие обычной клавиши (например "g").
Вот есть часть кода :

function Key_Hook(Code: integer; wParam: word; lParam: Longint): Longint;stdcall; export;
var ch:char;
begin
ch:=chr(wParam);
if HiWord(GetKeyState(VK_MENU)) <> 0 then
begin
if HiWord(GetKeyState(VK_CONTROL)) <> 0 then
if (ch="g") or (ch="G") then
begin
ShowMessage("Nazali ALT+CTRL+g!!!");
end;
end;

Я зажимаю ALT+CTRL+g....если g ЗАжата (я её не отпускаю), то выводится сообщение ShowMessage("Nazali ALT+CTRL+g!!!");
Мне надо, чтобы это окно выводилось только пРИ ПЕРВОМ нажатии...и при следующих. Но никак не в случае, когда клавиша просто нажата и не отпускается.
Вроде бы lParam отвечает за длительность нажатия....я пишу :
if (LoWord(lParam)=1) then   //если нажали и сразу отпустили.
Но это не помогает !
Помогите, кто чем может !


← →
Anatoly Podgoretsky ©   (2006-11-19 15:48) [1]

> SerMax  (19.11.2006 15:29:00)  [0]

Клавиатура работает с автоповтором, или удаляй автоповтор или вводи проверку на первое нажатие и отжатие.


← →
SerMax ©   (2006-11-19 18:02) [2]

Так вся суть и состоит в тоМ, КАК ЭТО СДЕЛАТЬ ? !


← →
Elen ©   (2006-11-20 08:53) [3]


> хочу уровень громкости менять с клавиатуры :)

Делай как в ВинАмпе - регистрируй свою Hot Key.



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

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



Память: 0.45 MB
Время: 0.031 c
15-1173995176
Иксик
2007-03-16 00:46
2007.04.08
Кириллическая SMS-ка


15-1173686804
Vlad Oshin
2007-03-12 11:06
2007.04.08
Хорошо, очередная рац.идея :) Шляпа.


2-1174455382
User_OKA
2007-03-21 08:36
2007.04.08
Алгоритм


2-1174317703
Kolan
2007-03-19 18:21
2007.04.08
Как убрать кнопки &amp;laquo;закрыть&amp;raquo;, &amp;laquo;свернуть&amp;raquo; ит.д. в MDI приложении&amp;#133


15-1173701976
ArtemESC
2007-03-12 15:19
2007.04.08
Office: Access




   Наверх