关于又能返回文件生成时间时,又不影响其实程序对该文件的读写的方法.

Question

因为我现正写一个文件备份的程序.
因为在复制前我要对那个新生成的文件的生成时间作判断,所以是用
I := FileOpen(f_name1, fmOpenRead);//返回文件ID
DS:=FileGetDate(I);//读文件的时间
FileClose(I);//关闭文件
这个方式读文件时间,时间判断后再用
copyfile(f_name1,f_name2, false);
复制文件.程序是能运行正常的,但发现有个问题出现.就是在进行上面的文件打开和文件复制的过程中,在FileOpen后又在FileClose前这一刻,外部主程序对这文件再进行打开或写入时就会出现错误了.请问这有没方法解决呢? 例如像记事本一样,就算打开了那个文件,外部也可以自由读取或写入.

Answer 1

打开文件之前设置FileMode：
FileMode := fmOpenRead + fmShareDenyNone;