摘要：
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 CloseHa. 阅读全文
