Difference between revisions of "Unit Filesystem"

procedure FileSysInit;

function FileSysStart:LongWord;

function FileSysStop:LongWord;

procedure FileSysAsyncStart(Data:Pointer);

function FSGetPathDrive(const APath:String):Byte; inline;

function FSGetDriveType(ADrive:Byte):TDriveType; inline;

function FSGetDriveData(ADrive:Byte):TDriveData; inline;

function FSGetDriveAttr(ADrive:Byte):LongWord; inline;

function FSGetDriveLabel(ADrive:Byte):String; inline;

function FSSetDriveLabel(ADrive:Byte; const ALabel:String):Boolean; inline;

function FSGetDriveSerial(ADrive:Byte):LongWord; inline;

function FSSetDriveSerial(ADrive:Byte; ASerial:LongWord):Boolean; inline;

function FSIsDriveValid(ADrive:Byte):Boolean; inline;

function FSGetValidDrives:LongWord; inline;

function FSGetValidDriveNames:TStringList; inline;

function FSGetValidDriveStrings:String; inline;

function FSGetDriveFreeSpace(ADrive:Byte):LongWord; inline;

function FSGetDriveFreeSpaceEx(ADrive:Byte):Int64; inline;

function FSGetDriveTotalSpace(ADrive:Byte):LongWord; inline;

function FSGetDriveTotalSpaceEx(ADrive:Byte):Int64; inline;

function FSGetCurrentDrive:Byte; inline;

function FSSetCurrentDrive(const ADrive:String):Boolean; inline;

function FSFileOpen(const AFileName:String; AMode:Integer):Integer; inline;

function FSFileCreate(const AFileName:String):Integer; inline;

function FSDeleteFile(const AFileName:String):Boolean; inline;

procedure FSFileClose(AHandle:Integer); inline;

function FSRenameFile(const AOldName,ANewName:String):Boolean; inline;

function FSFileSeek(AHandle,AOffset,AOrigin:Integer):Integer; inline;

function FSFileFlush(AHandle:Integer):Boolean; inline;

function FSFileTruncate(AHandle:Integer):Boolean; inline;

function FSSetEndOfFile(AHandle:Integer):Boolean; inline;

function FSEndOfFile(AHandle:Integer):Boolean; inline;

function FSFilePos(AHandle:Integer):Integer; inline;

function FSFileSize(AHandle:Integer):Integer; inline;

function FSFileAge(const AFileName:String):Integer; inline;

function FSFileExists(const AFileName:String):Boolean; inline;

function FSFileGetAttr(const AFileName:String):Integer; inline;

function FSFileGetDate(AHandle:Integer):Integer; inline;

function FSFileSetAttr(const AFileName:String; AAttr:Integer):Integer; inline;

function FSFileSetDate(AHandle:Integer; AAge:Integer):Integer; inline;

function FSFileRead(AHandle:Integer; var ABuffer; ACount:Integer):Integer; inline;

function FSFileWrite(AHandle:Integer; const ABuffer; ACount:Integer):Integer; inline;

function FSCreateDir(const ADirName:String):Boolean; inline;

function FSRemoveDir(const ADirName:String):Boolean; inline;

function FSRenameDir(const AOldName,ANewName:String):Boolean; inline;

function FSGetCurrentDir:String; inline;

function FSSetCurrentDir(const ADirName:String):Boolean; inline;

function FSDirectoryExists(const ADirName:String):Boolean; inline;

procedure FSForceDirectories(ADirName:String); inline;

procedure FSDeleteTree(const ADirName:String); inline;

function FSFindFirst(const APath:String; AAttr:Integer; var ASearchRec:TSearchRec):Integer; inline;

function FSFindNext(var ASearchRec:TSearchRec):Integer; inline;

procedure FSFindClose(var ASearchRec:TSearchRec); inline;

function FSFileCopy(const ASourceFile,ADestFile:String; AFailIfExists:Boolean):Boolean; inline;

function FSFileCopyEx(const ASourceFile,ADestFile:String; AFailIfExists:Boolean; AUseSourceDate:Boolean; ADestDate:Integer; AUseSourceAttr:Boolean; ADestAttr:Integer):Boolean; inline;

function FSGetShortName(const AFileName:String):String; inline;

function FSGetLongName(const AFileName:String):String; inline;

function FSGetTrueName(const AFileName:String):String; inline;

function FSFileSeekEx(AHandle:Integer; const AOffset:Int64; AOrigin:Integer):Int64; inline;

function FSEndOfFileEx(AHandle:Integer):Boolean; inline;

function FSFilePosEx(AHandle:Integer):Int64; inline;

function FSFileSizeEx(AHandle:Integer):Int64; inline;

function FSFileAgeEx(const AFileName:String):TFileTime; inline;

function FSFileGetDateEx(AHandle:Integer):TFileTime; inline;

