Как перехватить мультимедиа клавиши на клавиатуре?

← →
Darthman © (2004-08-15 02:04) [0]

Сабж. Нужно повесить хук, чтобы работало при нажатии в ЛЮБОЙ программе. Как не пробовал - не выходит. Может быть есть мысли?

← →
DeadMeat © (2004-08-15 14:55) [1]

ИМХО на любую клавиатуру вряд ли найдешь метод... Только через их собственные драйвера (или что там у них), те что вместе идут. Придется копать каждый из них, и составить некий список.
Другой способ (правда не знаю сработает или нет) - написать некий "низкоуровневый драйвер клавиатуры"...

---
...Death Is Only The Begining...

← →
TUser © (2004-08-15 15:19) [2]

> Другой способ (правда не знаю сработает или нет) - написать
> некий "низкоуровневый драйвер клавиатуры"...

Это вряд ли. С этими клавишами каждый драйвер по-своему работает, поэтому написать что-то универсаьное затруднительно.

← →
Darthman © (2004-08-15 17:56) [3]

вопрос как? мне бы под одну конкретную клаву хотябы.

Хм...

Ну, попробуй так :

var h:hhook; function Proc(code:integer; wParam:WPARAM; lParam:LPARAM): lresult;stdcall; var c:array[0..255] of char; nScan:integer; begin if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin nScan:=hibyte((teventmsg(pointer(lparam)^).paramL)); nscan:=nscan shl 16; GetKeyNameText(nScan,c,256); form1.ListBox1.Items.Add(c); end; result:=callnexthookex(h,code,wparam,lparam); end; procedure FormCreate(); begin h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0); caption:=inttostr(h); end; procedure FormClose(); begin unhookwindowshookex(h); end; end.

Вроде должно работать, но только за сканирование не ручаюсь.

Как перехватить мультимедиа клавиши на клавиатуре? Найти похожие ветки