Код заключается в следующем:
Функция tform1.getLocaleInformation (flag: Integer): String;
вар
PCLCA: массив [0..20] из Чар;
Начинать
if (getlocaleinfo (locale_system_default, flag, pclca, 19) <= 0), затем начинайте
pclca [0]: = #0;
конец;
Результаты: = PCLCA;
конец;
Процедура tform1.button1click (отправитель: tobject);
Начинать
ShowMessage (getLocaleInformation (locale_senglanguage));
конец;
Параметр «Флаг» может принимать следующие значения:
Locale_nouseroverride {не используйте переопределения пользователей}
Locale_use_cp_acp {используйте систему acp}
Locale_ilanguage {языковой код}
Locale_slanguage {local language name}
Locale_senglanguage {английское имя языка}
Locale_sabbrevlangname {Имя языка аббревиатура}
Locale_snativelangname {local language name}
Locale_icountry {код страны}
Locale_scountry {имя страны}
Locale_sengcountry {английское имя страны}
Locale_sabbrevctryname {имя страны аббревиатура}
Locale_snativectryname {имя страны}
Locale_idefaultlanguage {код языка по умолчанию}
Locale_idefaultcountry {код страны по умолчанию}
Locale_idefaultcodepage {страница OEM по умолчанию}
Locale_idefaultansicodepage {по умолчанию кодовую страницу ANSI}
Locale_idefaultmaccodepage {страница Mac по умолчанию}
Locale_slist {список элемента Splitter}
Locale_imeasure {единица измерения 0 = метр, 1 = английский}
Locale_sdecimal {символ десятичной точки}
Locale_sthoushay {тысяча делителей}
Locale_sgrouping {Digit Grouping}
Locale_idigits {количество дробных цифр}
Locale_ilzero {ведущие нули для десятичного десятичного
Locale_inenumber {отрицательный режим}
Locale_snativedigits {Native ASCII 0-9}
Locale_scurrency {Символ локальной валюты}
Locale_sintlsymbol {Символ международной валюты}
Locale_smondecimalsep {валютный десятичный сплиттер}
Locale_smonthawhoussep {валюта тысяча разделителей}
Locale_smongrouping {денежная группировка}
Locale_icurrdigits { # локальные денежные цифры}
Locale_iintlcurrdigits { # intl монетарные цифры}
Locale_icurrance {режим положительной валюты}
Locale_inegcurr {режим отрицательной валюты}
Locale_sdate {date splitter}
Locale_stime {Time Splitter}
Locale_sshortdate {короткая строка даты}
Locale_slongdate {Long Date String}
Locale_stimeformat {строка формата времени}
Locale_idate {заказ в формате коротких дат}
Locale_ildate {заказ в формате долгой даты}
Locale_itime {specifier формата времени}
Locale_itimemarkposn {позиция маркера времени}
Locale_icentury {Century Format Specifier (короткая дата)}
Locale_itlzero {ведущие нули в поле времени}
Locale_idaylzero {ведущие нули в дневном поле (короткая дата)}
Locale_imonlzero {ведущие нули в поле месяца (короткая дата)}
Locale_s1159 {Am Designer}
Locale_s2359 {PM Designer}
Locale_icalendartype {тип спецификатора календаря}
Locale_ioptionalcalendar {дополнительные типы календарей}
Locale_ifirstdayofweek {первый день недели}
Locale_ifirstweekofyear {первая неделя года Specifier}
Locale_sdayname1 {длинное имя для понедельника}
Locale_sdayname2 {длинное имя для вторника}
Locale_sdayname3 {длинное имя для среды}
Locale_sdayname4 {длинное имя для четверга}
Locale_sdayname5 {длинное имя для пятницы}
Locale_sdayname6 {длинное название для субботы}
Locale_sdayname7 {длинное имя для воскресенья}
Locale_sabbrevdayname1 {понедельник аббревиатура}
Locale_sabbrevdayname2 {вторник аббревиатура}
Locale_sabbrevdayname3 {Среда аббревиатура}
Locale_sabbrevdayname4 {четверг аббревиатура}
Locale_sabbrevdayname5 {пятница аббревиатура}
Locale_sabbrevdayname6 {суббота аббревиатура}
Locale_sabbrevdayname7 {воскресная аббревиатура}
Locale_smonthname1 {длинное имя за январь}
Locale_smonthname2 {длинное имя для февраля}
Locale_smonthname3 {длинное имя для марта}
Locale_smonthname4 {длинное имя для апреля}
Locale_smonthname5 {длинное имя для мая}
Locale_smonthname6 {длинное имя для июня}
Locale_smonthname7 {длинное имя для июля}
Locale_smonthname8 {длинное имя для августа}
Locale_smonthname9 {длинное имя для сентября}
Locale_smonthname10 {длинное имя для октября}
Locale_smonthname11 {длинное имя на ноябрь}
Locale_smonthname12 {длинное имя за декабрь}
Locale_smonthname13 {длинное имя за 13 -й месяц (если существует)}
Locale_sabbrevmonthname1 {январь аббревиатура}
Locale_sabbrevmonthname2 {февраль аббревиатура}
Locale_sabbrevmonthname3 {март аббревиатура}
Locale_sabbrevmonthname4 {аббревиатура апреля}
Locale_sabbrevmonthname5 {may abbreviation}
Locale_sabbrevmonthname6 {июньская аббревиатура}
Locale_sabbrevmonthname7 {аббревиатура июля}
Locale_sabbrevmonthname8 {аббревиатура августа}
Locale_sabbrevmonthname9 {сентябрьская аббревиатура}
Locale_sabbrevmonthname10 {октябрьская аббревиатура}
Locale_sabbrevmonthname11 {аббревиатура ноября}
Locale_sabbrevmonthname12 {декабрьская аббревиатура}
Locale_sabbrevmonthname13 {аббревиатура тринадцати (если есть)}
Locale_spositivesign {положительный знак}
Locale_snegativesign {минус знак}
Locale_ipossignposn {положительная позиция}
Locale_inegsignposn {минус позиция}
Locale_ipossymprecedes {mon sym symed pos amt}
Locale_ipossepbyspace {mon sym sep по пространству от pos amt}
Locale_inegsymprecedes {mon sym предшествует neg amt}
Locale_inegsepbyspace {mon sym sep по пространству от neg amt}
Locale_fontsignature {подпись шрифта}
Locale_siso639langname {iso аббревиатура Имя}
Locale_siso3166ctryname {iso аббревиатура Страна}