本文整理自网络，侵删。
在工程文件头加入 Windows引用
在begin后加入
SetThreadLocale(
DWORD(Word(SORT_DEFAULT) shl 16) or
DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or
DWORD(Word(LANG_CHINESE))
);
原理：设置程序的所在区域
方法来自互联网，备忘~
相关阅读 >>
Delphi getsys32path()得到系统system32路径
Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif
更多相关阅读请进入《Delphi》频道 >>
