在windows 7中使用Delphi 7的朋友注意乱码问题

Windows 7不错，Delphi 7也不错，不过两者合作不怎么协调。用Delphi 7打开旧工程，窗体上的中文全部成了乱码，这是由于Delphi 7将dfm文件中的unicode字符串转换成AnsiString时选择了错误的代码页，本来应该选择936代码页，却错误选择了1252。其实这也算是Windows 7 Beta版本的BUG吧?控制面板里已经把system locale设置成了Chinese PRC，但是系统运行的线程的locale还被windows初始化为1033，而locale 1033的代码也就是1252。Delphi 7放着system locale不用要去用线程各自的locale，也够笨的了。所以我们解决的办法就是改变线程的locale，这可以用SetThreadLocale这个API来解决。写一个bpl包安装到Delphi IDE中，IDE启动后就会自动加载我们的包了，这个包只需要一个单元文件：
unit RTLFix;interfaceuses
   Windows;
   
implementationinitialization
   SetThreadLocale(LOCALE_SYSTEM_DEFAULT);
end.
包被加载时，initialization节下的代码会自动执行，就达到了我们的目的。
当然，我们的应用程序里也要写上一句SetThreadLocale(LOCALE_SYSTEM_DEFAULT)，并且要让它尽早执行。