delphi 检测文件是否被占用


本文整理自网络,侵删。

 //delphi 检测文件是否被占用
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFileRes = INVALID_HANDLE_VALUE;
if not Result then
CloseHandle(hFileRes);
end;

相关阅读 >>

Delphi 内存管理[5]

Delphi sender 的用法举例

Delphi map file

Delphi 对提交参数编码

Delphi 图像识别技术(逐行扫描识别)

Delphi 取最前窗口标题(不重复)

Delphi实现类似android锁屏的密码锁控件

Delphi 获取文件创建时间

Delphi监控文件夹

Delphi getprocessmemoryinfo获取进程占用内存大小

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...