Мультимедия клава

← →
Alik (2002-06-27 19:54) [0]

Поможите!!! У меня клавиатура с кнопочками Play, stop и т.д. Как сделать, чтобы по нажатию кнопки Play открывался Winamp или совершалось еще какое-нибудь действие?

← →
easy (2002-06-28 17:18) [1]

..вот что я думаю по этому поводу:

надо узнать код этих кнопочек. Пишем:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin showmessage(inttostr(key)); end;

...ежели работает и всё показывает - читаем:

http://delphi.mastak.com/articles/hooks/index.html

...удачи!

← →
Alik (2002-06-29 15:30) [2]

Спасибо! Но только на разные кнопки код один и тот-же! 255 и на play и на stop и на громкость! Все сделал вроде-бы как надо и драйвер выгрузил! Можно ли узнать код кнопочек каким-нибудь другим способом?

← →
easy (2002-07-01 10:32) [3]

...может так?:

type
TForm1 = class(TForm)
procedure WMKEYDOWN(var m: TMessage); message WM_KEYDOWN;
private
{ Private declarations }
public
{ Public declarations }
end;

//.....

procedure TForm1.WMKEYDOWN(var m: TMessage);
begin
showmessage(inttostr(m.WParamHi));
end;

← →
Alik (2002-07-01 11:21) [4]

А так коды всех кнопок равны нулю!

← →
easy (2002-07-01 12:40) [5]

Попробуй m.LParamLo, m.LParamHi ...

← →
Alik (2002-07-06 12:37) [6]

Спасибо! Все работает, коды выдает, но только с такими кодами Hook нельзя сделать, а с какими можно - то они одинаковые для всех моих кнопок!

← →
asmer (2002-07-06 14:43) [7]

если коды одинаковые, то енто скорее всего префикс... т.е. второй пришедший код будет уточнять клавишу...

← →
easy (2002-07-08 11:05) [8]

...а LOWORD(lParam) не ловиться?

Мультимедия клава Найти похожие ветки