Jouer avec les lumières du clavier

Soyez le premier à donner votre avis sur cette source.

Vue 5 543 fois - Téléchargée 550 fois

Description

Comme l'explique le titre avec ce petit programme vous avez la possiblité de simuler sur la touche numlock, majuscule et arret defil.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
je crois qu'il y a un espace reservé avec une coloration syntaxique pour mettre le code : c'est plus pratique à lire.
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
Messages postés
16
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
10 février 2007

Voila le code source, ca évitera de telecharger le fichier pour si peu de lignes....

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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.