Class TTinyShell (unit TinyShell)
Inherits from
TStdConsole
Constructors
constructor Create( anOwner :TComponent );
Functions
procedure AddCommand( const CmdName :string; CmdHintResID :Integer; CmdProc :TTinyShellCommand );
procedure Close;
destructor Destroy;
procedure Open;
procedure RemoveCommand( const CmdName :String );
procedure ClearCommands;
procedure CommandCycle;
procedure DeleteCommand( index :integer );
function FindCommand( const CmdName :string ):integer;
function GetTitle :string;
procedure Initialize;
procedure Loaded;
procedure OpenConsole;
procedure CmdExit( Sender :TObject; const Params :String );
procedure CmdHelp( Sender :TObject; const Params :String );
procedure DoneShellThread;
function GetCommandCount :Integer;
function GetCommandHints( index :integer ):string;
function GetCommandNames( index :integer ):string;
function GetCOmmands( index :integer ):TTinyShellCommand;
procedure InitShellThread;
Properties
property Prompt : String
property CommandCount : Integer
property CommandHints : string
property CommandNames : string
property Commands : TTinyShellCommand
Events
event OnClose :
event OnCtrlBreak :
event OnInitialize : TNotifyEvent
event OnOpen :
Variables
FCommands : TStringList;
FOnInitialize : TNotifyEvent;
FPrompt : String;
FShellThread : TThread;
Constructors
constructor Create( anOwner :TComponent );
Functions
procedure AddCommand( const CmdName :string; CmdHintResID :Integer; CmdProc :TTinyShellCommand );
procedure Close;
destructor Destroy;
procedure Open;
procedure RemoveCommand( const CmdName :String );
procedure ClearCommands;
procedure CommandCycle;
procedure DeleteCommand( index :integer );
function FindCommand( const CmdName :string ):integer;
function GetTitle :string;
procedure Initialize;
procedure Loaded;
procedure OpenConsole;
procedure CmdExit( Sender :TObject; const Params :String );
procedure CmdHelp( Sender :TObject; const Params :String );
procedure DoneShellThread;
function GetCommandCount :Integer;
function GetCommandHints( index :integer ):string;
function GetCommandNames( index :integer ):string;
function GetCOmmands( index :integer ):TTinyShellCommand;
procedure InitShellThread;
Properties
property Prompt : String
property CommandCount : Integer
property CommandHints : string
property CommandNames : string
property Commands : TTinyShellCommand
Events
event OnClose :
event OnCtrlBreak :
event OnInitialize : TNotifyEvent
event OnOpen :
Variables
FCommands : TStringList;
FOnInitialize : TNotifyEvent;
FPrompt : String;
FShellThread : TThread;