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

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

← →
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) не ловиться?

---

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

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



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