Devier Caps Lock

Devier Caps Lock - Delphi/Pascal - Programmation

Marsh Posté le 08-09-2003 à 17:54:40    

:hello: Bonjour,
 
J'aurais besoin de savoir comment faire pour dévier la touche Caps Lock, par exemple sur le 'N', c'est-à-dire que lorsque l'utilisateur appuyerait sur Caps Lock, ce serait la lettre N qui s'inscrive au focus, et que le clavier ne passe pas en mode lettres capitales et inversément, quand on appuye sur N, c'est la fonction habituellement excercée par Caps Lock qui se mettrait en route...
 
J'ai déjà fais des recherches au près des Hooks clavier, et je suis arrivé au fait :  
 

Code :
  1. procedure TForm1.HookKeyboard1HookKeyDown(Sender: TObject; key: Word;
  2.   ExtendedKey, AltKey, PrevPressed: Boolean);
  3. begin
  4.   if Key = VK_CAPITAL then 'on inscrit le N';
  5. end;


 
Mais le Key n'influence en rien la touche appuyée, la variable est juste chargée de me dire quelle touche a été pressée ...
 
Quelqu'un aurait-il une idée à me faire parvenir ?

Reply

Marsh Posté le 08-09-2003 à 17:54:40   

Reply

Marsh Posté le 16-03-2004 à 21:57:18    

J'ai utilisé ce code là dans le passé qui te permet de hooker le clavier mais aussi de bloquer ou non les touches si tu le souhaites via la fonction setPassthru :  
 

Code :
  1. library toto;
  2. uses
  3.   Windows;
  5. {$R *.RES}
  6. type THookData=record
  7.        Handle,Msg,
  8.        hHook,Instances:Cardinal;
  9.        PassThru:Boolean;
  10.      end;
  11.      PHookData=^THookData;
  12. const
  13.    MutexName='UniqueMutexName';
  14.    MemShareName='UniqueMemShareName';
  15. var
  16.    MyMutex,
  17.    MemShare:Cardinal;
  18.    MyData:PHookData;
  19. function KbdHook(hCode,wParam:LongInt;lParam:LongInt):Longint;stdcall;
  20. begin
  21.      try
  22.        WaitForSingleObject(MyMutex,INFINITE);
  23.        if (MyData^.Msg<>0) and (hCode=HC_ACTION) then PostMessage(MyData^.Handle,MyData^.Msg,wParam,lParam);
  24.        if (MyData^.hHook <> 0) then begin
  25.           if(MyData^.PassThru = False) then Result:=-1
  26.            else Result:=CallNextHookEx(MyData^.hHook,hCode,wParam,lParam)
  27.        end else Result:=0
  28.      finally ReleaseMutex(MyMutex);
  29.      end;
  30. end;
  31. function hookKbd(Hwnd,MsgID:Cardinal):LongInt;stdcall;
  32. begin
  33.      try
  34.      WaitForSingleObject(MyMutex,INFINITE);
  35.      if MyData^.hHook<>0 then begin
  36.         Result:=0;ReleaseMutex(MyMutex);Exit;
  37.      end;
  38.      Result:=SetWindowsHookEx(WH_KEYBOARD,@KbdHook,HInstance,0);
  39.      if Result<>0 then begin
  40.         MyData^.hHook:=Result;
  41.         MyData^.Msg:=MsgID;
  42.         MyData^.Handle:=Hwnd;
  43.         MyData^.PassThru:=True;
  44.      end;
  45.      finally ReleaseMutex(MyMutex);
  46.      end;
  47. end;
  48. function unHookKbd:Boolean;stdcall;
  49. begin
  50.      try
  51.       WaitForSingleObject(MyMutex,INFINITE);
  52.       Result:=True;
  53.       if MyData^.hHook=0 then begin
  54.          ReleaseMutex(MyMutex);Exit;
  55.       end;
  56.       Result:=UnhookWindowsHookEx(MyData^.hHook);
  57.       if Result=True then begin
  58.          MyData^.hHook:=0; MyData^.Msg:=0; MyData^.Handle:=0; MyData^.PassThru:=True;
  59.       end;
  60.      finally ReleaseMutex(MyMutex);
  61.      end;
  62. end;
  63. function isHooked:Boolean;stdcall;
  64. begin
  65.      WaitForSingleObject(MyMutex,INFINITE);
  66.      Result:=(MyData^.hHook<>0);
  67.      ReleaseMutex(MyMutex);
  68. end;
  69. function setPassthru(NewPassthru:Boolean):Boolean;stdcall;
  70. begin
  71.      WaitForSingleObject(MyMutex,INFINITE);
  72.      Result:=MyData^.Passthru;
  73.      MyData^.Passthru:=NewPassthru;
  74.      ReleaseMutex(MyMutex);
  75. end;
  76. function getPassthru:Boolean;stdcall;
  77. begin
  78.      WaitForSingleObject(MyMutex,INFINITE);
  79.      Result:=MyData^.Passthru;
  80.      ReleaseMutex(MyMutex);
  81. end;
  83. procedure EnterDLL;stdcall;
  84. var FirstInstance:Boolean;
  85. begin
  86.      MyMutex:=CreateMutex(nil,True,MutexName);
  87.      MemShare:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False,PChar(MemShareName));
  88.      FirstInstance:=(MemShare=0);
  89.      if MemShare=0 then MemShare:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(THookData),MemShareName);
  90.      if MemShare<>0 then begin
  91.         MyData:=MapViewOfFile(MemShare,FILE_MAP_ALL_ACCESS,0,0,0);
  92.         if Firstinstance then with MyData^ do begin
  93.            Handle:=0;Msg:=0;hHook:=0;Instances:=0; PassThru:=True;
  94.         end;
  95.         MyData^.Instances:=MyData^.Instances+1;
  96.      end;
  97.      ReleaseMutex(MyMutex);
  98. end;
  99. procedure ExitDLL;stdcall;
  100. begin
  101.     try
  102.       WaitForSingleObject(MyMutex,INFINITE);
  103.       MyData^.Instances:=MyData^.Instances-1;
  104.       if (MyData^.Instances=0) then begin
  105.          UnmapViewOfFile(MyData);
  106.          CloseHandle(MemShare);
  107.          CloseHandle(MyMutex);
  108.        end;
  109.      finally ReleaseMutex(MyMutex);
  110.      end;
  111. end;
  112. procedure LibraryProc(Reason: Integer);
  113. begin
  114. case Reason of
  115.    DLL_PROCESS_DETACH:ExitDll;
  116.    DLL_PROCESS_ATTACH:EnterDll;
  117. end;
  118. end;
  119. exports hookKbd,unHookKbd,isHooked,getPassthru,setPassthru;
  120. //--------------------------------------------------------//
  121. begin
  122. EnterDLL;
  123. DllProc:=@LibraryProc;
  124. end.


 
Bon courage... :D

Reply

Marsh Posté le 17-03-2004 à 13:41:04    

D'où tu l'as déterré celui-là ? [:ddr5s5]

Reply

Marsh Posté le 17-03-2004 à 20:15:47    

:whistle:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed