Difference between revisions of "Unit ShellFilesystem"

Revision as of 05:23, 20 March 2017

@@ Line 565: / Line 565: @@
 <code>TShellFileSysChdir = class(TShellCommand)</code>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
-{|
+{| class="wikitable" style="font-size: 14px; background: white;"
 |-
 |colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>

`SHELL_FILESYS_COMMAND_FILESYSTEM = 'FILESYSTEM';`
`SHELL_FILESYS_COMMAND_CONTROLLER = 'CONTROLLER';`
`SHELL_FILESYS_COMMAND_DISK = 'DISK';`
`SHELL_FILESYS_COMMAND_PARTITION = 'PARTITION';`
`SHELL_FILESYS_COMMAND_VOLUME = 'VOLUME';`
`SHELL_FILESYS_COMMAND_DRIVE = 'DRIVE';`

`SHELL_FILESYS_COMMAND_CACHE = 'CACHE';`

`SHELL_FILESYS_COMMAND_DIR = 'DIR';`
`SHELL_FILESYS_COMMAND_CHDIR = 'CD';`
`SHELL_FILESYS_COMMAND_MKDIR = 'MD';`
`SHELL_FILESYS_COMMAND_RMDIR = 'RD';`

`SHELL_FILESYS_COMMAND_TYPE = 'TYPE';`
`SHELL_FILESYS_COMMAND_COPY = 'COPY';`
`SHELL_FILESYS_COMMAND_MOVE = 'MOVE';`
`SHELL_FILESYS_COMMAND_DEL = 'DEL';`
`SHELL_FILESYS_COMMAND_REN = 'REN';`
`SHELL_FILESYS_COMMAND_ATTRIB = 'ATTRIB';`
`SHELL_FILESYS_COMMAND_TOUCH = 'TOUCH';`

`SHELL_FILESYS_COMMAND_VOL = 'VOL';`
`SHELL_FILESYS_COMMAND_LABEL = 'LABEL';`

`SHELL_FILESYS_COMMAND_DELTREE = 'DELTREE';`
`SHELL_FILESYS_COMMAND_XCOPY = 'XCOPY';`

`SHELL_FILESYS_ALIAS_LS = 'LS';`
`SHELL_FILESYS_ALIAS_CD = 'CHDIR';`
`SHELL_FILESYS_ALIAS_CDSLASH = 'CD\';`
`SHELL_FILESYS_ALIAS_CDDOTDOT = 'CD..';`
`SHELL_FILESYS_ALIAS_MD = 'MKDIR';`
`SHELL_FILESYS_ALIAS_RD = 'RMDIR';`
`SHELL_FILESYS_ALIAS_RM = 'RM';`
`SHELL_FILESYS_ALIAS_DELETE = 'DELETE';`
`SHELL_FILESYS_ALIAS_ERASE = 'ERASE';`
`SHELL_FILESYS_ALIAS_RENAME = 'RENAME';`

`SHELL_FILESYS_ACTION_LIST = 'LIST';`
`SHELL_FILESYS_ACTION_SHOW = 'SHOW';`

`SHELL_FILESYS_ACTION_LABEL = 'LABEL';`
`SHELL_FILESYS_ACTION_FILL = 'FILL';`
`SHELL_FILESYS_ACTION_SIGNATURE = 'SIGNATURE';`
`SHELL_FILESYS_ACTION_INITIALIZE = 'INITIALIZE';`

`SHELL_FILESYS_ACTION_EJECT = 'EJECT';`
`SHELL_FILESYS_ACTION_LOCK = 'LOCK';`
`SHELL_FILESYS_ACTION_UNLOCK = 'UNLOCK';`

`SHELL_FILESYS_ACTION_ADD = 'ADD';`
`SHELL_FILESYS_ACTION_DELETE = 'DELETE';`
`SHELL_FILESYS_ACTION_ACTIVATE = 'ACTIVATE';`
`SHELL_FILESYS_ACTION_DEACTIVATE = 'DEACTIVATE';`

`SHELL_FILESYS_ACTION_FORMAT = 'FORMAT';`
`SHELL_FILESYS_ACTION_DEFRAG = 'DEFRAG';`
`SHELL_FILESYS_ACTION_CHECK = 'CHECK';`
`SHELL_FILESYS_ACTION_CLEAN = 'CLEAN';`
`SHELL_FILESYS_ACTION_DIRTY = 'DIRTY';`
`SHELL_FILESYS_ACTION_MOUNT = 'MOUNT';`
`SHELL_FILESYS_ACTION_DISMOUNT = 'DISMOUNT';`

`SHELL_FILESYS_ACTION_STATS = 'STATS';`
`SHELL_FILESYS_ACTION_FLUSH = 'FLUSH';`
`SHELL_FILESYS_ACTION_DISCARD = 'DISCARD';`

`SHELL_FILESYS_ACTION_START = 'START';`
`SHELL_FILESYS_ACTION_STOP = 'STOP';`

`SHELL_FILESYS_PARAMETER_HELP = '?';`
`SHELL_FILESYS_PARAMETER_PAGE = 'P';`
`SHELL_FILESYS_PARAMETER_SHORT = 'X';`
`SHELL_FILESYS_PARAMETER_SUBDIR = 'S';`
`SHELL_FILESYS_PARAMETER_OVERWRITE = 'O';`

`SHELL_FILESYS_PARAMETER_READONLY = '+R';`
`SHELL_FILESYS_PARAMETER_ARCHIVE = '+A';`
`SHELL_FILESYS_PARAMETER_SYSTEM = '+S';`
`SHELL_FILESYS_PARAMETER_HIDDEN = '+H';`

`SHELL_FILESYS_PARAMETER_NOTREADONLY = '-R';`
`SHELL_FILESYS_PARAMETER_NOTARCHIVE = '-A';`
`SHELL_FILESYS_PARAMETER_NOTSYSTEM = '-S';`
`SHELL_FILESYS_PARAMETER_NOTHIDDEN = '-H';`

public
`constructor Create;`
private

public

`function DoHelp(AShell:TShell; ASession:TShellSession):Boolean; override;`
`function DoInfo(AShell:TShell; ASession:TShellSession):Boolean; override;`
`function DoCommand(AShell:TShell; ASession:TShellSession; AParameters:TStrings):Boolean; override;`

public
`constructor Create;`
`destructor Destroy; override;`
private
`function DirSearch(AShell:TShell; ASession:TShellSession; const APath,AName:String; AShort,ASubdir:Boolean; var AFiles,AFolders,ABytes:Int64):Boolean;`
`function DirOutput(AShell:TShell; ASession:TShellSession; const ASearchRec:TFileSearchRec; AShort:Boolean):Boolean;`
public
`function DoHelp(AShell:TShell; ASession:TShellSession):Boolean; override;`
`function DoInfo(AShell:TShell; ASession:TShellSession):Boolean; override;`
`function DoCommand(AShell:TShell; ASession:TShellSession; AParameters:TStrings):Boolean; override;`