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在pagecontrol1上面的分页动态创建edit组件

Delphi 程序窗体最大化、组件居中显示代码

Delphi 获取按键键值

vclzip控件的简单使用

Delphi 实现 托动pagecontrol上的标签页

Delphi 压缩图片算法

Delphi 禁止截屏printscreen

Delphi 对比两个文件是否相同的函数

Delphi httpclient async异步获取网页代码

Delphi 判断某个系统服务是否存在及相关状态

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

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