判断文件是否已被占用

最新推荐文章于 2021-06-01 11:48:04 发布

iteye_11002

最新推荐文章于 2021-06-01 11:48:04 发布

阅读量194

点赞数

functionIsFileInUse(AName:string):boolean;

var
hFileRes:HFILE;

begin
Result:=False;

ifnotFileExists(AName)thenexit;

hFileRes:=CreateFile(PChar(AName),GENERIC_READorGENERIC_WRITE,0,

nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Result:=hFileRes=INVALID_HANDLE_VALUE;

ifnotResultthen
CloseHandle(hFileRes);

end;