Как добавить нужный язык в систему

Как добавить нужный язык в систему Автор: Mekan Gara Для этого необходимо изменить некоторые ключи в реестре. Например, необходимо добавить Туркменский язык. Конечно, Вам необходимо иметь файл KBD с раскладкой клавиатуры (Turkmen.kbd).

procedure TTMKBD.OkClick(Sender: TObject);
var
 reg: TRegistry;
 srs, dst: string;
begin
 Reg := TRegistry.Create;
 with Reg do
 try
  RootKey := HKEY_LOCAL_MACHINE;
  OpenKey('\System\CurrentControlSet\Control\keyboard layouts\00000405', True);
  WriteString('layout file', 'Turkmen.kbd');
  WriteString('layout text', 'Turkmen');
  OpenKey('\System\CurrentControlSet\Control\Nls\Locale', True);
  WriteString('00000405', 'Turkmen');
  CloseKey;
 finally
  Free;
 end;
 srs := 'Turkmen.kbd';
 dst := 'c:\windows\system\Turkmen.kbd';
 Filecopy(srs, dst);
 showmessage('Well Done it all');
 close;
end;

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...