解决windows 7下Delphi 7打开旧工程时的乱码问题

作者: 傻猫    分类: 搞软件     发布时间: 07-13 21:04    浏览次数: 7171     无留言

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

Delphi7运行在windows7的问题解决:

虽然在安装过程中和运行D7过程中会提示兼容性问题,可是忽略后即OK。如果不行,你可以按以下方案解决:

相信很多delphi爱好者因在vista不能正常使用delphi7而烦恼,甚至有些朋友说vista的出现就是delphi的未日了。我可以明确告诉 大家,delphi7绝对可以在vista下正常使用。在Vista上安装过d7的朋友都知道,当你正常安装d7后,启动d7时,屏幕会出现一个对话框。 对话框的提示很明显,delphi不能rename一个文件,这说明了什么?会不会是用户的权限不够?没错,你猜对了。我现在给大家提供一个解决方案,大 家可以参考一下。
step1,修改“C:\Program Files\Borland\Delphi7\Bin”的权限(右击上面的目录-》属性-》安全-》编辑-》修改后确定退出),赋予于users组modify权限;

  step2,修改“C:\Program Files\Borland\Delphi7\Projects”的权限(右击上面的目录-》属性-》安全-》编辑-》修改后确定退出),赋予于users组modify权限;

  step3,运行d7,一切正常。

添加新评论