Полезняшки. Переключение раскладки клавиатуры при вводе логина и пароля

В наших проектах есть такое требование – логин и пароль пользователя к БД должны быть введены в английской раскладке клавиатуры. Ну так исторически сложилось. А чтобы голову пользователя не напрягать таким ограничением, перед вводом пароля или логина раскладка клавиатуры принудительно переключается на английскую (а потом возвращается та, которая была).

И есть ещё такая полезняшка: при завершении работы, приложение сохраняет пользовательскую раскладку, а при следующем запуске – восстанавливает её.

Раньше это делалось с помощью пары функций GetKeyboardLayoutName и LoadKeyboardLayout. Первая возвращает строку, а вторая – активирует по строке. Однако в Windows 7 (в отличии от Windows XP) вторая функция сильно и заметно для пользователя тормозит (от 2 до 7 секунд, кто-то пишет до 10).

Не буду долго расписывать поиски решения, там всё (ну почти) тривиально. Просто чтобы не писать код самому, сделал поиск по библиотеке JCL и нашёл модуль JclLocales.

Получилось примерно следующее:

uses
  JclLocales;
..
type
  TAppDataModule = class(TDataModule)
  ..
  strict private
    class var FKeyboradLocalesList: TJclKeyboardLayoutList;
    class var FSavedKL: HKL;
    class constructor Create;
    class destructor Destroy;
  public
    class procedure SaveKLAndSelectEnglish;
    class procedure RestoreKL;
  ..
  end;

class constructor TAppDataModule.Create;
begin
  FKeyboradLocalesList := TJclKeyboardLayoutList.Create;
end;

class destructor TAppDataModule.Destroy;
begin
  FreeAndNil(FKeyboradLocalesList);
end;

class procedure TAppDataModule.SaveKLAndSelectEnglish;
var
  LKbLt: TJclKeyboardLayout;
begin
  Assert(FSavedKL = 0); // для соблюдения парности вызовов, иначе надо делать стек
  FSavedKL := FKeyboradLocalesList.ActiveLayout.Layout;
  LKbLt := FKeyboradLocalesList.LayoutFromLocaleID[$409];
  if Assigned(LKbLt) then
    LKbLt.Activate([klActivate, klSubstituteOK]);
end;

class procedure TAppDataModule.RestoreKL;
begin
  Assert(FSavedKL <> 0);
  FKeyboradLocalesList.ItemFromHKL[FSavedKL].Activate([klActivate, klSubstituteOK]);
  FSavedKL := 0;
end;

И использование где-то в коде:

  TAppDataModule.SaveKLAndSelectEnglish;
  try
    with TfrmChangePassword.Create(AOwner) do
    try
      Mode := NewLgn;
      DB := ADB;
      edLogin.Text := ALogin;
      ActiveControl := edLogin;
      Result := ShowModal = mrOk;
      if Result then
      begin
        ALogin := edLogin.Text;
        APassword := edNewPassword.Text;
      end;
    finally
      Free;
    end;
  finally
    TAppDataModule.RestoreKL;
  end;

Ну примерно так. Спасибо за внимание :)