Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



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