Equivalent de SendKeys en Delphi

Version imprimable

30/07/2007, 12h11
AL1986

Equivalent de SendKeys en Delphi

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.
30/07/2007, 12h14
ShaiLeTroll

Code:

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
30/07/2007, 12h33
AL1986

Qu'est ce que le CibleHandle et comment savoir si on doit utiliser keyDown ou keyup?
30/07/2007, 13h16
edam

Citation:

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 8-)
30/07/2007, 13h51
ShaiLeTroll
Citation:

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 8-)

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

1 2 3 4 procedure SendKey(Key : Integer); begin Keybd_Event(Key, 0, KEYEVENTF_KEYUP, 0); end;
30/07/2007, 13h57
Cpt Anderson

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

Merci

bonjour

Il y a aussi la fonction SendInput

Code trouvé sur le net:

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
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é.

30/07/2007, 14h08
ShaiLeTroll

Dans Delphi 7, facile, c'est l'unité "windows", je dirais pareil pour Turbo delphi 2006 ...
30/07/2007, 14h16
Cpt Anderson

Citation:

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....
30/07/2007, 14h17
Cpt Anderson

Citation:

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 ??? :mouarf:
30/07/2007, 14h23
Fabrice ROUXEL 1

Captain Anderson a écrit:

Citation:

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. :mouarf:
30/07/2007, 14h25
Cpt Anderson

Citation:

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. :mouarf:

J'ai des bequilles...j'ai tenté de m'enfuir du boulot par la fenêtre, ca n'a pas marché :yaisse2:
30/07/2007, 14h26
Fabrice ROUXEL 1

:mouarf:
30/07/2007, 14h29
ShaiLeTroll

Citation:

Envoyé par Cpt Anderson

Ce ne serait pas plutot ShellAPI ??? :mouarf:

8O on ne doit pas avoir la même unité car SendInput et Keybd_Event sont dans Windows.pas, ...
30/07/2007, 14h50
Cpt Anderson

Citation:

Envoyé par ShaiLeTroll

8O 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
30/07/2007, 14h54
AL1986

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