判斷文件FileName是否正在被打開/使用，如果被占用返回true，否則返回false

function IsFileInUse(const FileName: string): boolean;
var
? HFileRes: HFILE;
begin
? if not FileExists(FileName) then
? begin
? ? Result := False;
? ? Exit;
? end;
? try
? ? HFileRes := CreateFile(pchar(FileName), GENERIC_READ,
? ? ? 0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
? ? Result := (HFileRes = INVALID_HANDLE_VALUE);
? ? if not Result then
? ? ? CloseHandle(HFileRes);
? except
? ? Result := true;
? end;
end;

總結(jié)

以上是生活随笔為你收集整理的判断文件是否被占用的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。