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);