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

Вниз

Индикатор клавиатуры   Найти похожие ветки 

← →
Ilg   (2003-09-11 19:15) [0]

Здравствуйте!
Кто-нибудь встречал нормальный компонент, который бы показывал текущий язык (желательно с исходниками)?

---

← →
Юрий Федоров ©   (2003-09-11 19:37) [1]

Напиши сам, не ленись.
Ориентировка - GetKeyboardLayoutName

---

← →
8ung ©   (2003-09-11 20:00) [2]

Я если хочется исходник, то
дам только функцию:
function Tform1.getLanguage:string;
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = "00000409" then
Result := "EN"
else
Result := "RU";
end;

---

← →
VMcL ©   (2003-09-11 21:10) [3]

Или даже вот так:

function ShowLayoutName: String;
var
LayoutName: array [0 .. KL_NAMELENGTH + 1] of Char;
LangName: array [0 .. 255] of Char;
begin
Result := "??";
if GetKeyboardLayoutName(@LayoutName) then
begin
if GetLocaleInfo(StrToInt("$" + StrPas(LayoutName)),
LOCALE_SABBREVLANGNAME,
@LangName, SizeOf(LangName) - 1) <> 0 then Result := StrPas(LangName);
end;
Result := AnsiUpperCase(Copy(Result, 1, 2));
end;

---

← →
DrWeb ©   (2003-09-12 00:20) [4]

http://delphiplus.nagano.ru/articles/components/statusbar/index.html

---

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

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

Наверх

Память: 0.47 MB
Время: 0.025 c