获取系统中的语言

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;