delphi文件是否正在使用

本文整理自网络，侵删。

  function IsFileInUse(fName : string ) : boolean; 
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then
exit;
HFileRes := CreateFile(pchar(fName), 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中二进制文件数据存文件方法

Delphi winapi: setwindowtext - 设置窗口标题

Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄

Delphi的一些开发技巧和方法

Delphi 不管什么日期格式转换都不会错了

strpcopy 将字符串复制到字符数组中

Delphi android服务向导

Delphi idftp 使用被动连接

Delphi 去除 tstringlist 重复项

Delphi判断当前用户是否为管理员

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

转载请注明出处：木庄网络博客 » delphi文件是否正在使用