Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: Mekan Gara. Дата публикации: 22.08.2004

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



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

CODE NOW!

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;





Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

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

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты