摘要： 核心函数是API函数：GetSystemDefaultLangID 和 VerLanguageName。uses Windows;function GetSystemLanguageName: string;var ID: LangID; LanguageName: array[0..255] of Char;begin // 获取当前系统 Locale // 对于简体中文，ID = 2052 ID := GetSystemDefaultLangID; // 将 ID 转换为文字 // 对于简体中文，LanguageName =“中文(中国)” VerLanguageName(ID, Lang 阅读全文

摘要： 在Delphi下，AnsiString 和 WideString 的存储与管理各有不同，这里提供互相转换的函数一对。/// Wide String -> Ansi Stringfunction WideStringToAnsiString(const strWide: WideString; CodePage: Word): AnsiString;var Len: integer;begin Result := ''; if strWide = '' then Exit; Len := WideCharToMultiByte(CodePage, WC_CO 阅读全文