| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как узнать текущюю раскладку клавиатуры? В Факе вроде нет... [D7, Win95/98]

DillerXX ©   (2003-11-18 21:24:00) 

Как узнать текущюю раскладку клавиатуры? В Факе вроде нет...

---

DillerXX   (2003-11-19 15:05:00) [1]

C/7ACUBA :)

---

Rouse_   (2003-11-19 00:11:00) [2]

Ну например так:

procedure TForm1.FormCreate(Sender: TObject);
var
Buf: array [0..7] of Char;
begin
GetKeyboardLayoutName(@Buf);
Caption := String(Buf);
end;

Желаю успехов

---

Наверх