08 2022 档案

防止中文程序在英文系统上乱码
摘要：uses Windows; 在工程文件中添加一句代码，如下： Application.Initialize; //添加以下一句解决外文系统乱码问题 SetThreadLocale(DWORD(Word(SORT_DEFAULT) shl 16) or DWORD(Word(SUBLANG_CHINE 阅读全文
posted @ 2022-08-19 13:01 小洋房 阅读(70) 评论(0) 推荐(0)
[Delphi] 快速获取文件大小
摘要：function GetFileSize(const fName: AnsiString): Int64;var hFile: THandle;begin hFile := _lopen(PAnsiChar(fName), OF_READ); Result := FileSeek(hFile, In 阅读全文
posted @ 2022-08-19 12:52 小洋房 阅读(201) 评论(0) 推荐(0)