Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
ВнизЗдравствуйте мастера...... Найти похожие ветки
← →
QWest (2002-05-30 15:07) [0]Приветствую всех, кто здесь есть. У меня вот такой, значит, вопрос: очень хоца сделать в своей проге (как бы это по лучше обозвать)- индикатор языка (ета типа маленького синенького квадратика в правом нижнем углу экрана виндов с надписью EN/RU)
Поможите, кто чем могет, плиз. Буду очень признателен....
← →
Alx2 (2002-05-30 15:11) [1]Эта и подобные ейфункции помогут отцу русской демократии :))
GetKeyboardLayoutName
← →
QWest (2002-05-30 15:13) [2]Мона примерчик...., а?
← →
Alx2 (2002-05-30 15:16) [3]В хэлпе сказано:
The GetKeyboardLayoutName function retrieves the name of the active keyboard layout.
А как уж будешь это name рисовать...
← →
QWest (2002-05-30 15:22) [4]Да уж, млина, замудон дык замудон...
← →
Игорь Шевченко (2002-05-30 15:32) [5]function GetKbLangName : String;
var
Layout : array[0..KL_NAMELENGTH] of AnsiChar;
tmp : String;
begin
Result := "**";
if GetKeyboardLayoutName(@Layout) then begin
tmp := StrPas(Layout);
if StrToInt(tmp) = 409 then
Result := "EN"
else
Result := "RU";
end;
end;
← →
bmai (2002-06-05 05:02) [6]Ну уж если совсем лень писать, можешь взять бесплатный компонент на www.torry.net в разделе Components>System>Keys and Keyboard. Называется KeyboardLayout V1.0. писать останется всего одну строчку под KeyboardLayout1Change
Label1.Caption := KeyboardLayout1.AbbreviatedName;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c