home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1999 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'VCLCom.pas' rev: 4.00
-
- #ifndef VCLComHPP
- #define VCLComHPP
-
- #pragma delphiheader begin
- #pragma option push -w-
- #include <Classes.hpp> // Pascal unit
- #include <ComObj.hpp> // Pascal unit
- #include <ActiveX.hpp> // Pascal unit
- #include <SysInit.hpp> // Pascal unit
- #include <System.hpp> // Pascal unit
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Vclcom
- {
- //-- type declarations -------------------------------------------------------
- class DELPHICLASS TComponentFactory;
- #pragma pack(push, 4)
- class PASCALIMPLEMENTATION TComponentFactory : public TAutoObjectFactory
- {
- typedef TAutoObjectFactory inherited;
-
- public:
- __fastcall TComponentFactory(Comobj::TComServerObject* ComServer, TMetaClass* ComponentClass, const
- GUID &ClassID, Comobj::TClassInstancing Instancing, Comobj::TThreadingModel ThreadingModel);
- virtual TComObject* __fastcall CreateComObject(const _di_IUnknown Controller);
- virtual void __fastcall UpdateRegistry(bool Register);
- public:
- #pragma option push -w-inl
- /* TComObjectFactory.Destroy */ inline __fastcall virtual ~TComponentFactory(void) { }
- #pragma option pop
-
- };
-
- #pragma pack(pop)
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Vclcom */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Vclcom;
- #endif
- #pragma option pop // -w-
-
- #pragma delphiheader end.
- //-- end unit ----------------------------------------------------------------
- #endif // VCLCom
-