function FSFileSetDateEx(AHandle:Integer; AAge:TFileTime):Integer; inline;

function FSGetFileTime(AHandle:Integer; ACreateTime,AAccessTime,AWriteTime:PFileTime):Boolean; inline;

function FSSetFileTime(AHandle:Integer; ACreateTime,AAccessTime,AWriteTime:PFileTime):Boolean; inline;

function FSFindFirstEx(const APath:String; var ASearchRec:TFileSearchRec):Integer; inline;

function FSFindNextEx(var ASearchRec:TFileSearchRec):Integer; inline;

procedure FSFindCloseEx(var ASearchRec:TFileSearchRec); inline;

function FSDefineDosDevice(const ADeviceName,ATargetPath:String; AFlags:LongWord):Boolean; inline;

function FSGetDiskType(const ARootPath:String):LongWord; inline;

function FSGetDiskFreeSpace(const ARootPath:String; var ASectorsPerCluster,ABytesPerSector,ANumberOfFreeClusters,ATotalNumberOfClusters:LongWord):Boolean; inline;

function FSGetDiskFreeSpaceEx(const APathName:String; var AFreeBytesAvailableToCaller,ATotalNumberOfBytes,ATotalNumberOfFreeBytes:Int64):Boolean; inline;

function FSGetLogicalDrives:LongWord; inline;

function FSGetLogicalDriveStrings:String; inline;

function FSGetVolumeInformation(const ARootPath:String; var AVolumeName:String; var AVolumeSerialNumber,AMaximumComponentLength,AFileSystemFlags:LongWord; var ASystemName:String):Boolean; inline;

function FSQueryDosDevice(const ARootPath:String):String; inline;

function FSSetVolumeLabel(const AVolume:String; const ALabel:String):Boolean; inline;

function FSAreFileApisANSI:Boolean; inline;

function FSCloseFile(AHandle:THandle):Boolean; inline;

function FSCopyFile(const AExistingName,ANewName:String; AFailIfExists:Boolean):Boolean; inline;

function FSCreateFile(const AFileName:String; AAccessMode,AShareMode,ACreateFlags,AFileAttributes:LongWord):THandle; inline;

function FSFindCloseFile(AHandle:THandle):Boolean; inline;

function FSFindFirstFile(const AFileName:String; var AFindData:TWin32FindData):THandle; inline;

function FSFindNextFile(AHandle:THandle; var AFindData:TWin32FindData):Boolean; inline;

function FSFlushFileBuffers(AHandle:THandle):Boolean; inline;

function FSGetFileAttributes(const AFileName:String):LongWord; inline;

function FSGetFileSize(AHandle:THandle; var AFileSizeHigh:LongWord):LongWord; inline;

function FSGetFullPathName(const AFileName:String):String; inline;

function FSGetShortPathName(const ALongPath:String):String; inline;

function FSMoveFile(const AExistingName,ANewName:String):Boolean; inline;

function FSReadFile(AHandle:THandle; var ABuffer; ABytesToRead:LongWord; var ABytesRead:LongWord):Boolean; inline;

function FSSetFileApisToANSI:Boolean; inline;

function FSSetFileApisToOEM:Boolean; inline;

function FSSetFileAttributes(const AFileName:String; AFileAttributes:LongWord):Boolean; inline;

function FSSetFilePointer(AHandle:THandle; ADistanceToMove:LongWord; var ADistanceToMoveHigh:LongWord; AMoveMethod:LongWord):LongWord; inline;

function FSSetFilePointerEx(AHandle:THandle; const ADistanceToMove:Int64; var ANewFilePointer:Int64; AMoveMethod:LongWord):Boolean; inline;

function FSWriteFile(AHandle:THandle;const ABuffer; ABytesToWrite:LongWord; var ABytesWritten:LongWord):Boolean; inline;

function FSGetLongPathName(const AShortPath:String):String; inline;

function FSSetFileShortName(const AFileName,AShortName:String):Boolean;

function FSSetFileShortNameEx(AHandle:Integer; const AShortName:String):Boolean;

function FSCreateHardLink(const ALinkName,AFileName:String):Boolean;

function FSCreateSymbolicLink(const ALinkName,ATargetName:String; ADirectory:Boolean):Boolean;

function FSCreateDirectory(const APathName:String):Boolean; inline;

function FSGetCurrentDirectory:String; inline;

function FSRemoveDirectory(const APathName:String):Boolean; inline;

function FSSetCurrentDirectory(const APathName:String):Boolean; inline;

procedure SystemDoClose(Handle:LongInt);

procedure SystemDoErase(Name:PChar; NameChangeable:Boolean);

procedure SystemDoRename(Name1,Name2:PChar; Name1Changeable,Name2Changeable:Boolean);

function SystemDoWrite(Handle:LongInt; Address:Pointer; Len:LongInt):LongInt;

function SystemDoRead(Handle:LongInt; Address:Pointer; Len:LongInt):LongInt;

