Мышка - узнать код

[ScorpioN_T]

Искал в Инете...
Искал на форуме ничего под себя не нашел...

Есть мышка Delux Model M500
как на всех мышках есть колёсико, левая и правая кнопка
но еще есть дополнительные две кнопки

Терь мне нужно узнать их коды для начала, чтобы с ними можно было дальше работать, но никак не могу сделать перехват.

Пробывал разные способы из этого форума, но дальше как перехватить клаву и узнать какая кнопка на мыши нажата ненашел способа

Мне бы что нить с ORD

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
label1.caption:=IntToStr(ord(key));
end;

или что нить на подобие

[crystalbit]

попробуй этой прогой (аттач), писал года два назад на vb, показывает что нажато в данный момент (использует GetKeyState по циклу в таймере)

[JTG]

WM_LBUTTONDOWN

WPARAM wParam
LPARAM lParam;


Parameters
wParam
Indicates whether various virtual keys are down. This parameter can be one or more of the following values.
MK_CONTROL
The CTRL key is down.
MK_LBUTTON
The left mouse button is down.
MK_MBUTTON
The middle mouse button is down.
MK_RBUTTON
The right mouse button is down.
MK_SHIFT
The SHIFT key is down.
MK_XBUTTON1
Windows 2000/XP: The first X button is down.
MK_XBUTTON2
Windows 2000/XP: The second X button is down.

http://msdn.microsoft.com/en-us/libr...07(VS.85).aspx

[ScorpioN_T]

crystalbit
Спасибо!!!
нашел я тот самый код кнопки.

MK_XBUTTON1
Windows 2000/XP: The first X button is down.
MK_XBUTTON2
Windows 2000/XP: The second X button is down.

Этот случай не для меня, у меня они не реагируют...
но всё равно спс за помощь

[Stilet]

у меня они не реагируют...

Дрова знач не поддерживают.

[ScorpioN_T]

Всё ПОЧТИ работает!
но есть одно НО
вот код :
b1,b2 - это номер кода символа

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate(5)<>0 then
keybd_event(b1, VK_CONTROL, 0, 0);
if getasynckeystate(6)<>0 then
keybd_event(b2, VK_CONTROL, 0, 0);    
end;

и с этим кодом тоже возился...

if getasynckeystate(5)<>0 then

PostMessage(HWND_BROADCAST, WM_KEYDOWN, b1, 0);

Я запускаю свою прогу, прописываю в переменные b1,b2 свои значения.
ТАк теперь вопрос...
Я запускаю игру "Вар Крафт"
ПРИ работе игры, МОИ КНОПКИ РАБОТАЮТ ТОЛЬКО ОДИН РАЗ.
Как мне это исправить?
Т.е. один раз на них кликнешь, он срабатывает, а во второй раз не реагирует

З.Ы. и еще как мне узнать хэндл моей игры ?

[Zeraim]

Если мне не изменяет память, PostMessage отсылает сообщение без ожидания ответа о обработке этого сообщения. Вполне возможно что в этом и кроется ошибка. Также отсылать сообщение всем окнам тоже не хорошо. А получить хендл можно к примеру через FindWindow, или по таймеру активное окно (не помню команду).