Discussion :

[cincap]

Bonsoir à toutes et à tous,

Est t'il possible de bloquer uniquement la touche "Delete" avec Regedit.

J'ai testé avec la combinaison "Ctrl+Alt+Delete" mais cela ne me convient pas.

Sinon peut être une autre façon de faire ?

Merci d'avance,

@+,

Cincap

[Droïde Système7]

Salut,

Je suppose que tu veux parler d'autre chose, que de l'évènement KeyPress.

Ce dernier accessible via VK_DELETE

@+

[cincap]

Bonjour à toutes et à tous,

@ Droïde Système7,

Je suppose que tu veux parler d'autre chose, que de l'évènement KeyPress.

Ce dernier accessible via VK_DELETE

En effet, depuis une clé Usb (sans installer le logiciel !), ma fille peut bloquer certaines commandes du clavier comme par exemple Ctrl+Alt+Delete, Alt+Tab ect..

Car le logiciel crée une entrée dans la base de registre.

Concernant la touche Delete, j'aimerai aussi la neutraliser ou du moins afficher quelque chôse lors de son appui.

Mais comme le logiciel est exécuté depuis la Clé Usb, je ne pense pas récupérer l'info de l'appui sur cette touche à moins que...

Sinon avec ceci, cela fonctionne si le logiciel est installé sur le Pc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ( Key=VK_DELETE) then
  begin
    showmessage('Ok') ;
Beep ;
  end ;
 
end;

@+,

Cincap

[Droïde Système7]

Alors peut-être une piste intéressante : t'orienter vers la solution Hooks sur le clavier ?

@+

[cincap]

@ Droïde Système7,

Alors peut-être une piste intéressante : t'orienter vers la solution Hooks sur le clavier ?

Donc, j'adapte la procédure du blocage de la touche Alt+F4 et apparemment, se sera la même chôse.

Edit : Au fait quelle est la différence entre la touche "Supprime" et la touche "Delete" ?

@+,

Cincap

[cincap]

Bon, je viens de faire l'essai depuis ma clé Usb, si je bloque bien les combinaisons de certaines touches, la touche delete n'est pas bloquée malgré l'arrêt de la session.

La fonction que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
function MonGestionnaireClavier( Code : Integer; WPar : WPARAM; LPar : LPARAM):LRESULT; stdcall ;
const
  LLKHF_ALTDOWN = 32 ;
var
  Infos        : PKBDLLHOOKSTRUCT ;
  AppuiSurCTRL : Boolean ;
  AppuiSurALT  : Boolean ;
begin
  Result := 1 ;
  Infos := PKBDLLHOOKSTRUCT(LPar) ;

  case Code of
    HC_ACTION :
    begin
      AppuiSurCTRL := GetAsyncKeyState( VK_CONTROL ) <> 0 ;
      AppuiSurALT  := ( Infos.flags and LLKHF_ALTDOWN = LLKHF_ALTDOWN ) ;

      case Infos.vkCode of

        VK_ESCAPE :  // Touche "Echap"
        begin
          if (     ( GVerrouillageCtrlEsc and AppuiSurCTRL )
               or  ( GVerrouillageAltEsc  and AppuiSurALT  )
             ) then
          begin
            Exit ;
          end ;
        end ;

        VK_TAB : // Touche "Tabulation"
        begin
          if (     ( GVerrouillageAltTab  and AppuiSurALT  )
             ) then
          begin
            Exit ;
          end ;
        end ;

        VK_F4 :  // Touche "F4"
        begin
          if ( AppuiSurALT ) then Exit ;
        end ;

         VK_Delete :  // Touche "Delete" Ne fonctionne pas
        begin
          if ( GVerrouillageDelete ) 
          then Exit ;
        end ;

        // ----- Clavier Microsoft ----- //
        VK_LWIN , // Touche gauche "Windows"
        VK_RWIN , // Touche droite "Windows"
        VK_APPS : // Touche "Applications"
        begin
          if (     ( GVerrouillageTouchesMicrosoft )
             ) then
          begin
            Exit ;
          end ;
        end ;
      end ;
    end ;
  end ;

  Result:= CallNextHookEx(GHookClavier, Code, WPar, LPar);
end ;

Le but étant depuis ma clé Usb, afficher le logiciel et d'un clic, bloquer certaines touches du clavier, enfin fermer le logiciel et reprendre ma clé.

Après fermeture de la session et réouverture, c'est ok

Pour débloquer ces touches, remettre ma clé et d'un click rendre les touches bloquées actives.

Après fermeture de la session et réouverture, c'est ok

Si quelqu'un avait une idée d'un autre Hook sur le clavier en procédant de cette manière, je suis preneur car apparemment pour ce hook, le logiciel doit rester sur le Pc.

@+,

Cincap

[cincap]

@ tous, en fait avec la fonction qui bloque aussi maintenant la touche "delete" il faut laisser l'appliquation ouverte et mieux minimisée dans la TrayIcon.

Je vais cloturer ce topic.

Si un jour quelqu'un à une autre idée pour le faire directement depuis la clé usb sans installer le logiciel, ce serait un +.

Merci,

@+,

Cincap