uses Windows; function GetSystemLanguageName: string; var ID: LangID; LanguageName: array[0..255] of Char; begin // 获取当前系统 Locale // 对于简体中文,ID = 2052 ID := GetSystemDefaultLangID; // 将 ID 转换为文字 // 对于简体中文,LanguageName =“中文(中国)” VerLanguageName(ID, LanguageName, SizeOf(LanguageName)); Result := LanguageName; end; end.