Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

Country?   Найти похожие ветки 

← →
DDA ©   (2004-01-26 19:17) [0]

Подскажите как узнать программе страну в которой находится пользователь Т.е User запускает программу у себя на компе , а программа определяет страну и использует соответствующий язык
Хотя бы узнать RU EN и так далее
Соответственно (наверное) и FR DE IT SP(точно не знаю)

---

← →
Митяй2   (2004-01-26 19:24) [1]

Можно так:

GetSystemDefaultLCID

---

← →
Brahman ©   (2004-01-26 20:42) [2]

>узнать программе страну в которой находится пользователь

Кроме прямого ввода ответа пользователя ничего не поможет:)
Разве, что пристраивать GPS.

---

← →
DDA ©   (2004-01-26 21:45) [3]

Вот нашёл кое-что
первый пример показывает аббревиатуру языка

var
AklName: array [0..2] of Char;
begin
GetLocaleInfo( LoWord(GetKeyboardLayout(0)),LOCALE_SENGLANGUAGE,AklName,SizeOf(AklName));
Caption := AklName;



Можно менять LOCALE_SENGLANGUAGE на:
LOCALE_SLANGUAGE { localized name of language }
LOCALE_SENGLANGUAGE { English name of language }
LOCALE_SNATIVELANGNAME { native name of language }
LOCALE_SCOUNTRY { localized name of country }
LOCALE_SENGCOUNTRY { English name of country }
{$EXTERNALSYM LOCALE_SABBREVCTRYNAME}
LOCALE_SABBREVCTRYNAME { abbreviated country name }
{$EXTERNALSYM LOCALE_SNATIVECTRYNAME}
LOCALE_SNATIVECTRYNAME { native name of country }

да и там ещё всяких констант дофига

Второй пример:

var buffer:array [0..KL_NAMELENGTH] of Char;
begin
GetKeyboardLayoutName(buffer);
ShowMessage(inttostr(((StrToInt("$"+ Buffer)) and $03FF)));
case ((StrToInt("$"+ Buffer)) and $03FF) of

LANG_AFRIKAANS: Caption := "AFRIKAANS";
LANG_ALBANIAN: Caption := "ALBANIAN";
LANG_ARABIC: Caption := "ARABIC";
LANG_BASQUE: Caption := "BASQUE";
LANG_BELARUSIAN: Caption := "BELARUSIAN";
LANG_BULGARIAN: Caption := "BULGARIAN";
LANG_CATALAN: Caption := "CATALAN";
LANG_CHINESE: Caption := "CHINESE";
LANG_CROATIAN: Caption := "CROATIAN";
LANG_CZECH: Caption := "CZECH";
LANG_DANISH: Caption := "DANISH";
LANG_DUTCH: Caption := "DUTCH";
LANG_ENGLISH: Caption := "ENGLISH";
LANG_ESTONIAN: Caption := "ESTONIAN";
LANG_FAEROESE: Caption := "FAEROESE";
LANG_FARSI: Caption := "FARSI";
LANG_FINNISH : Caption := "FINNISH";
LANG_FRENCH : Caption := "FRENCH";
LANG_GERMAN : Caption := "GERMAN ";
LANG_GREEK : Caption := "GREEK";
LANG_HEBREW : Caption := "HEBREW";
LANG_HUNGARIAN : Caption := "HUNGARIAN";
LANG_ICELANDIC : Caption := "ICELANDIC";
LANG_INDONESIAN : Caption := "INDONESIAN";
LANG_ITALIAN : Caption := "ITALIAN";
LANG_JAPANESE : Caption := "JAPANESE";
LANG_KOREAN : Caption := "KOREAN";
LANG_LATVIAN : Caption := "LATVIAN";
LANG_LITHUANIAN : Caption := "LITHUANIAN";
LANG_NORWEGIAN : Caption := "NORWEGIAN";
LANG_POLISH : Caption := "POLISH";
LANG_PORTUGUESE : Caption := "PORTUGUESE";
LANG_ROMANIAN : Caption := "ROMANIAN";
LANG_RUSSIAN : Caption := "RUSSIAN";
LANG_SLOVAK : Caption := "SLOVAK";
LANG_SLOVENIAN : Caption := "SLOVENIAN";
LANG_SPANISH : Caption := "SPANISH";
LANG_SWEDISH : Caption := "SWEDISH";
LANG_THAI: Caption := "THAI";
LANG_TURKISH : Caption := "TURKISH";
LANG_UKRAINIAN : Caption := "UKRAINIAN";
LANG_VIETNAMESE : Caption := "VIETNAMESE";
end;

Но тут не все языки(Хотя можно и самому доделать)

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.018 c