TAbCompoundFile

type TAbCompoundFile = class(TObject)

protected

  FSystemBlock: TAbSystemBlock;

  FFATTable: TAbFATTable;

  FRootDir: TAbRootDir;

  FDiskFile: string;

  FSizeOnDisk: Integer;

  FStream: TFileStream;

  FOnAfterOpen: TNotifyEvent;

  FOnBeforeClose: TNotifyEvent;

  FOnBeforeDirDelete: TBeforeDirDeleteEvent;

  FOnBeforeDirModified: TBeforeDirModifiedEvent;

  FOnBeforeFileDelete: TBeforeFileDeleteEvent;

  FOnBeforeFileModified: TBeforeFileModifiedEvent;

  function GetVolumeLabel;

  procedure SetVolumeLabel();

  function GetDirectoryEntries;

  function GetSizeOnDisk;

  procedure PersistFileData();

  procedure PersistSystemBlock;

  procedure PersistRootDirBlock;

  procedure PersistFATBlock;

  procedure BuildSysBlock;

  procedure BuildFat;

  procedure BuildRootDir;

  procedure AddDirEntriesFromList();

  procedure Defrag;

public

  constructor Create();

  destructor Destroy; override;

  procedure EnumerateFiles();

  procedure EnumerateFolders();

  procedure AddFile();

  function AddFolder();

  procedure UpdateFile();

  procedure DeleteFile();

  procedure DeleteFolder();

  procedure Open();

  function OpenFile();

  function PopulateTreeView();

  procedure PopulateSubNodes();

  procedure RenameFile();

  procedure RenameFolder();

  procedure SetCurrentDirectory();

  function GetCurrentDirectory;

  function GetAllocationSize;

  property CurrentDirectory: AnsiString; [rw]

  property DirectoryEntries: Integer; [r]

  property SizeOnDisk: Integer; [r]

  property Stream: TFileStream; [rw]

published

  property VolumeLabel: AnsiString; [rw]

  property FileName: string; [r]

  property AllocationSize: Integer; [r]

  property OnAfterOpen: TNotifyEvent; [rw]

  property OnBeforeClose: TNotifyEvent; [rw]

  property OnBeforeDirDelete: TBeforeDirDeleteEvent; [rw]

  property OnBeforeDirModified: TBeforeDirModifiedEvent; [rw]

  property OnBeforeFileDelete: TBeforeFileDeleteEvent; [rw]

  property OnBeforeFileModified: TBeforeFileModifiedEvent; [rw]

end;

TAbCompoundFile

TObject