Здравствуйте мастера......

← →
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]

Да уж, млина, замудон дык замудон...

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;

Здравствуйте мастера...... Найти похожие ветки