使用 Delphi 显示当前用户的语言（英文）？

Question

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

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

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

这个函数输出如下：

Espagnol (Espagne)

输出不是英文。我只需要 "Spanish"。有什么办法可以让显示语言变成英文吗？

我正在使用 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;

使用 Delphi 显示当前用户的语言（英文）？

Display language of current user (in English) using Delphi?

delphi

delphi-10.3-rio