Смена раскладки клавиатуре в системе

← →
Ford © (2007-04-27 16:24) [0]

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

← →
Правильный Вася (2007-04-27 16:39) [1]

вместо энтера пробел, что ли?
отверткой попробуй

← →
Ford © (2007-04-27 16:42) [2]

не правильно выразился, надо поменять язык ввода в системе поумолчанию

← →
Ford © (2007-04-27 16:54) [3]

люди плиз помогите, сильно надо

← →
Elen © (2007-04-27 16:58) [4]

> надо поменять язык ввода в системе поумолчанию

Ну вообще смена раскладки если не ошибаюсь делается через функцию API ActivateKeyboardLayout.

← →
Ford © (2007-04-27 17:02) [5]

Функция ActivateKeyboardLayout устанавливает язык ввода для текущего потока. Мне надо поменять в системе, возможно это делаеться в реестре, тока хз какая ветвь

← →
Ford © (2007-04-27 17:13) [6]

поставлю вопрос по другому, как поменять раскладку в другой программе

← →
iXT © (2007-04-27 17:37) [7]

Выбор "раскладки" (языка) - пользовательская привелегия! Руки надо за это отрывать!

← →
clickmaker © (2007-04-27 17:44) [8]

> как поменять раскладку в другой программе

зачем?
русские буковки не вставляются?

← →
Ford © (2007-04-28 06:58) [9]

>> Выбор "раскладки" (языка) - пользовательская привелегия! Руки надо за это отрывать!

кто тебе мешает

>>зачем?
>>русские буковки не вставляются?

мне надо с эмулировать нажатия клавиш на английской раскладке, в другой программе, а так как по умолчанию в системе стоит русский, то при фокусировании на другой программе включаеться язык по умолчаннию. Надо сменить язык на английский язык.

← →
iXT © (2007-04-28 09:37) [10]

Мне вот такие программисты, которые понапишут шаловливые программки, а мне потом клиенты звонить будут: "У меня не переключается"

>> Мне вот такие программисты, которые понапишут шаловливые программки, а мне потом клиенты звонить будут: "У меня не переключается"

я совета, просил, а не паранои

procedure TForm1.Timer1Timer(Sender: TObject);
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = "00000409" then
label1.caption:="en"
else
label1.caption:="ru";
end;

извиняюсь не то скопировал

procedure SetRU;
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout, "00000419"), KLF_ACTIVATE);
end;

procedure SetEN;
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout, "00000409"), KLF_ACTIVATE);
end;

а чего бы не использовать WM_CHAR? зачем играться с переключениями?

Смена раскладки клавиатуре в системе Найти похожие ветки