| Class TMyClassFactory (unit ClassFactory) |
IClassFactory
| Constructors |
constructor Create(ClassRef: TDelphiOleClass);| Functions |
function AddRef: Longint;
function CreateInstance(unkOuter: IUnknown; const iid: TIID;
var obj): HResult;
destructor Destroy;
function LockServer(fLock: BOOL): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;
function Release: Longint;
procedure enterInRegistry(cls:TDelphiOleClass);
function isInRegistry(cls:TDelphiOleClass):boolean;is CLSCTX_LOCAL_SERVER correct value???
| Properties |
| Events |
| Variables |
FClassRef : TDelphiOleClass;
FRefCount : Integer;
regNr : LongInt;| Constructors |
constructor Create(ClassRef: TDelphiOleClass);var classFactoryCount:integer;
| Functions |
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???
| Properties |
| Events |
| Variables |
FClassRef : TDelphiOleClass;
FRefCount : Integer;
regNr : LongInt;