Simulation de touche du clavier

Version imprimable

10/06/2004, 13h57
trapiste

Simulation de touche du clavier

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 ?
10/06/2004, 14h39
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+

Bonjour !

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

Déclaration de la procédure pascal :

Code:

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

Module ASM (assembleur MASM) :

Code:

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

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 :D ).

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

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:

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+

04/09/2004, 16h35
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 . :)