Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > как сделать перехват NumLock


Автор: zvyagaaa 4.6.2009, 20:20
Здавствуйте уважаемые гуру
хочу сделать, чтобы моя программа регистрировала в системе глобальную клавишу 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
Наверное лучше через хук делать.
Попробуй код отсюда:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23852609.html

Автор: Keeper89 4.6.2009, 21:03
Смотрите http://msdn.microsoft.com/en-us/library/ms644984(VS.85).aspx, но тогда придется делать перехват через хук, а не атом.

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

Автор: Crw 8.6.2009, 15:11
Можно. Вот ихний код:
Код

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;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)