Подписаться на RSS рассылку
Главная » Статьи по Delphi » Язык » Как добавить нужный язык в систему

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

Автор: Mekan Gara

Взято с http://delphiworld.narod.ru/

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

uses Registry;
...
procedure
TForm1.Button1Click(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';
 CopyFile(PAnsiCHar(srs), PAnsiCHar(dst), false);
  showmessage('Well Done it all');
  close;
end;

Просмотров: 4630

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта