都是manifest惹的祸-创新互联

开发的程序有一个导出功能，导出前会有一个简单的选择目录的步骤。简单啊，简个对话框，点确定不就完事了？没想到的是，这个“简单”的动作整整耗了我一天的时间。

最初出现的问题是，在win10上，有一些目录是被严格控制写入的，比如C:\，用户选择了这样的目录之后，导出就会报错。这也简单啊，用户选择目录之后，对这个目录做一个简单的测试，写一个空白文件进去，写成功了就说明这个目录可用，写入失败就说明这个目录没有权限写入呗，区区三五行代码，so easy...

类似的代码如下：

var

sl:TStringList;

begin

sl:=TStringList.Create;

try

sl.SaveToFile('C:\datatest.txt');

except

（说明没权限，重新让用户再选一个目录）

end;

sl.Free;

end;

意想不到的问题来了，用户选择了C盘根目录这样注定会写入失败的路径时，这段代码运行的结果竟然说写入是成功的！但是对应的目录上实际上是没有这个文件的，太诡异了。在SaveToFie之后用FileExists函数来检测，也是说磁盘上已经有这个文件了，写入成功。以为自己眼花，打开文件浏览器再核对一次，的的确确是没有这文件，我。。。。

接下来各种调整（此处省略掉一万字。。。），比如说生怕写入动作一定要释放变量后才真正执行，就在写入后赶紧将TStringlist给free掉，或者改成了用函数对TextFile的文件操作，强制刷入磁盘，结果无一例外，还是和之前一样。

不信邪于是新建了一个工程来试，结果跌大眼镜，这段代码在新工程里可以正确无误的执行。看来问题出现在工程设置上，因为我这个工程是从旧版本升级来的，估计有一些设置没有配上。对工具仔细比对了两个dproj文件，在差异处没看出什么道道来，又在菜单project——option里面看，也是一无所获。准备关掉option对话框的时候，随手把manifest的设置点了一下，原来是none，改成了auto generate。关掉了再运行，居然正确了，瞎猫竟然碰到了死老鼠！

查了一下manifest的作用，原来Application manifest相当于程序的配置和说明，在XP的时候提出，在Vista的时候做了改进。估计我之前的程序从老版本Delphi升级过来，manifest部分没有设置，所以win10将程序作为老式程序，在兼容模式下运行了，老程序是可以写入C盘根目录的，当然是假的写入，只在本进程内可见。当我检测到可以写入，但真正调用Excel来导出的时候就报错了。当我生成manifest，运行在真实模式的时候，终于得出了真正的结果。而那个新工程因为是新版本Delphi建立的，默认就设置了manifest，所以运行一切正常。

挖掘到了manifest这个宝藏，还顺便解决了困扰我的一些问题。比如说，在里面勾选允许run time themes，工具栏上面的图标显示也正常了，不会在显示在偏上的位置。DPI（manifest自动生成之后，这一项也会自动选上）选择系统识别或者显示器识别，原来在高分辨率下显示模糊的程序也清晰了，perfect！

下面是一篇有关windows程序manifest说明的文章：

http://www.softwareace.cn/?p=1207

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。