delphi – 如何在不覆盖现有文件的情况下创建线程文件？

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

导读：到现在为止,每当我想创建一个文件而不覆盖现有文件时,我就做了这样的事情： if not FileExists(filename) then stream := TFileStream.Create(filename,fmCreate); 但这不是线程安全的.所以现在我正在寻找一个线程安全版本. 也许我可以结合一些模式使TFileSt

到现在为止,每当我想创建一个文件而不覆盖现有文件时,我就做了这样的事情：

if not FileExists(filename) then
  stream := TFileStream.Create(filename,fmCreate);

但这不是线程安全的.所以现在我正在寻找一个线程安全版本.

也许我可以结合一些模式使TFileStream.Create(filename,fmCreate fm ???);如果文件存在则失败？

我需要这个与旧DOS程序通信目录锁.但是DOS程序没有打开文件.

（编辑：李大同）

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