Delphi 跨语言环境 乱码问题

delphi7+简体中文xp开发的软件,到英文版操作系统下成了乱码.......

这两天都在找解决的方法,网上找到一些:

在控制面板--->区域语言设置--->language :是否添加东亚语种的语言包

( 此步可省略 ---->高级选项 :添加 简体中文)

默认语言选成简体中文

这样就可以正常显示中文了,不过每次都要设置,很麻烦.

另外,比较简单一点的方法:

SetThreadLocale(DWORD(Word(SORT_DEFAULT) shl 16) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or
DWORD(Word(LANG_CHINESE)));

设置线程

这样也可以到达效果