VPF::как сделать перехват NumLock - Форум программистов

zvyagaaa

Дата 4.6.2009, 20:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Здавствуйте уважаемые гуру
хочу сделать, чтобы моя программа регистрировала в системе глобальную клавишу NumLock
Клавишу регистрирую так

Код


   procedure WMHotkey(var msg: TWMHotkey);message WM_HOTKEY;
...
procedure TMainForm.WMHotkey( var msg: TWMHotkey );

 begin

   if (Msg.HotKey = GlobalAddAtom('MyHotKey NumLock'))
    then
    begin
     if MainForm.Visible=false then

     MainForm.Show
     else
     MainForm.Hide;

    end;


 end;

 procedure TMainForm.FormCreate(Sender: TObject);
 begin

   RegisterHotKey(MainForm.Handle,GlobalAddAtom('MyHotKey NumLock'),0,{VK_SNAPSHOT}VK_NUMLOCK);
 end;

 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
   UnRegisterHotKey (MainForm.Handle, GlobalAddAtom('MyHotKey NumLock'));
 end;

В принципе код работает. Но хотелось бы чтобы по клавише происходило только появление формы, и состояние клавиши не переключалось бы. Т.е. как было включено, так и осталось. А то сейчас происходит следующее. Появляется форма, NumLock выключается, и наоборот.
Как-то похоже сделано в NumLock Calculator. Объясните куда копать?

Код


GetKeyboardState(state);
////state[VK_NUMLOCK] := state[VK_NUMLOCK] XOR 1; //циклично переключить
state[VK_NUMLOCK] := state[VK_NUMLOCK] OR 1; //включить
////state[VK_NUMLOCK] := state[VK_NUMLOCK] AND (NOT 1); //выключить
//
SetKeyboardState(state);

почему-то не работает, видимо потому что я ее сам и перехватываю.
Помогите пожалуйста.

Crw

Дата 4.6.2009, 20:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Наверное лучше через хук делать.
Попробуй код отсюда:
Disable the numlock key using Delphi 7

Keeper89

Дата 4.6.2009, 21:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Смотрите KeyboardProc, но тогда придется делать перехват через хук, а не атом.

Это сообщение отредактировал(а) Keeper89 - 4.6.2009, 21:26

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

zvyagaaa

Дата 5.6.2009, 04:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Crw,
а можно код здесь показать, там какая-то непонятная система регистрации на том сайте.
Мне почему-то кажется, что в нумлок-калькуляторе все немного должно быть проще. Скорее всего там как-то хитро опять включается клавиша.

Crw

Дата 8.6.2009, 15:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Можно. Вот ихний код:

Код


var
  KbdHook : HHook;
 
//call initially to set numlock on
procedure SetNumLock(Lock : Boolean);
var
  KeyState : TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if Lock and (KeyState[VK_NUMLOCK] = 0) then begin
    //simulate key presses
    Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY, 0);
    Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end else if not Lock and (KeyState[VK_NUMLOCK] = 1) then begin
    //simulate key presses
    Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0);
    Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end;
end;
 
function KeyboardHookProc(nCode : Integer; wParam : Word; lParam : LongInt) : LongInt;
   stdcall;
begin
  if nCode < 0 then begin
    //If code is less than zero, the hook procedure must pass the message to
    //the CallNextHookEx function without further processing and should
    //return the value returned by CallNextHookEx
    Result := CallNextHookEx(KbdHook, nCode, wParam, lParam);
    Exit;
  end;
  if (wParam = VK_NUMLOCK) then begin
    Result := 0; //stop further processing
    SetNumLock(True); //re-set numlock
  end else
    Result := CallNextHookEx(KbdHook, nCode, wParam, lParam);
end;
 
//do this either in form create/destroy or somewhere similar.
 
procedure TForm1.FormCreate(Sender : TObject);
begin
  //Set the keyboard hook so we can intercept keyboard input
  KbdHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance,
     GetCurrentThreadId());
end;
 
procedure TForm1.FormDestroy(Sender : TObject);
begin
  //unhook
  UnHookWindowsHookEx(KbdHook);
end;

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