Der Code ist wie folgt:
Funktion tform1.getlocalErformation (Flag: Ganzzahl): String;
var
PCLCA: Array [0..20] von Char;
Beginnen
if (getlocaleinfo (localale_system_default, flag, pclca, 19) <= 0) Dann beginnen Sie
PCLCA [0]: = #0;
Ende;
Ergebnisse: = PCLCA;
Ende;
procedure tform1.button1click (Absender: tobject);
Beginnen
ShowMessage (GetLocalErformation (localale_senglauGuage));
Ende;
Das Parameter "Flag" kann die folgenden Werte annehmen:
LOCEALE_NOUSEROVERRIDE {Verwenden Sie keine Benutzerüberschreibungen}
LOCEAL_USE_CP_ACP {Verwenden Sie das System ACP}
LOCEALE_ILAGUAGE {Sprachcode}
LOCEALE_SLUAGE {Lokalsprachname}
LOCEALE_SENGLUGUAGE {Englischer Name der Sprache}
LOCEALE_SABBREVAGNNAME {Sprachname Abkürzung}
LOCEAL_SNATIVELANGNAME {Lokalsprachname}
LOCEAL_ICOUNTRY {LANDSCHAFT CODE}
LOCEALLE_SCOUNTRY {LANDERNAME}
LOCEALE_SENGOUNTRY {Englischer Name des Landes}
LOCEALE_SABBREVCRYNAME {Ländername Abkürzung}
LOCEAL_SNATIVECRYNAME {LANDERNAME}
LOCEALE_IDEFAULTLAUGE {Standardsprachcode}
LOCEALE_IDEFAULTCOUNTRY {Standard Country Code}
LOCEALE_IDEFAULTCODEPAGE {Standard -OEM -Code -Seite}
LOCEALE_IDEFAULTANSICODEPAGE {Standard ANSI -Code -Seite}
LOCEALE_IDEFAULTMACCODEPAGE {Standard -Mac -Seite}}
LOCEALE_SLIST {LISTE ITEMSPLETRITTER}}
LOCEALE_IMEASURE {Messeinheit 0 = Meter, 1 = Englisch}
LOCEAL_SDECIMAL {Dezimalpunkt Symbol}
LOCEALLE_SENTUPS {TOUSCHEN DISSTIEREN}
Localale_sgrouping {digit grupping}
LOCEALLE_IDIGITS {Anzahl der Bruchstellen}
LOCEAL_ILZERO {führende Nullen für Dezimalzahl}
Localale_inegnumber {negativer Modus}
LOCEAL_SNATIVEDIGITS {Native ASCII 0-9}
LOCEAL_SCURRENCE {Lokales Währungssymbol}
LOCEAL_SINTLSYMBOL {Internationales Währungssymbol}
LOCEALE_SONTECIMALSEP {Währungsdezimalsplitter}
LOCEALLE_SMONTUPHTUPTEP {CURRENCY TOUSCH TISCHER}
LoCeale_smongruping {Geldgruppierung}
LOCEALE_ICURDIGITS { # Lokale Geldanteile}
LOCEALE_IINTLCURDIGITS { # Intl Monetary Digits}
LOCEALE_ICURRENCE {positiver Währungsmodus}
Localale_inegcurr {negativer Währungsmodus}
LOCEAL_SDATE {DATE SPLITTER}
LOCEALE_STIME {TIME SPLITTER}
LOCEALE_SSHORTDATE {Kurzdatum String}
LOCEALE_SLONGDATE {LONG DATE DATUM STRING}
LOCEALE_STIMEFORMAT {Zeitformat String}
LOCEALE_IDE {Kurzdatum -Format Ordering}
Locale_ildate {Langdatumformat}}
LOCEALE_ITIME {Zeitformatspezifizierer}
LOCEALE_ITIMEMARKPOSN {Zeitmarker Position}
LOCEAL_ICENTURY {CENTURY -Formatspezifizierer (kurzes Datum)}}}
LOCEALE_ITLZERO {Leading Zeros in Time -Feld}
LOCEAL_IDYLZERO {führende Nullen in Day Field (kurzes Datum)}}}
LOCEALE_IMONLZERO {führende Nullen im Monat Feld (kurzes Datum)}}
LOCEAL_S1159 {Am Designer}
LOCEAL_S2359 {PM -Designer}
Locale_icalendArtype {Art des Kalenderspezifizierers}
LOCEAL_IOPTIONALCALENDAR {Zusätzliche Kalendertypen Spezifizierer}
LOCEALE_IFIRSTAGEOFWEEP {Erster Wochentag Spezifizierer}
LOCEALE_IFIRSTWEEPYEAR {erste Jahreswoche Spezifizierer}
LOCEALE_SDAYNAME1 {langer Name für Montag}
LOCEALE_SDAYNAME2 {langer Name für Dienstag}
LOCEAL_SDAYNAME3 {Langer Name für Mittwoch}
LOCEAL_SDAYNAME4 {Langer Name für Donnerstag}
LOCEALE_SDAYNAME5 {langer Name für Freitag}
LOCEAL_SDAYNAME6 {LANGER NAME FÜR SAMSTAG}
LOCEAL_SDAYNAME7 {LANGER NAME FÜR SONNTAG}
LOCEALE_SABBREVDAYNAME1 {Montagabkürzung}
LOCEALE_SABBREVDAYNAME2 {Dienstag Abkürzung}
LOCEAL_SABBREVDAYNAME3 {Mittwoch Abkürzung}
LOCEAL_SABBREVDAYNAME4 {Donnerstag Abkürzung}
LOCEAL_SABBREVDAYNAME5 {Freitag Abkürzung}
LOCEALE_SABBREVDAYNAME6 {Samstagabkürzung}
LOCEALE_SABBREVDAYNAME7 {Abkürzung am Sonntag}
LOCEAL_SMONTHNAME1 {LANGER NAME FÜR JANUAR}
LOCEAL_SMONTHNAME2 {Langer Name für Februar}
LOCEALE_SMONTHNAME3 {langer Name für März}
LOCEALE_SMONTHNAME4 {langer Name für April}
LOCEAL_SMONTHNAME5 {LANGER NAME FÜR MAI}
LOCEALE_SMONTHNAME6 {langer Name für Juni}
LOCEAL_SMONTHNAME7 {LANGER NAME FÜR Juli}
LOCEAL_SMONTHNAME8 {LANGER NAME FÜR AUGUST}
LOCEAL_SMONTHNAME9 {LANGER NAME FÜR SEPTEMBER}
LOCEAL_SMONTHNAME10 {LANGER NAME FÜR OKTOBER}
LOCEALE_SMONTHNAME11 {langer Name für November}
LOCEAL_SMONTHNAME12 {langer Name für Dezember}
LOCEAL_SMONTHNAME13 {Langer Name für den 13. Monat (falls vorhanden)}}
LOCEALE_SABBREVMONTHNAME1 {Januar Abkürzung}
LOCEALE_SABBREVMONTHNAME2 {Februar Abkürzung}
LOCEALE_SABBREVMONTHNAME3 {März Abkürzung}
LOCEALE_SABBREVMONTHNAME4 {Abkürzung von April}
LOCEALE_SABBREVMONTHNAME5 {Mai Abkürzung}
LOCEALE_SABBREVMONTHNAME6 {June Abkürzung}
LOCEALE_SABBREVMONTHNAME7 {Abkürzung von Juli}
LOCEALE_SABBREVMONTHNAME8 {Abkürzung von August}
LOCEALE_SABBREVMONTHNAME9 {September Abkürzung}
LOCEALE_SABBREVMONTHNAME10 {Oktober Abkürzung}
LOCEALE_SABBREVMONTHNAME11 {Abkürzung von November}
LOCEALE_SABBREVMONTHNAME12 {Dezember Abkürzung}
LOCEALE_SABBREVMONTHNAME13 {Abkürzung von dreizehn (falls vorhanden)}}
LOCEALE_SPOSIVESSINE {Positives Zeichen}
LOCEALLE_SNEGATESTIGN {MINUS Sign}
LOCEALE_IPOSSIGNPOSN {Positive Position}
LOCEALE_INEGSIGNPOSN {MINUS POSITION}
LOCEALE_IPOSSYMPRECEDES {Mon sym geht POS AMT} voraus
LOCEALE_IPOSSEPBYSPACE {Mon symsep by Raum von pos AMT}
LOCEALLE_INEGSYMPRECEDES {Mon Sym negiert negmamt}
Localale_inegsepbySpace {mon symsep by Raum von neg Amt}
LOCEALE_FONTSIGNATION {Schriftart Signatur}
LOCEALE_SISO639AGNNAME {ISO Abkürzung Sprachname}
LOCEAL_SISO3166CtrYNAME {ISO Abkürzung Landname}