OBLIGER VISTA À CONFIGURER LE CLAVIER EN MINUSCULES

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.

Télécharger le zip