Class TATShell (unit ATShell) |
Inherits from
TComponent
ATShell's class declaration
constructor Create(AOwner:TComponent);
- Public declarations
*************************************************************************} { TATShell } {***************************************************************************} //Contructor and Destructor
function AssociationExists : String;
2cents - This function should realy be name GetAssociationAppPath
function BackupAssociation(Key : string):boolean;
Backup an association to a registry key.
procedure CreateAssociation;
Create Assoc
destructor Destroy;
function EnumAllAssoc:tStrings;
written by Dale (stryder) Clarke This function will enumerate all associated extensions and return all extensions in a list of strings NOTE You must free the returned strings
function EnumAssoc(aAppFilename:string):tStrings;
written by Dale (stryder) Clarke This function will enumerate all associated extensions looking for matches to the parameter "aAppFilename" and return all extensions in a list of strings NOTE You must free the returned strings
function GetAssociation:boolean;
of try
function LoadFromFile(const aFilename:string):boolean ;
written by Dale (stryder) Clarke This procedure loads all component fields from a file
function ReadIcon: TIcon;
ReadIcon written by dale replaces Almers.
function ReadType: String;
Extra function : Reads the type;
function RemoveAssociation(RemoveKeyName:boolean;UpdateSystem:boolean): boolean;
Creates an associationClears or Removes an Association with or without updating desktop
function RestoreAssociation(Key : String):boolean;
Restore an association from a registry key
function SaveToFile(const aFilename:string):boolean ;
written by Dale (stryder) Clarke This procedure saves all component fields to a file
function ClearAssociation:boolean;
update system of assocciation change
function DeleteAssociation: boolean;
clear reference to association
function DoesKeyExist(aKey:string): boolean;
Path to Application
function FieldsAreValid:boolean;
always set to value incase registry change
function GetShellcommands:string;
procedure MakeAssociation(Ext: String; PgmToLinkTo: String;
DefaultIcon:String; KeyName : String;
TypeName : String; ShowInNew : Boolean);
Makes association
Function ReadReg(Ext : String) : String;
**********FUCTIONS IT USES TO CREATE THINGS****************** Returns file type
procedure SetCommandInReg(PgmToLinkTo,aName,aParam:string);
procedure SetExtension(Value:string);
Display file in System QuicviewerCheck if the key (.
procedure SetValInReg(RKey:HKey; KeyPath: String;
ValName: String; NewVal: String);
Set a value in the registry;
property Extension : String
property IconPath : string
Published declarations
property KeyName : String
property ParamPos : TParamPos
property PathToApp : String
property QuickView : Boolean
property ShellCommands : string
property ShowInNew : Boolean
property TypeName : String
FExt : String;
Registry key
FIcon : String;
Extension
FKey : String;
Private declarations
FNew : Boolean;
FileType Description
FParamPos : TParamPos;
property for shell menu names and parameters
FPath : String;
Show in the new menu
FQuick : Boolean;
FShellCommands : string;
Path to Application
FType : String;
Path to DefaultIcon
constructor Create(AOwner:TComponent);
Public declarations
*************************************************************************} { TATShell } {***************************************************************************} //Contructor and Destructor
function AssociationExists : String;
2cents - This function should realy be name GetAssociationAppPath
function BackupAssociation(Key : string):boolean;
Backup an association to a registry key.
procedure CreateAssociation;
Create Assoc
destructor Destroy;
function EnumAllAssoc:tStrings;
written by Dale (stryder) Clarke This function will enumerate all associated extensions and return all extensions in a list of strings NOTE You must free the returned strings
function EnumAssoc(aAppFilename:string):tStrings;
written by Dale (stryder) Clarke This function will enumerate all associated extensions looking for matches to the parameter "aAppFilename" and return all extensions in a list of strings NOTE You must free the returned strings
function GetAssociation:boolean;
of try
function LoadFromFile(const aFilename:string):boolean ;
written by Dale (stryder) Clarke This procedure loads all component fields from a file
function ReadIcon: TIcon;
ReadIcon written by dale replaces Almers. sorry
function ReadType: String;
Extra function : Reads the type;
function RemoveAssociation(RemoveKeyName:boolean;UpdateSystem:boolean): boolean;
Creates an association
Clears or Removes an Association with or without updating desktop
function RestoreAssociation(Key : String):boolean;
Restore an association from a registry key
function SaveToFile(const aFilename:string):boolean ;
written by Dale (stryder) Clarke This procedure saves all component fields to a file
function ClearAssociation:boolean;
update system of assocciation change
function DeleteAssociation: boolean;
clear reference to association
function DoesKeyExist(aKey:string): boolean;
Path to Application
function FieldsAreValid:boolean;
always set to value incase registry change
function GetShellcommands:string;
procedure MakeAssociation(Ext: String; PgmToLinkTo: String;
DefaultIcon:String; KeyName : String;
TypeName : String; ShowInNew : Boolean);
Makes association
Function ReadReg(Ext : String) : String;
**********FUCTIONS IT USES TO CREATE THINGS****************** Returns file type
procedure SetCommandInReg(PgmToLinkTo,aName,aParam:string);
procedure SetExtension(Value:string);
Display file in System Quicviewer
Check if the key (.???) exists
procedure SetValInReg(RKey:HKey; KeyPath: String;
ValName: String; NewVal: String);
Set a value in the registry;
property Extension : String
property IconPath : string
Published declarations
property KeyName : String
property ParamPos : TParamPos
property PathToApp : String
property QuickView : Boolean
property ShellCommands : string
property ShowInNew : Boolean
property TypeName : String
FExt : String;
Registry key
FIcon : String;
Extension
FKey : String;
Private declarations
FNew : Boolean;
FileType Description
FParamPos : TParamPos;
property for shell menu names and parameters
FPath : String;
Show in the new menu
FQuick : Boolean;
FShellCommands : string;
Path to Application
FType : String;
Path to DefaultIcon