| Class TTinyShell (unit TinyShell) |
| 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;