Как узнать текущую кодовую страницу винды и текущую локаль?

← →
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, ...)

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]

Может кто-нибудь знает, как получить значение именно этого типа?

Как узнать текущую кодовую страницу винды и текущую локаль? Найти похожие ветки