El código es el siguiente:
función tForm1.getLocaleInformation (Flag: Integer): String;
varilla
PCLCA: Array [0..20] de char;
Comenzar
if (getLocaleInfo (locale_system_default, flag, pClca, 19) <= 0) Entonces comience
PCLCA [0]: = #0;
fin;
Resultados: = PCLCA;
fin;
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
ShowMessage (getLocaleInformation (locale_senglanguage));
fin;
El parámetro "indicador" puede tomar los siguientes valores:
Lugare_nouseroverride {no use anulaciones de usuario}
Lugare_use_cp_acp {use el sistema ACP}
Locale_ilanguage {código de idioma}
Lugare_slanguage {nombre del idioma local}
Lugare_senglanguage {nombre en inglés del idioma}
Lugare_sabbrevlangname {Abreviatura del nombre del lenguaje}
Lugare_snativelangname {nombre del idioma local}
Locale_icountry {código de país}
Lugare_scountry {nombre de país}
Lugare_sengcountry {el nombre inglés del país}
Lugare_sabbrevctryname {abreviatura de nombre de país}
Lugare_snativectryname {nombre de país}
Locale_idefaultLanguage {código de idioma predeterminado}
Locale_idefaultCountry {código de país predeterminado}
Locale_idefaultCodepage {página de código OEM predeterminado}
Locale_idefaultansicodepage {página de código ANSI predeterminado}
Locale_idefaultMacCodepage {Página Mac predeterminada}
Lugare_slist {Lista de elemento divisor}
Locale_imasure {unidad de medición 0 = medidor, 1 = inglés}
Locale_sdecimal {símbolo de punto decimal}
Locale_sthilm {mil divisor}
Lugare_sgrouping {agrupación de dígitos}
Lugare_idigits {número de dígitos fraccionales}
Locale_ilzero {ceros de liderazgo para decimal}
Lugare_inegnumber {modo negativo}
Locale_snativeDigits {ASCII nativo 0-9}
Lugare_scurrency {símbolo de moneda local}
Locale_sintlsymbol {símbolo de moneda internacional}
Lugare_smondecimalsep {divisor decimal} de moneda}
Locale_smonhilmsep {moneda mil divisor}
Locale_smogrouping {agrupación monetaria}
Locale_icurrdigits { # dígitos monetarios locales}
Lugare_iintlcurrdigits { # intl dígitos monetarios}
Lugare_icurrency {modo moneda positivo}
Lugare_inegcurr {modo de moneda negativa}
Lugare_sdate {divisor de fecha}
Locale_stime {divisor de tiempo}
Lugare_sshortdate {cadena de fecha corta}
Lugare_slongdate {cadena de fecha larga}
Lugare_stimeformat {cadena de formato de tiempo}
Locale_idate {ordenación de formato de fecha corta}
Locale_ildate {ordenación de formato de fecha larga}
Locale_itime {Time Format Specifier}
Locale_itimemarkposn {posición del marcador de tiempo}
Locale_icentury {Century Format Specifier (fecha corta)}
Lugare_itlzero {ceros de liderazgo en el campo de tiempo}
Locale_idaylzero {ceros de liderazgo en el campo del día (fecha corta)}
Locale_imonlzero {ceros de liderazgo en el campo mes (fecha corta)}
Locale_s1159 {AM Designer}
Locale_s2359 {PM Designer}
Locale_icalendertype {tipo de calendario especificador}
Locale_ioptionalCalendar {tipos de calendario adicional especificador}
Locale_ifirstdayofweek {Primer día de semana especificador}
Locale_ifirstweekofyear {Primera semana de año especificador}
Lugare_sdayname1 {nombre largo para el lunes}
Lugare_sdayname2 {nombre largo para el martes}
Lugare_sdayname3 {nombre largo para el miércoles}
Lugare_sdayname4 {nombre largo para el jueves}
Lugare_sdayname5 {nombre largo para el viernes}
Lugare_sdayname6 {nombre largo para el sábado}
Lugare_sdayname7 {nombre largo para el domingo}
Lugare_sabbrevdayname1 {abreviatura del lunes}
Lugare_sabbrevdayname2 {abreviatura del martes}
Lugare_sabbrevdayname3 {Abreviatura del miércoles}
Lugare_sabbrevdayname4 {abreviatura del jueves}
Lugare_sabbrevdayname5 {abreviatura del viernes}
Lugare_sabbrevdayname6 {abreviatura del sábado}
Lugare_sabbrevdayname7 {abreviatura del domingo}
Lugare_smonthname1 {nombre largo para enero}
Lugare_smonthname2 {nombre largo para febrero}
Lugare_smonthname3 {nombre largo para marzo}
Lugare_smonthname4 {nombre largo para abril}
Lugare_smonthname5 {nombre largo para mayer
Lugare_smonthname6 {nombre largo para junio}
Lugare_smonthname7 {nombre largo para julio}
Lugare_smonthname8 {nombre largo para agosto}
Lugare_smonthname9 {nombre largo para septiembre}
Lugare_smonthname10 {nombre largo para octubre}
Lugare_smonthname11 {nombre largo para noviembre}
Lugare_smonthname12 {nombre largo para diciembre}
Lugare_smonthname13 {nombre largo para el mes 13 (si existe)}
Lugare_sabbrevmonthname1 {abreviatura de enero}
Lugare_sabbrevmonthname2 {abreviatura de febrero}
Lugare_sabbrevmonthname3 {Abreviation de marzo}
Lugare_sabbrevmonthname4 {Abreviation of April}
Lugare_sabbrevmonthname5 {mayo abreviation}
Lugare_sabbrevmonthname6 {abreviatura de junio}
Lugare_sabbrevmonthname7 {Abreviation of julio}
Lugare_sabbrevmonthname8 {Abreviation of August}
Lugare_sabbrevmonthname9 {abreviatura de septiembre}
Lugare_sabbrevmonthname10 {abreviatura de octubre}
Lugare_sabbrevmonthname11 {Abreviation of noviembre}
Lugare_sabbrevmonthname12 {abreviatura de diciembre}
Lugare_sabbrevmonthname13 {abreviatura de trece (si los hay)}
Lugare_spositivesign {signo positivo}
Locale_snegativenign {menos signo}
Lugare_ipossignposn {posición positiva}
Lugare_inegsignposn {menos posición}
Lugare_ipossymprecedes {mon sym precede pos amt}
Locale_ipossepbyspace {mon sym sep por espacio de pos amt}
Locale_inegsymprecedes {mon sym precede neg amt}
Lugare_inegsepbyspace {mon sym sep por espacio de neg amt}
Lugare_fontsignature {Font Signature}
Locale_siso639langname {nombre del lenguaje de abreviatura iso}
Locale_siso3166CtryName {ISO Abreviation Country Nombre}