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),并且要让它尽早执行。