delphi - 使用 Delphi 显示当前用户的语言(英文)？

Question

某些 Windows 计算机安装了多种显示语言。

我可以使用以下函数以该语言获取当前用户的 UI 语言:

function GetUsersWindowsLanguage: string;
var
  WinLanguage: array [0..50] of char;
begin
  VerLanguageName(GetUserDefaultUILanguage, WinLanguage, 50);
  Result := WinLanguage;
end;

这个函数输出如下:

Espagnol (Espagne)

输出不是英文。我只需要“西类牙语”。有没有办法获得英文的显示语言？

我正在使用 Delphi 10.3.3(VCL 应用程序)。

Answer 1

function GetUsersWindowsLanguage: string;
var
  WinLanguage: array [0..50] of char;
begin
  GetLocaleInfoW(GetUserDefaultUILanguage, LOCALE_SENGLISHDISPLAYNAME, WinLanguage, 50);
  Result := WinLanguage;
end;