Delphi：文件访问和兼容性文件(Windows 7)

发布时间：2020-12-15 09:20:21 所属栏目：大数据来源：网络整理

导读：假设我的应用程序名为mysoft,而我想读取的文件是afile.bin. mysoft位于程序文件夹中. 我们还假设没有使用管理员权限执行mysoft. procedure TForm1.Button1Click(Sender: TObject);var afile: File of Byte;begin AssignFile(Infile,'C:Program Filesmysoft

假设我的应用程序名为mysoft,而我想读取的文件是afile.bin. mysoft位于程序文件夹中.
我们还假设没有使用管理员权限执行mysoft.

procedure TForm1.Button1Click(Sender: TObject);
var 
  afile: File of Byte;
begin
  AssignFile(Infile,'C:Program Filesmysoftafile.bin');
  Reset(afile);
  CloseFile(afile);
end;

上面的简单代码将在兼容性文件文件夹中创建afile.bin的副本.

我的问题是：

>为什么？我只读了该死的文件,我不想修改它.
>除了在另一个文件夹中移动文件之外,如何防止这种情况？

我再次只阅读数据文件,我不明白.

解决方法

对Reset的调用导致文件被打开以进行写入.那是因为默认值 System.FileMode是fmOpenReadWrite.由于您的应用程序运行虚拟化,并且由于您的用户令牌没有管理员权限,因此虚拟化层会启动并在虚拟存储中创建该文件的副本.

使用传统Pascal I / O可用的解决方案是将FileMode设置为fmOpenRead.然后重置将打开文件以供读取,并且不会调用虚拟化层.

请记住,FileMode是一个影响所有传统Pascal I / O的全局变量.如果你有线程,或者忘记在需要编写文件时忘记将FileMode设置回fmOpenReadWrite,那么你会感到很遗憾.反叛不是吗？处理广泛的全局标志以控制文件访问模式！好吧,这些东西是在应用程序有线程之前发明的.早在OOP发明之前.所以我能理解为什么会这样.

从中汲取的教训是,现在是时候切换到一种现代形式的文件访问.例如,TFileStream.

实际上,也是您在应用程序中禁用虚拟化的时候了.近6年前,Vista中引入了虚拟化.这对于尚未针对Vista进行重新编译的旧程序来说是一种帮助.您的应用程序不应该仍在使用它.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!