获取系统中的语言

转载于 2011-12-02 14:06:48 发布 · 1.2k 阅读

文章标签：

#语言 #integer #function

Delphi 专栏收录该内容

41 篇文章

订阅专栏

Function GetLanguage:string;
var
  i:integer;
  sLists:TStrings;
begin
  sLists:=TStringList.Create;
  try
    for i:=0 to Languages.Count-1 do
      sLists.Add(Languages.Name[i] + '[' + IntToHex(Languages.LocaleID[i],4) + ']');
  except
  end;
  Result:=sLists.Text;
  FreeAndNil(sLists);
end;