Obter informações do sistema local

O código é o seguinte:

função tform1.getLocaleInformation (sinalizador: inteiro): string;

var

PCLCA: Array [0..20] de Char;

Começar

if (getLocaleInfo (Locale_system_default, Flag, PCLCA, 19) <= 0) então comece

PCLCA [0]: = #0;

fim;

Resultados: = PCLCA;

fim;

procedimento TForm1.Button1Click (remetente: TOBJECT);

Começar

ShowMessage (getLocaleInformation (Locale_senglanguage));

fim;

O parâmetro "sinalizador" pode assumir os seguintes valores:

Locale_NouserOverride {não use substituições de usuário}

Locale_use_cp_acp {use o sistema ACP}

Locale_ilanguage {Código da linguagem}

Locale_sLanguage {Nome do idioma local}

Locale_senglanguage {Nome em inglês do idioma}

Locale_sabbrevlangName {Nome da linguagem abreviiação}

Locale_snativenGname {Nome do idioma local}

Locale_icountry {Código do país}

Locale_scountry {Nome do país}

Locale_sengCountry {Nome em inglês do país}

Locale_sabBrevctryName {nomes do país abreviatura}

Locale_SnativeCtryName {Nome do país}

Locale_idefaultLanguage {Código de linguagem padrão}

Locale_idefaultCountry {Código do país padrão}

Locale_idefaultCodePage {Página de código OEM padrão}

Locale_idefaultAnsicodePage {Página de código ANSI padrão}

Locale_idefaultMacCoDePage {Página Mac padrão}

Locale_slist {List Item Splitter}

Locale_IMEUSED {Unidade de medição 0 = Medidor, 1 = English}

Locale_sdecimal {símbolo de ponto decimal}

Loce_sthil {mil divisor}

Locale_sGrouping {Digit Grouping}

Locale_idigits {Número de dígitos fracionários}

Locale_ilZero {liderança zeros para decimal}

Locale_inegnumber {Modo negativo}

Locale_snativedigits {nativo ascii 0-9}

Locale_scurrency {símbolo da moeda local}

Locale_sintlsymbol {símbolo da moeda internacional}

Locale_smondecimalsep {divisor decimal da moeda}

Locale_smonthilsep {Moeda Mil Divider}

Locale_smongrouping {agrupamento monetário}

Locale_icurrDigits { # dígitos monetários locais}

Locale_iintlCurrDigits { # Intl Monenetary Digits}

Locale_icurrency {Modo de moeda positiva}

Locale_inegcurr {Modo de moeda negativa}

Locale_sdate {Data Splitter}

Locale_stime {Time Splitter}

Locale_ssShortdate {string de data curta}

Loce_slongdate {string de data longa}

Locale_STimeFormat {Time Format String}

Locale_idate {Formato de data curta Ordesing}

Locale_ildate {Formato de data de longa ordem de ordem}

Locale_itime {Specificador de formato de tempo}

Locale_itimemarkposn {Posição do marcador de tempo}

Locale_icentury {Specificador de formato do século (data curta)}

Locale_itlZero {liderando zeros no campo do tempo}

Locale_idaylZero {liderando zeros em campo diurno (data curta)}

Locale_imonlZero {liderando zeros em campo mês (data curta)}

Locale_S1159 {AM Designer}

Locale_S2359 {PM Designer}

Locale_icalEndartype {tipo de especificador de calendário}

Locale_ioptionCalendar {Especificador de calendários adicionais} especificador}

Locale_ifirstdayofWeek {Primeiro dia da semana especificador}

Locale_ifirstweekofyear {Primeira semana do especificador de ano}

Locale_SdayName1 {Nome longo para segunda -feira}

Locale_SdayName2 {Nome longo para terça -feira}

Locale_SdayName3 {Nome longo para quarta -feira}

Locale_SdayName4 {Nome longo para quinta -feira}

Loce_sdayname5 {nome longo para sexta -feira}

Locale_SdayName6 {Nome longo para sábado}

Locale_SdayName7 {Nome longo para domingo}

Locale_sabbrevdayName1 {Segunda abreviação}

Locale_sabBrevdayName2 {Abreviação de terça -feira}

Locale_sabbrevdayname3 {Abreviação de quarta -feira}

Locale_sabbrevdayname4 {quinta -feira abreviação}

Locale_sabbrevdayname5 {sexta -feira abreviação}

Locale_sabbrevdayName6 {Sábado abreviação}

Locale_sabbrevdayname7 {abreviação de domingo}

Locale_Smonthname1 {Nome longo para janeiro}

Locale_sMonthname2 {Nome longo para fevereiro}

Locale_smonthname3 {nome longo para março}

Locale_sMonthname4 {Nome longo para abril}

Locale_sMonthname5 {Nome longo para maio}

Locale_sMonthname6 {Nome longo para junho}

Locale_sMonthname7 {Nome longo para julho}

Locale_sMonthname8 {Nome longo para agosto}

Locale_sMonthname9 {Nome longo para setembro}

Locale_Smonthname10 {Nome longo para outubro}

Locale_Smonthname11 {Nome longo para novembro}

Locale_Smonthname12 {Nome longo para dezembro}

Locale_Smonthname13 {Nome longo para o 13º mês (se existe)}

Locale_sabbrevMonthname1 {abreviação de janeiro}

Locale_sabbrevMonthname2 {abreviação de fevereiro}

Locale_sabbrevmonthname3 {abreviação de março}

Locale_sabbrevmonthname4 {abreviatura de abril}

Locale_sabbrevMonthname5 {maio abreviação}

Locale_sabbrevMonthname6 {abreviação de junho}

Locale_sabbrevMonthname7 {Abreviação de julho}

Locale_sabbrevmonthname8 {abreviatura de agosto}

Locale_sabbrevMonthname9 {abreviação de setembro}

Locale_sabbrevMonthname10 {abreviação de outubro}

Locale_sabbrevMonthname11 {Abreviação de novembro}

Locale_sabbrevMonthname12 {abreviação de dezembro}

Locale_sabbrevMonthname13 {abreviatura de treze (se houver)}

Locale_spositivesign {signo positivo}

Locale_SnegativeSign {Minus Sign}

Locale_IPossignposn {positiva positiva}

Locale_inegsignposn {Minus Position}

Locale_ipossymprecedes {Mon Sym Syms Precedes pos amt}

Locale_ipossepbyspace {Mon Sym Sep by Space from Pos Amt}

Locale_inegsymprecedes {Mon Sym Syms Precedes Neg amt}

Locale_inegsepbyspace {mon sym sep by space from neg amt}

Locale_fontSignature {Font Signature}

Locale_SISO639LangName {Nome da linguagem da abreviação ISO}

Locale_siso3166ctryName {ISO ABREVIATION Nome do país}