Wenn man nur die Bibliothekssprache umschalten will, hilft diese Batch-Datei leider nicht weiter.
Die Spracheinstellung hierfür wird in der Registry gespeichert:
Key: HKEY_CURRENT_USER\Software\Embarcadero\
BDS\9.0\MUI
Value: Translated Library Directory (= EN oder DE)
Hier ein kleines Konsolenprogramm, mit dem sich diese Umstellung vornehmen lässt:
Delphi-Quellcode:
{ Delphi XE/XE2 utility
Select MUI language (language for libraries to be used inside a program)
JR, Nov. 2011
Calling:
ChangeMUILanguage <XX>
with XX = EN - English
= DE - German
}
program ChangeMUILanguage;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows;
const
MaxLang = 2;
Languages :
array[0..MaxLang-1]
of string[2] = ('
EN','
DE');
MuiKey = '
Software\Embarcadero\BDS\9.0\MUI';
KeyName = '
Translated Library Directory';
var
s :
string;
i : integer;
begin
if ParamCount>= 1
then begin
s:=ParamStr(1);
for i:=1
to MaxLang-1
do if AnsiSametext(s,Languages[i])
then Break;
if i>=MaxLang
then s:=Languages[0]
else s:=Languages[i];
// default = english
with TRegistry.Create
do begin
RootKey:=HKEY_CURRENT_USER;
if OpenKey(MuiKey,false)
then WriteString(KeyName,s);
CloseKey;
Free;
end;
end;
end.