解决在Windos7下Delphi应用程序乱码问题

1,直接将英文的win7改成中文,步骤如下:

—— 开始 
—— Control Panel 
—— Change display language 
—— 选择 Formats 选项卡 
—— Format 选择 Chinese (Simplified, PRC) 
—— 选择 Location 选项卡 
—— 选择 China 
—— 选择 Administrative 选项卡 
—— 在 Language for non-Unicode programs 下 Change system locale... 为 Chinese (Simplified, PRC) 
—— Restart

2,这个是转载别人的

http://hi.baidu.com/523399/blog/item/5d422c7ad8dc6be52e73b3af.html

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启动后就会自动加载我们的包了，这个包只需要一个单元文件：

1 unit RTLFix;
2 
3 interface
4 
5 uses
6    Windows;
7   
8 implementation
9 
10 initialization
11    SetThreadLocale(LOCALE_SYSTEM_DEFAULT);
12 end.
13

包被加载时，initialization节下的代码会自动执行，就达到了我们的目的。
当然，我们的应用程序里也要写上一句SetThreadLocale(LOCALE_SYSTEM_DEFAULT)，并且要让它尽早执行。