Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Здравствуйте мастера...... [D5, Win2k]

QWest © (2002-05-30 15:07:00)
Приветствую всех, кто здесь есть. У меня вот такой, значит, вопрос: очень хоца сделать в своей проге (как бы это по лучше обозвать)- индикатор языка (ета типа маленького синенького квадратика в правом нижнем углу экрана виндов с надписью EN/RU)
Поможите, кто чем могет, плиз. Буду очень признателен....

bmai (2002-06-05 05:02:00) [1]
Ну уж если совсем лень писать, можешь взять бесплатный компонент на www.torry.net в разделе Components>System>Keys and Keyboard. Называется KeyboardLayout V1.0. писать останется всего одну строчку под KeyboardLayout1Change

Label1.Caption := KeyboardLayout1.AbbreviatedName;

Игорь Шевченко (2002-05-30 15:32:00) [2]
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;

QWest (2002-05-30 15:22:00) [3]
Да уж, млина, замудон дык замудон...

Alx2 (2002-05-30 15:16:00) [4]
В хэлпе сказано:
The GetKeyboardLayoutName function retrieves the name of the active keyboard layout.
А как уж будешь это name рисовать...

QWest (2002-05-30 15:13:00) [5]
Мона примерчик...., а?

Alx2 (2002-05-30 15:11:00) [6]
Эта и подобные ейфункции помогут отцу русской демократии :))
GetKeyboardLayoutName

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »