Difference between revisions of "TFileSystem"

Revision as of 04:15, 22 January 2025

`constructor Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);`
`destructor Destroy; override;`
private
`FLock:TSynchronizerHandle;`
`FLocalLock:TMutexHandle;`
protected
`FDriver:TFileSysDriver;`
`FVolume:TDiskVolume;`
`FDrive:TDiskDrive;`

`FPathChar:String;`	Path separator character
`FNameChar:String;`	Name separator character
`FFileChar:String;`	File separator character
`FRootChar:String;`	Root specifier character (eg C:)
`FRootName:String;`
`FRootPath:String;`	Root Path must be prefixed with \\.
`FMaxFile:Integer;`
`FMaxPath:Integer;`
`FMaxAltFile:Integer;`
`FMaxAltPath:Integer;`
`FAttributes:LongWord;`
`FMaxAttributes:LongWord;`
`FMaskAttributes:LongWord;`
`FMountPointTag:LongWord;`
`FSymbolicLinkTag:LongWord;`
`FMinFileTime:TFileTime;`
`FSystemName:String;`
`FVolumeName:String;`
`FVolumeGUID:String;`
`FVolumeSerial:LongWord;`
`FFileSysType:TFileSysType;`

`FSectorSize:Word;`
`FStartSector:Int64;`
`FSectorCount:LongWord;`

`FRoot:TDiskEntry;`

`FCurrentIndex:LongWord;`	TLS Index for storing current directory
`FCurrentEntry:TDiskEntry;`	Current directory when global current directory is enabled

`FChunks:TFileSysList;`
`FTables:TFileSysList;`
`FBlocks:TFileSysList;`
`FEntries:TFileSysTree;`
`FCatalogs:TFileSysList;`
`FAcls:TFileSysList;`

`FChunkLocal:TMutexHandle;`	Local Lock shared by all DiskChunk objects
`FTableLocal:TMutexHandle;`	Local Lock shared by all DiskTable objects
`FBlockLocal:TMutexHandle;`	Local Lock shared by all DiskBlock objects
`FEntryLocal:TMutexHandle;`	Local Lock shared by all DiskEntry objects
`FCatalogLocal:TMutexHandle;`	Local Lock shared by all DiskCatalog objects
`FSecurityLocal:TMutexHandle;`	Local Lock shared by all DiskSecurity objects
`FAclLocal:TMutexHandle;`	Local Lock shared by all DiskAcl objects
`FAceLocal:TMutexHandle;`	Local Lock shared by all DiskAce objects

`FMarkDirty:Boolean;`	Mark the volume as dirty when dismounting (Either by request or due to error)
`FMarkClean:Boolean;`	Mark the volume as clean when dismounting (Only by request)
`FMarkError:Boolean;`	Error was encounted on volume, mark as dirty when dismounting
`FLogDirty:Boolean;`	LogFile was dirty when mounted (if supported by filesystem)
`FMountDirty:Boolean;`	Volume was dirty when mounted, leave marked as dirty when dismounting

`FOemConvert:Boolean;`	Default to True overidden by descendants if not supported
`FNumericTail:Boolean;`	Default to True overidden by descendants if not supported

`FReadOnly:Boolean;`	Default to False overidden by descendants if True
`FLongNames:Boolean;`	Default to True overidden by descendants if not supported
`FDataStreams:Boolean;`	Default to False overidden by descendants if supported
`FReparsePoints:Boolean;`	Default to False overidden by descendants if supported
`FCaseSensitive:Boolean;`	Default to False overidden by descendants if supported
`FCasePreserved:Boolean;`	Default to False overidden by descendants if supported
`FUnicodeNames:Boolean;`	Default to False overidden by descendants if supported
`FPersistentAcls:Boolean;`	Default to False overidden by descendants if supported
`FFileCompression:Boolean;`	Default to False overidden by descendants if supported
`FVolumeQuotas:Boolean;`	Default to False overidden by descendants if supported
`FSparseFiles:Boolean;`	Default to False overidden by descendants if supported
`FRemoteStorage:Boolean;`	Default to False overidden by descendants if supported
`FVolumeCompressed:Boolean;`	Default to False overidden by descendants if supported
`FObjectIds:Boolean;`	Default to False overidden by descendants if supported
`FEncryption:Boolean;`	Default to False overidden by descendants if supported

`FBootCatalog:Boolean;`	Default to False overidden by descendants if supported
`FVirtualVolume:Boolean;`	Default to False overidden by descendants if supported
`FFolderEncryption:Boolean;`	Default to False overidden by descendants if supported
`FFolderCompression:Boolean;`	Default to False overidden by descendants if supported

`FBootSector:LongWord;`	Relative to StartSector
`FBootBackup:LongWord;`	Relative to StartSector

