DELPHI获得系统信息比如系统语言

DELPHI获得系统信息比如系统语言
获得系统本地信息
Windows API中有一个函数GetLocaleInfo可以用来获得系统信息比如系统语言, 货币符号等代码如下：

function TForm1.GetLocaleInformation(Flag: Integer): String;
var
    pcLCA: Array[0..20] of Char;
begin
   if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) <= 0 ) then
   begin   
        pcLCA[0] := #0;
   end;
   Result := pcLCA; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;

参数"Flag"可以取下列值:

LOCALE_NOUSEROVERRIDE { do not use user overrides }
LOCALE_USE_CP_ACP { use the system ACP }
LOCALE_ILANGUAGE { 语言代号 }
LOCALE_SLANGUAGE { 本地语言名称 }
LOCALE_SENGLANGUAGE { 语言的英语名 }
LOCALE_SABBREVLANGNAME { 语言名称缩写 } 简体:CHS 繁体: CHT
LOCALE_SNATIVELANGNAME { 本地语言名称 }
LOCALE_ICOUNTRY { 国家代号 }
LOCA