Englische Dialoge mit deutschem Delphi

[kopernikus]

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.