Раскладка клавиатуры

[Vladya]

Добрый день! Такой вопрос:
Как можно определить текущую раскладку клавиатуры, только не именно для окна моей программы а вообще для любого окна которое на данный момент активно?

[Terran]

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
Caption:='раскладка английская'
else
Caption:='раскладка неанглийская';
// 68748313 соответствует русской

[Vladya]

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

[Terran]

где можно узнать какой идентификатор какому языку соответствует?

Так в интернете я не встречал описаний. Сделайте по-простому. Установите нужный язык и переключайте раскладку клавиатуры, а идентификаторы берите из функции GetKeyboardLayout. К примеру:

Edit1.Text:=IntToStr(GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow,Nil)));

[Vladya]

Спасибо! И как я сам до такого не додумался...

[Vladya]

У меня еще такой вопрос, как сменить раскладку клавиатуры?
Использую процедуру но ничего не меняется... вернее оно меняется н а потом обратно возвращается так сказать в исходное положение.
Вот моя процедура, подправьте если что не так.

procedure TForm1.NextFlag;
var
  Layout: array[0.. KL_NAMELENGTH] of char;
Begin
 if RzBmpButton10.Tag = 0 then
    Begin
     RzBmpButton10.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+'\Icons\Flags\RUS.png');
     RzBmpButton10.Hint:='Русский';
     RzBmpButton10.Tag:=1;
     LoadKeyboardLayout(StrCopy(Layout, '68748313'), KLF_ACTIVATE);
    End
else
 if RzBmpButton10.Tag = 1 then
    Begin
     RzBmpButton10.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+'\Icons\Flags\UK.png');
     RzBmpButton10.Hint:='Українська';
     RzBmpButton10.Tag:=2;
     LoadKeyboardLayout(StrCopy(Layout, '69338146'), KLF_ACTIVATE);
    End
else
 if RzBmpButton10.Tag = 2 then
    Begin
     RzBmpButton10.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+'\Icons\Flags\USA.png');
     RzBmpButton10.Hint:='English';
     RzBmpButton10.Tag:=0;
     LoadKeyboardLayout(StrCopy(Layout, '69338146'), KLF_ACTIVATE);
    End;
End;

[Terran]

У Вас процедура сама прогоняет весь код. Поясню. Если у Вас Tag = 0, то выполняется действие и Tag становится равным 1. Потом код выполняется дальше в этой же процедуре, а Tag уже равен 1 и идёт выполнение следующего действия и т.д. до конца процедуры. Придумайте или измените условия так, что бы последующие действия под условия не попадали.

[Alex Cones]

Terran, а по-моему правильно - ведь если код отработает по первому if-у то он по else уже не пойдет.

Есть один нюанс при смене раскладки -таким методом раскладка поменяется только для текущего окна, т.е. Вашего. Для смены раскладки в сисетме придется dll-лить с хуками.

[Terran]

Terran, а по-моему правильно - ведь если код отработает по первому if-у то он по else уже не пойдет.

Верно. Забыл про Else...

[Vladya]

Сообщение от Alex Cones

Есть один нюанс при смене раскладки -таким методом раскладка поменяется только для текущего окна, т.е. Вашего. Для смены раскладки в сисетме придется dll-лить с хуками.

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