Discussion :

[liazidf]

[delphi 7]
salut;
je voudrais savoir s'il existe une fonction permettant la simaulation de touches clavier, équivalent de sendkey en vb.
Merci

[guillemouze]

keybd_event(...) ou un truc dans le genre

[liazidf]

keybd_event(...) ou un truc dans le genre

Merci pour la réponse, mais je recherche le moyen d'envoyer des touches étendues ex: CTRL+MAJ+1

[Andnotor]

Merci pour la réponse, mais je recherche le moyen d'envoyer des touches étendues ex: CTRL+MAJ+1

Même chose. Tu devras appeler 6x keybd_event. Tu peux également utiliser SendInput.

[LadyWasky]

Salut !
J'avais écrit une unité regroupant les différentes fonctions permettant de simuler frappes au clavier et clics de souris.
Voir ici, chapitre II-A : http://delphi.developpez.com/defi/demineur/defieur/

1) Tu télécharges les sources du projets.
2) tu récupères l'unité "UnitSystem.pas" que tu ajoutes à ton projet.

Voici les fonctions de simulation de touches qui sont proposées :

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
procedure SimulateKeyDown(Key : byte);
begin
  keybd_event(Key, 0, 0, 0);
end;
 
procedure SimulateKeyUp(Key : byte);
begin
  keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;
 
procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
  keybd_event(Key, extra, 0, 0);
  keybd_event(Key, extra, KEYEVENTF_KEYUP, 0);
end;
 
procedure SendKeys(s : string);
var i : integer;
    flag : bool;
    w : word;
begin
  flag := not GetKeyState(VK_CAPITAL)=1;
  if flag then SimulateKeystroke(VK_CAPITAL, 0);
  for i :=1 to Length(s) do
  begin w := VkKeyScan(s[i]);
  if ((HiByte(w) <> $FF) and (LoByte(w) <> $FF))
  then begin
      if HiByte(w)=1
      then SimulateKeyDown(VK_SHIFT);
      SimulateKeystroke(LoByte(w), 0);
      if HiByte(w)=1
      then SimulateKeyUp(VK_SHIFT);
    end;
  end;
  if flag then SimulateKeystroke(VK_CAPITAL, 0);
end;

Pour Faire un Ctrl+Shift+E, par exemple :

Code :

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

1
2
3
4
5
SimulateKeyDown(VK_CTRL);
SimulateKeyDown(VK_SHIFT);
Senkeys('E');
SimulateKeyUp(VK_SHIFT);
SimulateKeyUp(VK_CTRL);

Attention, ça ne fonctionne que sur la fenètre d'application active

voilà !

[liazidf]

Salut,
Merci à tous pour vos réponses, Merci LadyWasky pour votre projet, ceci ma permis de résoudre mon problème.

[Naga2]

Salut à tous,

Merci à LadyWaskyLadyWasky pour ces procédures.

Elles m'ont été d'une très grande utilité.

Naga

[Paul TOTH]

9 ans plus tard, ça doit lui faire plaisir

ceci dit, je viens justement de publier un MacroPlayer

https://github.com/tothpaul/Delphi/t.../MacroRecorder

[Naga2]

9 ans plus tard, ça doit lui faire plaisir

ceci dit, je viens justement de publier un MacroPlayer

https://github.com/tothpaul/Delphi/t.../MacroRecorder

Mieux vaut tard que jamais

Il le verra peut être sait on jamais

Merci pour le Player, je vais mater ça.

Naga

[SergioMaster]

Il le verra peut être sait on jamais

Il est un Elle et je ne sais pas si elle appréciera qu'on la prenne pour un Il
C'est pourtant bien indiqué par le sigle de son profil

[Naga2]

Il est un Elle et je ne sais pas si elle appréciera qu'on la prenne pour un Il
C'est pourtant bien indiqué par le sigle de son profil

Oups, mea culpa.

Je présente toutes mes excuses les plus humbles à Miss LadyWasky
Pas taper.