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

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

Смена раскладки [D6, XP]

Id ©   (2006-06-26 17:12:00) 

Здраствуйте, уважаемые мастера.
Как программно поменять раскладку клавиатуры с русского на английский и наоборот

---

Джо   (2006-06-27 16:53:00) [1]

> [2] Id   (27.06.06 16:41)
> Спасибо, работает.
> Можно ссылочку, что эти буковки означают. 8-)


http://msdn2.microsoft.com/en-us/default.aspx
http://www.microsoft.com/rus/msdn/default.aspx

---

Id   (2006-06-27 16:41:00) [2]

> Ega23 ©   (26.06.06 17:15) [1]

Спасибо, работает.
Можно ссылочку, что эти буковки означают. 8-)

---

Ega23   (2006-06-26 17:15:00) [3]


Procedure SetKeybLayout(lang:byte);
//Lang_russian=25
var w:word;
   pc:pchar;
   x:variant;
begin
w:=(word(SUBLANG_DEFAULT shl 10) or  word(lang)  );
pc:=pchar(inttohex(w,8));
x:=LoadKeyboardLayout(pc,KLF_ACTIVATE);
end;


---

Наверх