Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Вниз
Индикатор клавиатуры Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
