Форум: "Система";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Вниз
Мультимедия клава Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
