| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мультимедия клава [D5, Win95/98]

Alik ©   (2002-06-27 19:54:00) 

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

---

easy   (2002-07-08 11:05:00) [1]

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

---

asmer   (2002-07-06 14:43:00) [2]

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

---

Alik   (2002-07-06 12:37:00) [3]

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

---

easy   (2002-07-01 12:40:00) [4]

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

---

Alik   (2002-07-01 11:21:00) [5]

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

---

easy   (2002-07-01 10:32:00) [6]

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

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-06-29 15:30:00) [7]

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

---

easy   (2002-06-28 17:18:00) [8]

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

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

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

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

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

...удачи!

---

Наверх