Class TATShell (unit ATShell)

Inherits from

TComponent

ATShell's class declaration

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.

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 (.


procedure SetValInReg(RKey:HKey; KeyPath: String; ValName: String; NewVal: String);

Set a value in the registry;

Properties

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


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


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 : string

Published 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