Програмное переключение раскладки

← →
snl73 © (2004-09-20 02:08) [0]

Hi, All!
подскаже, как програмно переключить раскладку, т.е. при запуске проги на русскую, а при выходе назад. Недавно в рассылке проскакивала тема, не могу найти.

← →
TechnoDreamer (2004-09-20 02:12) [1]

Язык и раскладка клавиатуры:
http://z-oleg.com/delphi/hardwkl.htm

← →
snl73 © (2004-09-20 02:31) [2]

а какой модуль надо подключить, чтобы это стаботало?(z-oleg.com/delphi/hardwkl.htm#hkl1)

{********************************************************** * Module: Global.GetLangvKeyboard * Date Created: 04/10/2004 * Last Modified: * Input: LangvKeyb = [1,2,3] (рус, англ, укр) * Output: * Return: * Description: Процедура переключения раскладки клавиатуры **********************************************************} procedure GetLangvKeyboard ( LangvKeyb : Integer); begin case LangvKeyb of 1 : LoadKeyboardLayout("00000419",KLF_ACTIVATE); //русский 2 : LoadKeyboardLayout("00000409",KLF_ACTIVATE); //английский 3 : LoadKeyboardLayout("00000422",KLF_ACTIVATE); //украинский end; end;

Програмное переключение раскладки Найти похожие ветки