根据文件路径检测文件大小并检测是否正在被占用

function CheckFileSize(sPath: string): Int64;
varFilePath: AnsiString;FStream:TFileStream;bOpen:Boolean;//判断文件FileName是否正在被打开/使用function IsFileInUse(const FileName: string): boolean;varHFileRes: HFILE;beginif not FileExists(FileName) thenbeginResult := False;Exit;end;tryHFileRes := CreateFile(pchar(FileName), GENERIC_READ,0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);Result := (HFileRes = INVALID_HANDLE_VALUE);if not Result thenCloseHandle(HFileRes);exceptResult := true;end;end;
begintrytryIsFileInUse(sPath);if FileExists(sPath) thenbeginbOpen := false;while not bOpen dobegintryIsFileInUse(sPath);FStream := TFileStream.Create(sPath, fmOpenWrite);bOpen := true;except on E: Exception dobOpen := false;end;end;FStream.Position := FStream.Size;Result := FStream.Size;endelsebeginFStream := TFileStream.Create(sPath, fmCreate);Result := 0;end;excepton e: Exception dobeginResult := -2;end;end;finallyFreeAndNil(FStream);end;
end;

根据文件路径检测文件大小并检测是否正在被占用相关推荐

网络安全课第七节文件上传漏洞的检测与防御
13 文件上传漏洞:种植服务器木马的捷径上一讲介绍过反序列化漏洞,利用漏洞常可以造成执行代码的严重后果. 从本讲开始将介绍文件上传漏洞,它比反序列化漏洞原理与利用更加简单,但同样可以达到控制服务器的 ...
测试用html文件是否存在,ASP如何检测某文件夹是否存在,不存在则自动创建
直接给大家分享一下脚本之家测试正常可以使用的代码,并且支持多级目录创建代码一 Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCrea ...
1，我们无法创建新的分区，也找不到现有的分区。有关详细信息，请参阅安装日志文件。2，Windows 检测到EFI系统分区格式为NTFS。将EFI系统分区格式化为FAT32，然后重新启动安装。
使用U盘重装win10系统时的两个错误.(我的是新买的固态硬盘作为系统盘,所以才重装系统) 1,我们无法创建新的分区,也找不到现有的分区.有关详细信息,请参阅安装日志文件. 2,Windows 检测到 ...
越狱检测／越狱检测绕过
越狱检测/越狱检测绕过--xCon 一直忽略了越狱检测与越狱检测绕过的问题,因为我认为在app争抢装机率的环境下,是不会在乎对方的设备越狱与否的.但很显然,我忽略了一个问题,app在设计的时候或许会依 ...
越狱检测／越狱检测绕过—xCon
http://www.freebuf.com/articles/wireless/6318.html 一直忽略了越狱检测与越狱检测绕过的问题,因为我认为在app争抢装机率的环境下,是不会在乎对方的设备 ...
越狱检测／越狱检测绕过——xCon
原文http://blog.csdn.net/zkdemon/article/details/8242064 越狱检测/越狱检测绕过--xCon 一直忽略了越狱检测与越狱检测绕过的问题,因为我认为在a ...
Lua 文件 I/O （读取文件路径注意）
Lua 文件 I/O Lua I/O 库用于读取和处理文件.分为简单模式(和C一样).完全模式. 简单模式(simple model)拥有一个当前输入文件和一个当前输出文件,并且提供针对这些文件相关的 ...
python读取文件路径格式_Python学习笔记读写文件之文件与文件路径
随笔记录方便自己和同路人查阅. #------------------------------------------------我是可耻的分割线--------------------------- ...
设置路径是服务器上的文件,设置服务器文件路径
设置服务器文件路径内容精选换一换为了防止您的主机被勒索病毒侵害,请创建防护策略,将重点防御的文件添加到防护策略的监控路径中,并启动机器学习.机器学习会自动聚类并收集该策略下的所有服务器的正常进程 ...

根据文件路径检测文件大小并检测是否正在被占用

根据文件路径检测文件大小并检测是否正在被占用相关推荐

最新文章

热门文章