Comment simuler la touche "=" avec keybd_event ?Résolu

Question

Salut &#224; tous !!!

Bon, ben je crois que la question est dans le sujet...
J'ai beau fouiller tout le web &#224; la recherche de tableaux de conversion "codes touches virtuelles" <--> "codes ascii", bizarrement, pour le code ascii 61, je trouve jamais la correspondance...

Alors, est-ce qu'elle existe cette conversion ??? Et sinon, comment je fais, moi, pour simuler ma touche "&#233;gal" ?

ni69 · Accepted Answer

Pour simuler la touche "=", fais ceci (son code touche virtuel est &#233;gal &#224; 187) :



// Simule l'appui de la touche "="

 Keybd_event(187,0,0,0);

// Simule le rel&#226;chement de la touche "="

 Keybd_event(187,0,KEYEVENTF_KEYUP,0);

@+
Bonne Prog'
Nico [www.ni69.new.fr]
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

PS (&#231;a peut toujours servir  ) : 

Pour trouver le code touche virtuel d'une touche du clavier, tu peux
utiliser un Memo et mettre le code suivant dans son &#233;v&#233;nement OnKeyDown
:



procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

ShowMessage(IntToStr(Key));

end;

@+
Bonne Prog'
Nico [www.ni69.new.fr]
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

MimiGMT · Answer

Si tu veux envoyer un message &#224; windows voil&#224; ce que j'ai


procedure EnvoieCaractere(objet : TWinControl; Caractere : integer; Nombre : integer);
var i: integer;
begin
  try
    objet.SetFocus;


    for i:=1 to nombre do
     begin
        PostMessage(objet.handle,WM_KEYDOWN,Caractere,$1);
        PostMessage(objet.handle,WM_KEYUP,Caractere,$1);
     end;
  except


  end;

A bient&#244;t

la_gavorade · Answer

Merci bien !!!

Et merci aussi pour le code du mémo, ça m'évitera de reposer la question pour le "ç" ou le "à" ou un autre truc du genre...

Tiens, si t'es en forme, je pose une autre question sur le forum, enfin je m'en vais la poser dans les minutes à venir... ;-)

Thomas.

Tavounet · Answer

Hey hey même 3 ans après, le post sert encore ^^

Merci ni69 pour ton code =)

skyangel21 · Answer

Sky Angel ! 
HEY HEY HEY , 6 ans apres et ca sert toujours, Merci Delphifr et a tous

Comment simuler la touche "=" avec keybd_event ?

6 réponses

Votre réponse

Discussions similaires