[Delphi] Capturer le clavier et la souris en tâche de fond

Recherche :

Dernière réponse
Sujet : [Delphi] Capturer le clavier et la souris en tâche de fond
darxmurf	Arf tu dois faire 2 boucles... a+++ Darx

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

darxmurf

Arf tu dois faire 2 boucles...

a+++

Darx

juju_le_barbare

Darxmurf a écrit a écrit :

Ouaip mais en fait j'ai just besoin de ['A'..'Z'] et ['0'..'9'] donc c'est bon :)

Merci encore !

a++

Darx

Salut,

Le code des chiffes de 0 à 9 est 48 à 57, celui des lettres de 65 à 90. Donc la boucle for tu peux la mettre de For i := 48 to 90 do etc...

Question con : Comment dire :

Pour i de 48 à 57 et de 65 à 90 ? J'en ait jamais eu besoin, et j'ai pas delphi sous les yeux donc pas de fichier d'aide. Merci

@+
:hello:

darxmurf

Ouaip mais en fait j'ai just besoin de ['A'..'Z'] et ['0'..'9'] donc c'est bon :)

Merci encore !

a++

Darx

juju_le_barbare

Darxmurf a écrit a écrit :

Arf merci à toi !

Je me sent un peu tout petit là... :)

lol
au fait t'as remarqué j'ai fait une erreur dans le code long, j'ai mis [back] aux 2 premières conditionnelles, j'aurais du mettre [suppr] et [back]...

@+

darxmurf

Arf merci à toi !

Je me sent un peu tout petit là... :)

juju_le_barbare

sans l'opérateur and ça marche aussi mais c'est une protection contre les erreurs.
Au fait tu peux rétrécire le code ainsi :

Code :

procedure TForm1.Timer1Timer(Sender: TObject);
var
a: integer;
arret:boolean;
begin
timer1.enabled := false;
arret := false;
while Arret = False do
begin
for a := 0 to 255 do
begin
if (GetAsyncKeyState(a) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + chr(a);
end;
end;
application.ProcessMessages;
end;
close;
end;

darxmurf

Merci a toi !

c'est du service rapide :)

Juste une question, pourquoi tu met un "and 32768" à chaque test ?

a++

Darx

juju_le_barbare

tu créé un timer avec interval 100 ms, puis une zone de texte edit1.

ensuite dans le timer tu mets :

Code :

procedure TForm1.Timer1Timer(Sender: TObject);
var
a: integer;
arret:boolean;
begin
timer1.enabled := false;
arret := false;
while Arret = False do
begin
if (GetAsyncKeyState(27) and 32768) <> 0 then
begin
arret := true;
sleep (110);
edit1.text := edit1.text + '[Back]';
end
else
if (GetAsyncKeyState(8) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Back]';
end
else
if (GetAsyncKeyState(46) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Suppr]';
end
else
if (GetAsyncKeyState(112) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F1]';
end
else
if (GetAsyncKeyState(113) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F2]';
end
else
if (GetAsyncKeyState(114) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F3]';
end
else
if (GetAsyncKeyState(115) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F4]';
end
else
if (GetAsyncKeyState(116) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F5]';
end
else
if (GetAsyncKeyState(117) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F6]';
end
else
if (GetAsyncKeyState(118) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F7]';
end
else
if (GetAsyncKeyState(119) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F8]';
end
else
if (GetAsyncKeyState(120) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F9]';
end
else
if (GetAsyncKeyState(121) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F10]';
end
else
if (GetAsyncKeyState(122) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F11]';
end
else
if (GetAsyncKeyState(123) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Suppr]';
end
else
if (GetAsyncKeyState(124) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[F12]';
end
else
if (GetAsyncKeyState(145) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Arr déf]';
end
else
if (GetAsyncKeyState(19) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Pause]';
end
else
if (GetAsyncKeyState(36) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Début]';
end
else
if (GetAsyncKeyState(33) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Pge Up]';
end
else
if (GetAsyncKeyState(34) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Pge Dwn]';
end
else
if (GetAsyncKeyState(35) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Fin]';
end
else
if (GetAsyncKeyState(38) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Flèche Haut]';
end
else
if (GetAsyncKeyState(40) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Flèche Bas]';
end
else
if (GetAsyncKeyState(37) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Flèche Gauche]';
end
else
if (GetAsyncKeyState(39) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Flèche Droite]';
end
else
if (GetAsyncKeyState(13) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Entrée]';
end
else
if (GetAsyncKeyState(160) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[L. Maj]';
end
else
if (GetAsyncKeyState(161) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[R. Maj]';
end
else
if (GetAsyncKeyState(20) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Maj Lock]';
end
else
if (GetAsyncKeyState(9) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Tab]';
end
else
if (GetAsyncKeyState(17) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[L. Ctrl]';
end
else
if (GetAsyncKeyState(91) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[L. Win]';
end
else
if (GetAsyncKeyState(92) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[R. Win]';
end
else
if (GetAsyncKeyState(64) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[L. Alt]';
end
else
if (GetAsyncKeyState(45) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Inser]';
end
else
if (GetAsyncKeyState(162) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Alt Gr]';
end
else
if (GetAsyncKeyState(222) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[²]';
end
else
if (GetAsyncKeyState(1) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Clic Gauche]';
end
else
if (GetAsyncKeyState(2) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Clic Droit]';
end
else
if (GetAsyncKeyState(44) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + '[Impr écran]';
end
else
for a := 0 to 255 do
begin
if (GetAsyncKeyState(a) and 32768) <> 0 then
begin
sleep (110);
edit1.text := edit1.text + chr(a);
end;
end;
application.ProcessMessages;
end;
close;
end;

voilà dès que tu tapes qqchose au clavier tu le vois dans edit1 :hello:
Il est pas parfait, mais si tu le veux en mieux la seule soluce que j'ai trouvait prenait des dizaines de Ko et une DLL à part.

[edtdd]--Message édité par juju_le_barbare--[/edtdd]

darxmurf

Bonjour,

C'est toujours moi avec mon programme de limitation de Windows !
En fait mon programme doit s'afficher lorsque je tappe un code dans le vide dans windows ou que je fais un mouvement de souris mais comment faire pour que le clavier soit capturé de mannière transparente lorsque mon programme tourne en tâche de fond ?

a++

Darx