Discussion :

[trapiste]

J'aimerais simuler dans mon programme l'appui de touche sur le clavier.

J'ai pensé à utiliser "keybd_event" que j'ai déjà utiliser sous Delphi, je n'y suis pas arriver.


Est-il possible d'utiliser keybd_event avec TP7 ?
Si non, y a t'il une procédure ou fonction équivalente ?

[M.Dlb]

Non, on ne peut pas utiliser keybd_devent dans un programme Turbo pascal, car c'est une API Windows...
Pour simuler l'appui d'une touche, je ne vois rien d'autres que d'écrire directement dans le buffer du clavier, situé en mémoire. Fais une recherche sur le foum, un précédent message de HDD34 explique tout...

a+

[Alcatîz]

Bonjour !

Eventuellement, aussi, il est possible d'utiliser la fonction 05h de l'interruption 16h :

Déclaration de la procédure pascal :

Code :

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

1
2
3
4
{$F+}
{$L TSIMUL}
Procedure TSIMUL (ascii,scancode:word); external;
{$F-}

Module ASM (assembleur MASM) :

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
CODE      SEGMENT   WORD   PUBLIC
 
          ASSUME    CS:CODE
          PUBLIC    TSIMUL
 
COMMENT ! Chargement d'un code ASCII dans le buffer clavier comme si une
          touche du clavier avait été pressée.
          Utilisation du service 05h de l'interruption BIOS 16h.
          Transmission par la pile :
           - du code ASCII à mettre dans le buffer;
           - du scan-code de la touche correspondante. !
 
TSIMUL    PROC      FAR
          push      bp
          mov       bp,sp
          push      ax
          push      cx
          pushf
          mov       cx,8[bp]            ; CL = code ASCII
          mov       ax,6[bp]
          mov       ch,al               ; CH = scan-code
          mov       ah,05h
          int       16h                 
          popf
          pop       cx
          pop       ax
          pop       bp
          ret
TSIMUL    ENDP
 
CODE      ENDS
 
          END

[Eric Sigoillot]

Il est préférable de faire appel à l'int 16h fonction 05h en effet, car écrire en mémoire reste une oprération bien particulière, et qui n'est pas conseillée en mode protégé par exemple.

Cependant, cette fonction est limitée aux claviers étendus (tous les claviers depuis 10 ou 15 ans environ ).

Le code d'Alcatîz peut être simplifé sous TP7, surtout pour ceux qui sont allergiques à l'assembleur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  Dos;
 
function SimulKey(Scan, ASCII: Byte): Boolean;
var
  Regs: Resgiters;
begin
  Regs.ah := $05;
  Regs.ch := Scan;
  Regs.cl := ASCII;
  Intr($16, Regs);
  SimulKey := (Regs.al = 0);
end;

Et pour les non-allergiques :

Code :

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

1
2
3
4
5
6
7
8
9
 
function SimulKey(Scan, ASCII: Byte): Boolean; assembler;
asm
  mov  ah, 05h
  mov  ch, Scan
  mov  cl, ASCII
  int  16h
  not  al
end;

A noter que cette fonction requiert la connaissance du code ASCII et du scancode (appelé aussi code géographique).

A+

[xpaccro]

Merci . c'est utile pour moi aussi meme si je ne comprend que trés peu en assembleur ( syntaxe trés different d'un asm à un autre :o et les cours sur developpez.com sont vague ,ils n'utulise pas un asm particulier . je sait que vous ne voulez pas limiter le choix a l'utulisateur mais le cas d'asm et un peu particulier . et plus je cherche un cours en francais sur le cpu et pas seulement les registres ... désolé j'ai trop sortie du sujet )

Merci encore .