| Class TATShell (unit ATShell) |
TComponent
ATShell's class declaration
| Constructors |
constructor Create(AOwner:TComponent);*************************************************************************} { TATShell } {***************************************************************************} //Contructor and Destructor
| Functions |
function AssociationExists : String;
function BackupAssociation(Key : string):boolean;
procedure CreateAssociation;
destructor Destroy;
function EnumAllAssoc:tStrings;
function EnumAssoc(aAppFilename:string):tStrings;
function GetAssociation:boolean;
function LoadFromFile(const aFilename:string):boolean ;
function ReadIcon: TIcon;
function ReadType: String;
function RemoveAssociation(RemoveKeyName:boolean;UpdateSystem:boolean): boolean;Clears or Removes an Association with or without updating desktop
function RestoreAssociation(Key : String):boolean;
function SaveToFile(const aFilename:string):boolean ;
function ClearAssociation:boolean;
function DeleteAssociation: boolean;
function DoesKeyExist(aKey:string): boolean;
function FieldsAreValid:boolean;
function GetShellcommands:string;
procedure MakeAssociation(Ext: String; PgmToLinkTo: String;
DefaultIcon:String; KeyName : String;
TypeName : String; ShowInNew : Boolean);
Function ReadReg(Ext : String) : String;
procedure SetCommandInReg(PgmToLinkTo,aName,aParam:string);
procedure SetExtension(Value:string);Check if the key (.
procedure SetValInReg(RKey:HKey; KeyPath: String;
ValName: String; NewVal: String);| Properties |
property Extension : String
property IconPath : string
property KeyName : String
property ParamPos : TParamPos
property PathToApp : String
property QuickView : Boolean
property ShellCommands : string
property ShowInNew : Boolean
property TypeName : String| Events |
| Variables |
FExt : String;
FIcon : String;
FKey : String;
FNew : Boolean;
FParamPos : TParamPos;
FPath : String;
FQuick : Boolean;
FShellCommands : string;
FType : String;| Constructors |
constructor Create(AOwner:TComponent);Public declarations
*************************************************************************} { TATShell } {***************************************************************************} //Contructor and Destructor
| Functions |
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;
| Properties |
property Extension : String
property IconPath : stringPublished declarations
property KeyName : String
property ParamPos : TParamPos
property PathToApp : String
property QuickView : Boolean
property ShellCommands : string
property ShowInNew : Boolean
property TypeName : String| Events |
| Variables |
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