本文整理自网络，侵删。
在工程文件头加入 Windows引用
在begin后加入
SetThreadLocale(
DWORD(Word(SORT_DEFAULT) shl 16) or
DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or
DWORD(Word(LANG_CHINESE))
);
原理：设置程序的所在区域
方法来自互联网，备忘~
相关阅读 >>
Delphi xe 网上获取北京时间android app 启动黑屏优化补丁
更多相关阅读请进入《Delphi》频道 >>
