delphi 判断文件是否被使用

官方Delphi 学习QQ群： 682628230（三千人）

频道

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;

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

执行时间: 0.03682804107666 seconds