delphi中如何检测多语言项目的系统语言？

Question

我需要用其他语言翻译一个程序，实际上我有 3 种语言（英语、西班牙语、葡萄牙语）的相同程序，但我翻译、重新编译，并且有 3 个单独的可执行文件。添加更多语言，保留链接，添加新功能让我发疯。

所以现在我决定保留一个可执行文件和一个外部语言文件，因此添加新语言不需要重新编译，只需用文本编辑器编辑语言文件，一切就可以了。

我想将所有语言保存在一个外部文件中。例如 international.lang

[portuguese]
greeting="Bem-vindo"

[spanish]
greeting="Ben venido"

如果文件 international.lang 不存在，或者文件中没有您的语言，程序将默认以英语启动，不会出现任何错误。就像大多数基于资源的多语言程序一样。

那么问题来了，在delphi中如何检测Windows语言呢？ 对我的方法有什么想法吗？ 有什么方法可以以编程方式替换对话框上的所有标题？

ps：我使用的是delphi7，我找不到任何好的免费组件。

Answer 1

您可以使用 GetSystemDefaultLCID 函数获取区域设置标识符，然后使用 VerLanguageName 函数解析语言关联名称。或使用 GetLocaleInfo< /a> 函数

检查此示例

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;


procedure Test_VerLanguageName;
var
  wLang : LangID;
  szLang: Array [0..254] of Char;
begin
  wLang := GetSystemDefaultLCID;
  VerLanguageName(wLang, szLang, SizeOf(szLang));
  Writeln(szLang);
end;

procedure Test_GetLocaleInfo;
var
  Buffer : PChar;
  Size : integer;
begin
  Size := GetLocaleInfo (LOCALE_USER_DEFAULT, LOCALE_SENGLANGUAGE, nil, 0);
  GetMem(Buffer, Size);
  try
    GetLocaleInfo (LOCALE_USER_DEFAULT, LOCALE_SENGLANGUAGE, Buffer, Size);
    Writeln(Buffer);
  finally
    FreeMem(Buffer);
  end;
end;

begin
  try
    Test_VerLanguageName;
    Test_GetLocaleInfo;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

注意：从 Windows Vista 开始，存在获取相同区域设置信息的新函数，请检查这些函数 GetLocaleInfoEx、GetUserDefaultLocaleName 和 GetSystemDefaultLocaleName

Answer 2

我有同样的问题，尽管我只需要处理两种语言：英语（默认）和波兰语。
我尝试了上面列出的所有解决方案，但没有一个有效。我正在更改系统设置、重新启动等，并且始终收到英语语言。
当切换到波兰语时，所有内容都以波兰语显示，所有波兰语区域设置都已设置，但我的应用程序接收英语作为操作系统语言。经过多次尝试，我遇到了非常简单且可靠的解决方法（我不称之为解决方案），如果您必须处理少量语言，那么这很好。
因此，诀窍是检查 TLanguages 返回的语言列表是什么语言。

function GetLang: Integer; //lcid
const
  lcidEnglish = $9;
  lcidPolish = $415;
var Idx: Integer;
begin
   Result := Languages.IndexOf(lcidPolish);

  if (Result > 0) and
     (Languages.Name[Result].StartsWith('Polski', True)) //'Polski'is the Polish name of the language
  then Result := lcidPolish
  else Result := lcidEnglish;
end;

您可以对三种语言执行相同的操作。
希望有帮助。