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;