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

最新推荐文章于 2024-01-26 09:52:37 发布

转载最新推荐文章于 2024-01-26 09:52:37 发布 · 826 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://www.cnblogs.com/leewiki/archive/2011/12/15/2289368.html

本文详细介绍了如何将Windows 7系统的界面语言从英文改为中文的步骤，包括更改显示语言、格式和地区设置。同时，针对使用Delphi 7打开旧工程时出现的中文乱码问题，提供了通过修改线程locale来解决的方案。

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

转载于:https://www.cnblogs.com/leewiki/archive/2011/12/15/2289368.html

标签

#操作系统