是否有 Delphi 5 编译器 (dcc32.exe) 或 IDE 开关/选项来更改可执行文件的语言？

Question

我正在维护一个旧的 Delphi 5 程序，使用 Delphi 5 Professional German 构建。

问题是创建的可执行文件的所有对话框和错误消息都以德语显示，即使在位置设置为美国或英国之类的英文 Windows 上也是如此。

我需要英文版的 Delphi 5 Pro 还是有配置选项/编译器开关/更改“输出语言”的选项？

我不是在谈论 IDE 语言，我已经知道可以通过删除 Delphi 安装目录中的所有 *.DE 文件将其改回英文。

例子：

更新： 根据 cmets，我在 Source 目录中查找德语消息 - 我立即找到了几个文件：

Source/Rtl/Sys/comconst.pas
Source/Rtl/Sys/sysconst.pas
Source/Rtl/Sys/comconst.pas
Source/Vcl/bdeconst.pas
Source/Vcl/comstrs.pas
Source/Vcl/consts.pas
Source/Vcl/dbconsts.pas
Source/Vcl/ib.pas
Source/Vcl/oleconst.pas

我希望有一个更简单的方法。不要以为我会走这条路……

Answer 1

那些文本内容在单元Consts.pas中定义为resourcestring。

那些resourcestring 可以通过一些库即时更改。无需更改 RTL 源代码！

参考this question about localization。

我推荐GNU Gettext for Delphi，它适用于您的 Delphi 5 版本，并且有一组针对大多数常用语言的标准 Delphi 字幕的预翻译文本。

编辑：如果您只是想恢复到英文 VCL 值，那么您的原始 Deplhi 5 CD 中的 Extra\VCLUS 文件夹中应该有默认的英文 .pas 和 .dcu 文件.只需用这些覆盖您的本地文件。文件已设置在预期的子文件夹布局中。

Answer 2

在工具“BDSSetLang.exe”的bin目录下 如果您在安装过程中指定了德语和英语，您可以在那里更改 IDE 语言、库等语言。

所以应该可以解决问题。

或

试试这个。

//...bei einem Message Dialog die Beschriftungen der Buttons ändern
function xMessageDlg(const Msg: string; DlgType : TMsgDlgType;
                     Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
var
  aMsgDlg : TForm;
  CaptionIndex,
  i : integer;
  dlgButton : TButton; // uses stdctrls
begin
  // Dlg erzeugen
  aMsgDlg := CreateMessageDialog(Msg, DlgType, buttons);
  CaptionIndex := 0;
  // alle Objekte des Dialoges testen
  for i := 0 to aMsgDlg.ComponentCount - 1 do begin
    // wenn es ein Button ist, dann...
    if (aMsgDlg.Components[i] is TButton) then begin
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      // Beschriftung entsprechend Captions-array ändern
      dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  end;
  Result := aMsgDlg.ShowModal;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  erg : integer;
begin
  erg := xMessageDlg('Hier steht der gewünschte Text,' + chr($0D) + 'die Buttons sind geändert',
                      mtConfirmation,
                      [mbYes, mbNo, mbCancel], // benutzte Schaltflächen
                      ['Alles', 'Teil','Abbrechen']); // zugehörige Texte
  case erg of // zugehörige Antworten
    mrYes : ShowMessage('"1" clicked');
    mrNo : ShowMessage('"2" clicked');
    mrCancel: ShowMessage('"3" clicked');
  end; // of case
end;

来源：http://www.delphipraxis.net/3307-caption-der-buttons-yes-no-im-dialog-messagedlg-aendern.html