判断文件是否已被占用

跑不通！这个得改下

确实没用： function IsFileInUse(AName: string): boolean; var hFileRes: HFILE; begin Result := False; if not FileExists(AName) then exit; hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := hFileRes = INVALID_HANDLE_VALUE; i

啊 啊 没用 啊