function SystemDoFilePos(Handle:LongInt):LongInt;

procedure SystemDoSeek(Handle,Pos:LongInt);

function SystemDoSeekEnd(Handle:LongInt):LongInt;

function SystemDoFileSize(Handle:LongInt):LongInt;

procedure SystemDoTruncate(Handle,Pos:LongInt);

procedure SystemDoOpen(var F; Name:PFileTextRecChar; Flags:LongInt; NameChangeable:Boolean);

procedure SystemDoMkDir(const Dir:RawByteString);

procedure SystemDoRmDir(const Dir:RawByteString);

procedure SystemDoChDir(const Dir:RawByteString);

procedure SystemDoGetDir(Drive:Byte; var Dir:RawByteString);

function SysUtilsFileOpen(const FileName:RawByteString; Mode:Integer):LongInt;

function SysUtilsFileCreate(const FileName:RawByteString):LongInt;

function SysUtilsDeleteFile(const FileName:RawByteString):Boolean;

procedure SysUtilsFileClose(Handle:LongInt);

function SysUtilsRenameFile(const OldName,NewName:RawByteString):Boolean;

function SysUtilsFileSeek(Handle,Offset,Origin:LongInt):LongInt;

function SysUtilsFileTruncate(Handle:THandle;Size:Int64):Boolean;

function SysUtilsFileAge(const FileName:RawByteString):LongInt;

function SysUtilsFileExists(const FileName:RawByteString):Boolean;

function SysUtilsFileGetAttr(const FileName:RawByteString):LongInt;

function SysUtilsFileGetDate(Handle:LongInt):LongInt;

function SysUtilsFileSetAttr(const FileName:RawByteString; Attr:LongInt):LongInt;

function SysUtilsFileSetDate(Handle,Age:LongInt):LongInt;

function SysUtilsFileRead(Handle:LongInt; out Buffer; Count:LongInt):LongInt;

function SysUtilsFileWrite(Handle:LongInt; const Buffer; Count:LongInt):LongInt;

function SysUtilsFileSeekEx(Handle:LongInt; Offset:Int64; Origin:LongInt):Int64;

function SysUtilsInternalFindFirst(const Path:RawByteString; Attr:LongInt; out SearchRec:TSearchRec; var Name:RawByteString):LongInt;

function SysUtilsInternalFindNext(var SearchRec:TSearchRec; var Name:RawByteString):LongInt;

procedure SysUtilsInternalFindClose(var Handle:THandle);

function SysUtilsDiskFree(Drive:Byte):Int64;

function SysUtilsDiskSize(Drive:Byte):Int64;

function SysUtilsDirectoryExists(const Directory:RawByteString):Boolean;

function FileSysLoggingStart(Logging:PLoggingDevice):LongWord;

function FileSysLoggingStop(Logging:PLoggingDevice):LongWord;

function FileSysLoggingOutput(Logging:PLoggingDevice; const Data:String):LongWord;

function FileSysLoggingSetTarget(Logging:PLoggingDevice; const Target:String):LongWord;

function FileSysStorageGetMediaType(Storage:PStorageDevice):TMediaType;

function FileSysStorageGetController(Storage:PStorageDevice):TDiskController;

procedure FileSysStorageDeviceAdd(Event:PStorageDeviceEvent);

procedure FileSysStorageDeviceInsert(Event:PStorageDeviceEvent);

function FileSysStorageDeviceRemove(Storage:PStorageDevice):LongWord;

function FileSysStorageDeviceEject(Storage:PStorageDevice):LongWord;

function FileSysStorageDeviceEnum(Storage:PStorageDevice; Data:Pointer):LongWord;

function FileSysStorageDeviceNotify(Device:PDevice; Data:Pointer; Notification:LongWord):LongWord;

function ComparePartitions(APartition1,APartition2:Pointer):Integer;

procedure FileSysLog(Level:Integer;const AText:String);

procedure FileSysLogInfo(const AText:String); inline;

procedure FileSysLogError(const AText:String); inline;

procedure FileSysLogDebug(const AText:String); inline;

procedure CacheCheckTimer(Data:Pointer);

procedure EntryCheckTimer(Data:Pointer);

procedure EntryProcessTimer(Data:Pointer);

function MediaTypeToString(AType:TMediaType):String;

function FloppyTypeToString(AType:TFloppyType):String;

function ImageTypeToString(AType:TImageType):String;

function DriveTypeToString(AType:TDriveType):String;

function FileSysTypeToString(AType:TFileSysType):String;

function StringToFileSysType(const AFileSysType:String):TFileSysType;

function PartitionIdToString(AId:Byte):String;

function StringToPartitionId(const APartitionId:String):Byte;

function CacheModeToString(ACacheMode:TCacheMode):String;

function CacheStateToString(ACacheState:TCacheState):String;

function CachePageTimeToDateTime(const APageTime:Int64):TDateTime;