是否有Delphi5编译器（dcc32.exe）或IDE开关/选项来更改可执行文件的语言？_Delphi_Delphi 5_Dcc32_Delphi Ide

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

delphi

是否有Delphi5编译器（dcc32.exe）或IDE开关/选项来更改可执行文件的语言？,delphi,delphi-5,dcc32,delphi-ide,Delphi,Delphi 5,Dcc32,Delphi Ide,我正在维护一个旧的Delphi5程序，它是用Delphi5专业德语构建的问题是，创建的可执行文件的所有对话框和错误消息都以德语显示，即使在位置设置为美国或英国的英语窗口上也是如此我是否需要英语版本的Delphi 5 Pro，或者是否有配置选项/编译器开关/选项来更改“输出语言” 我不是在谈论IDE语言，我已经了解到我可以通过删除Delphi安装目录中的所有*.DE文件将其改回英语例如：更新：根据这些评论，我在源目录中查找德语邮件-我立即找到了几个文件： Source/Rtl/Sy

我正在维护一个旧的Delphi5程序，它是用Delphi5专业德语构建的

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

我是否需要英语版本的Delphi 5 Pro，或者是否有配置选项/编译器开关/选项来更改“输出语言”

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

例如：

更新：根据这些评论，我在源目录中查找德语邮件-我立即找到了几个文件：

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

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

工具“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;

来源：

工具“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;

来源：

这些文本内容在unit

Consts.pas

中定义为

resourcestring

那些

resourcestring

可以通过一些库动态更改。无需更改RTL源代码

请参阅以获取参考

我推荐使用您的Delphi 5版本，并为大多数使用的语言提供一组标准Delphi标题的预翻译文本

编辑：如果您只想恢复为英文VCL值，则原始Deplhi 5 CD中的

Extra\VCLUS

文件夹中应有默认的英文.pas和.dcu文件。只需用这些文件覆盖您的本地文件。文件已在预期的子文件夹布局中设置。