Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизКак узнать текущую кодовую страницу винды и текущую локаль? Найти похожие ветки
← →
Islander (2003-10-24 09:52) [0]Как узнать текущую кодовую страницу винды и текущую локаль?
← →
[lamer]Barmaglot (2003-10-24 10:07) [1]LoadKeyboardLayout, ActivateKeyboardLayout, GetKeyboardLayoutName?
← →
Islander (2003-10-24 10:09) [2]Нет, это раскладки, а мне нужна кодовая страница и локаль.
← →
[lamer]Barmaglot (2003-10-24 10:12) [3]EnumSystemLocales, LOCALESIGNATURE?
← →
Islander (2003-10-24 10:18) [4]Да, это уже ближе, вот примерчик бы глянуть ентого использования
← →
[lamer]Barmaglot (2003-10-24 10:53) [5]Edit1.Text:=inttostr(GetACP); //кодовая страница. 1251-для Cyrillic
← →
Islander (2003-10-24 10:54) [6]Супер, а локаль? Типа CP_Russian?
← →
Игорь Шевченко (2003-10-24 12:07) [7]Islander (24.10.03 10:54)
GetLocateInfo (LOCALE_SYSTEM_DEFAULT, ...)
GetLocateInfo (LOCALE_USER_DEFAULT, ...)
← →
[lamer]Barmaglot (2003-10-24 13:16) [8]procedure TForm1.Button1Click(Sender: TObject);
var
A: array of Char;
LengthData: integer;
begin
LengthData:=0;
LengthData:=GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SNATIVELANGNAME, nil, LengthData);
SetLength(a, LengthData);
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SNATIVELANGNAME, @A[0], LengthData);
Form1.Edit1.text:=String(A);
end;
← →
Islander (2003-10-24 18:27) [9]Спсаибо все хорошо, вот только никак не получается такая константа: LANG_RUSSIAN...
← →
Islander (2003-10-25 09:23) [10]Может кто-нибудь знает, как получить значение именно этого типа?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c