JOUER AVEC LES LUMIÈRES DU CLAVIER
jnspunk
Messages postés
16
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
10 février 2007
-
10 août 2004 à 04:18
florenth - 13 août 2004 à 12:53
florenth - 13 août 2004 à 12:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25198-jouer-avec-les-lumieres-du-clavier
https://codes-sources.commentcamarche.net/source/25198-jouer-avec-les-lumieres-du-clavier
13 août 2004 à 12:53
Sinon ce code n'a pas enormément d'utilité mais bon ...
pourune premiere source on ne va pas crier ( d'ailleurs moi aussi je n'en ai qu'une ).
C'est pas pire ( heureusement ) que le code de hoxid.
Bonne continuation sur Delphi .
Florent
10 août 2004 à 04:18
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event (144, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event (144, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
keybd_event (20, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event (20, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
keybd_event (145, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event (145, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
end;
end.