KeyBoard

يمكن ذلك عن طرق عمل Hook لا أعرف كيف يسمى هذا بالعربية :blink:

على أي حال هناك الكثير من المكونات التي تساعدك

جرب من هنــــــا

يطلق العرب على كلمة hook تعبير "مقبض" وهو تعبير لا ادرى مدى صحته :)

اخي العزيز اليك هذا الكود الذي يوقف

caps,tab,shif,

 procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
.....

var
...
 NUMLOCK,CAPITAL,SHIFT,ALT:integer;
......
procedure TForm1.FormCreate(Sender: TObject);
var KeyState:  TKeyboardState;
begin
  GetKeyboardState(KeyState);
  NUMLOCK:=KeyState[VK_NUMLOCK];
  CAPITAL:=KeyState[VK_CAPITAL];
  SHIFT:=KeyState[VK_SHift];
  ALT:=KeyState[VK_menu];
 Application.OnMessage := AppMessage;
end;



procedure TForm1.appMessage(var Msg: TMsg; var Handled: Boolean);
var

 KeyState:  TKeyboardState;
    begin
      GetKeyboardState(KeyState);
     if Msg.Message = WM_KEYDOWN then
         if (Msg.wParam =VK_Tab ) then
              begin
               Label1.Caption:=Label1.Caption+'s';
               Handled:=true;
              end;

         KeyState[VK_NUMLOCK]:=NUMLOCK;
         KeyState[VK_CAPITAL]:=CAPITAL;
         KeyState[VK_SHift]:=Shift;
        KeyState[VK_Menu]:=ALT;
         SetKeyboardState(KeyState);


    end;

استخدمنا OnMessagу من االغرض ن لانه المكان الوحيد الذي نستطيع منه التقاط ال tab

لاحظ اننا حفظنا الحالية الابتدائية للازرار في OnCreate ثم اعدنا اهم القيم في MessageApp

لابد ان يفيدك هذا

/index.php?showtopic=70218

استاز romanof الكود السابق ذكره لم يعمل معى (لم يبطل عمل المفاتيح) وشكرا

رغم ان الكود اشتغل لكن خذ الكود الذي يمنع NumLock,caps,

const
  MyHotKey=VK_NUMLOCK;//VK_CAPITAL;//VK_NUMLOCK;//

 procedure SetNumLock(bState:Boolean);
   var   KeyState : TKeyboardState;
   begin   GetKeyboardState(KeyState);
    if ( (bState) and (not ((KeyState[MyHotKey] and 1)=1) ) or
      ( (not (bState)) and ((KeyState[MyHotKey] and 1)=1))) then
    // Simulate a key press
       keybd_event(MyHotKey, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
       // Simulate a key release
       keybd_event(MyHotKey, $45,  (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
      end;


 //=========
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetNumLock(false);
end;