Discussion :

[micky13]

Bonjour a tous,

Je souhaiterai savoir si il etait possible de creer une executable (.exe) qui permettrait de simuler l'appuie d'une touche clavier , un simple petit programme executable sans interface graphique uniquement un .exe

Merci de votre aide

[micky13]

personne n'a une piste ??

[evarisnea]

salut,

un simple petit programme executable sans interface graphique uniquement un .exe

tu as essayé avec une application console ?

Je souhaiterai savoir si il etait possible de creer une executable (.exe) qui permettrait de simuler l'appuie d'une touche clavier

il y a une fonction permettant d'envoyer des touches ou combinaison de touches vers une application, fais un tour du coté de la FAQ ?

[cchatelain]

petite piste : sendkey.pas
http://www.developpez.net/forums/vie...hlight=sendkey

[Sub0]

Salut!

Avec juste un fichier DPR. Il n'y a pas de fichiers ".pas" ni ".dfm" pour ce genre de programme.
• Copier/coller de ce code dans Notepad
• Enregistrer sous Projet1.dpr
• Ouvrir ce fichier dpr avec Delphi et compiler

Ce code simule l'appui (et le relachement) de la touche Entrée :

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
Program Projet1;
Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
Var key: Integer;
 
Begin
 
key := VK_RETURN;
 
PostMessage(0, WM_KEYDOWN, key, key); 
Application.ProcessMessages; 
Sleep(200); 
 
PostMessage(0, WM_KEYUP, key, key); 
Application.ProcessMessages; 
Sleep(200); 
 
End.

http://sub0.developpez.com/delphi/VK.txt

à+

[micky13]

Merci beaucoup à tous pour votre aide, avec cela je devrais m'en sortir

Encore merci ciaooooooooooo

[Pedro]

Merci beaucoup à tous pour votre aide, avec cela je devrais m'en sortir

Encore merci ciaooooooooooo

Si c'est bon, n'oublie pas le tag stp

[micky13]

merci de votre aide ça marche !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Program Projet1;
Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
var
foobarhndl: HWND;
begin
foobarhndl := FindWindow('{DA7CD0DE-1602-45e6-89A1-C2CA151E008E}', nil);
SetForegroundWindow(foobarhndl);
keybd_event(VK_RETURN,0,1,0); //touche enfoncé
 
keybd_event(VK_RETURN,0,2,0); //touche relevé
 
end.

Par contre j'aurais preferer que l'appli ''foobar'' reste en arriere plan et dans la barre des taches mais bon ça marche si quelqu'un à une astuce merci

ps : je ne sais pas comment faut faire pour mettre en resolu !!

[micky13]

c'est bon j'ai trouvé !! si vous savez comment laisser l'appli en arriere plan je suis preneur !!

[micky13]

Re salut à tous je dis des bêtise ça reste en arriere plan je me suis gouré en changeant le code mais en ne recompilant pas..voila merci ciao