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 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi 判断是否为文件名

Delphi 通过jet引擎压缩和修复access数据库

Delphi 代码查询一个 ip 地址的归属地

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi检测网络连接状态

Delphi获取文件大小

Delphi 通过 arp 协议获取局域网内指定 ip 地址的机器的 mac 地址

Delphi 隐藏 tpagecontrol 的标签方法

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

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