`FSectorBuffer:Pointer;`	Buffer of exactly sector size
`FSectorLock:TMutexHandle;`	Lock for sector buffer

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function SectorLock:Boolean;`
`function SectorUnlock:Boolean;`

`procedure SetDrive(ADrive:TDiskDrive); virtual;`
`procedure SetVolume(AVolume:TDiskVolume); virtual;`

`function GetPathChar:String; virtual;`
`function GetNameChar:String; virtual;`
`function GetFileChar:String; virtual;`
`function GetRootChar:String; virtual;`
`function GetRootName:String; virtual;`
`function GetRootPath:String; virtual;`
`function GetSystemName:String; virtual;`
`function GetVolumeName:String; virtual;`
`function GetVolumeGUID:String; virtual;`

`function LoadPathChar:String; virtual;`
`function LoadNameChar:String; virtual;`
`function LoadFileChar:String; virtual;`
`function LoadRootChar:String; virtual;`
`function LoadRootName:String; virtual;`
`function LoadRootPath:String; virtual;`
`function LoadMaxFile:Integer; virtual;`
`function LoadMaxPath:Integer; virtual;`
`function LoadMaxAltFile:Integer; virtual;`
`function LoadMaxAltPath:Integer; virtual;`
`function LoadAttributes:LongWord; virtual;`	Get the Volume Attributes
`function LoadMaxAttributes:LongWord; virtual;`	Get the Maximum File Attributes (used when setting file attributes)
`function LoadMaskAttributes:LongWord; virtual;`	Get the File Attributes Mask (used when getting file attributes)
`function LoadMountPointTag:LongWord; virtual;`
`function LoadSymbolicLinkTag:LongWord; virtual;`
`function LoadMinFileTime:TFileTime; virtual;`
`function LoadSystemName:String; virtual;`
`function LoadVolumeName:String; virtual;`
`function LoadVolumeGUID:String; virtual;`
`function LoadVolumeSerial:LongWord; virtual;`
`function LoadFileSysType:TFileSysType; virtual;`

`function LoadSectorSize:Word; virtual;`
`function LoadStartSector:Int64; virtual;`
`function LoadSectorCount:LongWord; virtual;`

`function GetCurrent:TDiskEntry; virtual;`
`function SetCurrent(ACurrent:TDiskEntry):Boolean; virtual;`

`function FillSectors(ASector,ACount:LongWord; AValue:Byte):Boolean;`

`function ReadSectors(ASector,ACount:LongWord; var ABuffer):Boolean;`
`function WriteSectors(ASector,ACount:LongWord; const ABuffer):Boolean;`

`function ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;`
`function WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;`

`function LoadTables:Boolean; virtual;`
`function LoadBlocks:Boolean; virtual;`
`function LoadEntries(AParent:TDiskEntry):Boolean; virtual;`
`function LoadCatalogs:Boolean; virtual;`

`function LoadTable(ATableNo:LongWord):Boolean; virtual;`
`function LoadBlock(ABlockNo:LongWord):Boolean; virtual;`
Note: LoadEntry can be implemented if needed but is not defined here.
Note: LoadCatalog can be implemented if needed but is not defined here.

`function UnloadEntries(AParent:TDiskEntry):Boolean; virtual;`

`function AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;`
`function AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;`
`function RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;`
`function RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; virtual;`
`function RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; virtual;`
`function MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; virtual;`

`function AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; virtual;`
`function RemoveCatalog(ACatalog:TDiskCatalog):Boolean; virtual;`
`function CheckCatalog(ACatalog:TDiskCatalog; ALock:Boolean; AState:LongWord):Boolean; virtual;`

`function GetCatalogByNo(ACatalogNo:LongWord; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;`
`function GetCatalogByName(const AName:String; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;`
`function GetCatalogByNext(APrevious:TDiskCatalog; ALock,AUnlock:Boolean; AState:LongWord):TDiskCatalog; virtual;`

`function GetNextCatalogNo:LongWord; virtual;`
`function GetMaxCatalogNo:LongWord; virtual;`

`function AddHardlink(AEntry,AParent:TDiskEntry; const AName:String; AReference:Boolean):TDiskEntry; virtual;`
`function RemoveHardlink(AParent,AEntry:TDiskEntry):Boolean; virtual;`

`function AddMountPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;`
`function RemoveMountPoint(AEntry:TDiskEntry):Boolean; virtual;`

`function AddJunctionPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;`
`function RemoveJunctionPoint(AEntry:TDiskEntry):Boolean; virtual;`

`function AddSymbolicLink(AParent:TDiskEntry; const AName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;`
`function AddSymbolicLinkEx(AParent:TDiskEntry; const AName,AAltName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;`
`function RemoveSymbolicLink(AParent,AEntry:TDiskEntry):Boolean; virtual;`

`function SetTable(ATable:TDiskTable):Boolean; virtual;`
`function SetBlock(ABlock:TDiskBlock):Boolean; virtual;`
`function SetEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;`
`function SetCatalog(ACatalog:TDiskCatalog):Boolean; virtual;`
`function SetReparse(AParent,AEntry:TDiskEntry; AReparse:TDiskReparse):Boolean; virtual;`
`function SetSecurity(AParent,AEntry:TDiskEntry; ASecurity:TDiskSecurity):Boolean; virtual;`

`function SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; virtual;`

`function GetTable(ATableNo:LongWord):TDiskTable; virtual;`
`function GetTableEx(ATableNo:LongWord; AWrite:Boolean):TDiskTable; virtual;`
`function GetBlock(ABlockNo:LongWord):TDiskBlock; virtual;`
`function GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; virtual;`
`function GetEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord):TDiskEntry; virtual;`
`function GetEntryEx(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;`
`function GetCatalog(ACatalogNo:LongWord):TDiskCatalog; virtual;`
`function GetCatalogEx(ACatalogNo:LongWord; AWrite:Boolean):TDiskCatalog; virtual;`
`function GetReparse(AEntry:TDiskEntry):TDiskReparse; virtual;`
`function GetSecurity(AEntry:TDiskEntry):TDiskSecurity; virtual;`

`function MatchEntry(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny:Boolean):TDiskEntry; virtual;`
`function MatchEntryEx(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny,AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;`

`function GetEntryPath(AEntry:TDiskEntry; AAltName:Boolean):String;`
`function GetEntryName(AEntry:TDiskEntry; AAltName:Boolean):String;`

`function SplitPath(const APath:String; var ARelative:Boolean; AFolders:TStrings; var AName:String):Boolean; virtual;`
`function SplitName(const AName:String; var AFile,AStream:String):Boolean; virtual;`
`function SplitFile(const AFile:String; var AName,AExt:String):Boolean; virtual;`
`function SplitStream(const AStream:String; var AName,AType:String):Boolean; virtual;`

`function BuildPath(ARelative:Boolean; AFolders:TLinkedStringList; const AName:String):String; virtual;`
`function BuildName(const AFile,AStream:String):String; virtual;`
`function BuildFile(const AName,AExt:String):String; virtual;`
`function BuildStream(const AName,AType:String):String; virtual;`

`function CheckName(const AName:String):Boolean; virtual;`
`function CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; virtual;`

`function CheckAltName(const AAltName:String):Boolean; virtual;`
`function CompareAltName(const AAltName,AMatch:String; AWildcard:Boolean):Boolean; virtual;`

`function CheckLinkName(const AName:String):Boolean; virtual;`

`function GetSecurityFromDescriptor(ADescriptor:Pointer):TDiskSecurity; virtual;`
`function GetDescriptorFromSecurity(ASecurity:TDiskSecurity; ADescriptor:Pointer; var ASize:LongWord):Boolean; virtual;`
public
`property Volume:TDiskVolume read FVolume write SetVolume;`
`property Drive:TDiskDrive read FDrive write SetDrive;`

`property PathChar:String read GetPathChar;`
`property NameChar:String read GetNameChar;`
`property FileChar:String read GetFileChar;`
`property RootChar:String read GetRootChar;`
`property RootName:String read GetRootName;`
`property RootPath:String read GetRootPath;`
`property MaxFile:Integer read FMaxFile;`
`property MaxPath:Integer read FMaxPath;`
`property MaxAltFile:Integer read FMaxAltFile;`
`property MaxAltPath:Integer read FMaxAltPath;`
`property Attributes:LongWord read FAttributes;`
`property MaxAttributes:LongWord read FMaxAttributes;`
`property MaskAttributes:LongWord read FMaskAttributes;`
`property MountPointTag:LongWord read FMountPointTag;`
`property SymbolicLinkTag:LongWord read FSymbolicLinkTag;`
`property MinFileTime:TFileTime read FMinFileTime;`
`property SystemName:String read GetSystemName;`
`property VolumeName:String read GetVolumeName;`
`property VolumeGUID:String read GetVolumeGUID;`
`property VolumeSerial:LongWord read FVolumeSerial;`
`property FileSysType:TFileSysType read FFileSysType;`

`property SectorSize:Word read FSectorSize;`
`property StartSector:Int64 read FStartSector;`
`property SectorCount:LongWord read FSectorCount;`

`property MarkDirty:Boolean read FMarkDirty write FMarkDirty;`
`property MarkClean:Boolean read FMarkClean write FMarkClean;`
`property MarkError:Boolean read FMarkError;`
`property LogDirty:Boolean read FLogDirty;`
`property MountDirty:Boolean read FMountDirty;`

`function ReaderLock:Boolean;`
`function ReaderUnlock:Boolean;`
`function ReaderConvert:Boolean;`
`function WriterLock:Boolean;`
`function WriterUnlock:Boolean;`
`function WriterConvert:Boolean;`

`function FileSystemInit:Boolean; virtual;`

`function MountFileSystem:Boolean; virtual;`
`function DismountFileSystem:Boolean; virtual;`
`function InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; virtual;`

`function CreateCatalog(const AName:String; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):LongWord; virtual;`
`function DeleteCatalog(ACatalogNo:LongWord):Boolean; virtual;`

`function FindFirstCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;`
`function FindNextCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;`
`procedure FindCatalogClose(var ASearchRec:TCatalogSearchRec); virtual;`

`function GetDriveLabel:String; virtual;`
`function SetDriveLabel(const ALabel:String):Boolean; virtual;`
`function GetDriveSerial:LongWord; virtual;`
`function SetDriveSerial(ASerial:LongWord):Boolean; virtual;`

`function GetDriveFreeSpace:LongWord; virtual;`
`function GetDriveFreeSpaceEx:Int64; virtual;`
`function GetDriveTotalSpace:LongWord; virtual;`
`function GetDriveTotalSpaceEx:Int64; virtual;`

`function GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean; virtual;`

`function FileOpen(const FileName:String; Mode:Integer):THandle; virtual;`
`function FileCreate(const FileName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;`
`function DeleteFile(const FileName:String):Boolean; virtual;`
`procedure FileClose(Handle:THandle); virtual;`
`function RenameFile(const OldName,NewName:String):Boolean; virtual;`
`function FileSeek(Handle:THandle; Offset,Origin:LongInt):LongInt; virtual;`
`function FileSeekEx(Handle:THandle; const Offset:Int64; Origin:LongInt):Int64; virtual;`
`function FileFlush(Handle:THandle):Boolean; virtual;`
`function FileTruncate(Handle:THandle):Boolean; virtual;`

`function FilePos(Handle:THandle):LongInt; virtual;`
`function FilePosEx(Handle:THandle):Int64; virtual;`

`function FileGetAttr(const FileName:String):Integer; virtual;`
`function FileGetDate(Handle:THandle):Integer; virtual;`
`function FileGetSize(Handle:THandle):LongInt; virtual;`
`function FileGetSizeEx(Handle:THandle):Int64; virtual;`
`function FileSetAttr(const FileName:String; Attr:Integer):Integer; virtual;`
`function FileSetDate(Handle:THandle; Age:Integer):Integer; virtual;`
`function FileSetSize(Handle:THandle; Size:LongInt):LongInt; virtual;`
`function FileSetSizeEx(Handle:THandle; const Size:Int64):LongInt; virtual;`

`function FileRead(Handle:THandle; var Buffer; Count:LongInt):LongInt; virtual;`
`function FileWrite(Handle:THandle; const Buffer; Count:LongInt):LongInt; virtual;`

`function CreateDir(const DirName:String):Boolean; virtual;`
`function RemoveDir(const DirName:String):Boolean; virtual;`
`function GetCurrentDir:String; virtual;`
`function SetCurrentDir(const DirName:String):Boolean; virtual;`

`function FindOne(const Path:String; var SearchRec:TFileSearchRec):Integer; virtual;`
`function FindAll(const Path:String; var SearchRec:TFileSearchRec):Integer; virtual;`

`function FindFirstEx(const Path:String; var SearchRec:TFileSearchRec):Integer; virtual;`
`function FindNextEx(var SearchRec:TFileSearchRec):Integer; virtual;`
`procedure FindCloseEx(var SearchRec:TFileSearchRec); virtual;`

`function FindFirstStream(const FileName:String; var SearchRec:TStreamSearchRec):Integer; virtual;`
`function FindNextStream(var SearchRec:TStreamSearchRec):Integer; virtual;`
`procedure FindStreamClose(var SearchRec:TStreamSearchRec); virtual;`

`function FindFirstFileName(const FileName:String; var SearchRec:TLinkSearchRec):Integer; virtual;`
`function FindNextFileName(var SearchRec:TLinkSearchRec):Integer; virtual;`
`procedure FindFileNameClose(var SearchRec:TLinkSearchRec); virtual;`

`function CreateHardLink(const LinkName,FileName:String):Boolean; virtual;`
`function DeleteHardLink(const LinkName:String):Boolean; virtual;`

`function CreateMountPoint(const PathName,VolumeName:String):Boolean; virtual;`
`function DeleteMountPoint(const PathName:String):Boolean; virtual;`

`function CreateJunctionPoint(const PathName,FolderName:String):Boolean; virtual;`
`function DeleteJunctionPoint(const PathName:String):Boolean; virtual;`

`function CreateSymbolicLink(const LinkName,TargetName:String; Directory:Boolean):Boolean; virtual;`
`function CreateSymbolicLinkEx(const LinkName,ShortName,TargetName:String; Directory:Boolean):Boolean; virtual;`
`function DeleteSymbolicLink(const LinkName:String):Boolean; virtual;`

`function GetMountPointTarget(const PathName:String):String; virtual;`
`function GetJunctionPointTarget(const PathName:String):String; virtual;`
`function GetSymbolicLinkTarget(const LinkName:String):String; virtual;`

`function SetFileShortName(const FileName,ShortName:String):Boolean; virtual;`
`function SetFileShortNameEx(Handle:THandle; const ShortName:String):Boolean; virtual;`

`function GetFileSecurity(const FileName:String; Descriptor:Pointer; var Size:LongWord):Boolean; virtual;`
`function SetFileSecurity(const FileName:String; Descriptor:Pointer):Boolean; virtual;`

`function GetPathName(const FileName:String):String; virtual;`

`function GetShortName(const FileName:String):String; virtual;`
`function GetLongName(const FileName:String):String; virtual;`
`function GetTrueName(const FileName:String):String; virtual;`

`function FileCreateEx(const FileName,ShortName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;`
`function CreateDirEx(const DirName,ShortName:String):Boolean; virtual;`

`function FileGetAttrEx(Handle:THandle):Integer; virtual;`

`function FileGetDateEx(Handle:THandle):TFileTime; virtual;`
`function FileSetDateEx(Handle:THandle; Age:TFileTime):Integer; virtual;`
`function GetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;`
`function SetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;`

`function CloseFile(Handle:THandle):Boolean; virtual;`	Equivalent to Win32 CloseHandle

Function declarations

[Expand]

constructor TFileSystem.Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive); virtual;

Description: To be documented

[Expand]

destructor TFileSystem.Destroy; virtual;

Description: To be documented

[Expand]

function TFileSystem.AcquireLock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.ReleaseLock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SectorLock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SectorUnlock:Boolean; virtual;

Description: To be documented

[Expand]

procedure TFileSystem.SetDrive(ADrive:TDiskDrive); virtual;

Description: To be documented

[Expand]

procedure TFileSystem.SetVolume(AVolume:TDiskVolume); virtual;

Description: To be documented

[Expand]

function TFileSystem.GetPathChar:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetNameChar:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetFileChar:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetRootChar:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetRootName:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetRootPath:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetSystemName:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetVolumeName:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetVolumeGUID:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadPathChar:String; virtual;

Description: Load the Path separator character

[Expand]

function TFileSystem.LoadNameChar:String; virtual;

Description: Load the Name separator character

[Expand]

function TFileSystem.LoadFileChar:String; virtual;

Description: Load the File separator character

[Expand]

function TFileSystem.LoadRootChar:String; virtual;

Description: Load the Root specifier character (eg C:)

[Expand]

function TFileSystem.LoadRootName:String; virtual;

Description: Load Root Name from Drive or Volume (eg C:\ or \\?\Volume1)

[Expand]

function TFileSystem.LoadRootPath:String; virtual;

Description: Load Root Path from Volume or Drive (eg \\.\Harddisk0\Partition1 or C:\)

[Expand]

function TFileSystem.LoadMaxFile:Integer; virtual;

Description: Load the maximum File name length

[Expand]

function TFileSystem.LoadMaxPath:Integer; virtual;

Description: Load the maximum Path name length

[Expand]

function TFileSystem.LoadMaxAltFile:Integer; virtual;

Description: Load the maximum Alt File name length

[Expand]

function TFileSystem.LoadMaxAltPath:Integer; virtual;

Description: Load the maximum Alt Path name length

[Expand]

function TFileSystem.LoadAttributes:LongWord; virtual;

Description: Load the File System (Volume) Attributes

[Expand]

function TFileSystem.LoadMaxAttributes:LongWord; virtual;

Description: Load the Maximum File Attributes (FileSetAttr)

[Expand]

function TFileSystem.LoadMaskAttributes:LongWord; virtual;

Description: Load the File Attributes Mask (FileGetAttr/FindFirstEx/FindNextEx)

[Expand]

function TFileSystem.LoadMountPointTag:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadSymbolicLinkTag:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadMinFileTime:TFileTime; virtual;

Description: Load the Minimum File Time value (WriteTime/CreateTime/AccessTime)

[Expand]

function TFileSystem.LoadSystemName:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadVolumeName:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadVolumeGUID:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadVolumeSerial:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadFileSysType:TFileSysType; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadSectorSize:Word; virtual;

Description: Load Sector Size from Volume

[Expand]

function TFileSystem.LoadStartSector:Int64; virtual;

Description: Load Start Sector from Volume

[Expand]

function TFileSystem.LoadSectorCount:LongWord; virtual;

Description: Load Sector Count from Volume

[Expand]

function TFileSystem.GetCurrent:TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetCurrent(ACurrent:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.FillSectors(ASector,ACount:LongWord; AValue:Byte):Boolean; virtual;

Description: Fill specified number of sectors with the supplied value

[Expand]

function TFileSystem.ReadSectors(ASector,ACount:LongWord; var ABuffer):Boolean; virtual;

Description: Read Sectors from the Volume using Cache

[Expand]

function TFileSystem.WriteSectors(ASector,ACount:LongWord; const ABuffer):Boolean; virtual;

Description: Write Sectors to the Volume using Cache

[Expand]

function TFileSystem.ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;

Description: To be documented

[Expand]

function TFileSystem.WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadTables:Boolean; virtual;

Description: Load all Disk Tables

[Expand]

function TFileSystem.LoadBlocks:Boolean; virtual;

Description: Load all Disk Blocks

[Expand]

function TFileSystem.LoadEntries(AParent:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadCatalogs:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadTable(ATableNo:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.LoadBlock(ABlockNo:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.UnloadEntries(AParent:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveCatalog(ACatalog:TDiskCatalog):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CheckCatalog(ACatalog:TDiskCatalog; ALock:Boolean; AState:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetCatalogByNo(ACatalogNo:LongWord; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetCatalogByName(const AName:String; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetCatalogByNext(APrevious:TDiskCatalog; ALock,AUnlock:Boolean; AState:LongWord):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetNextCatalogNo:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetMaxCatalogNo:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddHardlink(AEntry,AParent:TDiskEntry; const AName:String; AReference:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveHardlink(AParent,AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddMountPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveMountPoint(AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddJunctionPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveJunctionPoint(AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddSymbolicLink(AParent:TDiskEntry; const AName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.AddSymbolicLinkEx(AParent:TDiskEntry; const AName,AAltName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.RemoveSymbolicLink(AParent,AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetTable(ATable:TDiskTable):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetBlock(ABlock:TDiskBlock):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetCatalog(ACatalog:TDiskCatalog):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetReparse(AParent,AEntry:TDiskEntry; AReparse:TDiskReparse):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetSecurity(AParent,AEntry:TDiskEntry; ASecurity:TDiskSecurity):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetTable(ATableNo:LongWord):TDiskTable; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetTableEx(ATableNo:LongWord; AWrite:Boolean):TDiskTable; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetBlock(ABlockNo:LongWord):TDiskBlock; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetEntryEx(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetCatalog(ACatalogNo:LongWord):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetCatalogEx(ACatalogNo:LongWord; AWrite:Boolean):TDiskCatalog; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetReparse(AEntry:TDiskEntry):TDiskReparse; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetSecurity(AEntry:TDiskEntry):TDiskSecurity; virtual;

Description: To be documented

[Expand]

function TFileSystem.MatchEntry(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.MatchEntryEx(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny,AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetEntryPath(AEntry:TDiskEntry; AAltName:Boolean):String; virtual;

Description: Get the Full Path of an Entry (Not including Entry itself)

[Expand]

function TFileSystem.GetEntryName(AEntry:TDiskEntry; AAltName:Boolean):String; virtual;

Description: Get the Full Name of an Entry (Including Entry itself)

[Expand]

function TFileSystem.SplitPath(const APath:String; var ARelative:Boolean; AFolders:TStrings; var AName:String):Boolean; virtual;

Description: Split a Path into the component parts

[Expand]

function TFileSystem.SplitName(const AName:String; var AFile,AStream:String):Boolean; virtual;

Description: Split a Name into the component parts (File and Stream)

[Expand]

function TFileSystem.SplitFile(const AFile:String; var AName,AExt:String):Boolean; virtual;

Description: Split a File into the component parts (Name and Ext)

[Expand]

function TFileSystem.SplitStream(const AStream:String; var AName,AType:String):Boolean; virtual;

Description: Split a Stream into the component parts (Name and Type)

[Expand]

function TFileSystem.BuildPath(ARelative:Boolean; AFolders:TLinkedStringList; const AName:String):String; virtual;

Description: Build Path from the component parts

[Expand]

function TFileSystem.BuildName(const AFile,AStream:String):String; virtual;

Description: Build a Name from the component parts (File and Stream)

[Expand]

function TFileSystem.BuildFile(const AName,AExt:String):String; virtual;

Description: Build a File from the component parts (Name and Ext)

[Expand]

function TFileSystem.BuildStream(const AName,AType:String):String; virtual;

Description: Build a Stream from the component parts (Name and Type)

[Expand]

function TFileSystem.CheckName(const AName:String):Boolean; virtual;

Description: Performs Name validation based on File System rules

[Expand]

function TFileSystem.CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; virtual;

Description: Perform Name matching based on File System rules for Case-sensitivity etc

[Expand]

function TFileSystem.CheckAltName(const AAltName:String):Boolean; virtual;

Description: Performs Name validation based on File System rules

[Expand]

function TFileSystem.CompareAltName(const AAltName,AMatch:String; AWildcard:Boolean):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CheckLinkName(const AName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetSecurityFromDescriptor(ADescriptor:Pointer):TDiskSecurity; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetDescriptorFromSecurity(ASecurity:TDiskSecurity; ADescriptor:Pointer; var ASize:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.ReaderLock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.ReaderUnlock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.ReaderConvert:Boolean; virtual;

Description: Convert a Reader lock to a Writer lock

[Expand]

function TFileSystem.WriterLock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.WriterUnlock:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.WriterConvert:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.FileSystemInit:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.MountFileSystem:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.DismountFileSystem:Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CreateCatalog(const AName:String; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.DeleteCatalog(ACatalogNo:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.FindFirstCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;

Description: To be documented

[Expand]

function TFileSystem.FindNextCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;

Description: To be documented

[Expand]

procedure TFileSystem.FindCatalogClose(var ASearchRec:TCatalogSearchRec); virtual;

Description: Close an open find Handle

[Expand]

function TFileSystem.GetDriveLabel:String; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetDriveLabel(const ALabel:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetDriveSerial:LongWord; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetDriveSerial(ASerial:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetDriveFreeSpace:LongWord; virtual;

Description: Return the Free space on Drive up to 2GB

[Expand]

function TFileSystem.GetDriveFreeSpaceEx:Int64; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetDriveTotalSpace:LongWord; virtual;

Description: Return the Total space on Drive up to 2GB

[Expand]

function TFileSystem.GetDriveTotalSpaceEx:Int64; virtual;

Description: Return the Total space on Drive up to 4TB

[Expand]

function TFileSystem.GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.FileOpen(const FileName:String; Mode:Integer):THandle; virtual;

Description: Open existing entry and return Handle

[Expand]

function TFileSystem.FileCreate(const FileName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;

Description: Create new entry or truncate existing entry and return Handle

[Expand]

function TFileSystem.DeleteFile(const FileName:String):Boolean; virtual;

Description: Delete existing entry

[Expand]

procedure TFileSystem.FileClose(Handle:THandle); virtual;

Description: Close open handle

[Expand]

function TFileSystem.RenameFile(const OldName,NewName:String):Boolean; virtual;

Description: Rename existing entry

[Expand]

function TFileSystem.FileSeek(Handle:THandle; Offset,Origin:LongInt):LongInt; virtual;

Description: Move the position of an open handle

[Expand]

function TFileSystem.FileSeekEx(Handle:THandle; const Offset:Int64; Origin:LongInt):Int64; virtual;

Description: Move the position of an open handle

[Expand]

function TFileSystem.FileFlush(Handle:THandle):Boolean; virtual;

Description: Flush an open handle from Cache

[Expand]

function TFileSystem.FileTruncate(Handle:THandle):Boolean; virtual;

Description: Truncate an open file at the current position

[Expand]

function TFileSystem.FilePos(Handle:THandle):LongInt; virtual;

Description: Return the position of an open Handle

[Expand]

function TFileSystem.FilePosEx(Handle:THandle):Int64; virtual;

Description: Return the position of an open Handle

[Expand]

function TFileSystem.FileGetAttr(const FileName:String):Integer; virtual;

Description: Get the attributes of an existing entry

[Expand]

function TFileSystem.FileGetDate(Handle:THandle):Integer; virtual;

Description: Get the date/time of an existing entry with an open Handle

[Expand]

function TFileSystem.FileGetSize(Handle:THandle):LongInt; virtual;

Description: Get the size of an existing entry with an open Handle

[Expand]

function TFileSystem.FileGetSizeEx(Handle:THandle):Int64; virtual;

Description: Get the size of an existing entry with an open Handle

[Expand]

function TFileSystem.FileSetAttr(const FileName:String; Attr:Integer):Integer; virtual;

Description: Set the attributes of an existing entry

[Expand]

function TFileSystem.FileSetDate(Handle:THandle; Age:Integer):Integer; virtual;

Description: Set the date/time of an existing entry with an open Handle

[Expand]

function TFileSystem.FileSetSize(Handle:THandle; Size:LongInt):LongInt; virtual;

Description: Set the size of an existing entry with an open Handle

[Expand]

function TFileSystem.FileSetSizeEx(Handle:THandle; const Size:Int64):LongInt; virtual;

Description: Set the size of an existing entry with Open handle

[Expand]

function TFileSystem.FileRead(Handle:THandle; var Buffer;Count:LongInt):LongInt; virtual;

Description: Read data from an existing entry with an open Handle

[Expand]

function TFileSystem.FileWrite(Handle:THandle; const Buffer; Count:LongInt):LongInt; virtual;

Description: Write data to an existing entry with an open Handle

[Expand]

function TFileSystem.CreateDir(const DirName:String):Boolean; virtual;

Description: Create a new entry

[Expand]

function TFileSystem.RemoveDir(const DirName:String):Boolean; virtual;

Description: Delete an existing entry

[Expand]

function TFileSystem.GetCurrentDir:String; virtual;

Description: Return the current directory

[Expand]

function TFileSystem.SetCurrentDir(const DirName:String):Boolean; virtual;

Description: Set the current directory to an existing entry}{No File or Stream support

[Expand]

function TFileSystem.FindFirstEx(const Path:String; var SearchRec:TFileSearchRec):Integer; virtual;

Description: Find existing entries matching the specifications

[Expand]

function TFileSystem.FindNextEx(var SearchRec:TFileSearchRec):Integer; virtual;

Description: Continue Finding existing entries matching the specifications

[Expand]

procedure TFileSystem.FindCloseEx(var SearchRec:TFileSearchRec); virtual;

Description: Close an open find Handle

[Expand]

function TFileSystem.FindFirstStream(const FileName:String; var SearchRec:TStreamSearchRec):Integer; virtual;

Description: Find existing streams matching the specifications

[Expand]

function TFileSystem.FindNextStream(var SearchRec:TStreamSearchRec):Integer; virtual;

Description: Continue finding existing streams matching the specifications

[Expand]

procedure TFileSystem.FindStreamClose(var SearchRec:TStreamSearchRec); virtual;

Description: Close an open find Handle

[Expand]

function TFileSystem.FindFirstFileName(const FileName:String; var SearchRec:TLinkSearchRec):Integer; virtual;

Description: Find existing file names matching the specifications

[Expand]

function TFileSystem.FindNextFileName(var SearchRec:TLinkSearchRec):Integer; virtual;

Description: Continue finding existing file names matching the specifications

[Expand]

procedure TFileSystem.FindFileNameClose(var SearchRec:TLinkSearchRec); virtual;

Description: Close an open find Handle

[Expand]

function TFileSystem.CreateHardLink(const LinkName,FileName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.DeleteHardLink(const LinkName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CreateMountPoint(const PathName,VolumeName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.DeleteMountPoint(const PathName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CreateJunctionPoint(const PathName,FolderName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.DeleteJunctionPoint(const PathName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CreateSymbolicLink(const LinkName,TargetName:String; Directory:Boolean):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.CreateSymbolicLinkEx(const LinkName,ShortName,TargetName:String; Directory:Boolean):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.DeleteSymbolicLink(const LinkName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetMountPointTarget(const PathName:String):String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetJunctionPointTarget(const PathName:String):String; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetSymbolicLinkTarget(const LinkName:String):String; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetFileShortName(const FileName,ShortName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetFileShortNameEx(Handle:THandle; const ShortName:String):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetFileSecurity(const FileName:String; Descriptor:Pointer; var Size:LongWord):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.SetFileSecurity(const FileName:String; Descriptor:Pointer):Boolean; virtual;

Description: To be documented

[Expand]

function TFileSystem.GetPathName(const FileName:String):String; virtual;

Description: Get the path from the supplied name (Does not include trailing slash)

[Expand]

function TFileSystem.GetShortName(const FileName:String):String; virtual;

Description: Convert the supplied name to its Short name form

[Expand]

function TFileSystem.GetLongName(const FileName:String):String; virtual;

Description: Convert the supplied name to its Long name form

[Expand]

function TFileSystem.GetTrueName(const FileName:String):String; virtual;

Description: Convert the supplied name to its True name form

[Expand]

function TFileSystem.FileCreateEx(const FileName,ShortName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;

Description: Create new entry or truncate existing entry and return Handle

[Expand]

function TFileSystem.CreateDirEx(const DirName,ShortName:String):Boolean; virtual;

Description: Create a new entry}{No File or Stream support

[Expand]

function TFileSystem.FileGetAttrEx(Handle:THandle):Integer; virtual;

Description: Get the Attributes of an existing entry with an open Handle

[Expand]

function TFileSystem.FileGetDateEx(Handle:THandle):TFileTime; virtual;

Description: Get the Date/Time of an existing entry with an open Handle

[Expand]

function TFileSystem.FileSetDateEx(Handle:THandle; Age:TFileTime):Integer; virtual;

Description: Set the Date/Time of an existing entry with an open Handle

[Expand]

function TFileSystem.GetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;

Description: Get the Dates and Times of an existing entry with an open Handle

[Expand]

function TFileSystem.SetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;

Description: Set the Dates and Times of an existing entry with an open Handle

[Expand]

function TFileSystem.CloseFile(Handle:THandle):Boolean; virtual;

Description: Close open handle

Return to Unit Reference

Difference between revisions of "TFileSystem"

Revision as of 04:15, 22 January 2025

Contents

Description

Class definitions

Function declarations

Navigation menu

Personal tools

Namespaces

Variants

Views

More

Search

Navigation

Tools

@@ Line 885: / Line 885: @@
 | &nbsp;
 |-
-| <code>procedure FileClose(Handle:Integer); virtual;</code>
+| <code>procedure FileClose(Handle:THandle); virtual;</code>
 | &nbsp;
 |-
@@ Line 897: / Line 897: @@
 | &nbsp;
 |-
-| <code>function FileFlush(Handle:Integer):Boolean; virtual;</code>
+| <code>function FileFlush(Handle:THandle):Boolean; virtual;</code>
 | &nbsp;
 |-
-| <code>function FileTruncate(Handle:Integer):Boolean; virtual;</code>
+| <code>function FileTruncate(Handle:THandle):Boolean; virtual;</code>
 | &nbsp;
 |-
@@ Line 916: / Line 916: @@
 | &nbsp;
 |-
-| <code>function FileGetDate(Handle:Integer):Integer; virtual;</code>
+| <code>function FileGetDate(Handle:THandle):Integer; virtual;</code>
 | &nbsp;
 |-
@@ Line 928: / Line 928: @@
 | &nbsp;
 |-
-| <code>function FileSetDate(Handle:Integer; Age:Integer):Integer; virtual;</code>
+| <code>function FileSetDate(Handle:THandle; Age:Integer):Integer; virtual;</code>
 | &nbsp;
 |-
@@ Line 1,051: / Line 1,051: @@
 | &nbsp;
 |-
-| <code>function SetFileShortNameEx(Handle:Integer; const ShortName:String):Boolean; virtual;</code>
+| <code>function SetFileShortNameEx(Handle:THandle; const ShortName:String):Boolean; virtual;</code>
 | &nbsp;
 |-
@@ Line 1,088: / Line 1,088: @@
 |colspan="2"|&nbsp;
 |-
-| <code>function FileGetAttrEx(Handle:Integer):Integer; virtual;</code>
+| <code>function FileGetAttrEx(Handle:THandle):Integer; virtual;</code>
 | &nbsp;
 |-
 |colspan="2"|&nbsp;
 |-
-| <code>function FileGetDateEx(Handle:Integer):TFileTime; virtual;</code>
+| <code>function FileGetDateEx(Handle:THandle):TFileTime; virtual;</code>
 | &nbsp;
 |-
-| <code>function FileSetDateEx(Handle:Integer; Age:TFileTime):Integer; virtual;</code>
+| <code>function FileSetDateEx(Handle:THandle; Age:TFileTime):Integer; virtual;</code>
 | &nbsp;
 |-
-| <code>function GetFileTime(Handle:Integer; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</code>
+| <code>function GetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</code>
 | &nbsp;
 |-
-| <code>function SetFileTime(Handle:Integer; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</code>
+| <code>function SetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</code>
 | &nbsp;
 |-
@@ Line 1,119: / Line 1,119: @@
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">constructor TFileSystem.Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);</pre>
+<pre style="border: 0; padding-bottom:0px;">constructor TFileSystem.Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,131: / Line 1,131: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">destructor TFileSystem.Destroy;</pre>
+<pre style="border: 0; padding-bottom:0px;">destructor TFileSystem.Destroy; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,143: / Line 1,143: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AcquireLock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AcquireLock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,155: / Line 1,155: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReleaseLock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReleaseLock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,167: / Line 1,167: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SectorLock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SectorLock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,179: / Line 1,179: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SectorUnlock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SectorUnlock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,191: / Line 1,191: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.SetDrive(ADrive:TDiskDrive);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.SetDrive(ADrive:TDiskDrive); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,203: / Line 1,203: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.SetVolume(AVolume:TDiskVolume);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.SetVolume(AVolume:TDiskVolume); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,215: / Line 1,215: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetPathChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetPathChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,227: / Line 1,227: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetNameChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetNameChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,239: / Line 1,239: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,251: / Line 1,251: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,263: / Line 1,263: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,275: / Line 1,275: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootPath:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetRootPath:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,287: / Line 1,287: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSystemName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSystemName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,299: / Line 1,299: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetVolumeName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetVolumeName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,311: / Line 1,311: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetVolumeGUID:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetVolumeGUID:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,323: / Line 1,323: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadPathChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadPathChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the Path separator character</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,335: / Line 1,335: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadNameChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadNameChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the Name separator character</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,347: / Line 1,347: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadFileChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadFileChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the File separator character</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,359: / Line 1,359: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootChar:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootChar:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the Root specifier character (eg C:)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,371: / Line 1,371: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load Root Name from Drive or Volume (eg C:\ or \\?\Volume1)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,383: / Line 1,383: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootPath:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadRootPath:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load Root Path from Volume or Drive (eg \\.\Harddisk0\Partition1 or C:\)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,395: / Line 1,395: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxFile:Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxFile:Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the maximum File name length</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,407: / Line 1,407: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxPath:Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxPath:Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the maximum Path name length</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,419: / Line 1,419: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAltFile:Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAltFile:Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the maximum Alt File name length</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,431: / Line 1,431: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAltPath:Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAltPath:Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the maximum Alt Path name length</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,443: / Line 1,443: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadAttributes:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadAttributes:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the File System (Volume) Attributes</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,455: / Line 1,455: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAttributes:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaxAttributes:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the Maximum File Attributes (FileSetAttr)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,467: / Line 1,467: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaskAttributes:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMaskAttributes:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the File Attributes Mask (FileGetAttr/FindFirstEx/FindNextEx)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,479: / Line 1,479: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMountPointTag:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMountPointTag:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,491: / Line 1,491: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSymbolicLinkTag:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSymbolicLinkTag:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,503: / Line 1,503: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMinFileTime:TFileTime;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadMinFileTime:TFileTime; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load the Minimum File Time value (WriteTime/CreateTime/AccessTime)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,515: / Line 1,515: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSystemName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSystemName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,527: / Line 1,527: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeName:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeName:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,539: / Line 1,539: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeGUID:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeGUID:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,551: / Line 1,551: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeSerial:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadVolumeSerial:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,563: / Line 1,563: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadFileSysType:TFileSysType;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadFileSysType:TFileSysType; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,575: / Line 1,575: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSectorSize:Word;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSectorSize:Word; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load Sector Size from Volume</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,587: / Line 1,587: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadStartSector:Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadStartSector:Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load Start Sector from Volume</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,599: / Line 1,599: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSectorCount:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadSectorCount:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load Sector Count from Volume</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,611: / Line 1,611: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCurrent:TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCurrent:TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,623: / Line 1,623: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCurrent(ACurrent:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCurrent(ACurrent:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,635: / Line 1,635: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FillSectors(ASector,ACount:LongWord; AValue:Byte):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FillSectors(ASector,ACount:LongWord; AValue:Byte):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Fill specified number of sectors with the supplied value</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,647: / Line 1,647: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReadSectors(ASector,ACount:LongWord; var ABuffer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReadSectors(ASector,ACount:LongWord; var ABuffer):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Read Sectors from the Volume using Cache</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,660: / Line 1,660: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriteSectors(ASector,ACount:LongWord; const ABuffer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriteSectors(ASector,ACount:LongWord; const ABuffer):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Write Sectors to the Volume using Cache</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,673: / Line 1,673: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,686: / Line 1,686: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,699: / Line 1,699: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadTables:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadTables:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load all Disk Tables</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,711: / Line 1,711: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadBlocks:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadBlocks:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Load all Disk Blocks</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,723: / Line 1,723: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadEntries(AParent:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadEntries(AParent:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,736: / Line 1,736: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadCatalogs:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadCatalogs:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,748: / Line 1,748: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadTable(ATableNo:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadTable(ATableNo:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,761: / Line 1,761: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadBlock(ABlockNo:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.LoadBlock(ABlockNo:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,774: / Line 1,774: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.UnloadEntries(AParent:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.UnloadEntries(AParent:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,787: / Line 1,787: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,803: / Line 1,803: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,822: / Line 1,822: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveEntry(AParent,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,836: / Line 1,836: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,849: / Line 1,849: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,862: / Line 1,862: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,875: / Line 1,875: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,887: / Line 1,887: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveCatalog(ACatalog:TDiskCatalog):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveCatalog(ACatalog:TDiskCatalog):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,899: / Line 1,899: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckCatalog(ACatalog:TDiskCatalog; ALock:Boolean; AState:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckCatalog(ACatalog:TDiskCatalog; ALock:Boolean; AState:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,911: / Line 1,911: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByNo(ACatalogNo:LongWord; ALock:Boolean; AState:LongWord):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByNo(ACatalogNo:LongWord; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,923: / Line 1,923: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByName(const AName:String; ALock:Boolean; AState:LongWord):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByName(const AName:String; ALock:Boolean; AState:LongWord):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,935: / Line 1,935: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByNext(APrevious:TDiskCatalog; ALock,AUnlock:Boolean; AState:LongWord):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogByNext(APrevious:TDiskCatalog; ALock,AUnlock:Boolean; AState:LongWord):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,947: / Line 1,947: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetNextCatalogNo:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetNextCatalogNo:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,959: / Line 1,959: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetMaxCatalogNo:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetMaxCatalogNo:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,971: / Line 1,971: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddHardlink(AEntry,AParent:TDiskEntry; const AName:String; AReference:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddHardlink(AEntry,AParent:TDiskEntry; const AName:String; AReference:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 1,987: / Line 1,987: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveHardlink(AParent,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveHardlink(AParent,AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,000: / Line 2,000: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddMountPoint(AEntry:TDiskEntry; const ATarget:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddMountPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,013: / Line 2,013: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveMountPoint(AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveMountPoint(AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,026: / Line 2,026: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddJunctionPoint(AEntry:TDiskEntry; const ATarget:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddJunctionPoint(AEntry:TDiskEntry; const ATarget:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,039: / Line 2,039: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveJunctionPoint(AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveJunctionPoint(AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,052: / Line 2,052: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddSymbolicLink(AParent:TDiskEntry; const AName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddSymbolicLink(AParent:TDiskEntry; const AName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,068: / Line 2,068: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddSymbolicLinkEx(AParent:TDiskEntry; const AName,AAltName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.AddSymbolicLinkEx(AParent:TDiskEntry; const AName,AAltName,ATarget:String; AFolder,AReference:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,084: / Line 2,084: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveSymbolicLink(AParent,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveSymbolicLink(AParent,AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,097: / Line 2,097: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetTable(ATable:TDiskTable):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetTable(ATable:TDiskTable):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,109: / Line 2,109: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetBlock(ABlock:TDiskBlock):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetBlock(ABlock:TDiskBlock):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,121: / Line 2,121: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetEntry(AParent,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetEntry(AParent,AEntry:TDiskEntry):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,134: / Line 2,134: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCatalog(ACatalog:TDiskCatalog):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCatalog(ACatalog:TDiskCatalog):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,146: / Line 2,146: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetReparse(AParent,AEntry:TDiskEntry; AReparse:TDiskReparse):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetReparse(AParent,AEntry:TDiskEntry; AReparse:TDiskReparse):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,158: / Line 2,158: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetSecurity(AParent,AEntry:TDiskEntry; ASecurity:TDiskSecurity):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetSecurity(AParent,AEntry:TDiskEntry; ASecurity:TDiskSecurity):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,170: / Line 2,170: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,183: / Line 2,183: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTable(ATableNo:LongWord):TDiskTable;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTable(ATableNo:LongWord):TDiskTable; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,196: / Line 2,196: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTableEx(ATableNo:LongWord; AWrite:Boolean):TDiskTable;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTableEx(ATableNo:LongWord; AWrite:Boolean):TDiskTable; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,212: / Line 2,212: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetBlock(ABlockNo:LongWord):TDiskBlock;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetBlock(ABlockNo:LongWord):TDiskBlock; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,225: / Line 2,225: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,241: / Line 2,241: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,256: / Line 2,256: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryEx(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AAdd,ARemove,AWrite:Boolean):TDiskEntry; </pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryEx(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,280: / Line 2,280: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalog(ACatalogNo:LongWord):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalog(ACatalogNo:LongWord):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,292: / Line 2,292: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogEx(ACatalogNo:LongWord; AWrite:Boolean):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCatalogEx(ACatalogNo:LongWord; AWrite:Boolean):TDiskCatalog; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,304: / Line 2,304: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetReparse(AEntry:TDiskEntry):TDiskReparse;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetReparse(AEntry:TDiskEntry):TDiskReparse; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,316: / Line 2,316: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSecurity(AEntry:TDiskEntry):TDiskSecurity;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSecurity(AEntry:TDiskEntry):TDiskSecurity; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,328: / Line 2,328: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MatchEntry(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MatchEntry(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,343: / Line 2,343: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MatchEntryEx(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny,AAdd,ARemove,AWrite:Boolean):TDiskEntry;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MatchEntryEx(AParent,APrevious:TDiskEntry; const AName:String; AAttributes:LongWord; AAny,AAdd,ARemove,AWrite:Boolean):TDiskEntry; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,367: / Line 2,367: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryPath(AEntry:TDiskEntry; AAltName:Boolean):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryPath(AEntry:TDiskEntry; AAltName:Boolean):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the Full Path of an Entry (Not including Entry itself)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,379: / Line 2,379: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryName(AEntry:TDiskEntry; AAltName:Boolean):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetEntryName(AEntry:TDiskEntry; AAltName:Boolean):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the Full Name of an Entry (Including Entry itself)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,391: / Line 2,391: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitPath(const APath:String; var ARelative:Boolean; AFolders:TStrings; var AName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitPath(const APath:String; var ARelative:Boolean; AFolders:TStrings; var AName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Split a Path into the component parts</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,403: / Line 2,403: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitName(const AName:String; var AFile,AStream:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitName(const AName:String; var AFile,AStream:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Split a Name into the component parts (File and Stream)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,418: / Line 2,418: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitFile(const AFile:String; var AName,AExt:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitFile(const AFile:String; var AName,AExt:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Split a File into the component parts (Name and Ext)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,430: / Line 2,430: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitStream(const AStream:String; var AName,AType:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SplitStream(const AStream:String; var AName,AType:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Split a Stream into the component parts (Name and Type)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,442: / Line 2,442: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildPath(ARelative:Boolean; AFolders:TLinkedStringList; const AName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildPath(ARelative:Boolean; AFolders:TLinkedStringList; const AName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Build Path from the component parts</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,454: / Line 2,454: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildName(const AFile,AStream:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildName(const AFile,AStream:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Build a Name from the component parts (File and Stream)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,466: / Line 2,466: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildFile(const AName,AExt:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildFile(const AName,AExt:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Build a File from the component parts (Name and Ext)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,478: / Line 2,478: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildStream(const AName,AType:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.BuildStream(const AName,AType:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Build a Stream from the component parts (Name and Type)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,490: / Line 2,490: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckName(const AName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckName(const AName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Performs Name validation based on File System rules</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,502: / Line 2,502: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Perform Name matching based on File System rules for Case-sensitivity etc</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,514: / Line 2,514: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckAltName(const AAltName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckAltName(const AAltName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Performs Name validation based on File System rules</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,526: / Line 2,526: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CompareAltName(const AAltName,AMatch:String; AWildcard:Boolean):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CompareAltName(const AAltName,AMatch:String; AWildcard:Boolean):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,538: / Line 2,538: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckLinkName(const AName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CheckLinkName(const AName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,550: / Line 2,550: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSecurityFromDescriptor(ADescriptor:Pointer):TDiskSecurity;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSecurityFromDescriptor(ADescriptor:Pointer):TDiskSecurity; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,562: / Line 2,562: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDescriptorFromSecurity(ASecurity:TDiskSecurity; ADescriptor:Pointer; var ASize:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDescriptorFromSecurity(ASecurity:TDiskSecurity; ADescriptor:Pointer; var ASize:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,574: / Line 2,574: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderLock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderLock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,586: / Line 2,586: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderUnlock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderUnlock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,598: / Line 2,598: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderConvert:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.ReaderConvert:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Convert a Reader lock to a Writer lock</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,610: / Line 2,610: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterLock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterLock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,622: / Line 2,622: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterUnlock:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterUnlock:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,634: / Line 2,634: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterConvert:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.WriterConvert:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,646: / Line 2,646: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSystemInit:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSystemInit:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,658: / Line 2,658: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MountFileSystem:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.MountFileSystem:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,669: / Line 2,669: @@
 </div></div>
 <br /><div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DismountFileSystem:Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DismountFileSystem:Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,681: / Line 2,681: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,693: / Line 2,693: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateCatalog(const AName:String; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateCatalog(const AName:String; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,705: / Line 2,705: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteCatalog(ACatalogNo:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteCatalog(ACatalogNo:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,717: / Line 2,717: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstCatalog(var ASearchRec:TCatalogSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,729: / Line 2,729: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextCatalog(var ASearchRec:TCatalogSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextCatalog(var ASearchRec:TCatalogSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,741: / Line 2,741: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindCatalogClose(var ASearchRec:TCatalogSearchRec);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindCatalogClose(var ASearchRec:TCatalogSearchRec); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close an open find Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,753: / Line 2,753: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveLabel:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveLabel:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,765: / Line 2,765: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetDriveLabel(const ALabel:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetDriveLabel(const ALabel:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,777: / Line 2,777: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveSerial:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveSerial:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,789: / Line 2,789: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetDriveSerial(ASerial:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetDriveSerial(ASerial:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,801: / Line 2,801: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveFreeSpace:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveFreeSpace:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the Free space on Drive up to 2GB</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,813: / Line 2,813: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveFreeSpaceEx:Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveFreeSpaceEx:Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,825: / Line 2,825: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveTotalSpace:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveTotalSpace:LongWord; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the Total space on Drive up to 2GB</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,837: / Line 2,837: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveTotalSpaceEx:Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveTotalSpaceEx:Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the Total space on Drive up to 4TB</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,849: / Line 2,849: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,861: / Line 2,861: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileOpen(const FileName:String; Mode:Integer):THandle;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileOpen(const FileName:String; Mode:Integer):THandle; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Open existing entry and return Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,874: / Line 2,874: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileCreate(const FileName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileCreate(const FileName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Create new entry or truncate existing entry and return Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,886: / Line 2,886: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteFile(const FileName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteFile(const FileName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Delete existing entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,898: / Line 2,898: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FileClose(Handle:Integer);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FileClose(Handle:THandle); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close open handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,910: / Line 2,910: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameFile(const OldName,NewName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RenameFile(const OldName,NewName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Rename existing entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,922: / Line 2,922: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSeek(Handle:THandle; Offset,Origin:LongInt):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSeek(Handle:THandle; Offset,Origin:LongInt):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Move the position of an open handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,934: / Line 2,934: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSeekEx(Handle:THandle; const Offset:Int64; Origin:LongInt):Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSeekEx(Handle:THandle; const Offset:Int64; Origin:LongInt):Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Move the position of an open handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,946: / Line 2,946: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileFlush(Handle:Integer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileFlush(Handle:THandle):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Flush an open handle from Cache</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,958: / Line 2,958: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileTruncate(Handle:Integer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileTruncate(Handle:THandle):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Truncate an open file at the current position</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,970: / Line 2,970: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FilePos(Handle:THandle):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FilePos(Handle:THandle):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the position of an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,982: / Line 2,982: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FilePosEx(Handle:THandle):Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FilePosEx(Handle:THandle):Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the position of an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,994: / Line 2,994: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetAttr(const FileName:String):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetAttr(const FileName:String):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the attributes of an existing entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,006: / Line 3,006: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetDate(Handle:Integer):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetDate(Handle:THandle):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the date/time of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,018: / Line 3,018: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetSize(Handle:THandle):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetSize(Handle:THandle):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the size of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,030: / Line 3,030: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetSizeEx(Handle:THandle):Int64;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetSizeEx(Handle:THandle):Int64; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the size of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,042: / Line 3,042: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetAttr(const FileName:String; Attr:Integer):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetAttr(const FileName:String; Attr:Integer):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the attributes of an existing entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,054: / Line 3,054: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetDate(Handle:Integer; Age:Integer):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetDate(Handle:THandle; Age:Integer):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the date/time of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,066: / Line 3,066: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetSize(Handle:THandle; Size:LongInt):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetSize(Handle:THandle; Size:LongInt):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the size of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,078: / Line 3,078: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetSizeEx(Handle:THandle; const Size:Int64):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetSizeEx(Handle:THandle; const Size:Int64):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the size of an existing entry with Open handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,090: / Line 3,090: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileRead(Handle:THandle; var Buffer;Count:LongInt):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileRead(Handle:THandle; var Buffer;Count:LongInt):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Read data from an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,103: / Line 3,103: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileWrite(Handle:THandle; const Buffer; Count:LongInt):LongInt;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileWrite(Handle:THandle; const Buffer; Count:LongInt):LongInt; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Write data to an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,116: / Line 3,116: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateDir(const DirName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateDir(const DirName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Create a new entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,128: / Line 3,128: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveDir(const DirName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.RemoveDir(const DirName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Delete an existing entry</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,140: / Line 3,140: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCurrentDir:String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetCurrentDir:String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Return the current directory</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,152: / Line 3,152: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCurrentDir(const DirName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetCurrentDir(const DirName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the current directory to an existing entry}{No File or Stream support</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,164: / Line 3,164: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstEx(const Path:String; var SearchRec:TFileSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstEx(const Path:String; var SearchRec:TFileSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Find existing entries matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,176: / Line 3,176: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextEx(var SearchRec:TFileSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextEx(var SearchRec:TFileSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Continue Finding existing entries matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,188: / Line 3,188: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindCloseEx(var SearchRec:TFileSearchRec);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindCloseEx(var SearchRec:TFileSearchRec); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close an open find Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,200: / Line 3,200: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstStream(const FileName:String; var SearchRec:TStreamSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstStream(const FileName:String; var SearchRec:TStreamSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Find existing streams matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,212: / Line 3,212: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextStream(var SearchRec:TStreamSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextStream(var SearchRec:TStreamSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Continue finding existing streams matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,224: / Line 3,224: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindStreamClose(var SearchRec:TStreamSearchRec);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindStreamClose(var SearchRec:TStreamSearchRec); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close an open find Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,236: / Line 3,236: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstFileName(const FileName:String; var SearchRec:TLinkSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindFirstFileName(const FileName:String; var SearchRec:TLinkSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Find existing file names matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,248: / Line 3,248: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextFileName(var SearchRec:TLinkSearchRec):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FindNextFileName(var SearchRec:TLinkSearchRec):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Continue finding existing file names matching the specifications</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,260: / Line 3,260: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindFileNameClose(var SearchRec:TLinkSearchRec);</pre>
+<pre style="border: 0; padding-bottom:0px;">procedure TFileSystem.FindFileNameClose(var SearchRec:TLinkSearchRec); virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close an open find Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,272: / Line 3,272: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateHardLink(const LinkName,FileName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateHardLink(const LinkName,FileName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,284: / Line 3,284: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteHardLink(const LinkName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteHardLink(const LinkName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,296: / Line 3,296: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateMountPoint(const PathName,VolumeName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateMountPoint(const PathName,VolumeName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,308: / Line 3,308: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteMountPoint(const PathName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteMountPoint(const PathName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,320: / Line 3,320: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateJunctionPoint(const PathName,FolderName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateJunctionPoint(const PathName,FolderName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,332: / Line 3,332: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteJunctionPoint(const PathName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteJunctionPoint(const PathName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,344: / Line 3,344: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateSymbolicLink(const LinkName,TargetName:String; Directory:Boolean):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateSymbolicLink(const LinkName,TargetName:String; Directory:Boolean):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,356: / Line 3,356: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateSymbolicLinkEx(const LinkName,ShortName,TargetName:String; Directory:Boolean):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateSymbolicLinkEx(const LinkName,ShortName,TargetName:String; Directory:Boolean):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,368: / Line 3,368: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteSymbolicLink(const LinkName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.DeleteSymbolicLink(const LinkName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,380: / Line 3,380: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetMountPointTarget(const PathName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetMountPointTarget(const PathName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,392: / Line 3,392: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetJunctionPointTarget(const PathName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetJunctionPointTarget(const PathName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,404: / Line 3,404: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSymbolicLinkTarget(const LinkName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetSymbolicLinkTarget(const LinkName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,416: / Line 3,416: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileShortName(const FileName,ShortName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileShortName(const FileName,ShortName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,428: / Line 3,428: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileShortNameEx(Handle:Integer; const ShortName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileShortNameEx(Handle:THandle; const ShortName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,440: / Line 3,440: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileSecurity(const FileName:String; Descriptor:Pointer; var Size:LongWord):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileSecurity(const FileName:String; Descriptor:Pointer; var Size:LongWord):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,452: / Line 3,452: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileSecurity(const FileName:String; Descriptor:Pointer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileSecurity(const FileName:String; Descriptor:Pointer):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,464: / Line 3,464: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetPathName(const FileName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetPathName(const FileName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the path from the supplied name (Does not include trailing slash)</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,476: / Line 3,476: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetShortName(const FileName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetShortName(const FileName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Convert the supplied name to its Short name form</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,488: / Line 3,488: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetLongName(const FileName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetLongName(const FileName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Convert the supplied name to its Long name form</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,500: / Line 3,500: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTrueName(const FileName:String):String;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetTrueName(const FileName:String):String; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Convert the supplied name to its True name form</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,512: / Line 3,512: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileCreateEx(const FileName,ShortName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileCreateEx(const FileName,ShortName:String; Mode:Integer = fmOpenReadWrite or fmShareExclusive):THandle; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Create new entry or truncate existing entry and return Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,525: / Line 3,525: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateDirEx(const DirName,ShortName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CreateDirEx(const DirName,ShortName:String):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Create a new entry}{No File or Stream support</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,537: / Line 3,537: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetAttrEx(Handle:Integer):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetAttrEx(Handle:THandle):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the Attributes of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,549: / Line 3,549: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetDateEx(Handle:Integer):TFileTime;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileGetDateEx(Handle:THandle):TFileTime; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the Date/Time of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,561: / Line 3,561: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetDateEx(Handle:Integer; Age:TFileTime):Integer;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.FileSetDateEx(Handle:THandle; Age:TFileTime):Integer; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the Date/Time of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,573: / Line 3,573: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileTime(Handle:Integer; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.GetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get the Dates and Times of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,585: / Line 3,585: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileTime(Handle:Integer; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.SetFileTime(Handle:THandle; CreateTime,AccessTime,ModifyTime:PFileTime):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Set the Dates and Times of an existing entry with an open Handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 3,597: / Line 3,597: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CloseFile(Handle:THandle):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TFileSystem.CloseFile(Handle:THandle):Boolean; virtual;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' Close open handle</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

Reference	Add a reference on the returned entry if True
Note	Parent must be supplied, Name has already been checked. Descendant method must use WriterLock on Entries

AltName	If AltName already exists then a generated one will be provided, will not fail due to AltName.
Reference	Add a reference on the returned entry if True
Note	Parent must be supplied, Name and AltName have already been checked. Descendant method must use WriterLock on Entries

Write	Use the writer lock on the blocks instead of the reader lock if True
Note	TableNo is zero based Descendants may override if required

Attributes	Attributes is the match attributes to be checked
Note	If Parent is not supplied Root is assumed

Name	Name must not contain drive or path components
Return	Returns False if name does not contain a stream component