Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c