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
|
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER ;
OpenKey('Control Panel\International',true);
WriteString('iCountry','213');
WriteString('iCurrency','2');
WriteString('iDate','1');
WriteString('sCountry','Algérie');
WriteString('sCurrency',' ');
WriteString('sDecimal','.');
WriteString('sDate','/');
WriteString('sThousand',',');
WriteString('sLongDate','dd MMMM, yyyy');
WriteString('sShortDate','dd/MM/yyyy');
WriteString('sLanguage','ARG');
WriteString('sNativeDigits','0123456789');
WriteString('Locale','00001401');
CloseKey;
finally
Free;
end; |
Partager