Class TMyClassFactory (unit ClassFactory) |
Inherits from
IClassFactory
constructor Create(ClassRef: TDelphiOleClass);
- var classFactoryCount:integer;
function AddRef: Longint;
function CreateInstance(unkOuter: IUnknown; const iid: TIID;
var obj): HResult;
destructor Destroy;
This is the minimum amount of information which must be entered in registry.
function LockServer(fLock: BOOL): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;
Dec(ClassFactoryCount);
function Release: Longint;
procedure enterInRegistry(cls:TDelphiOleClass);
function isInRegistry(cls:TDelphiOleClass):boolean;
returned by CoRegisterClassObject is CLSCTX_LOCAL_SERVER correct value???
FClassRef : TDelphiOleClass;
FRefCount : Integer;
regNr : LongInt;
constructor Create(ClassRef: TDelphiOleClass);
var classFactoryCount:integer;
function AddRef: Longint;
function CreateInstance(unkOuter: IUnknown; const iid: TIID;
var obj): HResult;
destructor Destroy;
This is the minimum amount of information which must be entered in registry. If this information is absent, drag'n'drop and QueryInsertObject will not work properlly.
function LockServer(fLock: BOOL): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;
Dec(ClassFactoryCount);
function Release: Longint;
procedure enterInRegistry(cls:TDelphiOleClass);
function isInRegistry(cls:TDelphiOleClass):boolean;
returned by CoRegisterClassObject
is CLSCTX_LOCAL_SERVER correct value???
FClassRef : TDelphiOleClass;
FRefCount : Integer;
regNr : LongInt;