• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

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

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Сообщения
1,058
Симпатии
273
Баллы
155
Код:
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;
 
Вверх Снизу