| Class TBiancoRegister (unit T_BiancoRegisterApp) |
TCOMPONENT
\\\\\///// / _ _ \ (| (.) (.) |) _______________________________.OOOo__( )__oOOO.______________________________ | | | This is my Tcomponent | | Ciao Marco | | Email bianco@arcanet.it | | | | DATA: INIZIO: FINE: LAVORO: | | | | 04-09-97, 01:56:17, 03:33:36 INIZIATO A CONVERTIRE IL VECCHIO FILE. | |_______________________________.oooO__________________________________________| ( ) Oooo. \ ( ( ) \_) ) / (_/
| Constructors |
constructor Create(AOwner: TComponent);showmessage('File-Type '+ft+' associated with'#13#10+prg+#13#10);
| Functions |
FUNCTION EXECUTE:BOOLEAN;| Properties |
property Description : STRING
property ExitOnWarning : BOOLEAN
property Extension : STRING
property IconPath : STRING
property LastError : INTEGER
property RegistryKeyName : STRING
property ShellCommand : STRING
property Warning : INTEGER| Events |
| Variables |
_DESC : STRING;
_E : INTEGER;
_FT : STRING;
_ICON : STRING;
_KEY : STRING;
_O : BOOLEAN;
_PRG : STRING;
_W : INTEGER;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
showmessage('File-Type '+ft+' associated with'#13#10+prg+#13#10);
| Functions |
FUNCTION EXECUTE:BOOLEAN;Warnings 0 : None 1 : Extension is not correct 2 : Description is Unavaiable 3 : RegistryKeyName Is Unavaiable 4 : Icon is Unavaiable Errors 0 : None 1 : Extension is Unavaiable 2 : ShellCommand is Unavaiable //THE METHOD
| Properties |
property Description : STRING
property ExitOnWarning : BOOLEAN
property Extension : STRINGPublished declarations
property IconPath : STRING
property LastError : INTEGER
property RegistryKeyName : STRING
property ShellCommand : STRING
property Warning : INTEGER| Events |
| Variables |
_DESC : STRING;
_E : INTEGER;
_FT : STRING;Private declarations
_ICON : STRING;
_KEY : STRING;
_O : BOOLEAN;
_PRG : STRING;
_W : INTEGER;