Class IMyClassFactory (unit exshellu)

Inherits from

IClassFactory

FIGNU04.TXT part 1 ends here

Constructors


constructor Create;

***** IMyClassFactory


Functions

function AddRef: LongInt;


function CreateInstance(unkOuter: IUnknown; const WantIid: TIID; var ReturnedObject): HResult;


destructor Destroy;


function LockServer(fLock: BOOL): HResult;


function QueryInterface(const WantIID: TIID; var ReturnedObject): HResult;


function Release: LongInt;


Properties

Events

Variables

FRefCount : Integer;



Constructors


constructor Create;

***** IMyClassFactory


Functions


function AddRef: LongInt;


function CreateInstance(unkOuter: IUnknown; const WantIid: TIID; var ReturnedObject): HResult;


destructor Destroy;


function LockServer(fLock: BOOL): HResult;


function QueryInterface(const WantIID: TIID; var ReturnedObject): HResult;


function Release: LongInt;


Properties


Events


Variables


FRefCount : Integer;