判斷文件是否正在使用
發(fā)表時(shí)間：2023-08-04 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]function IsFileInUse(fName : string) : boolean; var HFileRes : HFILE; begin Result := false; ...
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 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;
