本文整理自网络，侵删。
在工程文件头加入 Windows引用
在begin后加入
SetThreadLocale(
DWORD(Word(SORT_DEFAULT) shl 16) or
DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or
DWORD(Word(LANG_CHINESE))
);
原理：设置程序的所在区域
方法来自互联网，备忘~
相关阅读 >>
Delphi sendmessage这个函数有很多奇妙的用途
Delphi 解决Delphi indy10下 utf8码转换的问题
更多相关阅读请进入《Delphi》频道 >>
