- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Label1: TLabel;
- procedure FormActivate(Sender: TObject);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.FormActivate(Sender: TObject);
- begin
- keybd_event(VK_CAPITAL,0,1,0); //j'appuie sur la touche CapsLock
- application.ProcessMessages; //je fais une pause pour bien comprendre que
- //c'est un doigt qui travaille
- keybd_event(VK_CAPITAL,0,2,0); //je lâche la touche CapsLock
- application.ProcessMessages; //je refais une pause...
- keybd_event(VK_SHIFT,0,1,0); //j'appuie sur la touche Caps
- application.ProcessMessages; //je fais une pause pour bien comprendre que
- //c'est un doigt qui travaille
- keybd_event(VK_SHIFT,0,2,0); //je lâche la touche CapsLock
- application.ProcessMessages; //je refais une pause...
- sleep(1000); //je me repose 1 seconde car j'ai bien
- //travaillé.
- //(en fait juste pour apercevoir l'interface)
- close; //je ferme le programme
- end;
-
- end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormActivate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
keybd_event(VK_CAPITAL,0,1,0); //j'appuie sur la touche CapsLock
application.ProcessMessages; //je fais une pause pour bien comprendre que
//c'est un doigt qui travaille
keybd_event(VK_CAPITAL,0,2,0); //je lâche la touche CapsLock
application.ProcessMessages; //je refais une pause...
keybd_event(VK_SHIFT,0,1,0); //j'appuie sur la touche Caps
application.ProcessMessages; //je fais une pause pour bien comprendre que
//c'est un doigt qui travaille
keybd_event(VK_SHIFT,0,2,0); //je lâche la touche CapsLock
application.ProcessMessages; //je refais une pause...
sleep(1000); //je me repose 1 seconde car j'ai bien
//travaillé.
//(en fait juste pour apercevoir l'interface)
close; //je ferme le programme
end;
end.