VPF::Клавиатура, переназначение клавиши

Wraith

Дата 13.11.2006, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.11.2006

Репутация: нет
Всего: нет

Полетел правый контрол на клаве.... а рядом есть такая абсолютно ненужная кнопочка вызова свойств файла... написал прогу, поставил хук... процедура обработки хука ниже....
Немогу понять почему сообщение о нажатии этой кнопки проскакивает..((( контрол тоже включается... но и вылезает свойства файла...
и еще почемуу то при отпускании клавиши невсегда отключается контрол.. хотя делал отладку сообщениями...все вроде нормально...в чем косяк??!! или надо драйвер писать??...

Код


Function SysMsgProc(nCode:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
begin


      if (((lParam shr 16) and $FF)=93) and (nCode = HC_ACTION) and (((lParam shr 16) and KF_REPEAT) = 0) then begin
    //  messagebox(GetDesktopWindow,'ACTIV','',mb_ok);
     keybd_event(VK_LCONTROL, MapVirtualKey(VK_LCONTROL,0), KEYEVENTF_EXTENDEDKEY or 0, 0 );
     TMsg(Pointer(LParam)^).Message:=WM_NULL;//глушим сообщение
     end;

    if (((lParam shr 16) and $FF)=93) and (nCode = HC_ACTION) and ((((lParam shr 16) and KF_UP)) shr 15 = 1) then begin
     // messagebox(GetDesktopWindow,'DEACTIV','',mb_ok);
      keybd_event(VK_LCONTROL, MapVirtualKey(VK_LCONTROL,0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
     TMsg(Pointer(LParam)^).Message:=WM_NULL;//глушим сообщение
     end;


end;

MetalFan

Дата 11.1.2007, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

ставь низкоуровневый хук на клаву и в нем меняй... имхо должно прокатить)

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »