Discussion :

[akli_agha]

J'aimerai savoir comment changer, d'une façon permanente, les options régionales, telles que le point décimal, le symbole monétaire ou le format de la date, de Windows avec du code delphi.

Merci pour votre aide.

[tatareau]

A voir du côté de la base de registre du Windows concerné. Google + FAQ, l'écriture dans la BDR / delphi seront sur les excellentes FAQ du forum...
Bon Code

Je crois ton post devrait être dans la rubrique delphi et pas delphi bdd

[zemeilleurofgreg]

Voici une procedure qui initialise une variable globale "Reg" de type TRegistry (utilisée pour connaitre le symbole décimal).
Moi je ne fais que lire, mais si tu veux remplacer la clé, il suffit de remplacer "ReadString" par WriteString".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure InitsDecimal();
var
Reg:TRegistry;
begin
  Reg:=TRegistry.Create();
  Reg.OpenKeyReadOnly('Control Panel\International\');
  sDecimal:=Reg.ReadString('sDecimal');
  Reg.CloseKey;
  Reg.Free;
end;

pas vraiment Chinois !!!

[zemeilleurofgreg]

et pour le symbole monétaire, remplacer "sDecimal" par "sCurrency".
Quant à la date, c'est "sDate" !!

c'est tout !

[zemeilleurofgreg]

voici précisément le code pour l'écriture !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
  Reg:=TRegistry.Create();
  Reg.OpenKey('Control Panel\International\',true);
  Reg.WriteString('sDecimal',',');
  Reg.CloseKey;
  Reg.Free;
end;

[banban54]

@zemeilleurofgreg

ton dernier code nécessite il de relancer le programme pour prendre en compte les modifs?
merci

[zemeilleurofgreg]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
  Reg:=TRegistry.Create();
  Reg.OpenKey('Control Panel\International\',true);
  Reg.WriteString('sDecimal','.');
  Reg.CloseKey;
  Reg.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
  Reg:=TRegistry.Create();
  Reg.OpenKey('Control Panel\International\',true);
  Reg.WriteString('sCurrency','€');
  Reg.CloseKey;
  Reg.Free;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
Reg:TRegistry;
begin
  Reg:=TRegistry.Create();
  Reg.OpenKey('Control Panel\International\',true);
  Reg.WriteString('sShortDate','dd/mm/yyyy');
  Reg.CloseKey;
  Reg.Free;
end;

[akli_agha]

Merci les Amis !

A +

[zemeilleurofgreg]

non BanBan, ça modifie directement la registry donc il suffit simplement de récupérer la clé modifiée !!

@+