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

Вниз

Код украинского языка.   Найти похожие ветки 

← →
demonyator ©   (2003-10-26 01:49) [0]

Есть код:
var
S: Array [0 .. 8] of Char;
begin
GetKeyboardLayoutName(S);
if s = "00000419" then StaticText1.Caption := "RU"
else if s = "00000409" then StaticText1.Caption := "EN"

Каким будет S при установке украинского языка?

---

← →
хз ©   (2003-10-26 04:30) [1]

00000422

---

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

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

Наверх

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