明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

判斷文件是否正在使用

發(fā)表時間：2023-08-04 來源：明輝站整理相關軟件相關文章人氣：

[摘要]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;