Equivalent de SendKeys en Delphi

**AL1986** · 30/07/2007, 12h11

Salut,
J'aimerai savoir s'il existe un équivalent de Sendkeys (méthode VB) en Delphi. Pour info, SendKeys simule les touches du clavier, en effet si j'écris un truc du genre SendKeys("{F1}"); en VB, ceci aura le même effet qu'un appui sur la touche F1 du clavier. Merci pour votre aide.

**ShaiLeTroll** · 30/07/2007, 12h14

Code :

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

SendMessage(CibleHandle, WM_KEYDOWN/WM_KEYUP, LaTouche, ...);

Je ne vois que cela, cela me fait penser qu'en windev, lorsque l'on demande la génération de wrapper pour delphi, windev remplace tout par des simulations de touche ...

voir WM_CHAR

**AL1986** · 30/07/2007, 12h33

Qu'est ce que le CibleHandle et comment savoir si on doit utiliser keyDown ou keyup?

**edam** · 30/07/2007, 13h16

Envoyé par AL1986

Salut,
J'aimerai savoir s'il existe un équivalent de Sendkeys (méthode VB) en Delphi. Pour info, SendKeys simule les touches du clavier, en effet si j'écris un truc du genre SendKeys("{F1}"); en VB, ceci aura le même effet qu'un appui sur la touche F1 du clavier. Merci pour votre aide.

Sendkeys est une API windows , tu peut l'utilisé en delphi normallement sans la déclaré comme en vb

voir faq et google

**ShaiLeTroll** · 30/07/2007, 13h51

Envoyé par edam

Sendkeys est une API windows , tu peut l'utilisé en delphi normallement sans la déclaré comme en vb

voir faq et google

c'est keybd_event l'api, et non Sendkeys et cela simule un WM_KEYDOWN/UP

Code :

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

1
2
3
4
procedure SendKey(Key : Integer);
begin
  Keybd_Event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

**Cpt Anderson** · 30/07/2007, 13h57

Justement, peut-on utiliser les API dans Turbo delphi 2006. Si oui, que dois declarer dans les uses ?

Merci

**Fabrice ROUXEL 1** · 30/07/2007, 14h08

bonjour

Il y a aussi la fonction SendInput

Code trouvé sur le net:

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
procedure SimulateKeyDown(MyKey: Cardinal);
var
  MyInput: tagINPUT;
 begin
  MyInput.Itype          := INPUT_KEYBOARD;
  MyInput.ki.wVk         := MyKey;
  MyInput.ki.wScan       := MapVirtualKey(MyKey, 0);
 
  if (MyKey = VK_UP)
  or (MyKey = VK_DOWN)
  or (MyKey = VK_LEFT)
  or (MyKey = VK_RIGHT)
  or (MyKey = VK_HOME)
  or (MyKey = VK_END)
  or (MyKey = VK_PRIOR)
  or (MyKey = VK_NEXT)
  or (MyKey = VK_INSERT)
  or (MyKey = VK_DELETE) then
    MyInput.ki.dwFlags   := KEYEVENTF_EXTENDEDKEY
  else
    MyInput.ki.dwFlags   := 0;
  MyInput.ki.time        := 0;
  MyInput.ki.dwExtraInfo := 0;
 
  SendInput(1, MyInput, SizeOf(MyInput));
 end;
 
procedure SimulateKeyUp(MyKey: Cardinal); //les 2 fonctions peuvent etre remplacée par une seule en ajoutant un parametre. 
var
  MyInput: tagINPUT;
 begin
  MyInput.Itype          := INPUT_KEYBOARD;
  MyInput.ki.wVk         := MyKey;
  MyInput.ki.wScan       := MapVirtualKey(MyKey, 0);
 
  if (MyKey = VK_UP)
  or (MyKey = VK_DOWN)
  or (MyKey = VK_LEFT)
  or (MyKey = VK_RIGHT)
  or (MyKey = VK_HOME)
  or (MyKey = VK_END)
  or (MyKey = VK_PRIOR)
  or (MyKey = VK_NEXT)
  or (MyKey = VK_INSERT)
  or (MyKey = VK_DELETE) then
    MyInput.ki.dwFlags   := KEYEVENTF_KEYUP or KEYEVENTF_EXTENDEDKEY
  else
    MyInput.ki.dwFlags     := KEYEVENTF_KEYUP;
 
  MyInput.ki.time        := 0;
  MyInput.ki.dwExtraInfo := 0;
 
  SendInput(1, MyInput, SizeOf(MyInput));
 end;

ps: Captain Anderson, ouvre ta propre discussion, ton post n'a rien à voir avec le sujet abordé.

**ShaiLeTroll** · 30/07/2007, 14h08

Dans Delphi 7, facile, c'est l'unité "windows", je dirais pareil pour Turbo delphi 2006 ...

**Cpt Anderson** · 30/07/2007, 14h16

Envoyé par Fabrice ROUXEL 1

ps: Captain Anderson, ouvre ta propre discussion, ton post n'a rien à voir avec le sujet abordé.

PS: je suis a qq mètres de AL1986, et meme si je n'interviens pas directement sur son projet, j'essaie de l'aider quand je le peux. Merci pour ton intervention vieux....

**Cpt Anderson** · 30/07/2007, 14h17

Envoyé par ShaiLeTroll

Dans Delphi 7, facile, c'est l'unité "windows", je dirais pareil pour Turbo delphi 2006 ...

Ce ne serait pas plutot ShellAPI ???

**Fabrice ROUXEL 1** · 30/07/2007, 14h23

Captain Anderson a écrit:

PS: je suis a qq mètres de AL1986, et meme si je n'interviens pas directement sur son projet, j'essaie de l'aider quand je le peux. Merci pour ton intervention vieux....

A quelques mètres... hmm ok. C'est vrai, c'est plus pratique de poster sur developpez que de se déplacer à son bureau.

**Cpt Anderson** · 30/07/2007, 14h25

Envoyé par Fabrice ROUXEL 1

Captain Anderson a écrit:

A quelques mètres... ok ok. C'est vrai, c'est plus pratique de poster sur developpez que de se déplacer à son bureau.

J'ai des bequilles...j'ai tenté de m'enfuir du boulot par la fenêtre, ca n'a pas marché

**Fabrice ROUXEL 1** · 30/07/2007, 14h26

**ShaiLeTroll** · 30/07/2007, 14h29

Envoyé par Cpt Anderson

Ce ne serait pas plutot ShellAPI ???

on ne doit pas avoir la même unité car SendInput et Keybd_Event sont dans Windows.pas, ...

**Cpt Anderson** · 30/07/2007, 14h50

Envoyé par ShaiLeTroll

on ne doit pas avoir la même unité car SendInput et Keybd_Event sont dans Windows.pas, ...

Exact, c'est moi qui délire....mille excuses

**AL1986** · 30/07/2007, 14h54

Le bout de code qui me fallait est :
keybd_Event(VK_F1,0,0,0);
Merci à tous

Equivalent de SendKeys en Delphi

Composants VCL Delphi

Discussions similaires

Partager

Partager