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

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

Как отловить мультимедийные клавиши на клаве?

maxfiles ©   (2003-01-22 01:19:00) 

У меня клавиатура - мультимедийная и в дельфи незнаю, как отловить такие кнопки. Обычные VK_ не подходят...

Как быть? Спасибо

---

PGM   (2003-01-24 12:18:00) [1]

Про перехватчики уже столько написано, что не хотелось бы повторяться. Посмотри FAQ, поищи в MSDN. Ключевые вещи:

В DLL
...
HookHandleKBD := SetWindowsHookEx(WH_KEYBOARD_LL,@Msg_HookLLKBD, hInstance,0);
...
UnhookWindowsHookEx(HookHandleKBD);
...

function Msg_HookLLKBD(Code : Integer; wParam : DWORD; lParam : DWORD) : LongInt; stdcall;
var
cds : TCOPYDATASTRUCT;
ckbd : PKBDLLHOOKSTRUCT;
...
ckbd := PKBDLLHOOKSTRUCT(lparam);

skbd.kbdMsg := wParam;
skbd.vkCode := ckbd.vkCode;
skbd.scanCode := ckbd.scanCode;
skbd.flags := ckbd.flags;

cds.dwData := PGM_HOOK_KBD;
cds.cbData := SizeOf(skbd);
cds.lpData := @skbd;

SendMessage(FindWindow(PGMHookClass,nil),WM_COPYDATA,0,Integer(@cds));

В программе, которая будет получать сообщения

procedure OnCopyData(var M : TMessage); message WM_COPYDATA;

procedure TPGMKBDHOOKFORM.OnCopyData(var M : TMessage);
var cds : TCOPYDATASTRUCT;
begin
cds := TCOPYDATASTRUCT(Pointer(M.lparam)^);
...
end;

---

Pirat   (2003-01-24 05:50:00) [2]

У меня Sven Internet 650(клава) и win2000
все отлично ловится по wm_keydown, по карйней мере перехватчик (которого я попутно написал) показывает что у всех кнопок разные скан-коды.

---

maxfiles   (2003-01-24 00:06:00) [3]

PGM, ты не мог бы по подробнее и желательно с примером?
Заранее спасибо.

---

PGM   (2003-01-23 14:56:00) [4]

Надо только другой перехватчик
Под NT/2K/XP отлично все ловится на WH_KEYBOARD_LL в отдельной DLL. Под 9х что-то тоже есть.
У меня Genius (кажется KM18)все клавиши отлично ловятся.

---

S.P.I.R.I.T   (2003-01-23 02:21:00) [5]

У меня была такая же проблема вот что у меня получилось но она глючит а доделать времени нет



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{Public declarations }
end;

var
Form1: TForm1;
HookHandle: hHook;

implementation

{$R *.dfm}
function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
key,i,volume: integer;
begin
if Code >= 0 then
begin
result := 0;
msg := Pointer(LParam);
with Form1 do
case msg.message of
{ WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr(msg.ParamH);
WM_LBUTTONDOWN: CheckBox1.Checked := true;
WM_LBUTTONUP: CheckBox1.Checked := false;
WM_RBUTTONDOWN: CheckBox2.Checked := true;
WM_RBUTTONUP: CheckBox2.Checked := false;
WM_MBUTTONDOWN: CheckBox4.Checked := true;
WM_MBUTTONUP: CheckBox4.Checked := false;
WM_KEYUP: CheckBox3.Checked := false;
} WM_KEYDOWN: begin
Form1.caption := msg.paramL;//
end;

end;
end
else
result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookHandle > 0 then
UnhookWindowsHookEx(HookHandle);
ws.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;

end.

---

maxfiles   (2003-01-23 00:08:00) [6]

Нет! Я такое уже пробовал :) поэтому и обращаюсь! Так просто эти кнопочки не считываются. А хотелось бы...

Есть еще предложения???

На asm - в виндах 2000 может не работать :(

---

Tano   (2003-01-22 19:59:00) [7]

Я бы написал маленькую прогу с Memo на форме и в обработчике
TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
выводил бы код Key в Memo
Memo1.Lines.Append(IntToStr(Key))
и аккуратно записал бы на бумажечку соответствия :-)
или нибил бы свой дополнительный набор констант VK_???
У меня клава типичная и кроме Sleep и Power ничего необычного нет - попробовать не на чем.
Если получиться - нипиши.

---

MegaBass   (2003-01-22 11:19:00) [8]

GetKeyboardState + F1

---

Nick_N_A   (2003-01-22 06:17:00) [9]

А генерируют ли эти клавиши вобще wm_syskeydown?
Там-же и их код.

Самый плохой способ:
function GetScanCode:byte; assembler;
asm
mov dx,$60;
in al,dx;
end;

пока не подводил, но при нажатии нескольких клавиш одновременно,
он не все успевает принять

---

Наверх