Le code est le suivant:
fonction tform1.getLocaleInformation (Flag: Integer): String;
var
PCLCA: Array [0..20] de Char;
Commencer
if (getlocaleinfo (locale_system_default, drapeau, pclca, 19) <= 0) alors commencez
pclca [0]: = # 0;
fin;
Résultats: = PCLCA;
fin;
Procédure tform1.button1Click (expéditeur: tobject);
Commencer
ShowMessage (getLocaleInformation (Locale_SengLanguage));
fin;
Le paramètre "drapeau" peut prendre les valeurs suivantes:
Locale_nouseroverride {n'utilisez pas les remplacements utilisateur}
Locale_use_cp_acp {Utilisez le système ACP}
Locale_ilanguage {code linguistique}
LOCALE_SLANGUAGE {Nom de la langue locale}
Locale_Senglanguage {nom anglais de la langue}
Locale_sabbrevlangname {nom de langue abréviation}
Locale_snativelangname {nom de la langue locale}
LOCALE_ICOUNTry {Country Code}
LOCALE_SCOUNTRY {Nom du pays}
Locale_Sengcountry {Nom anglais du pays}
LOCALE_SABREVCTRYNAME {Nom du pays Abréviation}
Locale_snativectryname {nom de pays}
Locale_idefaultLanguage {code de langue par défaut}
Locale_idefaultCountry {code de pays par défaut}
Locale_idefaultcodepage {page de code OEM par défaut}
Locale_idefaultansicodePage {page de code ANSI par défaut}
LOCALE_IDEFAULTMACDEPAGE {Page Mac par défaut}
Locale_slist {list item Splitter}
LOCALE_IMEAURE {Unité de mesure 0 = mètre, 1 = anglais}
LOCALE_SDECIMAL {Symbole de point décimal}
LOCALE_STH MILLE {mille diviseurs}
LOCALE_SGROUPING {groupement de chiffres}
LOCALE_IDIGITS {Nombre de chiffres fractionnaires}
Locale_ilzero {Zéros de tête pour décimal}
LOCALE_INEGNUMBER {mode négatif}
Locale_snativedigits {natif ASCII 0-9}
LOCALE_SCURRENCE {Symbole de monnaie local}
Locale_sintlSymbol {Symbole de monnaie international}
LOCALE_SMONDECIMALSEP {Splitter décimal de la monnaie}
Locale_smontholep
Locale_smongrouping {groupement monétaire}
Locale_icurrDigits {# chiffres monétaires locaux}
Locale_iintlcurrDigits {# INTL Digits monétaires}
Locale_icurrency {mode de devise positif}
Locale_inegcurr {mode de devise négatif}
LOCALE_SDATE {Splitter de date}
Locale_stime {Splitter du temps}
Locale_SshortDate {String de date courte}
Locale_slongDate {chaîne de rendez-vous à longue date}
Locale_stimeformat {chaîne de format de temps}
Locale_idate {Format de date à court terme Ordonnance}
Locale_ildate {Commande de format de date à long terme}
Locale_Itime {spécificateur de format de temps}
Locale_itimemarkPosn {position de marqueur temporel}
LOCALE_ICENTUR {Century Format spécificateur (date à découvert)}
Locale_itlzero {Zeros de tête dans le champ de temps}
Locale_idaylzero {Zeros de tête dans le champ de jour (date à découvert)}
LOCALE_IMMONLZERO {Zéros de tête dans le champ du mois (date à découvert)}
LOCALE_S1159 {Am Designer}
LOCALE_S2359 {PM Designer}
Locale_icalendartype {type de spécificateur de calendrier}
Locale_ioptionalCalendar {Types de calendrier supplémentaires spécificateur}
Locale_ifirstdayofweek {premier jour de spécificateur de la semaine}
LOCALE_IFIRSTWeekofyear {première semaine de spécificateur de l'année}
Locale_sdayName1 {nom long pour le lundi}
Locale_sdayname2 {nom long pour mardi}
Locale_sdayname3 {nom long pour mercredi}
Locale_sdayName4 {nom long pour jeudi}
Locale_sdayName5 {nom long pour vendredi}
Locale_sdayName6 {nom long pour samedi}
Locale_sdayName7 {nom long pour le dimanche}
Locale_sabbrevdayName1 {lundi abréviation}
Locale_sabbrevdayName2 {mardi abréviation}
Locale_sabbrevdayName3 {mercredi abréviation}
Locale_sabbrevdayName4 {jeudi abréviation}
Locale_sabbrevdayName5 {Abréviation du vendredi}
LOCALE_SABREVDAYNAME6 {Abréviation du samedi}
LOCALE_SABREVDAYNAME7 {Abréviation du dimanche}
Locale_smonthname1 {nom long pour janvier}
Locale_smonthname2 {nom long pour février}
Locale_smonthname3 {nom long pour mars}
Locale_smonthname4 {nom long pour avril}
Locale_smonthname5 {nom long pour mai}
Locale_smonthname6 {nom long pour juin}
Locale_smonthname7 {nom long pour juillet}
Locale_smonthname8 {nom long pour août}
Locale_smonthname9 {nom long pour septembre}
Locale_smonthname10 {nom long pour octobre}
Locale_smonthname11 {nom long pour novembre}
Locale_smonthname12 {nom long pour décembre}
LOCALE_SMONTHNAME13 {nom long pour le 13e mois (si existe)}
Locale_sabbrevmonthname1 {Abréviation de janvier}
LOCALE_SABREVMONTHNAME2 {ABRÉVIATION DE FÉBRUER}
Locale_sabbrevmonthname3 {mars abréviation}
Locale_sabbrevmonthname4 {abréviation d'avril}
Locale_sabbrevmonthname5 {peut abréviation}
Locale_sabbrevmonthname6 {juin abréviation}
Locale_sabbrevmonthname7 {abréviation de juillet}
Locale_sabbrevmonthname8 {abréviation d'août}
Locale_sabbrevmonthname9 {Abréviation de septembre}
LOCALE_SABREVMONTHNAME10 {Abréviation d'octobre}
Locale_sabbrevmonthname11 {abréviation de novembre}
Locale_sabbrevmonthname12 {décembre abréviation}
Locale_sabbrevmonthname13 {abréviation de treize (le cas échéant)}
Locale_SpitiveSIGN {signe positif}
Locale_snegatifsign {moins signe}
Locale_ipossignPosn {position positive}
Locale_inegsignPosn {moins position}
Locale_IposmpPrecedes {Mon Sym précède pos Amt}
Locale_ipossepbyspace {mon sym sep par espace de pos amt}
Locale_inegsymprecedes {mon sym précède nég amt}
Locale_inegsepbyspace {mon sym sep par espace de neg amt}
Locale_FonTSignature {Signature de police}
Locale_Siso639LangName {ISO Abréviation Langue Nom}
LOCALE_SISO3166CTRYNAME {ISO ABRÉVIATION Nom du pays}