[vserd]

Highlander1981,
из T40Editor:

Код:

  Reg := TRegistry.Create(KEY_ALL_ACCESS);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000419', True);
    Reg.WriteString('Layout Text', 'Русская');
    Reg.WriteString('Layout File', 'KBDRU.DLL');
    LoadKeyboardLayout('00000419', 0);

    {чтобы заработало, нужно поместить KBDUR.DLL в \System32}
    Reg.CloseKey;
    Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000422', True);
    Reg.WriteString('Layout Text', 'Украинская');
    Reg.WriteString('Layout File', 'KBDUR.DLL');
    LoadKeyboardLayout('00000422', 0);


    Reg.CloseKey;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper',True);
    Reg.WriteInteger('DEFAULT', $000000CC);
  finally
    Reg.Free;
  end;