home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / OLE2.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  135.6 KB  |  3,145 lines
  1. //----------------------------------------------------------------------------
  2. // OLE2.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: OLE2.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef OLE2HPP
  6. #define OLE2HPP
  7. //----------------------------------------------------------------------------
  8. #ifndef WindowsHPP
  9. #include <Windows.hpp>
  10. #endif
  11.  
  12. #ifndef SystemHPP
  13. #include <System.hpp>
  14. #endif
  15.  
  16. namespace Ole2
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. typedef System::Integer HResult;
  20.  
  21. typedef System::Longint TResultList[65536];
  22.  
  23. typedef TResultList *PResultList;
  24.  
  25. typedef System::WideChar TOleChar;
  26.  
  27. typedef System::WideChar *POleStr;
  28.  
  29. typedef System::WideChar *TOleStrList[65536];
  30.  
  31. typedef TOleStrList *POleStrList;
  32.  
  33. typedef System::Comp Largeint;
  34.  
  35. struct TGUID;
  36. typedef TGUID *PGUID;
  37.  
  38. struct TGUID
  39. {
  40.     System::Longint D1;
  41.     System::Word D2;
  42.     System::Word D3;
  43.     System::Byte D4[8];
  44. } ;
  45.  
  46. typedef TGUID *PIID;
  47.  
  48. typedef TGUID  TIID;
  49.  
  50. typedef TGUID *PCLSID;
  51.  
  52. typedef TGUID  TCLSID;
  53.  
  54. struct TObjectID
  55. {
  56.     TGUID Lineage;
  57.     System::Longint Uniquifier;
  58. } ;
  59.  
  60. typedef TObjectID *PObjectID;
  61.  
  62. typedef System::Integer TLCID;
  63.  
  64. class __declspec(delphiclass) IUnknown;
  65. class __declspec(pascalimplementation) IUnknown : public System::TObject
  66. {
  67.     typedef IUnknown ThisClass;
  68.     typedef System::TObject inherited;
  69.     
  70. public:
  71.     virtual System::Longint __stdcall QueryInterface(const TGUID &iid, void *obj) = 0;
  72.     virtual System::Longint __stdcall AddRef(void) = 0;
  73.     virtual System::Longint __stdcall Release(void) = 0;
  74. public:
  75.     /* !! TObject.Create */ __fastcall IUnknown(void) : System::TObject() { }
  76.     /* !! TObject.Destroy */ __fastcall virtual ~IUnknown(void) { }
  77.     
  78. };
  79.  
  80. class __declspec(delphiclass) IClassFactory;
  81. class __declspec(pascalimplementation) IClassFactory : public IUnknown
  82. {
  83.     typedef IClassFactory ThisClass;
  84.     typedef IUnknown inherited;
  85.     
  86. public:
  87.     virtual System::Longint __stdcall CreateInstance(IUnknown *unkOuter, const TGUID &iid, void *obj) = 0
  88.         ;
  89.     virtual System::Longint __stdcall LockServer(System::LongBool fLock) = 0;
  90. public:
  91.     /* !! TObject.Create */ __fastcall IClassFactory(void) : Ole2::IUnknown() { }
  92.     /* !! TObject.Destroy */ __fastcall virtual ~IClassFactory(void) { }
  93.     
  94. };
  95.  
  96. class __declspec(delphiclass) IMarshal;
  97. class __declspec(delphiclass) IStream;
  98. class __declspec(pascalimplementation) IMarshal : public IUnknown
  99. {
  100.     typedef IMarshal ThisClass;
  101.     typedef IUnknown inherited;
  102.     
  103. public:
  104.     virtual System::Longint __stdcall GetUnmarshalClass(const TGUID &iid, System::Pointer pv, System::Longint 
  105.         dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags, TGUID &cid) = 0;
  106.     virtual System::Longint __stdcall GetMarshalSizeMax(const TGUID &iid, System::Pointer pv, System::Longint 
  107.         dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags, System::Longint &size) = 0
  108.         ;
  109.     virtual System::Longint __stdcall MarshalInterface(IStream *stm, const TGUID &iid, System::Pointer 
  110.         pv, System::Longint dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags) = 0;
  111.     virtual System::Longint __stdcall UnmarshalInterface(IStream *stm, const TGUID &iid, void *pv) = 0;
  112.         
  113.     virtual System::Longint __stdcall ReleaseMarshalData(IStream *stm) = 0;
  114.     virtual System::Longint __stdcall DisconnectObject(System::Longint dwReserved) = 0;
  115. public:
  116.     /* !! TObject.Create */ __fastcall IMarshal(void) : Ole2::IUnknown() { }
  117.     /* !! TObject.Destroy */ __fastcall virtual ~IMarshal(void) { }
  118.     
  119. };
  120.  
  121. class __declspec(delphiclass) IMalloc;
  122. class __declspec(pascalimplementation) IMalloc : public IUnknown
  123. {
  124.     typedef IMalloc ThisClass;
  125.     typedef IUnknown inherited;
  126.     
  127. public:
  128.     virtual System::Pointer __stdcall Alloc(System::Longint cb) = 0;
  129.     virtual System::Pointer __stdcall Realloc(System::Pointer pv, System::Longint cb) = 0;
  130.     virtual void __stdcall Free(System::Pointer pv) = 0;
  131.     virtual System::Longint __stdcall GetSize(System::Pointer pv) = 0;
  132.     virtual System::Integer __stdcall DidAlloc(System::Pointer pv) = 0;
  133.     virtual void __stdcall HeapMinimize(void) = 0;
  134. public:
  135.     /* !! TObject.Create */ __fastcall IMalloc(void) : Ole2::IUnknown() { }
  136.     /* !! TObject.Destroy */ __fastcall virtual ~IMalloc(void) { }
  137.     
  138. };
  139.  
  140. class __declspec(delphiclass) IMallocSpy;
  141. class __declspec(pascalimplementation) IMallocSpy : public IUnknown
  142. {
  143.     typedef IMallocSpy ThisClass;
  144.     typedef IUnknown inherited;
  145.     
  146. public:
  147.     virtual System::Longint __stdcall PreAlloc(System::Longint cbRequest) = 0;
  148.     virtual System::Pointer __stdcall PostAlloc(System::Pointer pActual) = 0;
  149.     virtual System::Pointer __stdcall PreFree(System::Pointer pRequest, System::LongBool fSpyed) = 0;
  150.     virtual void __stdcall PostFree(System::LongBool fSpyed) = 0;
  151.     virtual System::Longint __stdcall PreRealloc(System::Pointer pRequest, System::Longint cbRequest, System::Pointer 
  152.         &ppNewRequest, System::LongBool fSpyed) = 0;
  153.     virtual System::Pointer __stdcall PostRealloc(System::Pointer pActual, System::LongBool fSpyed) = 0
  154.         ;
  155.     virtual System::Pointer __stdcall PreGetSize(System::Pointer pRequest, System::LongBool fSpyed) = 0
  156.         ;
  157.     virtual System::Longint __stdcall PostGetSize(System::Pointer pActual, System::LongBool fSpyed) = 0
  158.         ;
  159.     virtual System::Integer __stdcall PostDidAlloc(System::Pointer pRequest, System::LongBool fSpyed, System::Integer 
  160.         fActual) = 0;
  161.     virtual void __stdcall PreHeapMinimize(void) = 0;
  162.     virtual void __stdcall PostHeapMinimize(void) = 0;
  163. public:
  164.     /* !! TObject.Create */ __fastcall IMallocSpy(void) : Ole2::IUnknown() { }
  165.     /* !! TObject.Destroy */ __fastcall virtual ~IMallocSpy(void) { }
  166.     
  167. };
  168.  
  169. class __declspec(delphiclass) IStdMarshalInfo;
  170. class __declspec(pascalimplementation) IStdMarshalInfo : public IUnknown
  171. {
  172.     typedef IStdMarshalInfo ThisClass;
  173.     typedef IUnknown inherited;
  174.     
  175. public:
  176.     virtual System::Longint __stdcall GetClassForHandler(System::Longint dwDestContext, System::Pointer 
  177.         pvDestContext, TGUID &clsid) = 0;
  178. public:
  179.     /* !! TObject.Create */ __fastcall IStdMarshalInfo(void) : Ole2::IUnknown() { }
  180.     /* !! TObject.Destroy */ __fastcall virtual ~IStdMarshalInfo(void) { }
  181.     
  182. };
  183.  
  184. class __declspec(delphiclass) IExternalConnection;
  185. class __declspec(pascalimplementation) IExternalConnection : public IUnknown
  186. {
  187.     typedef IExternalConnection ThisClass;
  188.     typedef IUnknown inherited;
  189.     
  190. public:
  191.     virtual System::Longint __stdcall AddConnection(System::Longint extconn, System::Longint reserved) = 0
  192.         ;
  193.     virtual System::Longint __stdcall ReleaseConnection(System::Longint extconn, System::Longint reserved
  194.         , System::LongBool fLastReleaseCloses) = 0;
  195. public:
  196.     /* !! TObject.Create */ __fastcall IExternalConnection(void) : Ole2::IUnknown() { }
  197.     /* !! TObject.Destroy */ __fastcall virtual ~IExternalConnection(void) { }
  198.     
  199. };
  200.  
  201. class __declspec(delphiclass) IWeakRef;
  202. class __declspec(pascalimplementation) IWeakRef : public IUnknown
  203. {
  204.     typedef IWeakRef ThisClass;
  205.     typedef IUnknown inherited;
  206.     
  207. public:
  208.     virtual System::Longint __stdcall ChangeWeakCount(System::Longint delta) = 0;
  209.     virtual System::Longint __stdcall ReleaseKeepAlive(IUnknown *unkReleased, System::Longint reserved)
  210.          = 0;
  211. public:
  212.     /* !! TObject.Create */ __fastcall IWeakRef(void) : Ole2::IUnknown() { }
  213.     /* !! TObject.Destroy */ __fastcall virtual ~IWeakRef(void) { }
  214.     
  215. };
  216.  
  217. class __declspec(delphiclass) IEnumUnknown;
  218. class __declspec(pascalimplementation) IEnumUnknown : public IUnknown
  219. {
  220.     typedef IEnumUnknown ThisClass;
  221.     typedef IUnknown inherited;
  222.     
  223. public:
  224.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  225.         ) = 0;
  226.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  227.     virtual System::Longint __stdcall Reset(void) = 0;
  228.     virtual System::Longint __stdcall Clone(IEnumUnknown *&enm) = 0;
  229. public:
  230.     /* !! TObject.Create */ __fastcall IEnumUnknown(void) : Ole2::IUnknown() { }
  231.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumUnknown(void) { }
  232.     
  233. };
  234.  
  235. struct TBindOpts
  236. {
  237.     System::Longint cbStruct;
  238.     System::Longint grfFlags;
  239.     System::Longint grfMode;
  240.     System::Longint dwTickCountDeadline;
  241. } ;
  242.  
  243. typedef TBindOpts *PBindOpts;
  244.  
  245. class __declspec(delphiclass) IBindCtx;
  246. class __declspec(delphiclass) IRunningObjectTable;
  247. class __declspec(delphiclass) IEnumString;
  248. class __declspec(pascalimplementation) IBindCtx : public IUnknown
  249. {
  250.     typedef IBindCtx ThisClass;
  251.     typedef IUnknown inherited;
  252.     
  253. public:
  254.     virtual System::Longint __stdcall RegisterObjectBound(IUnknown *unk) = 0;
  255.     virtual System::Longint __stdcall RevokeObjectBound(IUnknown *unk) = 0;
  256.     virtual System::Longint __stdcall ReleaseBoundObjects(void) = 0;
  257.     virtual System::Longint __stdcall SetBindOptions(TBindOpts &bindopts) = 0;
  258.     virtual System::Longint __stdcall GetBindOptions(TBindOpts &bindopts) = 0;
  259.     virtual System::Longint __stdcall GetRunningObjectTable(IRunningObjectTable *&rot) = 0;
  260.     virtual System::Longint __stdcall RegisterObjectParam(System::PWideChar pszKey, IUnknown *unk) = 0;
  261.         
  262.     virtual System::Longint __stdcall GetObjectParam(System::PWideChar pszKey, IUnknown *&unk) = 0;
  263.     virtual System::Longint __stdcall EnumObjectParam(IEnumString *&Enum) = 0;
  264.     virtual System::Longint __stdcall RevokeObjectParam(System::PWideChar pszKey) = 0;
  265. public:
  266.     /* !! TObject.Create */ __fastcall IBindCtx(void) : Ole2::IUnknown() { }
  267.     /* !! TObject.Destroy */ __fastcall virtual ~IBindCtx(void) { }
  268.     
  269. };
  270.  
  271. class __declspec(delphiclass) IEnumMoniker;
  272. class __declspec(pascalimplementation) IEnumMoniker : public IUnknown
  273. {
  274.     typedef IEnumMoniker ThisClass;
  275.     typedef IUnknown inherited;
  276.     
  277. public:
  278.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  279.         ) = 0;
  280.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  281.     virtual System::Longint __stdcall Reset(void) = 0;
  282.     virtual System::Longint __stdcall Clone(IEnumMoniker *&enm) = 0;
  283. public:
  284.     /* !! TObject.Create */ __fastcall IEnumMoniker(void) : Ole2::IUnknown() { }
  285.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumMoniker(void) { }
  286.     
  287. };
  288.  
  289. class __declspec(delphiclass) IRunnableObject;
  290. class __declspec(pascalimplementation) IRunnableObject : public IUnknown
  291. {
  292.     typedef IRunnableObject ThisClass;
  293.     typedef IUnknown inherited;
  294.     
  295. public:
  296.     virtual System::Longint __stdcall GetRunningClass(TGUID &clsid) = 0;
  297.     virtual System::Longint __stdcall Run(IBindCtx *bc) = 0;
  298.     virtual System::LongBool __stdcall IsRunning(void) = 0;
  299.     virtual System::Longint __stdcall LockRunning(System::LongBool fLock, System::LongBool fLastUnlockCloses
  300.         ) = 0;
  301.     virtual System::Longint __stdcall SetContainedObject(System::LongBool fContained) = 0;
  302. public:
  303.     /* !! TObject.Create */ __fastcall IRunnableObject(void) : Ole2::IUnknown() { }
  304.     /* !! TObject.Destroy */ __fastcall virtual ~IRunnableObject(void) { }
  305.     
  306. };
  307.  
  308. class __declspec(delphiclass) IMoniker;
  309. class __declspec(pascalimplementation) IRunningObjectTable : public IUnknown
  310. {
  311.     typedef IRunningObjectTable ThisClass;
  312.     typedef IUnknown inherited;
  313.     
  314. public:
  315.     virtual System::Longint __stdcall Register(System::Longint grfFlags, IUnknown *&unkObject, IMoniker *
  316.         mkObjectName, System::Longint &dwRegister) = 0;
  317.     virtual System::Longint __stdcall Revoke(System::Longint dwRegister) = 0;
  318.     virtual System::Longint __stdcall IsRunning(IMoniker *mkObjectName) = 0;
  319.     virtual System::Longint __stdcall GetObject(IMoniker *mkObjectName, IUnknown *&unkObject) = 0;
  320.     virtual System::Longint __stdcall NoteChangeTime(System::Longint dwRegister, Windows::TFileTime &filetime
  321.         ) = 0;
  322.     virtual System::Longint __stdcall GetTimeOfLastChange(IMoniker *mkObjectName, Windows::TFileTime &filetime
  323.         ) = 0;
  324.     virtual System::Longint __stdcall EnumRunning(IEnumMoniker *&enumMoniker) = 0;
  325. public:
  326.     /* !! TObject.Create */ __fastcall IRunningObjectTable(void) : Ole2::IUnknown() { }
  327.     /* !! TObject.Destroy */ __fastcall virtual ~IRunningObjectTable(void) { }
  328.     
  329. };
  330.  
  331. class __declspec(delphiclass) IPersist;
  332. class __declspec(pascalimplementation) IPersist : public IUnknown
  333. {
  334.     typedef IPersist ThisClass;
  335.     typedef IUnknown inherited;
  336.     
  337. public:
  338.     virtual System::Longint __stdcall GetClassID(TGUID &classID) = 0;
  339. public:
  340.     /* !! TObject.Create */ __fastcall IPersist(void) : Ole2::IUnknown() { }
  341.     /* !! TObject.Destroy */ __fastcall virtual ~IPersist(void) { }
  342.     
  343. };
  344.  
  345. class __declspec(delphiclass) IPersistStream;
  346. class __declspec(pascalimplementation) IPersistStream : public IPersist
  347. {
  348.     typedef IPersistStream ThisClass;
  349.     typedef IPersist inherited;
  350.     
  351. public:
  352.     virtual System::Longint __stdcall IsDirty(void) = 0;
  353.     virtual System::Longint __stdcall Load(IStream *stm) = 0;
  354.     virtual System::Longint __stdcall Save(IStream *stm, System::LongBool fClearDirty) = 0;
  355.     virtual System::Longint __stdcall GetSizeMax(System::Comp &cbSize) = 0;
  356. public:
  357.     /* !! TObject.Create */ __fastcall IPersistStream(void) : Ole2::IPersist() { }
  358.     /* !! TObject.Destroy */ __fastcall virtual ~IPersistStream(void) { }
  359.     
  360. };
  361.  
  362. class __declspec(pascalimplementation) IMoniker : public IPersistStream
  363. {
  364.     typedef IMoniker ThisClass;
  365.     typedef IPersistStream inherited;
  366.     
  367. public:
  368.     virtual System::Longint __stdcall BindToObject(IBindCtx *bc, IMoniker *mkToLeft, const TGUID &iidResult
  369.         , void *vResult) = 0;
  370.     virtual System::Longint __stdcall BindToStorage(IBindCtx *bc, IMoniker *mkToLeft, const TGUID &iid, 
  371.         void *vObj) = 0;
  372.     virtual System::Longint __stdcall Reduce(IBindCtx *bc, System::Longint dwReduceHowFar, IMoniker *&mkToLeft
  373.         , IMoniker *&mkReduced) = 0;
  374.     virtual System::Longint __stdcall ComposeWith(IMoniker *mkRight, System::LongBool fOnlyIfNotGeneric
  375.         , IMoniker *&mkComposite) = 0;
  376.     virtual System::Longint __stdcall Enum(System::LongBool fForward, IEnumMoniker *&enumMoniker) = 0;
  377.     virtual System::Longint __stdcall IsEqual(IMoniker *mkOtherMoniker) = 0;
  378.     virtual System::Longint __stdcall Hash(System::Longint &dwHash) = 0;
  379.     virtual System::Longint __stdcall IsRunning(IBindCtx *bc, IMoniker *mkToLeft, IMoniker *mkNewlyRunning
  380.         ) = 0;
  381.     virtual System::Longint __stdcall GetTimeOfLastChange(IBindCtx *bc, IMoniker *mkToLeft, Windows::TFileTime 
  382.         &filetime) = 0;
  383.     virtual System::Longint __stdcall Inverse(IMoniker *&mk) = 0;
  384.     virtual System::Longint __stdcall CommonPrefixWith(IMoniker *mkOther, IMoniker *&mkPrefix) = 0;
  385.     virtual System::Longint __stdcall RelativePathTo(IMoniker *mkOther, IMoniker *&mkRelPath) = 0;
  386.     virtual System::Longint __stdcall GetDisplayName(IBindCtx *bc, IMoniker *mkToLeft, System::PWideChar 
  387.         &pszDisplayName) = 0;
  388.     virtual System::Longint __stdcall ParseDisplayName(IBindCtx *bc, IMoniker *mkToLeft, System::PWideChar 
  389.         pszDisplayName, System::Longint &chEaten, IMoniker *&mkOut) = 0;
  390.     virtual System::Longint __stdcall IsSystemMoniker(System::Longint &dwMksys) = 0;
  391. public:
  392.     /* !! TObject.Create */ __fastcall IMoniker(void) : Ole2::IPersistStream() { }
  393.     /* !! TObject.Destroy */ __fastcall virtual ~IMoniker(void) { }
  394.     
  395. };
  396.  
  397. class __declspec(pascalimplementation) IEnumString : public IUnknown
  398. {
  399.     typedef IEnumString ThisClass;
  400.     typedef IUnknown inherited;
  401.     
  402. public:
  403.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  404.         ) = 0;
  405.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  406.     virtual System::Longint __stdcall Reset(void) = 0;
  407.     virtual System::Longint __stdcall Clone(IEnumString *&enm) = 0;
  408. public:
  409.     /* !! TObject.Create */ __fastcall IEnumString(void) : Ole2::IUnknown() { }
  410.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumString(void) { }
  411.     
  412. };
  413.  
  414. struct TStatStg
  415. {
  416.     System::WideChar *pwcsName;
  417.     System::Longint dwType;
  418.     System::Comp cbSize;
  419.     Windows::TFileTime mtime;
  420.     Windows::TFileTime ctime;
  421.     Windows::TFileTime atime;
  422.     System::Longint grfMode;
  423.     System::Longint grfLocksSupported;
  424.     TGUID clsid;
  425.     System::Longint grfStateBits;
  426.     System::Longint reserved;
  427. } ;
  428.  
  429. typedef TStatStg *PStatStg;
  430.  
  431. class __declspec(pascalimplementation) IStream : public IUnknown
  432. {
  433.     typedef IStream ThisClass;
  434.     typedef IUnknown inherited;
  435.     
  436. public:
  437.     virtual System::Longint __stdcall Read(System::Pointer pv, System::Longint cb, Windows::PLongint pcbRead
  438.         ) = 0;
  439.     virtual System::Longint __stdcall Write(System::Pointer pv, System::Longint cb, Windows::PLongint pcbWritten
  440.         ) = 0;
  441.     virtual System::Longint __stdcall Seek(System::Comp dlibMove, System::Longint dwOrigin, System::Comp 
  442.         &libNewPosition) = 0;
  443.     virtual System::Longint __stdcall SetSize(System::Comp libNewSize) = 0;
  444.     virtual System::Longint __stdcall CopyTo(IStream *stm, System::Comp cb, System::Comp &cbRead, System::Comp 
  445.         &cbWritten) = 0;
  446.     virtual System::Longint __stdcall Commit(System::Longint grfCommitFlags) = 0;
  447.     virtual System::Longint __stdcall Revert(void) = 0;
  448.     virtual System::Longint __stdcall LockRegion(System::Comp libOffset, System::Comp cb, System::Longint 
  449.         dwLockType) = 0;
  450.     virtual System::Longint __stdcall UnlockRegion(System::Comp libOffset, System::Comp cb, System::Longint 
  451.         dwLockType) = 0;
  452.     virtual System::Longint __stdcall Stat(TStatStg &statstg, System::Longint grfStatFlag) = 0;
  453.     virtual System::Longint __stdcall Clone(IStream *&stm) = 0;
  454. public:
  455.     /* !! TObject.Create */ __fastcall IStream(void) : Ole2::IUnknown() { }
  456.     /* !! TObject.Destroy */ __fastcall virtual ~IStream(void) { }
  457.     
  458. };
  459.  
  460. class __declspec(delphiclass) IEnumStatStg;
  461. class __declspec(pascalimplementation) IEnumStatStg : public IUnknown
  462. {
  463.     typedef IEnumStatStg ThisClass;
  464.     typedef IUnknown inherited;
  465.     
  466. public:
  467.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  468.         ) = 0;
  469.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  470.     virtual System::Longint __stdcall Reset(void) = 0;
  471.     virtual System::Longint __stdcall Clone(IEnumStatStg *&enm) = 0;
  472. public:
  473.     /* !! TObject.Create */ __fastcall IEnumStatStg(void) : Ole2::IUnknown() { }
  474.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumStatStg(void) { }
  475.     
  476. };
  477.  
  478. typedef System::PWideChar *TSNB;
  479.  
  480. class __declspec(delphiclass) IStorage;
  481. class __declspec(pascalimplementation) IStorage : public IUnknown
  482. {
  483.     typedef IStorage ThisClass;
  484.     typedef IUnknown inherited;
  485.     
  486. public:
  487.     virtual System::Longint __stdcall CreateStream(System::PWideChar pwcsName, System::Longint grfMode, 
  488.         System::Longint reserved1, System::Longint reserved2, IStream *&stm) = 0;
  489.     virtual System::Longint __stdcall OpenStream(System::PWideChar pwcsName, System::Pointer reserved1, 
  490.         System::Longint grfMode, System::Longint reserved2, IStream *&stm) = 0;
  491.     virtual System::Longint __stdcall CreateStorage(System::PWideChar pwcsName, System::Longint grfMode
  492.         , System::Longint dwStgFmt, System::Longint reserved2, IStorage *&stg) = 0;
  493.     virtual System::Longint __stdcall OpenStorage(System::PWideChar pwcsName, IStorage *stgPriority, System::Longint 
  494.         grfMode, TSNB snbExclude, System::Longint reserved, IStorage *&stg) = 0;
  495.     virtual System::Longint __stdcall CopyTo(System::Longint ciidExclude, PGUID rgiidExclude, TSNB snbExclude
  496.         , IStorage *stgDest) = 0;
  497.     virtual System::Longint __stdcall MoveElementTo(System::PWideChar pwcsName, IStorage *stgDest, System::PWideChar 
  498.         pwcsNewName, System::Longint grfFlags) = 0;
  499.     virtual System::Longint __stdcall Commit(System::Longint grfCommitFlags) = 0;
  500.     virtual System::Longint __stdcall Revert(void) = 0;
  501.     virtual System::Longint __stdcall EnumElements(System::Longint reserved1, System::Pointer reserved2
  502.         , System::Longint reserved3, IEnumStatStg *&enm) = 0;
  503.     virtual System::Longint __stdcall DestroyElement(System::PWideChar pwcsName) = 0;
  504.     virtual System::Longint __stdcall RenameElement(System::PWideChar pwcsOldName, System::PWideChar pwcsNewName
  505.         ) = 0;
  506.     virtual System::Longint __stdcall SetElementTimes(System::PWideChar pwcsName, const Windows::TFileTime 
  507.         &ctime, const Windows::TFileTime &atime, const Windows::TFileTime &mtime) = 0;
  508.     virtual System::Longint __stdcall SetClass(const TGUID &clsid) = 0;
  509.     virtual System::Longint __stdcall SetStateBits(System::Longint grfStateBits, System::Longint grfMask
  510.         ) = 0;
  511.     virtual System::Longint __stdcall Stat(TStatStg &statstg, System::Longint grfStatFlag) = 0;
  512. public:
  513.     /* !! TObject.Create */ __fastcall IStorage(void) : Ole2::IUnknown() { }
  514.     /* !! TObject.Destroy */ __fastcall virtual ~IStorage(void) { }
  515.     
  516. };
  517.  
  518. class __declspec(delphiclass) IPersistFile;
  519. class __declspec(pascalimplementation) IPersistFile : public IPersist
  520. {
  521.     typedef IPersistFile ThisClass;
  522.     typedef IPersist inherited;
  523.     
  524. public:
  525.     virtual System::Longint __stdcall IsDirty(void) = 0;
  526.     virtual System::Longint __stdcall Load(System::PWideChar pszFileName, System::Longint dwMode) = 0;
  527.     virtual System::Longint __stdcall Save(System::PWideChar pszFileName, System::LongBool fRemember) = 0
  528.         ;
  529.     virtual System::Longint __stdcall SaveCompleted(System::PWideChar pszFileName) = 0;
  530.     virtual System::Longint __stdcall GetCurFile(System::PWideChar &pszFileName) = 0;
  531. public:
  532.     /* !! TObject.Create */ __fastcall IPersistFile(void) : Ole2::IPersist() { }
  533.     /* !! TObject.Destroy */ __fastcall virtual ~IPersistFile(void) { }
  534.     
  535. };
  536.  
  537. class __declspec(delphiclass) IPersistStorage;
  538. class __declspec(pascalimplementation) IPersistStorage : public IPersist
  539. {
  540.     typedef IPersistStorage ThisClass;
  541.     typedef IPersist inherited;
  542.     
  543. public:
  544.     virtual System::Longint __stdcall IsDirty(void) = 0;
  545.     virtual System::Longint __stdcall InitNew(IStorage *stg) = 0;
  546.     virtual System::Longint __stdcall Load(IStorage *stg) = 0;
  547.     virtual System::Longint __stdcall Save(IStorage *stgSave, System::LongBool fSameAsLoad) = 0;
  548.     virtual System::Longint __stdcall SaveCompleted(IStorage *stgNew) = 0;
  549.     virtual System::Longint __stdcall HandsOffStorage(void) = 0;
  550. public:
  551.     /* !! TObject.Create */ __fastcall IPersistStorage(void) : Ole2::IPersist() { }
  552.     /* !! TObject.Destroy */ __fastcall virtual ~IPersistStorage(void) { }
  553.     
  554. };
  555.  
  556. class __declspec(delphiclass) ILockBytes;
  557. class __declspec(pascalimplementation) ILockBytes : public IUnknown
  558. {
  559.     typedef ILockBytes ThisClass;
  560.     typedef IUnknown inherited;
  561.     
  562. public:
  563.     virtual System::Longint __stdcall ReadAt(System::Comp ulOffset, System::Pointer pv, System::Longint 
  564.         cb, Windows::PLongint pcbRead) = 0;
  565.     virtual System::Longint __stdcall WriteAt(System::Comp ulOffset, System::Pointer pv, System::Longint 
  566.         cb, Windows::PLongint pcbWritten) = 0;
  567.     virtual System::Longint __stdcall Flush(void) = 0;
  568.     virtual System::Longint __stdcall SetSize(System::Comp cb) = 0;
  569.     virtual System::Longint __stdcall LockRegion(System::Comp libOffset, System::Comp cb, System::Longint 
  570.         dwLockType) = 0;
  571.     virtual System::Longint __stdcall UnlockRegion(System::Comp libOffset, System::Comp cb, System::Longint 
  572.         dwLockType) = 0;
  573.     virtual System::Longint __stdcall Stat(TStatStg &statstg, System::Longint grfStatFlag) = 0;
  574. public:
  575.     /* !! TObject.Create */ __fastcall ILockBytes(void) : Ole2::IUnknown() { }
  576.     /* !! TObject.Destroy */ __fastcall virtual ~ILockBytes(void) { }
  577.     
  578. };
  579.  
  580. struct TDVTargetDevice;
  581. typedef TDVTargetDevice *PDVTargetDevice;
  582.  
  583. struct OLE2_42
  584. {
  585.     
  586. } ;
  587.  
  588. struct TDVTargetDevice
  589. {
  590.     System::Longint tdSize;
  591.     System::Word tdDriverNameOffset;
  592.     System::Word tdDeviceNameOffset;
  593.     System::Word tdPortNameOffset;
  594.     System::Word tdExtDevmodeOffset;
  595.     OLE2_42 tdData;
  596. } ;
  597.  
  598. typedef System::Word *PClipFormat;
  599.  
  600. typedef System::Word TClipFormat;
  601.  
  602. struct TFormatEtc
  603. {
  604.     System::Word cfFormat;
  605.     TDVTargetDevice *ptd;
  606.     System::Longint dwAspect;
  607.     System::Longint lindex;
  608.     System::Longint tymed;
  609. } ;
  610.  
  611. typedef TFormatEtc *PFormatEtc;
  612.  
  613. class __declspec(delphiclass) IEnumFormatEtc;
  614. class __declspec(pascalimplementation) IEnumFormatEtc : public IUnknown
  615. {
  616.     typedef IEnumFormatEtc ThisClass;
  617.     typedef IUnknown inherited;
  618.     
  619. public:
  620.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  621.         ) = 0;
  622.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  623.     virtual System::Longint __stdcall Reset(void) = 0;
  624.     virtual System::Longint __stdcall Clone(IEnumFormatEtc *&Enum) = 0;
  625. public:
  626.     /* !! TObject.Create */ __fastcall IEnumFormatEtc(void) : Ole2::IUnknown() { }
  627.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumFormatEtc(void) { }
  628.     
  629. };
  630.  
  631. struct TStatData;
  632. typedef TStatData *PStatData;
  633.  
  634. class __declspec(delphiclass) IAdviseSink;
  635. struct TStgMedium;
  636. class __declspec(pascalimplementation) IAdviseSink : public IUnknown
  637. {
  638.     typedef IAdviseSink ThisClass;
  639.     typedef IUnknown inherited;
  640.     
  641. public:
  642.     virtual void __stdcall OnDataChange(TFormatEtc &formatetc, TStgMedium &stgmed) = 0;
  643.     virtual void __stdcall OnViewChange(System::Longint dwAspect, System::Longint lindex) = 0;
  644.     virtual void __stdcall OnRename(IMoniker *mk) = 0;
  645.     virtual void __stdcall OnSave(void) = 0;
  646.     virtual void __stdcall OnClose(void) = 0;
  647. public:
  648.     /* !! TObject.Create */ __fastcall IAdviseSink(void) : Ole2::IUnknown() { }
  649.     /* !! TObject.Destroy */ __fastcall virtual ~IAdviseSink(void) { }
  650.     
  651. };
  652.  
  653. struct TStatData
  654. {
  655.     TFormatEtc formatetc;
  656.     System::Longint advf;
  657.     IAdviseSink *advSink;
  658.     System::Longint dwConnection;
  659. } ;
  660.  
  661. class __declspec(delphiclass) IEnumStatData;
  662. class __declspec(pascalimplementation) IEnumStatData : public IUnknown
  663. {
  664.     typedef IEnumStatData ThisClass;
  665.     typedef IUnknown inherited;
  666.     
  667. public:
  668.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  669.         ) = 0;
  670.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  671.     virtual System::Longint __stdcall Reset(void) = 0;
  672.     virtual System::Longint __stdcall Clone(IEnumStatData *&Enum) = 0;
  673. public:
  674.     /* !! TObject.Create */ __fastcall IEnumStatData(void) : Ole2::IUnknown() { }
  675.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumStatData(void) { }
  676.     
  677. };
  678.  
  679. class __declspec(delphiclass) IRootStorage;
  680. class __declspec(pascalimplementation) IRootStorage : public IUnknown
  681. {
  682.     typedef IRootStorage ThisClass;
  683.     typedef IUnknown inherited;
  684.     
  685. public:
  686.     virtual System::Longint __stdcall SwitchToFile(System::PWideChar pszFile) = 0;
  687. public:
  688.     /* !! TObject.Create */ __fastcall IRootStorage(void) : Ole2::IUnknown() { }
  689.     /* !! TObject.Destroy */ __fastcall virtual ~IRootStorage(void) { }
  690.     
  691. };
  692.  
  693. struct TRemStgMedium;
  694. typedef TRemStgMedium *PRemStgMedium;
  695.  
  696. struct OLE2_82
  697. {
  698.     
  699. } ;
  700.  
  701. struct TRemStgMedium
  702. {
  703.     System::Longint tymed;
  704.     System::Longint dwHandleType;
  705.     System::Longint pData;
  706.     System::Longint pUnkForRelease;
  707.     System::Longint cbData;
  708.     OLE2_82 data;
  709. } ;
  710.  
  711. typedef TStgMedium *PStgMedium;
  712.  
  713. struct TStgMedium
  714. {
  715.     System::Longint tymed;
  716.     union
  717.     {
  718.         IStorage *stg;
  719.         IStream *stm;
  720.         System::WideChar *lpszFileName;
  721.         System::Integer hGlobal;
  722.         System::Integer hEnhMetaFile;
  723.         System::Integer hMetaFilePict;
  724.         struct 
  725.         {
  726.             System::Integer hBitmap;
  727.             IUnknown *unkForRelease;
  728.             
  729.         };
  730.         
  731.     };
  732. } ;
  733.  
  734. class __declspec(delphiclass) IAdviseSink2;
  735. class __declspec(pascalimplementation) IAdviseSink2 : public IAdviseSink
  736. {
  737.     typedef IAdviseSink2 ThisClass;
  738.     typedef IAdviseSink inherited;
  739.     
  740. public:
  741.     virtual void __stdcall OnLinkSrcChange(IMoniker *mk) = 0;
  742. public:
  743.     /* !! TObject.Create */ __fastcall IAdviseSink2(void) : Ole2::IAdviseSink() { }
  744.     /* !! TObject.Destroy */ __fastcall virtual ~IAdviseSink2(void) { }
  745.     
  746. };
  747.  
  748. class __declspec(delphiclass) IDataObject;
  749. class __declspec(pascalimplementation) IDataObject : public IUnknown
  750. {
  751.     typedef IDataObject ThisClass;
  752.     typedef IUnknown inherited;
  753.     
  754. public:
  755.     virtual System::Longint __stdcall GetData(TFormatEtc &formatetcIn, TStgMedium &medium) = 0;
  756.     virtual System::Longint __stdcall GetDataHere(TFormatEtc &formatetc, TStgMedium &medium) = 0;
  757.     virtual System::Longint __stdcall QueryGetData(TFormatEtc &formatetc) = 0;
  758.     virtual System::Longint __stdcall GetCanonicalFormatEtc(TFormatEtc &formatetc, TFormatEtc &formatetcOut
  759.         ) = 0;
  760.     virtual System::Longint __stdcall SetData(TFormatEtc &formatetc, TStgMedium &medium, System::LongBool 
  761.         fRelease) = 0;
  762.     virtual System::Longint __stdcall EnumFormatEtc(System::Longint dwDirection, IEnumFormatEtc *&enumFormatEtc
  763.         ) = 0;
  764.     virtual System::Longint __stdcall DAdvise(TFormatEtc &formatetc, System::Longint advf, IAdviseSink *
  765.         advSink, System::Longint &dwConnection) = 0;
  766.     virtual System::Longint __stdcall DUnadvise(System::Longint dwConnection) = 0;
  767.     virtual System::Longint __stdcall EnumDAdvise(IEnumStatData *&enumAdvise) = 0;
  768. public:
  769.     /* !! TObject.Create */ __fastcall IDataObject(void) : Ole2::IUnknown() { }
  770.     /* !! TObject.Destroy */ __fastcall virtual ~IDataObject(void) { }
  771.     
  772. };
  773.  
  774. class __declspec(delphiclass) IDataAdviseHolder;
  775. class __declspec(pascalimplementation) IDataAdviseHolder : public IUnknown
  776. {
  777.     typedef IDataAdviseHolder ThisClass;
  778.     typedef IUnknown inherited;
  779.     
  780. public:
  781.     virtual System::Longint __stdcall Advise(IDataObject *dataObject, TFormatEtc &fetc, System::Longint 
  782.         advf, IAdviseSink *advise, System::Longint &pdwConnection) = 0;
  783.     virtual System::Longint __stdcall Unadvise(System::Longint dwConnection) = 0;
  784.     virtual System::Longint __stdcall EnumAdvise(IEnumStatData *&enumAdvise) = 0;
  785.     virtual System::Longint __stdcall SendOnDataChange(IDataObject *dataObject, System::Longint dwReserved
  786.         , System::Longint advf) = 0;
  787. public:
  788.     /* !! TObject.Create */ __fastcall IDataAdviseHolder(void) : Ole2::IUnknown() { }
  789.     /* !! TObject.Destroy */ __fastcall virtual ~IDataAdviseHolder(void) { }
  790.     
  791. };
  792.  
  793. struct TInterfaceInfo
  794. {
  795.     IUnknown *unk;
  796.     TGUID iid;
  797.     System::Word wMethod;
  798. } ;
  799.  
  800. typedef TInterfaceInfo *PInterfaceInfo;
  801.  
  802. class __declspec(delphiclass) IMessageFilter;
  803. class __declspec(pascalimplementation) IMessageFilter : public IUnknown
  804. {
  805.     typedef IMessageFilter ThisClass;
  806.     typedef IUnknown inherited;
  807.     
  808. public:
  809.     virtual System::Longint __stdcall HandleInComingCall(System::Longint dwCallType, System::Integer htaskCaller
  810.         , System::Longint dwTickCount, PInterfaceInfo lpInterfaceInfo) = 0;
  811.     virtual System::Longint __stdcall RetryRejectedCall(System::Integer htaskCallee, System::Longint dwTickCount
  812.         , System::Longint dwRejectType) = 0;
  813.     virtual System::Longint __stdcall MessagePending(System::Integer htaskCallee, System::Longint dwTickCount
  814.         , System::Longint dwPendingType) = 0;
  815. public:
  816.     /* !! TObject.Create */ __fastcall IMessageFilter(void) : Ole2::IUnknown() { }
  817.     /* !! TObject.Destroy */ __fastcall virtual ~IMessageFilter(void) { }
  818.     
  819. };
  820.  
  821. typedef System::Integer TRpcOleDataRep;
  822.  
  823. struct TRpcOleMessage;
  824. typedef TRpcOleMessage *PRpcOleMessage;
  825.  
  826. struct TRpcOleMessage
  827. {
  828.     void *reserved1;
  829.     System::Longint dataRepresentation;
  830.     void *Buffer;
  831.     System::Longint cbBuffer;
  832.     System::Longint iMethod;
  833.     void *reserved2[5];
  834.     System::Longint rpcFlags;
  835. } ;
  836.  
  837. class __declspec(delphiclass) IRpcChannelBuffer;
  838. class __declspec(pascalimplementation) IRpcChannelBuffer : public IUnknown
  839. {
  840.     typedef IRpcChannelBuffer ThisClass;
  841.     typedef IUnknown inherited;
  842.     
  843. public:
  844.     virtual System::Longint __stdcall GetBuffer(TRpcOleMessage &message, const TGUID &iid) = 0;
  845.     virtual System::Longint __stdcall SendReceive(TRpcOleMessage &message, System::Longint &status) = 0
  846.         ;
  847.     virtual System::Longint __stdcall FreeBuffer(TRpcOleMessage &message) = 0;
  848.     virtual System::Longint __stdcall GetDestCtx(System::Longint &dwDestContext, void *pvDestContext) = 0
  849.         ;
  850.     virtual System::Longint __stdcall IsConnected(void) = 0;
  851. public:
  852.     /* !! TObject.Create */ __fastcall IRpcChannelBuffer(void) : Ole2::IUnknown() { }
  853.     /* !! TObject.Destroy */ __fastcall virtual ~IRpcChannelBuffer(void) { }
  854.     
  855. };
  856.  
  857. class __declspec(delphiclass) IRpcProxyBuffer;
  858. class __declspec(pascalimplementation) IRpcProxyBuffer : public IUnknown
  859. {
  860.     typedef IRpcProxyBuffer ThisClass;
  861.     typedef IUnknown inherited;
  862.     
  863. public:
  864.     virtual System::Longint __stdcall Connect(IRpcChannelBuffer *rpcChannelBuffer) = 0;
  865.     virtual void __stdcall Disconnect(void) = 0;
  866. public:
  867.     /* !! TObject.Create */ __fastcall IRpcProxyBuffer(void) : Ole2::IUnknown() { }
  868.     /* !! TObject.Destroy */ __fastcall virtual ~IRpcProxyBuffer(void) { }
  869.     
  870. };
  871.  
  872. class __declspec(delphiclass) IRpcStubBuffer;
  873. class __declspec(pascalimplementation) IRpcStubBuffer : public IUnknown
  874. {
  875.     typedef IRpcStubBuffer ThisClass;
  876.     typedef IUnknown inherited;
  877.     
  878. public:
  879.     virtual System::Longint __stdcall Connect(IUnknown *unkServer) = 0;
  880.     virtual void __stdcall Disconnect(void) = 0;
  881.     virtual System::Longint __stdcall Invoke(TRpcOleMessage &rpcmsg, IRpcChannelBuffer *rpcChannelBuffer
  882.         ) = 0;
  883.     virtual IRpcStubBuffer *__stdcall IsIIDSupported(const TGUID &iid) = 0;
  884.     virtual System::Longint __stdcall CountRefs(void) = 0;
  885.     virtual System::Longint __stdcall DebugServerQueryInterface(void *pv) = 0;
  886.     virtual void __stdcall DebugServerRelease(System::Pointer pv) = 0;
  887. public:
  888.     /* !! TObject.Create */ __fastcall IRpcStubBuffer(void) : Ole2::IUnknown() { }
  889.     /* !! TObject.Destroy */ __fastcall virtual ~IRpcStubBuffer(void) { }
  890.     
  891. };
  892.  
  893. class __declspec(delphiclass) IPSFactoryBuffer;
  894. class __declspec(pascalimplementation) IPSFactoryBuffer : public IUnknown
  895. {
  896.     typedef IPSFactoryBuffer ThisClass;
  897.     typedef IUnknown inherited;
  898.     
  899. public:
  900.     virtual System::Longint __stdcall CreateProxy(IUnknown *unkOuter, const TGUID &iid, IRpcProxyBuffer *
  901.         &proxy, void *pv) = 0;
  902.     virtual System::Longint __stdcall CreateStub(const TGUID &iid, IUnknown *unkServer, IRpcStubBuffer *
  903.         &stub) = 0;
  904. public:
  905.     /* !! TObject.Create */ __fastcall IPSFactoryBuffer(void) : Ole2::IUnknown() { }
  906.     /* !! TObject.Destroy */ __fastcall virtual ~IPSFactoryBuffer(void) { }
  907.     
  908. };
  909.  
  910. typedef System::PWideChar *PBStr;
  911.  
  912. typedef System::WideChar *TBStr;
  913.  
  914. typedef System::WideChar *TBStrList[65536];
  915.  
  916. typedef TBStrList *PBStrList;
  917.  
  918. struct TBlob;
  919. typedef TBlob *PBlob;
  920.  
  921. struct TBlob
  922. {
  923.     System::Longint cbSize;
  924.     void *pBlobData;
  925. } ;
  926.  
  927. struct TClipData;
  928. typedef TClipData *PClipData;
  929.  
  930. struct TClipData
  931. {
  932.     System::Longint cbSize;
  933.     System::Longint ulClipFmt;
  934.     void *pClipData;
  935. } ;
  936.  
  937. struct TSafeArrayBound
  938. {
  939.     System::Longint cElements;
  940.     System::Longint lLbound;
  941. } ;
  942.  
  943. typedef TSafeArrayBound *PSafeArrayBound;
  944.  
  945. struct TSafeArray;
  946. typedef TSafeArray *PSafeArray;
  947.  
  948. struct TSafeArray
  949. {
  950.     System::Word cDims;
  951.     System::Word fFeatures;
  952.     System::Longint cbElements;
  953.     System::Longint cLocks;
  954.     void *pvData;
  955.     TSafeArrayBound rgsabound[1];
  956. } ;
  957.  
  958. typedef System::Double TOleDate;
  959.  
  960. typedef System::Comp TCurrency;
  961.  
  962. typedef System::WordBool TOleBool;
  963.  
  964. typedef System::Word TVarType;
  965.  
  966. struct TVariantArg;
  967. typedef TVariantArg *PVariantArg;
  968.  
  969. class __declspec(delphiclass) IDispatch;
  970. class __declspec(delphiclass) ITypeInfo;
  971. typedef System::Longint TDispIDList[65536];
  972.  
  973. typedef TDispIDList *PDispIDList;
  974.  
  975. struct TDispParams;
  976. struct TExcepInfo;
  977. typedef TExcepInfo *PExcepInfo;
  978.  
  979. class __declspec(pascalimplementation) IDispatch : public IUnknown
  980. {
  981.     typedef IDispatch ThisClass;
  982.     typedef IUnknown inherited;
  983.     
  984. public:
  985.     virtual System::Longint __stdcall GetTypeInfoCount(System::Integer &ctinfo) = 0;
  986.     virtual System::Longint __stdcall GetTypeInfo(System::Integer itinfo, System::Longint lcid, ITypeInfo *
  987.         &tinfo) = 0;
  988.     virtual System::Longint __stdcall GetIDsOfNames(const TGUID &iid, POleStrList rgszNames, System::Integer 
  989.         cNames, System::Longint lcid, PDispIDList rgdispid) = 0;
  990.     virtual System::Longint __stdcall Invoke(System::Longint dispIDMember, const TGUID &iid, System::Longint 
  991.         lcid, System::Word flags, TDispParams &dispParams, System::PVariant varResult, PExcepInfo excepInfo
  992.         , Windows::PInteger argErr) = 0;
  993. public:
  994.     /* !! TObject.Create */ __fastcall IDispatch(void) : Ole2::IUnknown() { }
  995.     /* !! TObject.Destroy */ __fastcall virtual ~IDispatch(void) { }
  996.     
  997. };
  998.  
  999. struct TVariantArg
  1000. {
  1001.     System::Word vt;
  1002.     System::Word wReserved1;
  1003.     System::Word wReserved2;
  1004.     System::Word wReserved3;
  1005.     union
  1006.     {
  1007.         void *byRef;
  1008.         System::Variant *pvarVal;
  1009.         PSafeArray *pparray;
  1010.         IDispatch **pdispVal;
  1011.         IUnknown **punkVal;
  1012.         System::PWideChar *pbstrVal;
  1013.         System::Double *pdate;
  1014.         System::Comp *pcyVal;
  1015.         System::Longint *pscode;
  1016.         System::WordBool *pbool;
  1017.         System::Double *pdblVal;
  1018.         System::Single *pfltVal;
  1019.         System::Longint *plVal;
  1020.         System::Smallint *piVal;
  1021.         System::Byte *pbVal;
  1022.         TSafeArray *parray;
  1023.         IDispatch *dispVal;
  1024.         IUnknown *unkVal;
  1025.         System::WideChar *bstrVal;
  1026.         System::Double date;
  1027.         System::Comp cyVal;
  1028.         System::Longint scode;
  1029.         System::WordBool vbool;
  1030.         System::Double dblVal;
  1031.         System::Single fltVal;
  1032.         System::Longint lVal;
  1033.         System::Smallint iVal;
  1034.         System::Byte bVal;
  1035.         
  1036.     };
  1037. } ;
  1038.  
  1039. typedef TVariantArg TVariantArgList[65536];
  1040.  
  1041. typedef TVariantArgList *PVariantArgList;
  1042.  
  1043. typedef System::Integer TDispID;
  1044.  
  1045. typedef System::Integer TMemberID;
  1046.  
  1047. typedef System::Longint TMemberIDList[65536];
  1048.  
  1049. typedef TMemberIDList *PMemberIDList;
  1050.  
  1051. typedef System::Integer TPropID;
  1052.  
  1053. typedef System::Integer HRefType;
  1054.  
  1055. typedef System::Integer TTypeKind;
  1056.  
  1057. struct TArrayDesc;
  1058. typedef TArrayDesc *PArrayDesc;
  1059.  
  1060. struct TTypeDesc;
  1061. typedef TTypeDesc *PTypeDesc;
  1062.  
  1063. struct TTypeDesc
  1064. {
  1065.     
  1066.     union
  1067.     {
  1068.         System::Longint hreftype;
  1069.         TArrayDesc *padesc;
  1070.         struct 
  1071.         {
  1072.             TTypeDesc *ptdesc;
  1073.             System::Word vt;
  1074.             
  1075.         };
  1076.         
  1077.     };
  1078. } ;
  1079.  
  1080. struct TArrayDesc
  1081. {
  1082.     TTypeDesc tdescElem;
  1083.     System::Word cDims;
  1084.     TSafeArrayBound rgbounds[1];
  1085. } ;
  1086.  
  1087. struct TIDLDesc
  1088. {
  1089.     System::Longint dwReserved;
  1090.     System::Word wIDLFlags;
  1091. } ;
  1092.  
  1093. typedef TIDLDesc *PIDLDesc;
  1094.  
  1095. struct TElemDesc
  1096. {
  1097.     TTypeDesc tdesc;
  1098.     TIDLDesc idldesc;
  1099. } ;
  1100.  
  1101. typedef TElemDesc *PElemDesc;
  1102.  
  1103. typedef TElemDesc TElemDescList[65536];
  1104.  
  1105. typedef TElemDescList *PElemDescList;
  1106.  
  1107. struct TTypeAttr
  1108. {
  1109.     TGUID guid;
  1110.     System::Longint lcid;
  1111.     System::Longint dwReserved;
  1112.     System::Longint memidConstructor;
  1113.     System::Longint memidDestructor;
  1114.     System::WideChar *lpstrSchema;
  1115.     System::Longint cbSizeInstance;
  1116.     System::Longint typekind;
  1117.     System::Word cFuncs;
  1118.     System::Word cVars;
  1119.     System::Word cImplTypes;
  1120.     System::Word cbSizeVft;
  1121.     System::Word cbAlignment;
  1122.     System::Word wTypeFlags;
  1123.     System::Word wMajorVerNum;
  1124.     System::Word wMinorVerNum;
  1125.     TTypeDesc tdescAlias;
  1126.     TIDLDesc idldescType;
  1127. } ;
  1128.  
  1129. typedef TTypeAttr *PTypeAttr;
  1130.  
  1131. typedef TDispParams *PDispParams;
  1132.  
  1133. struct TDispParams
  1134. {
  1135.     TVariantArgList *rgvarg;
  1136.     TDispIDList *rgdispidNamedArgs;
  1137.     System::Longint cArgs;
  1138.     System::Longint cNamedArgs;
  1139. } ;
  1140.  
  1141. typedef System::Longint __stdcall (*TFNDeferredFillIn)(PExcepInfo ExInfo);
  1142.  
  1143. struct TExcepInfo
  1144. {
  1145.     System::Word wCode;
  1146.     System::Word wReserved;
  1147.     System::WideChar *bstrSource;
  1148.     System::WideChar *bstrDescription;
  1149.     System::WideChar *bstrHelpFile;
  1150.     System::Longint dwHelpContext;
  1151.     void *pvReserved;
  1152.     TFNDeferredFillIn pfnDeferredFillIn;
  1153.     System::Longint scode;
  1154. } ;
  1155.  
  1156. typedef System::Integer TFuncKind;
  1157.  
  1158. typedef System::Integer TInvokeKind;
  1159.  
  1160. typedef System::Integer TCallConv;
  1161.  
  1162. struct TFuncDesc;
  1163. typedef TFuncDesc *PFuncDesc;
  1164.  
  1165. struct TFuncDesc
  1166. {
  1167.     System::Longint memid;
  1168.     TResultList *lprgscode;
  1169.     TElemDescList *lprgelemdescParam;
  1170.     System::Longint funckind;
  1171.     System::Longint invkind;
  1172.     System::Longint callconv;
  1173.     System::Smallint cParams;
  1174.     System::Smallint cParamsOpt;
  1175.     System::Smallint oVft;
  1176.     System::Smallint cScodes;
  1177.     TElemDesc elemdescFunc;
  1178.     System::Word wFuncFlags;
  1179. } ;
  1180.  
  1181. typedef System::Integer TVarKind;
  1182.  
  1183. struct TVarDesc
  1184. {
  1185.     System::Longint memid;
  1186.     System::WideChar *lpstrSchema;
  1187.     union
  1188.     {
  1189.         System::Variant *lpvarValue;
  1190.         struct 
  1191.         {
  1192.             System::Longint oInst;
  1193.             TElemDesc elemdescVar;
  1194.             System::Word wVarFlags;
  1195.             System::Longint varkind;
  1196.             
  1197.         };
  1198.         
  1199.     };
  1200. } ;
  1201.  
  1202. typedef TVarDesc *PVarDesc;
  1203.  
  1204. class __declspec(delphiclass) ICreateTypeInfo;
  1205. class __declspec(pascalimplementation) ICreateTypeInfo : public IUnknown
  1206. {
  1207.     typedef ICreateTypeInfo ThisClass;
  1208.     typedef IUnknown inherited;
  1209.     
  1210. public:
  1211.     virtual System::Longint __stdcall SetGuid(const TGUID &guid) = 0;
  1212.     virtual System::Longint __stdcall SetTypeFlags(System::Integer uTypeFlags) = 0;
  1213.     virtual System::Longint __stdcall SetDocString(System::PWideChar pstrDoc) = 0;
  1214.     virtual System::Longint __stdcall SetHelpContext(System::Longint dwHelpContext) = 0;
  1215.     virtual System::Longint __stdcall SetVersion(System::Word wMajorVerNum, System::Word wMinorVerNum) = 0
  1216.         ;
  1217.     virtual System::Longint __stdcall AddRefTypeInfo(ITypeInfo *tinfo, System::Longint &reftype) = 0;
  1218.     virtual System::Longint __stdcall AddFuncDesc(System::Integer index, TFuncDesc &funcdesc) = 0;
  1219.     virtual System::Longint __stdcall AddImplType(System::Integer index, System::Longint reftype) = 0;
  1220.     virtual System::Longint __stdcall SetImplTypeFlags(System::Integer index, System::Integer impltypeflags
  1221.         ) = 0;
  1222.     virtual System::Longint __stdcall SetAlignment(System::Word cbAlignment) = 0;
  1223.     virtual System::Longint __stdcall SetSchema(System::PWideChar lpstrSchema) = 0;
  1224.     virtual System::Longint __stdcall AddVarDesc(System::Integer index, TVarDesc &vardesc) = 0;
  1225.     virtual System::Longint __stdcall SetFuncAndParamNames(System::Integer index, POleStrList rgszNames
  1226.         , System::Integer cNames) = 0;
  1227.     virtual System::Longint __stdcall SetVarName(System::Integer index, System::PWideChar szName) = 0;
  1228.     virtual System::Longint __stdcall SetTypeDescAlias(TTypeDesc &descAlias) = 0;
  1229.     virtual System::Longint __stdcall DefineFuncAsDllEntry(System::Integer index, System::PWideChar szDllName
  1230.         , System::PWideChar szProcName) = 0;
  1231.     virtual System::Longint __stdcall SetFuncDocString(System::Integer index, System::PWideChar szDocString
  1232.         ) = 0;
  1233.     virtual System::Longint __stdcall SetVarDocString(System::Integer index, System::PWideChar szDocString
  1234.         ) = 0;
  1235.     virtual System::Longint __stdcall SetFuncHelpContext(System::Integer index, System::Longint dwHelpContext
  1236.         ) = 0;
  1237.     virtual System::Longint __stdcall SetVarHelpContext(System::Integer index, System::Longint dwHelpContext
  1238.         ) = 0;
  1239.     virtual System::Longint __stdcall SetMops(System::Integer index, System::PWideChar bstrMops) = 0;
  1240.     virtual System::Longint __stdcall SetTypeIdldesc(TIDLDesc &idldesc) = 0;
  1241.     virtual System::Longint __stdcall LayOut(void) = 0;
  1242. public:
  1243.     /* !! TObject.Create */ __fastcall ICreateTypeInfo(void) : Ole2::IUnknown() { }
  1244.     /* !! TObject.Destroy */ __fastcall virtual ~ICreateTypeInfo(void) { }
  1245.     
  1246. };
  1247.  
  1248. class __declspec(delphiclass) ICreateTypeLib;
  1249. class __declspec(pascalimplementation) ICreateTypeLib : public IUnknown
  1250. {
  1251.     typedef ICreateTypeLib ThisClass;
  1252.     typedef IUnknown inherited;
  1253.     
  1254. public:
  1255.     virtual System::Longint __stdcall CreateTypeInfo(System::PWideChar szName, System::Longint tkind, ICreateTypeInfo *
  1256.         &ictinfo) = 0;
  1257.     virtual System::Longint __stdcall SetName(System::PWideChar szName) = 0;
  1258.     virtual System::Longint __stdcall SetVersion(System::Word wMajorVerNum, System::Word wMinorVerNum) = 0
  1259.         ;
  1260.     virtual System::Longint __stdcall SetGuid(const TGUID &guid) = 0;
  1261.     virtual System::Longint __stdcall SetDocString(System::PWideChar szDoc) = 0;
  1262.     virtual System::Longint __stdcall SetHelpFileName(System::PWideChar szHelpFileName) = 0;
  1263.     virtual System::Longint __stdcall SetHelpContext(System::Longint dwHelpContext) = 0;
  1264.     virtual System::Longint __stdcall SetLcid(System::Longint lcid) = 0;
  1265.     virtual System::Longint __stdcall SetLibFlags(System::Integer uLibFlags) = 0;
  1266.     virtual System::Longint __stdcall SaveAllChanges(void) = 0;
  1267. public:
  1268.     /* !! TObject.Create */ __fastcall ICreateTypeLib(void) : Ole2::IUnknown() { }
  1269.     /* !! TObject.Destroy */ __fastcall virtual ~ICreateTypeLib(void) { }
  1270.     
  1271. };
  1272.  
  1273. class __declspec(delphiclass) IEnumVariant;
  1274. class __declspec(pascalimplementation) IEnumVariant : public IUnknown
  1275. {
  1276.     typedef IEnumVariant ThisClass;
  1277.     typedef IUnknown inherited;
  1278.     
  1279. public:
  1280.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, System::Longint &pceltFetched
  1281.         ) = 0;
  1282.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  1283.     virtual System::Longint __stdcall Reset(void) = 0;
  1284.     virtual System::Longint __stdcall Clone(IEnumVariant *&Enum) = 0;
  1285. public:
  1286.     /* !! TObject.Create */ __fastcall IEnumVariant(void) : Ole2::IUnknown() { }
  1287.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumVariant(void) { }
  1288.     
  1289. };
  1290.  
  1291. typedef System::Integer TDescKind;
  1292.  
  1293. struct TBindPtr;
  1294. typedef TBindPtr *PBindPtr;
  1295.  
  1296. class __declspec(delphiclass) ITypeComp;
  1297. class __declspec(pascalimplementation) ITypeComp : public IUnknown
  1298. {
  1299.     typedef ITypeComp ThisClass;
  1300.     typedef IUnknown inherited;
  1301.     
  1302. public:
  1303.     virtual System::Longint __stdcall Bind(System::PWideChar szName, System::Longint lHashVal, System::Word 
  1304.         wflags, ITypeInfo *&tinfo, System::Longint &desckind, TBindPtr &bindptr) = 0;
  1305.     virtual System::Longint __stdcall BindType(System::PWideChar szName, System::Longint lHashVal, ITypeInfo *
  1306.         &tinfo, ITypeComp *&tcomp) = 0;
  1307. public:
  1308.     /* !! TObject.Create */ __fastcall ITypeComp(void) : Ole2::IUnknown() { }
  1309.     /* !! TObject.Destroy */ __fastcall virtual ~ITypeComp(void) { }
  1310.     
  1311. };
  1312.  
  1313. struct TBindPtr
  1314. {
  1315.     
  1316.     union
  1317.     {
  1318.         ITypeComp *lptcomp;
  1319.         TVarDesc *lpvardesc;
  1320.         TFuncDesc *lpfuncdesc;
  1321.         
  1322.     };
  1323. } ;
  1324.  
  1325. class __declspec(delphiclass) ITypeLib;
  1326. class __declspec(pascalimplementation) ITypeInfo : public IUnknown
  1327. {
  1328.     typedef ITypeInfo ThisClass;
  1329.     typedef IUnknown inherited;
  1330.     
  1331. public:
  1332.     virtual System::Longint __stdcall GetTypeAttr(PTypeAttr &ptypeattr) = 0;
  1333.     virtual System::Longint __stdcall GetTypeComp(ITypeComp *&tcomp) = 0;
  1334.     virtual System::Longint __stdcall GetFuncDesc(System::Integer index, PFuncDesc &pfuncdesc) = 0;
  1335.     virtual System::Longint __stdcall GetVarDesc(System::Integer index, PVarDesc &pvardesc) = 0;
  1336.     virtual System::Longint __stdcall GetNames(System::Longint memid, PBStrList rgbstrNames, System::Integer 
  1337.         cMaxNames, System::Integer &cNames) = 0;
  1338.     virtual System::Longint __stdcall GetRefTypeOfImplType(System::Integer index, System::Longint &reftype
  1339.         ) = 0;
  1340.     virtual System::Longint __stdcall GetImplTypeFlags(System::Integer index, System::Integer &impltypeflags
  1341.         ) = 0;
  1342.     virtual System::Longint __stdcall GetIDsOfNames(POleStrList rgpszNames, System::Integer cNames, PMemberIDList 
  1343.         rgmemid) = 0;
  1344.     virtual System::Longint __stdcall Invoke(System::Pointer pvInstance, System::Longint memid, System::Word 
  1345.         flags, TDispParams &dispParams, System::PVariant varResult, PExcepInfo excepInfo, Windows::PInteger 
  1346.         argErr) = 0;
  1347.     virtual System::Longint __stdcall GetDocumentation(System::Longint memid, PBStr pbstrName, PBStr pbstrDocString
  1348.         , Windows::PLongint pdwHelpContext, PBStr pbstrHelpFile) = 0;
  1349.     virtual System::Longint __stdcall GetDllEntry(System::Longint memid, System::Longint invkind, System::PWideChar 
  1350.         &bstrDllName, System::PWideChar &bstrName, System::Word &wOrdinal) = 0;
  1351.     virtual System::Longint __stdcall GetRefTypeInfo(System::Longint reftype, ITypeInfo *&tinfo) = 0;
  1352.     virtual System::Longint __stdcall AddressOfMember(System::Longint memid, System::Longint invkind, System::Pointer 
  1353.         &ppv) = 0;
  1354.     virtual System::Longint __stdcall CreateInstance(IUnknown *unkOuter, const TGUID &iid, void *vObj) = 0
  1355.         ;
  1356.     virtual System::Longint __stdcall GetMops(System::Longint memid, System::PWideChar &bstrMops) = 0;
  1357.     virtual System::Longint __stdcall GetContainingTypeLib(ITypeLib *&tlib, System::Integer &pindex) = 0
  1358.         ;
  1359.     virtual void __stdcall ReleaseTypeAttr(PTypeAttr ptypeattr) = 0;
  1360.     virtual void __stdcall ReleaseFuncDesc(PFuncDesc pfuncdesc) = 0;
  1361.     virtual void __stdcall ReleaseVarDesc(PVarDesc pvardesc) = 0;
  1362. public:
  1363.     /* !! TObject.Create */ __fastcall ITypeInfo(void) : Ole2::IUnknown() { }
  1364.     /* !! TObject.Destroy */ __fastcall virtual ~ITypeInfo(void) { }
  1365.     
  1366. };
  1367.  
  1368. typedef System::Integer TSysKind;
  1369.  
  1370. struct TTLibAttr
  1371. {
  1372.     TGUID guid;
  1373.     System::Longint lcid;
  1374.     System::Longint syskind;
  1375.     System::Word wMajorVerNum;
  1376.     System::Word wMinorVerNum;
  1377.     System::Word wLibFlags;
  1378. } ;
  1379.  
  1380. typedef TTLibAttr *PTLibAttr;
  1381.  
  1382. typedef ITypeInfo *TTypeInfoList[65536];
  1383.  
  1384. typedef TTypeInfoList *PTypeInfoList;
  1385.  
  1386. class __declspec(pascalimplementation) ITypeLib : public IUnknown
  1387. {
  1388.     typedef ITypeLib ThisClass;
  1389.     typedef IUnknown inherited;
  1390.     
  1391. public:
  1392.     virtual System::Integer __stdcall GetTypeInfoCount(void) = 0;
  1393.     virtual System::Longint __stdcall GetTypeInfo(System::Integer index, ITypeInfo *&tinfo) = 0;
  1394.     virtual System::Longint __stdcall GetTypeInfoType(System::Integer index, System::Longint &tkind) = 0
  1395.         ;
  1396.     virtual System::Longint __stdcall GetTypeInfoOfGuid(const TGUID &guid, ITypeInfo *&tinfo) = 0;
  1397.     virtual System::Longint __stdcall GetLibAttr(PTLibAttr &ptlibattr) = 0;
  1398.     virtual System::Longint __stdcall GetTypeComp(ITypeComp *&tcomp) = 0;
  1399.     virtual System::Longint __stdcall GetDocumentation(System::Integer index, PBStr pbstrName, PBStr pbstrDocString
  1400.         , Windows::PLongint pdwHelpContext, PBStr pbstrHelpFile) = 0;
  1401.     virtual System::Longint __stdcall IsName(System::PWideChar szNameBuf, System::Longint lHashVal, System::LongBool 
  1402.         &fName) = 0;
  1403.     virtual System::Longint __stdcall FindName(System::PWideChar szNameBuf, System::Longint lHashVal, PTypeInfoList 
  1404.         rgptinfo, PMemberIDList rgmemid, System::Word &pcFound) = 0;
  1405.     virtual void __stdcall ReleaseTLibAttr(PTLibAttr ptlibattr) = 0;
  1406. public:
  1407.     /* !! TObject.Create */ __fastcall ITypeLib(void) : Ole2::IUnknown() { }
  1408.     /* !! TObject.Destroy */ __fastcall virtual ~ITypeLib(void) { }
  1409.     
  1410. };
  1411.  
  1412. class __declspec(delphiclass) IErrorInfo;
  1413. class __declspec(pascalimplementation) IErrorInfo : public IUnknown
  1414. {
  1415.     typedef IErrorInfo ThisClass;
  1416.     typedef IUnknown inherited;
  1417.     
  1418. public:
  1419.     virtual System::Longint __stdcall GetGUID(TGUID &guid) = 0;
  1420.     virtual System::Longint __stdcall GetSource(System::PWideChar &bstrSource) = 0;
  1421.     virtual System::Longint __stdcall GetDescription(System::PWideChar &bstrDescription) = 0;
  1422.     virtual System::Longint __stdcall GetHelpFile(System::PWideChar &bstrHelpFile) = 0;
  1423.     virtual System::Longint __stdcall GetHelpContext(System::Longint &dwHelpContext) = 0;
  1424. public:
  1425.     /* !! TObject.Create */ __fastcall IErrorInfo(void) : Ole2::IUnknown() { }
  1426.     /* !! TObject.Destroy */ __fastcall virtual ~IErrorInfo(void) { }
  1427.     
  1428. };
  1429.  
  1430. class __declspec(delphiclass) ICreateErrorInfo;
  1431. class __declspec(pascalimplementation) ICreateErrorInfo : public IUnknown
  1432. {
  1433.     typedef ICreateErrorInfo ThisClass;
  1434.     typedef IUnknown inherited;
  1435.     
  1436. public:
  1437.     virtual System::Longint __stdcall SetGUID(const TGUID &guid) = 0;
  1438.     virtual System::Longint __stdcall SetSource(System::PWideChar szSource) = 0;
  1439.     virtual System::Longint __stdcall SetDescription(System::PWideChar szDescription) = 0;
  1440.     virtual System::Longint __stdcall SetHelpFile(System::PWideChar szHelpFile) = 0;
  1441.     virtual System::Longint __stdcall SetHelpContext(System::Longint dwHelpContext) = 0;
  1442. public:
  1443.     /* !! TObject.Create */ __fastcall ICreateErrorInfo(void) : Ole2::IUnknown() { }
  1444.     /* !! TObject.Destroy */ __fastcall virtual ~ICreateErrorInfo(void) { }
  1445.     
  1446. };
  1447.  
  1448. class __declspec(delphiclass) ISupportErrorInfo;
  1449. class __declspec(pascalimplementation) ISupportErrorInfo : public IUnknown
  1450. {
  1451.     typedef ISupportErrorInfo ThisClass;
  1452.     typedef IUnknown inherited;
  1453.     
  1454. public:
  1455.     virtual System::Longint __stdcall InterfaceSupportsErrorInfo(const TGUID &iid) = 0;
  1456. public:
  1457.     /* !! TObject.Create */ __fastcall ISupportErrorInfo(void) : Ole2::IUnknown() { }
  1458.     /* !! TObject.Destroy */ __fastcall virtual ~ISupportErrorInfo(void) { }
  1459.     
  1460. };
  1461.  
  1462. struct TParamData
  1463. {
  1464.     System::WideChar *szName;
  1465.     System::Word vt;
  1466. } ;
  1467.  
  1468. typedef TParamData *PParamData;
  1469.  
  1470. typedef TParamData TParamDataList[65536];
  1471.  
  1472. typedef TParamDataList *PParamDataList;
  1473.  
  1474. struct TMethodData;
  1475. typedef TMethodData *PMethodData;
  1476.  
  1477. struct TMethodData
  1478. {
  1479.     System::WideChar *szName;
  1480.     TParamDataList *ppdata;
  1481.     System::Longint dispid;
  1482.     System::Integer iMeth;
  1483.     System::Longint cc;
  1484.     System::Integer cArgs;
  1485.     System::Word wFlags;
  1486.     System::Word vtReturn;
  1487. } ;
  1488.  
  1489. typedef TMethodData TMethodDataList[65536];
  1490.  
  1491. typedef TMethodDataList *PMethodDataList;
  1492.  
  1493. struct TInterfaceData;
  1494. typedef TInterfaceData *PInterfaceData;
  1495.  
  1496. struct TInterfaceData
  1497. {
  1498.     TMethodDataList *pmethdata;
  1499.     System::Integer cMembers;
  1500. } ;
  1501.  
  1502. class __declspec(delphiclass) IOleAdviseHolder;
  1503. class __declspec(pascalimplementation) IOleAdviseHolder : public IUnknown
  1504. {
  1505.     typedef IOleAdviseHolder ThisClass;
  1506.     typedef IUnknown inherited;
  1507.     
  1508. public:
  1509.     virtual System::Longint __stdcall Advise(IAdviseSink *advise, System::Longint &dwConnection) = 0;
  1510.     virtual System::Longint __stdcall Unadvise(System::Longint dwConnection) = 0;
  1511.     virtual System::Longint __stdcall EnumAdvise(IEnumStatData *&enumAdvise) = 0;
  1512.     virtual System::Longint __stdcall SendOnRename(IMoniker *mk) = 0;
  1513.     virtual System::Longint __stdcall SendOnSave(void) = 0;
  1514.     virtual System::Longint __stdcall SendOnClose(void) = 0;
  1515. public:
  1516.     /* !! TObject.Create */ __fastcall IOleAdviseHolder(void) : Ole2::IUnknown() { }
  1517.     /* !! TObject.Destroy */ __fastcall virtual ~IOleAdviseHolder(void) { }
  1518.     
  1519. };
  1520.  
  1521. class __declspec(delphiclass) IOleCache;
  1522. class __declspec(pascalimplementation) IOleCache : public IUnknown
  1523. {
  1524.     typedef IOleCache ThisClass;
  1525.     typedef IUnknown inherited;
  1526.     
  1527. public:
  1528.     virtual System::Longint __stdcall Cache(TFormatEtc &formatetc, System::Longint advf, System::Longint 
  1529.         &dwConnection) = 0;
  1530.     virtual System::Longint __stdcall Uncache(System::Longint dwConnection) = 0;
  1531.     virtual System::Longint __stdcall EnumCache(IEnumStatData *&enumStatData) = 0;
  1532.     virtual System::Longint __stdcall InitCache(IDataObject *dataObject) = 0;
  1533.     virtual System::Longint __stdcall SetData(TFormatEtc &formatetc, TStgMedium &medium, System::LongBool 
  1534.         fRelease) = 0;
  1535. public:
  1536.     /* !! TObject.Create */ __fastcall IOleCache(void) : Ole2::IUnknown() { }
  1537.     /* !! TObject.Destroy */ __fastcall virtual ~IOleCache(void) { }
  1538.     
  1539. };
  1540.  
  1541. class __declspec(delphiclass) IOleCache2;
  1542. class __declspec(pascalimplementation) IOleCache2 : public IOleCache
  1543. {
  1544.     typedef IOleCache2 ThisClass;
  1545.     typedef IOleCache inherited;
  1546.     
  1547. public:
  1548.     virtual System::Longint __stdcall UpdateCache(IDataObject *dataObject, System::Longint grfUpdf, System::Pointer 
  1549.         pReserved) = 0;
  1550.     virtual System::Longint __stdcall DiscardCache(System::Longint dwDiscardOptions) = 0;
  1551. public:
  1552.     /* !! TObject.Create */ __fastcall IOleCache2(void) : Ole2::IOleCache() { }
  1553.     /* !! TObject.Destroy */ __fastcall virtual ~IOleCache2(void) { }
  1554.     
  1555. };
  1556.  
  1557. class __declspec(delphiclass) IOleCacheControl;
  1558. class __declspec(pascalimplementation) IOleCacheControl : public IUnknown
  1559. {
  1560.     typedef IOleCacheControl ThisClass;
  1561.     typedef IUnknown inherited;
  1562.     
  1563. public:
  1564.     virtual System::Longint __stdcall OnRun(IDataObject *dataObject) = 0;
  1565.     virtual System::Longint __stdcall OnStop(void) = 0;
  1566. public:
  1567.     /* !! TObject.Create */ __fastcall IOleCacheControl(void) : Ole2::IUnknown() { }
  1568.     /* !! TObject.Destroy */ __fastcall virtual ~IOleCacheControl(void) { }
  1569.     
  1570. };
  1571.  
  1572. class __declspec(delphiclass) IParseDisplayName;
  1573. class __declspec(pascalimplementation) IParseDisplayName : public IUnknown
  1574. {
  1575.     typedef IParseDisplayName ThisClass;
  1576.     typedef IUnknown inherited;
  1577.     
  1578. public:
  1579.     virtual System::Longint __stdcall ParseDisplayName(IBindCtx *bc, System::PWideChar pszDisplayName, 
  1580.         System::Longint &chEaten, IMoniker *&mkOut) = 0;
  1581. public:
  1582.     /* !! TObject.Create */ __fastcall IParseDisplayName(void) : Ole2::IUnknown() { }
  1583.     /* !! TObject.Destroy */ __fastcall virtual ~IParseDisplayName(void) { }
  1584.     
  1585. };
  1586.  
  1587. class __declspec(delphiclass) IOleContainer;
  1588. class __declspec(pascalimplementation) IOleContainer : public IParseDisplayName
  1589. {
  1590.     typedef IOleContainer ThisClass;
  1591.     typedef IParseDisplayName inherited;
  1592.     
  1593. public:
  1594.     virtual System::Longint __stdcall EnumObjects(System::Longint grfFlags, IEnumUnknown *&Enum) = 0;
  1595.     virtual System::Longint __stdcall LockContainer(System::LongBool fLock) = 0;
  1596. public:
  1597.     /* !! TObject.Create */ __fastcall IOleContainer(void) : Ole2::IParseDisplayName() { }
  1598.     /* !! TObject.Destroy */ __fastcall virtual ~IOleContainer(void) { }
  1599.     
  1600. };
  1601.  
  1602. class __declspec(delphiclass) IOleClientSite;
  1603. class __declspec(pascalimplementation) IOleClientSite : public IUnknown
  1604. {
  1605.     typedef IOleClientSite ThisClass;
  1606.     typedef IUnknown inherited;
  1607.     
  1608. public:
  1609.     virtual System::Longint __stdcall SaveObject(void) = 0;
  1610.     virtual System::Longint __stdcall GetMoniker(System::Longint dwAssign, System::Longint dwWhichMoniker
  1611.         , IMoniker *&mk) = 0;
  1612.     virtual System::Longint __stdcall GetContainer(IOleContainer *&container) = 0;
  1613.     virtual System::Longint __stdcall ShowObject(void) = 0;
  1614.     virtual System::Longint __stdcall OnShowWindow(System::LongBool fShow) = 0;
  1615.     virtual System::Longint __stdcall RequestNewObjectLayout(void) = 0;
  1616. public:
  1617.     /* !! TObject.Create */ __fastcall IOleClientSite(void) : Ole2::IUnknown() { }
  1618.     /* !! TObject.Destroy */ __fastcall virtual ~IOleClientSite(void) { }
  1619.     
  1620. };
  1621.  
  1622. class __declspec(delphiclass) IOleObject;
  1623. class __declspec(delphiclass) IEnumOleVerb;
  1624. class __declspec(pascalimplementation) IOleObject : public IUnknown
  1625. {
  1626.     typedef IOleObject ThisClass;
  1627.     typedef IUnknown inherited;
  1628.     
  1629. public:
  1630.     virtual System::Longint __stdcall SetClientSite(IOleClientSite *clientSite) = 0;
  1631.     virtual System::Longint __stdcall GetClientSite(IOleClientSite *&clientSite) = 0;
  1632.     virtual System::Longint __stdcall SetHostNames(System::PWideChar szContainerApp, System::PWideChar 
  1633.         szContainerObj) = 0;
  1634.     virtual System::Longint __stdcall Close(System::Longint dwSaveOption) = 0;
  1635.     virtual System::Longint __stdcall SetMoniker(System::Longint dwWhichMoniker, IMoniker *mk) = 0;
  1636.     virtual System::Longint __stdcall GetMoniker(System::Longint dwAssign, System::Longint dwWhichMoniker
  1637.         , IMoniker *&mk) = 0;
  1638.     virtual System::Longint __stdcall InitFromData(IDataObject *dataObject, System::LongBool fCreation, 
  1639.         System::Longint dwReserved) = 0;
  1640.     virtual System::Longint __stdcall GetClipboardData(System::Longint dwReserved, IDataObject *&dataObject
  1641.         ) = 0;
  1642.     virtual System::Longint __stdcall DoVerb(System::Longint iVerb, Windows::PMsg msg, IOleClientSite *
  1643.         activeSite, System::Longint lindex, System::Integer hwndParent, const Windows::TRect &posRect) = 0
  1644.         ;
  1645.     virtual System::Longint __stdcall EnumVerbs(IEnumOleVerb *&enumOleVerb) = 0;
  1646.     virtual System::Longint __stdcall Update(void) = 0;
  1647.     virtual System::Longint __stdcall IsUpToDate(void) = 0;
  1648.     virtual System::Longint __stdcall GetUserClassID(TGUID &clsid) = 0;
  1649.     virtual System::Longint __stdcall GetUserType(System::Longint dwFormOfType, System::PWideChar &pszUserType
  1650.         ) = 0;
  1651.     virtual System::Longint __stdcall SetExtent(System::Longint dwDrawAspect, const Windows::TPoint &size
  1652.         ) = 0;
  1653.     virtual System::Longint __stdcall GetExtent(System::Longint dwDrawAspect, Windows::TPoint &size) = 0
  1654.         ;
  1655.     virtual System::Longint __stdcall Advise(IAdviseSink *advSink, System::Longint &dwConnection) = 0;
  1656.     virtual System::Longint __stdcall Unadvise(System::Longint dwConnection) = 0;
  1657.     virtual System::Longint __stdcall EnumAdvise(IEnumStatData *&enumAdvise) = 0;
  1658.     virtual System::Longint __stdcall GetMiscStatus(System::Longint dwAspect, System::Longint &dwStatus
  1659.         ) = 0;
  1660.     virtual System::Longint __stdcall SetColorScheme(Windows::TLogPalette &logpal) = 0;
  1661. public:
  1662.     /* !! TObject.Create */ __fastcall IOleObject(void) : Ole2::IUnknown() { }
  1663.     /* !! TObject.Destroy */ __fastcall virtual ~IOleObject(void) { }
  1664.     
  1665. };
  1666.  
  1667. struct TObjectDescriptor
  1668. {
  1669.     System::Longint cbSize;
  1670.     TGUID clsid;
  1671.     System::Longint dwDrawAspect;
  1672.     Windows::TPoint size;
  1673.     Windows::TPoint point;
  1674.     System::Longint dwStatus;
  1675.     System::Longint dwFullUserTypeName;
  1676.     System::Longint dwSrcOfCopy;
  1677. } ;
  1678.  
  1679. typedef TObjectDescriptor *PObjectDescriptor;
  1680.  
  1681. typedef TObjectDescriptor *PLinkSrcDescriptor;
  1682.  
  1683. typedef TObjectDescriptor  TLinkSrcDescriptor;
  1684.  
  1685. class __declspec(delphiclass) IOleWindow;
  1686. class __declspec(pascalimplementation) IOleWindow : public IUnknown
  1687. {
  1688.     typedef IOleWindow ThisClass;
  1689.     typedef IUnknown inherited;
  1690.     
  1691. public:
  1692.     virtual System::Longint __stdcall GetWindow(System::Integer &wnd) = 0;
  1693.     virtual System::Longint __stdcall ContextSensitiveHelp(System::LongBool fEnterMode) = 0;
  1694. public:
  1695.     /* !! TObject.Create */ __fastcall IOleWindow(void) : Ole2::IUnknown() { }
  1696.     /* !! TObject.Destroy */ __fastcall virtual ~IOleWindow(void) { }
  1697.     
  1698. };
  1699.  
  1700. class __declspec(delphiclass) IOleLink;
  1701. class __declspec(pascalimplementation) IOleLink : public IUnknown
  1702. {
  1703.     typedef IOleLink ThisClass;
  1704.     typedef IUnknown inherited;
  1705.     
  1706. public:
  1707.     virtual System::Longint __stdcall SetUpdateOptions(System::Longint dwUpdateOpt) = 0;
  1708.     virtual System::Longint __stdcall GetUpdateOptions(System::Longint &dwUpdateOpt) = 0;
  1709.     virtual System::Longint __stdcall SetSourceMoniker(IMoniker *mk, const TGUID &clsid) = 0;
  1710.     virtual System::Longint __stdcall GetSourceMoniker(IMoniker *&mk) = 0;
  1711.     virtual System::Longint __stdcall SetSourceDisplayName(System::PWideChar pszDisplayName) = 0;
  1712.     virtual System::Longint __stdcall GetSourceDisplayName(System::PWideChar &pszDisplayName) = 0;
  1713.     virtual System::Longint __stdcall BindToSource(System::Longint bindflags, IBindCtx *bc) = 0;
  1714.     virtual System::Longint __stdcall BindIfRunning(void) = 0;
  1715.     virtual System::Longint __stdcall GetBoundSource(IUnknown *&unk) = 0;
  1716.     virtual System::Longint __stdcall UnbindSource(void) = 0;
  1717.     virtual System::Longint __stdcall Update(IBindCtx *bc) = 0;
  1718. public:
  1719.     /* !! TObject.Create */ __fastcall IOleLink(void) : Ole2::IUnknown() { }
  1720.     /* !! TObject.Destroy */ __fastcall virtual ~IOleLink(void) { }
  1721.     
  1722. };
  1723.  
  1724. class __declspec(delphiclass) IOleItemContainer;
  1725. class __declspec(pascalimplementation) IOleItemContainer : public IOleContainer
  1726. {
  1727.     typedef IOleItemContainer ThisClass;
  1728.     typedef IOleContainer inherited;
  1729.     
  1730. public:
  1731.     virtual System::Longint __stdcall GetObject(System::PWideChar pszItem, System::Longint dwSpeedNeeded
  1732.         , IBindCtx *bc, const TGUID &iid, void *vObject) = 0;
  1733.     virtual System::Longint __stdcall GetObjectStorage(System::PWideChar pszItem, IBindCtx *bc, const TGUID 
  1734.         &iid, void *vStorage) = 0;
  1735.     virtual System::Longint __stdcall IsRunning(System::PWideChar pszItem) = 0;
  1736. public:
  1737.     /* !! TObject.Create */ __fastcall IOleItemContainer(void) : Ole2::IOleContainer() { }
  1738.     /* !! TObject.Destroy */ __fastcall virtual ~IOleItemContainer(void) { }
  1739.     
  1740. };
  1741.  
  1742. class __declspec(delphiclass) IOleInPlaceUIWindow;
  1743. class __declspec(delphiclass) IOleInPlaceActiveObject;
  1744. class __declspec(pascalimplementation) IOleInPlaceUIWindow : public IOleWindow
  1745. {
  1746.     typedef IOleInPlaceUIWindow ThisClass;
  1747.     typedef IOleWindow inherited;
  1748.     
  1749. public:
  1750.     virtual System::Longint __stdcall GetBorder(Windows::TRect &rectBorder) = 0;
  1751.     virtual System::Longint __stdcall RequestBorderSpace(const Windows::TRect &borderwidths) = 0;
  1752.     virtual System::Longint __stdcall SetBorderSpace(Windows::PRect pborderwidths) = 0;
  1753.     virtual System::Longint __stdcall SetActiveObject(IOleInPlaceActiveObject *activeObject, System::PWideChar 
  1754.         pszObjName) = 0;
  1755. public:
  1756.     /* !! TObject.Create */ __fastcall IOleInPlaceUIWindow(void) : Ole2::IOleWindow() { }
  1757.     /* !! TObject.Destroy */ __fastcall virtual ~IOleInPlaceUIWindow(void) { }
  1758.     
  1759. };
  1760.  
  1761. class __declspec(pascalimplementation) IOleInPlaceActiveObject : public IOleWindow
  1762. {
  1763.     typedef IOleInPlaceActiveObject ThisClass;
  1764.     typedef IOleWindow inherited;
  1765.     
  1766. public:
  1767.     virtual System::Longint __stdcall TranslateAccelerator(Windows::TMsg &msg) = 0;
  1768.     virtual System::Longint __stdcall OnFrameWindowActivate(System::LongBool fActivate) = 0;
  1769.     virtual System::Longint __stdcall OnDocWindowActivate(System::LongBool fActivate) = 0;
  1770.     virtual System::Longint __stdcall ResizeBorder(const Windows::TRect &rcBorder, IOleInPlaceUIWindow *
  1771.         uiWindow, System::LongBool fFrameWindow) = 0;
  1772.     virtual System::Longint __stdcall EnableModeless(System::LongBool fEnable) = 0;
  1773. public:
  1774.     /* !! TObject.Create */ __fastcall IOleInPlaceActiveObject(void) : Ole2::IOleWindow() { }
  1775.     /* !! TObject.Destroy */ __fastcall virtual ~IOleInPlaceActiveObject(void) { }
  1776.     
  1777. };
  1778.  
  1779. struct TOleInPlaceFrameInfo;
  1780. typedef TOleInPlaceFrameInfo *POleInPlaceFrameInfo;
  1781.  
  1782. struct TOleInPlaceFrameInfo
  1783. {
  1784.     System::Integer cb;
  1785.     System::LongBool fMDIApp;
  1786.     System::Integer hwndFrame;
  1787.     System::Integer haccel;
  1788.     System::Integer cAccelEntries;
  1789. } ;
  1790.  
  1791. struct TOleMenuGroupWidths;
  1792. typedef TOleMenuGroupWidths *POleMenuGroupWidths;
  1793.  
  1794. struct TOleMenuGroupWidths
  1795. {
  1796.     System::Longint width[6];
  1797. } ;
  1798.  
  1799. class __declspec(delphiclass) IOleInPlaceFrame;
  1800. class __declspec(pascalimplementation) IOleInPlaceFrame : public IOleInPlaceUIWindow
  1801. {
  1802.     typedef IOleInPlaceFrame ThisClass;
  1803.     typedef IOleInPlaceUIWindow inherited;
  1804.     
  1805. public:
  1806.     virtual System::Longint __stdcall InsertMenus(System::Integer hmenuShared, TOleMenuGroupWidths &menuWidths
  1807.         ) = 0;
  1808.     virtual System::Longint __stdcall SetMenu(System::Integer hmenuShared, System::Integer holemenu, System::Integer 
  1809.         hwndActiveObject) = 0;
  1810.     virtual System::Longint __stdcall RemoveMenus(System::Integer hmenuShared) = 0;
  1811.     virtual System::Longint __stdcall SetStatusText(System::PWideChar pszStatusText) = 0;
  1812.     virtual System::Longint __stdcall EnableModeless(System::LongBool fEnable) = 0;
  1813.     virtual System::Longint __stdcall TranslateAccelerator(Windows::TMsg &msg, System::Word wID) = 0;
  1814. public:
  1815.         
  1816.     /* !! TObject.Create */ __fastcall IOleInPlaceFrame(void) : Ole2::IOleInPlaceUIWindow() { }
  1817.     /* !! TObject.Destroy */ __fastcall virtual ~IOleInPlaceFrame(void) { }
  1818.     
  1819. };
  1820.  
  1821. class __declspec(delphiclass) IOleInPlaceObject;
  1822. class __declspec(pascalimplementation) IOleInPlaceObject : public IOleWindow
  1823. {
  1824.     typedef IOleInPlaceObject ThisClass;
  1825.     typedef IOleWindow inherited;
  1826.     
  1827. public:
  1828.     virtual System::Longint __stdcall InPlaceDeactivate(void) = 0;
  1829.     virtual System::Longint __stdcall UIDeactivate(void) = 0;
  1830.     virtual System::Longint __stdcall SetObjectRects(const Windows::TRect &rcPosRect, const Windows::TRect 
  1831.         &rcClipRect) = 0;
  1832.     virtual System::Longint __stdcall ReactivateAndUndo(void) = 0;
  1833. public:
  1834.     /* !! TObject.Create */ __fastcall IOleInPlaceObject(void) : Ole2::IOleWindow() { }
  1835.     /* !! TObject.Destroy */ __fastcall virtual ~IOleInPlaceObject(void) { }
  1836.     
  1837. };
  1838.  
  1839. class __declspec(delphiclass) IOleInPlaceSite;
  1840. class __declspec(pascalimplementation) IOleInPlaceSite : public IOleWindow
  1841. {
  1842.     typedef IOleInPlaceSite ThisClass;
  1843.     typedef IOleWindow inherited;
  1844.     
  1845. public:
  1846.     virtual System::Longint __stdcall CanInPlaceActivate(void) = 0;
  1847.     virtual System::Longint __stdcall OnInPlaceActivate(void) = 0;
  1848.     virtual System::Longint __stdcall OnUIActivate(void) = 0;
  1849.     virtual System::Longint __stdcall GetWindowContext(IOleInPlaceFrame *&frame, IOleInPlaceUIWindow *&doc
  1850.         , Windows::TRect &rcPosRect, Windows::TRect &rcClipRect, TOleInPlaceFrameInfo &frameInfo) = 0;
  1851.     virtual System::Longint __stdcall Scroll(const Windows::TPoint &scrollExtent) = 0;
  1852.     virtual System::Longint __stdcall OnUIDeactivate(System::LongBool fUndoable) = 0;
  1853.     virtual System::Longint __stdcall OnInPlaceDeactivate(void) = 0;
  1854.     virtual System::Longint __stdcall DiscardUndoState(void) = 0;
  1855.     virtual System::Longint __stdcall DeactivateAndUndo(void) = 0;
  1856.     virtual System::Longint __stdcall OnPosRectChange(const Windows::TRect &rcPosRect) = 0;
  1857. public:
  1858.     /* !! TObject.Create */ __fastcall IOleInPlaceSite(void) : Ole2::IOleWindow() { }
  1859.     /* !! TObject.Destroy */ __fastcall virtual ~IOleInPlaceSite(void) { }
  1860.     
  1861. };
  1862.  
  1863. typedef System::LongBool __stdcall (*TContinueFunc)(System::Longint dwContinue);
  1864.  
  1865. class __declspec(delphiclass) IViewObject;
  1866. class __declspec(pascalimplementation) IViewObject : public IUnknown
  1867. {
  1868.     typedef IViewObject ThisClass;
  1869.     typedef IUnknown inherited;
  1870.     
  1871. public:
  1872.     virtual System::Longint __stdcall Draw(System::Longint dwDrawAspect, System::Longint lindex, System::Pointer 
  1873.         pvAspect, PDVTargetDevice ptd, System::Integer hicTargetDev, System::Integer hdcDraw, Windows::PRect 
  1874.         prcBounds, Windows::PRect prcWBounds, TContinueFunc fnContinue, System::Longint dwContinue) = 0;
  1875.     virtual System::Longint __stdcall GetColorSet(System::Longint dwDrawAspect, System::Longint lindex, 
  1876.         System::Pointer pvAspect, PDVTargetDevice ptd, System::Integer hicTargetDev, Windows::PLogPalette 
  1877.         &colorSet) = 0;
  1878.     virtual System::Longint __stdcall Freeze(System::Longint dwDrawAspect, System::Longint lindex, System::Pointer 
  1879.         pvAspect, System::Longint &dwFreeze) = 0;
  1880.     virtual System::Longint __stdcall Unfreeze(System::Longint dwFreeze) = 0;
  1881.     virtual System::Longint __stdcall SetAdvise(System::Longint aspects, System::Longint advf, IAdviseSink *
  1882.         advSink) = 0;
  1883.     virtual System::Longint __stdcall GetAdvise(Windows::PLongint pAspects, Windows::PLongint pAdvf, IAdviseSink *
  1884.         &advSink) = 0;
  1885. public:
  1886.     /* !! TObject.Create */ __fastcall IViewObject(void) : Ole2::IUnknown() { }
  1887.     /* !! TObject.Destroy */ __fastcall virtual ~IViewObject(void) { }
  1888.     
  1889. };
  1890.  
  1891. class __declspec(delphiclass) IViewObject2;
  1892. class __declspec(pascalimplementation) IViewObject2 : public IViewObject
  1893. {
  1894.     typedef IViewObject2 ThisClass;
  1895.     typedef IViewObject inherited;
  1896.     
  1897. public:
  1898.     virtual System::Longint __stdcall GetExtent(System::Longint dwDrawAspect, System::Longint lindex, PDVTargetDevice 
  1899.         ptd, Windows::TPoint &size) = 0;
  1900. public:
  1901.     /* !! TObject.Create */ __fastcall IViewObject2(void) : Ole2::IViewObject() { }
  1902.     /* !! TObject.Destroy */ __fastcall virtual ~IViewObject2(void) { }
  1903.     
  1904. };
  1905.  
  1906. class __declspec(delphiclass) IDropSource;
  1907. class __declspec(pascalimplementation) IDropSource : public IUnknown
  1908. {
  1909.     typedef IDropSource ThisClass;
  1910.     typedef IUnknown inherited;
  1911.     
  1912. public:
  1913.     virtual System::Longint __stdcall QueryContinueDrag(System::LongBool fEscapePressed, System::Longint 
  1914.         grfKeyState) = 0;
  1915.     virtual System::Longint __stdcall GiveFeedback(System::Longint dwEffect) = 0;
  1916. public:
  1917.     /* !! TObject.Create */ __fastcall IDropSource(void) : Ole2::IUnknown() { }
  1918.     /* !! TObject.Destroy */ __fastcall virtual ~IDropSource(void) { }
  1919.     
  1920. };
  1921.  
  1922. class __declspec(delphiclass) IDropTarget;
  1923. class __declspec(pascalimplementation) IDropTarget : public IUnknown
  1924. {
  1925.     typedef IDropTarget ThisClass;
  1926.     typedef IUnknown inherited;
  1927.     
  1928. public:
  1929.     virtual System::Longint __stdcall DragEnter(IDataObject *dataObj, System::Longint grfKeyState, const 
  1930.         Windows::TPoint &pt, System::Longint &dwEffect) = 0;
  1931.     virtual System::Longint __stdcall DragOver(System::Longint grfKeyState, const Windows::TPoint &pt, 
  1932.         System::Longint &dwEffect) = 0;
  1933.     virtual System::Longint __stdcall DragLeave(void) = 0;
  1934.     virtual System::Longint __stdcall Drop(IDataObject *dataObj, System::Longint grfKeyState, const Windows::TPoint 
  1935.         &pt, System::Longint &dwEffect) = 0;
  1936. public:
  1937.     /* !! TObject.Create */ __fastcall IDropTarget(void) : Ole2::IUnknown() { }
  1938.     /* !! TObject.Destroy */ __fastcall virtual ~IDropTarget(void) { }
  1939.     
  1940. };
  1941.  
  1942. struct TOleVerb
  1943. {
  1944.     System::Longint lVerb;
  1945.     System::WideChar *lpszVerbName;
  1946.     System::Longint fuFlags;
  1947.     System::Longint grfAttribs;
  1948. } ;
  1949.  
  1950. typedef TOleVerb *POleVerb;
  1951.  
  1952. class __declspec(pascalimplementation) IEnumOleVerb : public IUnknown
  1953. {
  1954.     typedef IEnumOleVerb ThisClass;
  1955.     typedef IUnknown inherited;
  1956.     
  1957. public:
  1958.     virtual System::Longint __stdcall Next(System::Longint celt, void *elt, Windows::PLongint pceltFetched
  1959.         ) = 0;
  1960.     virtual System::Longint __stdcall Skip(System::Longint celt) = 0;
  1961.     virtual System::Longint __stdcall Reset(void) = 0;
  1962.     virtual System::Longint __stdcall Clone(IEnumOleVerb *&enm) = 0;
  1963. public:
  1964.     /* !! TObject.Create */ __fastcall IEnumOleVerb(void) : Ole2::IUnknown() { }
  1965.     /* !! TObject.Destroy */ __fastcall virtual ~IEnumOleVerb(void) { }
  1966.     
  1967. };
  1968.  
  1969. typedef System::Longint __stdcall (*TDLLGetClassObject)(const TGUID &clsid, const TGUID &iid, void *
  1970.     pv);
  1971.  
  1972. typedef System::Longint __stdcall (*TDLLCanUnloadNow)(void);
  1973.  
  1974. //-- var, const, procedure ---------------------------------------------------
  1975. #define SEVERITY_SUCCESS System::Byte(0)
  1976. #define SEVERITY_ERROR System::Byte(1)
  1977. #define OLE_E_FIRST System::Integer(-2147221504)
  1978. #define OLE_E_LAST System::Integer(-2147221249)
  1979. #define OLE_S_FIRST System::Integer(262144)
  1980. #define OLE_S_LAST System::Integer(262399)
  1981. #define DRAGDROP_E_FIRST System::Integer(-2147221248)
  1982. #define DRAGDROP_E_LAST System::Integer(-2147221233)
  1983. #define DRAGDROP_S_FIRST System::Integer(262400)
  1984. #define DRAGDROP_S_LAST System::Integer(262415)
  1985. #define CLASSFACTORY_E_FIRST System::Integer(-2147221232)
  1986. #define CLASSFACTORY_E_LAST System::Integer(-2147221217)
  1987. #define CLASSFACTORY_S_FIRST System::Integer(262416)
  1988. #define CLASSFACTORY_S_LAST System::Integer(262431)
  1989. #define MARSHAL_E_FIRST System::Integer(-2147221216)
  1990. #define MARSHAL_E_LAST System::Integer(-2147221201)
  1991. #define MARSHAL_S_FIRST System::Integer(262432)
  1992. #define MARSHAL_S_LAST System::Integer(262447)
  1993. #define DATA_E_FIRST System::Integer(-2147221200)
  1994. #define DATA_E_LAST System::Integer(-2147221185)
  1995. #define DATA_S_FIRST System::Integer(262448)
  1996. #define DATA_S_LAST System::Integer(262463)
  1997. #define VIEW_E_FIRST System::Integer(-2147221184)
  1998. #define VIEW_E_LAST System::Integer(-2147221169)
  1999. #define VIEW_S_FIRST System::Integer(262464)
  2000. #define VIEW_S_LAST System::Integer(262479)
  2001. #define REGDB_E_FIRST System::Integer(-2147221168)
  2002. #define REGDB_E_LAST System::Integer(-2147221153)
  2003. #define REGDB_S_FIRST System::Integer(262480)
  2004. #define REGDB_S_LAST System::Integer(262495)
  2005. #define CACHE_E_FIRST System::Integer(-2147221136)
  2006. #define CACHE_E_LAST System::Integer(-2147221121)
  2007. #define CACHE_S_FIRST System::Integer(262512)
  2008. #define CACHE_S_LAST System::Integer(262527)
  2009. #define OLEOBJ_E_FIRST System::Integer(-2147221120)
  2010. #define OLEOBJ_E_LAST System::Integer(-2147221105)
  2011. #define OLEOBJ_S_FIRST System::Integer(262528)
  2012. #define OLEOBJ_S_LAST System::Integer(262543)
  2013. #define CLIENTSITE_E_FIRST System::Integer(-2147221104)
  2014. #define CLIENTSITE_E_LAST System::Integer(-2147221089)
  2015. #define CLIENTSITE_S_FIRST System::Integer(262544)
  2016. #define CLIENTSITE_S_LAST System::Integer(262559)
  2017. #define INPLACE_E_FIRST System::Integer(-2147221088)
  2018. #define INPLACE_E_LAST System::Integer(-2147221073)
  2019. #define INPLACE_S_FIRST System::Integer(262560)
  2020. #define INPLACE_S_LAST System::Integer(262575)
  2021. #define ENUM_E_FIRST System::Integer(-2147221072)
  2022. #define ENUM_E_LAST System::Integer(-2147221057)
  2023. #define ENUM_S_FIRST System::Integer(262576)
  2024. #define ENUM_S_LAST System::Integer(262591)
  2025. #define CONVERT10_E_FIRST System::Integer(-2147221056)
  2026. #define CONVERT10_E_LAST System::Integer(-2147221041)
  2027. #define CONVERT10_S_FIRST System::Integer(262592)
  2028. #define CONVERT10_S_LAST System::Integer(262607)
  2029. #define CLIPBRD_E_FIRST System::Integer(-2147221040)
  2030. #define CLIPBRD_E_LAST System::Integer(-2147221025)
  2031. #define CLIPBRD_S_FIRST System::Integer(262608)
  2032. #define CLIPBRD_S_LAST System::Integer(262623)
  2033. #define MK_E_FIRST System::Integer(-2147221024)
  2034. #define MK_E_LAST System::Integer(-2147221009)
  2035. #define MK_S_FIRST System::Integer(262624)
  2036. #define MK_S_LAST System::Integer(262639)
  2037. #define CO_E_FIRST System::Integer(-2147221008)
  2038. #define CO_E_LAST System::Integer(-2147220993)
  2039. #define CO_S_FIRST System::Integer(262640)
  2040. #define CO_S_LAST System::Integer(262655)
  2041. #define S_OK System::Byte(0)
  2042. #define S_FALSE System::Byte(1)
  2043. #define E_UNEXPECTED System::Integer(-2147418113)
  2044. #define E_NOTIMPL System::Integer(-2147467263)
  2045. #define E_OUTOFMEMORY System::Integer(-2147024882)
  2046. #define E_INVALIDARG System::Integer(-2147024809)
  2047. #define E_NOINTERFACE System::Integer(-2147467262)
  2048. #define E_POINTER System::Integer(-2147467261)
  2049. #define E_HANDLE System::Integer(-2147024890)
  2050. #define E_ABORT System::Integer(-2147467260)
  2051. #define E_FAIL System::Integer(-2147467259)
  2052. #define E_ACCESSDENIED System::Integer(-2147024891)
  2053. #define CO_E_INIT_TLS System::Integer(-2147467258)
  2054. #define CO_E_INIT_SHARED_ALLOCATOR System::Integer(-2147467257)
  2055. #define CO_E_INIT_MEMORY_ALLOCATOR System::Integer(-2147467256)
  2056. #define CO_E_INIT_CLASS_CACHE System::Integer(-2147467255)
  2057. #define CO_E_INIT_RPC_CHANNEL System::Integer(-2147467254)
  2058. #define CO_E_INIT_TLS_SET_CHANNEL_CONTROL System::Integer(-2147467253)
  2059. #define CO_E_INIT_TLS_CHANNEL_CONTROL System::Integer(-2147467252)
  2060. #define CO_E_INIT_UNACCEPTED_USER_ALLOCATOR System::Integer(-2147467251)
  2061. #define CO_E_INIT_SCM_MUTEX_EXISTS System::Integer(-2147467250)
  2062. #define CO_E_INIT_SCM_FILE_MAPPING_EXISTS System::Integer(-2147467249)
  2063. #define CO_E_INIT_SCM_MAP_VIEW_OF_FILE System::Integer(-2147467248)
  2064. #define CO_E_INIT_SCM_EXEC_FAILURE System::Integer(-2147467247)
  2065. #define CO_E_INIT_ONLY_SINGLE_THREADED System::Integer(-2147467246)
  2066. #define OLE_E_OLEVERB System::Integer(-2147221504)
  2067. #define OLE_E_ADVF System::Integer(-2147221503)
  2068. #define OLE_E_ENUM_NOMORE System::Integer(-2147221502)
  2069. #define OLE_E_ADVISENOTSUPPORTED System::Integer(-2147221501)
  2070. #define OLE_E_NOCONNECTION System::Integer(-2147221500)
  2071. #define OLE_E_NOTRUNNING System::Integer(-2147221499)
  2072. #define OLE_E_NOCACHE System::Integer(-2147221498)
  2073. #define OLE_E_BLANK System::Integer(-2147221497)
  2074. #define OLE_E_CLASSDIFF System::Integer(-2147221496)
  2075. #define OLE_E_CANT_GETMONIKER System::Integer(-2147221495)
  2076. #define OLE_E_CANT_BINDTOSOURCE System::Integer(-2147221494)
  2077. #define OLE_E_STATIC System::Integer(-2147221493)
  2078. #define OLE_E_PROMPTSAVECANCELLED System::Integer(-2147221492)
  2079. #define OLE_E_INVALIDRECT System::Integer(-2147221491)
  2080. #define OLE_E_WRONGCOMPOBJ System::Integer(-2147221490)
  2081. #define OLE_E_INVALIDHWND System::Integer(-2147221489)
  2082. #define OLE_E_NOT_INPLACEACTIVE System::Integer(-2147221488)
  2083. #define OLE_E_CANTCONVERT System::Integer(-2147221487)
  2084. #define OLE_E_NOSTORAGE System::Integer(-2147221486)
  2085. #define DV_E_FORMATETC System::Integer(-2147221404)
  2086. #define DV_E_DVTARGETDEVICE System::Integer(-2147221403)
  2087. #define DV_E_STGMEDIUM System::Integer(-2147221402)
  2088. #define DV_E_STATDATA System::Integer(-2147221401)
  2089. #define DV_E_LINDEX System::Integer(-2147221400)
  2090. #define DV_E_TYMED System::Integer(-2147221399)
  2091. #define DV_E_CLIPFORMAT System::Integer(-2147221398)
  2092. #define DV_E_DVASPECT System::Integer(-2147221397)
  2093. #define DV_E_DVTARGETDEVICE_SIZE System::Integer(-2147221396)
  2094. #define DV_E_NOIVIEWOBJECT System::Integer(-2147221395)
  2095. #define DRAGDROP_E_NOTREGISTERED System::Integer(-2147221248)
  2096. #define DRAGDROP_E_ALREADYREGISTERED System::Integer(-2147221247)
  2097. #define DRAGDROP_E_INVALIDHWND System::Integer(-2147221246)
  2098. #define CLASS_E_NOAGGREGATION System::Integer(-2147221232)
  2099. #define CLASS_E_CLASSNOTAVAILABLE System::Integer(-2147221231)
  2100. #define VIEW_E_DRAW System::Integer(-2147221184)
  2101. #define REGDB_E_READREGDB System::Integer(-2147221168)
  2102. #define REGDB_E_WRITEREGDB System::Integer(-2147221167)
  2103. #define REGDB_E_KEYMISSING System::Integer(-2147221166)
  2104. #define REGDB_E_INVALIDVALUE System::Integer(-2147221165)
  2105. #define REGDB_E_CLASSNOTREG System::Integer(-2147221164)
  2106. #define REGDB_E_IIDNOTREG System::Integer(-2147221163)
  2107. #define CACHE_E_NOCACHE_UPDATED System::Integer(-2147221136)
  2108. #define OLEOBJ_E_NOVERBS System::Integer(-2147221120)
  2109. #define OLEOBJ_E_INVALIDVERB System::Integer(-2147221119)
  2110. #define INPLACE_E_NOTUNDOABLE System::Integer(-2147221088)
  2111. #define INPLACE_E_NOTOOLSPACE System::Integer(-2147221087)
  2112. #define CONVERT10_E_OLESTREAM_GET System::Integer(-2147221056)
  2113. #define CONVERT10_E_OLESTREAM_PUT System::Integer(-2147221055)
  2114. #define CONVERT10_E_OLESTREAM_FMT System::Integer(-2147221054)
  2115. #define CONVERT10_E_OLESTREAM_BITMAP_TO_DIB System::Integer(-2147221053)
  2116. #define CONVERT10_E_STG_FMT System::Integer(-2147221052)
  2117. #define CONVERT10_E_STG_NO_STD_STREAM System::Integer(-2147221051)
  2118. #define CONVERT10_E_STG_DIB_TO_BITMAP System::Integer(-2147221050)
  2119. #define CLIPBRD_E_CANT_OPEN System::Integer(-2147221040)
  2120. #define CLIPBRD_E_CANT_EMPTY System::Integer(-2147221039)
  2121. #define CLIPBRD_E_CANT_SET System::Integer(-2147221038)
  2122. #define CLIPBRD_E_BAD_DATA System::Integer(-2147221037)
  2123. #define CLIPBRD_E_CANT_CLOSE System::Integer(-2147221036)
  2124. #define MK_E_CONNECTMANUALLY System::Integer(-2147221024)
  2125. #define MK_E_EXCEEDEDDEADLINE System::Integer(-2147221023)
  2126. #define MK_E_NEEDGENERIC System::Integer(-2147221022)
  2127. #define MK_E_UNAVAILABLE System::Integer(-2147221021)
  2128. #define MK_E_SYNTAX System::Integer(-2147221020)
  2129. #define MK_E_NOOBJECT System::Integer(-2147221019)
  2130. #define MK_E_INVALIDEXTENSION System::Integer(-2147221018)
  2131. #define MK_E_INTERMEDIATEINTERFACENOTSUPPORTED System::Integer(-2147221017)
  2132. #define MK_E_NOTBINDABLE System::Integer(-2147221016)
  2133. #define MK_E_NOTBOUND System::Integer(-2147221015)
  2134. #define MK_E_CANTOPENFILE System::Integer(-2147221014)
  2135. #define MK_E_MUSTBOTHERUSER System::Integer(-2147221013)
  2136. #define MK_E_NOINVERSE System::Integer(-2147221012)
  2137. #define MK_E_NOSTORAGE System::Integer(-2147221011)
  2138. #define MK_E_NOPREFIX System::Integer(-2147221010)
  2139. #define MK_E_ENUMERATION_FAILED System::Integer(-2147221009)
  2140. #define CO_E_NOTINITIALIZED System::Integer(-2147221008)
  2141. #define CO_E_ALREADYINITIALIZED System::Integer(-2147221007)
  2142. #define CO_E_CANTDETERMINECLASS System::Integer(-2147221006)
  2143. #define CO_E_CLASSSTRING System::Integer(-2147221005)
  2144. #define CO_E_IIDSTRING System::Integer(-2147221004)
  2145. #define CO_E_APPNOTFOUND System::Integer(-2147221003)
  2146. #define CO_E_APPSINGLEUSE System::Integer(-2147221002)
  2147. #define CO_E_ERRORINAPP System::Integer(-2147221001)
  2148. #define CO_E_DLLNOTFOUND System::Integer(-2147221000)
  2149. #define CO_E_ERRORINDLL System::Integer(-2147220999)
  2150. #define CO_E_WRONGOSFORAPP System::Integer(-2147220998)
  2151. #define CO_E_OBJNOTREG System::Integer(-2147220997)
  2152. #define CO_E_OBJISREG System::Integer(-2147220996)
  2153. #define CO_E_OBJNOTCONNECTED System::Integer(-2147220995)
  2154. #define CO_E_APPDIDNTREG System::Integer(-2147220994)
  2155. #define CO_E_RELEASED System::Integer(-2147220993)
  2156. #define OLE_S_USEREG System::Integer(262144)
  2157. #define OLE_S_STATIC System::Integer(262145)
  2158. #define OLE_S_MAC_CLIPFORMAT System::Integer(262146)
  2159. #define DRAGDROP_S_DROP System::Integer(262400)
  2160. #define DRAGDROP_S_CANCEL System::Integer(262401)
  2161. #define DRAGDROP_S_USEDEFAULTCURSORS System::Integer(262402)
  2162. #define DATA_S_SAMEFORMATETC System::Integer(262448)
  2163. #define VIEW_S_ALREADY_FROZEN System::Integer(262464)
  2164. #define CACHE_S_FORMATETC_NOTSUPPORTED System::Integer(262512)
  2165. #define CACHE_S_SAMECACHE System::Integer(262513)
  2166. #define CACHE_S_SOMECACHES_NOTUPDATED System::Integer(262514)
  2167. #define OLEOBJ_S_INVALIDVERB System::Integer(262528)
  2168. #define OLEOBJ_S_CANNOT_DOVERB_NOW System::Integer(262529)
  2169. #define OLEOBJ_S_INVALIDHWND System::Integer(262530)
  2170. #define INPLACE_S_TRUNCATED System::Integer(262560)
  2171. #define CONVERT10_S_NO_PRESENTATION System::Integer(262592)
  2172. #define MK_S_REDUCED_TO_SELF System::Integer(262626)
  2173. #define MK_S_ME System::Integer(262628)
  2174. #define MK_S_HIM System::Integer(262629)
  2175. #define MK_S_US System::Integer(262630)
  2176. #define MK_S_MONIKERALREADYREGISTERED System::Integer(262631)
  2177. #define CO_E_CLASS_CREATE_FAILED System::Integer(-2146959359)
  2178. #define CO_E_SCM_ERROR System::Integer(-2146959358)
  2179. #define CO_E_SCM_RPC_FAILURE System::Integer(-2146959357)
  2180. #define CO_E_BAD_PATH System::Integer(-2146959356)
  2181. #define CO_E_SERVER_EXEC_FAILURE System::Integer(-2146959355)
  2182. #define CO_E_OBJSRV_RPC_FAILURE System::Integer(-2146959354)
  2183. #define MK_E_NO_NORMALIZED System::Integer(-2146959353)
  2184. #define CO_E_SERVER_STOPPING System::Integer(-2146959352)
  2185. #define MEM_E_INVALID_ROOT System::Integer(-2146959351)
  2186. #define MEM_E_INVALID_LINK System::Integer(-2146959344)
  2187. #define MEM_E_INVALID_SIZE System::Integer(-2146959343)
  2188. #define DISP_E_UNKNOWNINTERFACE System::Integer(-2147352575)
  2189. #define DISP_E_MEMBERNOTFOUND System::Integer(-2147352573)
  2190. #define DISP_E_PARAMNOTFOUND System::Integer(-2147352572)
  2191. #define DISP_E_TYPEMISMATCH System::Integer(-2147352571)
  2192. #define DISP_E_UNKNOWNNAME System::Integer(-2147352570)
  2193. #define DISP_E_NONAMEDARGS System::Integer(-2147352569)
  2194. #define DISP_E_BADVARTYPE System::Integer(-2147352568)
  2195. #define DISP_E_EXCEPTION System::Integer(-2147352567)
  2196. #define DISP_E_OVERFLOW System::Integer(-2147352566)
  2197. #define DISP_E_BADINDEX System::Integer(-2147352565)
  2198. #define DISP_E_UNKNOWNLCID System::Integer(-2147352564)
  2199. #define DISP_E_ARRAYISLOCKED System::Integer(-2147352563)
  2200. #define DISP_E_BADPARAMCOUNT System::Integer(-2147352562)
  2201. #define DISP_E_PARAMNOTOPTIONAL System::Integer(-2147352561)
  2202. #define DISP_E_BADCALLEE System::Integer(-2147352560)
  2203. #define DISP_E_NOTACOLLECTION System::Integer(-2147352559)
  2204. #define TYPE_E_BUFFERTOOSMALL System::Integer(-2147319786)
  2205. #define TYPE_E_INVDATAREAD System::Integer(-2147319784)
  2206. #define TYPE_E_UNSUPFORMAT System::Integer(-2147319783)
  2207. #define TYPE_E_REGISTRYACCESS System::Integer(-2147319780)
  2208. #define TYPE_E_LIBNOTREGISTERED System::Integer(-2147319779)
  2209. #define TYPE_E_UNDEFINEDTYPE System::Integer(-2147319769)
  2210. #define TYPE_E_QUALIFIEDNAMEDISALLOWED System::Integer(-2147319768)
  2211. #define TYPE_E_INVALIDSTATE System::Integer(-2147319767)
  2212. #define TYPE_E_WRONGTYPEKIND System::Integer(-2147319766)
  2213. #define TYPE_E_ELEMENTNOTFOUND System::Integer(-2147319765)
  2214. #define TYPE_E_AMBIGUOUSNAME System::Integer(-2147319764)
  2215. #define TYPE_E_NAMECONFLICT System::Integer(-2147319763)
  2216. #define TYPE_E_UNKNOWNLCID System::Integer(-2147319762)
  2217. #define TYPE_E_DLLFUNCTIONNOTFOUND System::Integer(-2147319761)
  2218. #define TYPE_E_BADMODULEKIND System::Integer(-2147317571)
  2219. #define TYPE_E_SIZETOOBIG System::Integer(-2147317563)
  2220. #define TYPE_E_DUPLICATEID System::Integer(-2147317562)
  2221. #define TYPE_E_INVALIDID System::Integer(-2147317553)
  2222. #define TYPE_E_TYPEMISMATCH System::Integer(-2147316576)
  2223. #define TYPE_E_OUTOFBOUNDS System::Integer(-2147316575)
  2224. #define TYPE_E_IOERROR System::Integer(-2147316574)
  2225. #define TYPE_E_CANTCREATETMPFILE System::Integer(-2147316573)
  2226. #define TYPE_E_CANTLOADLIBRARY System::Integer(-2147312566)
  2227. #define TYPE_E_INCONSISTENTPROPFUNCS System::Integer(-2147312509)
  2228. #define TYPE_E_CIRCULARTYPE System::Integer(-2147312508)
  2229. #define STG_E_INVALIDFUNCTION System::Integer(-2147287039)
  2230. #define STG_E_FILENOTFOUND System::Integer(-2147287038)
  2231. #define STG_E_PATHNOTFOUND System::Integer(-2147287037)
  2232. #define STG_E_TOOMANYOPENFILES System::Integer(-2147287036)
  2233. #define STG_E_ACCESSDENIED System::Integer(-2147287035)
  2234. #define STG_E_INVALIDHANDLE System::Integer(-2147287034)
  2235. #define STG_E_INSUFFICIENTMEMORY System::Integer(-2147287032)
  2236. #define STG_E_INVALIDPOINTER System::Integer(-2147287031)
  2237. #define STG_E_NOMOREFILES System::Integer(-2147287022)
  2238. #define STG_E_DISKISWRITEPROTECTED System::Integer(-2147287021)
  2239. #define STG_E_SEEKERROR System::Integer(-2147287015)
  2240. #define STG_E_WRITEFAULT System::Integer(-2147287011)
  2241. #define STG_E_READFAULT System::Integer(-2147287010)
  2242. #define STG_E_SHAREVIOLATION System::Integer(-2147287008)
  2243. #define STG_E_LOCKVIOLATION System::Integer(-2147287007)
  2244. #define STG_E_FILEALREADYEXISTS System::Integer(-2147286960)
  2245. #define STG_E_INVALIDPARAMETER System::Integer(-2147286953)
  2246. #define STG_E_MEDIUMFULL System::Integer(-2147286928)
  2247. #define STG_E_ABNORMALAPIEXIT System::Integer(-2147286790)
  2248. #define STG_E_INVALIDHEADER System::Integer(-2147286789)
  2249. #define STG_E_INVALIDNAME System::Integer(-2147286788)
  2250. #define STG_E_UNKNOWN System::Integer(-2147286787)
  2251. #define STG_E_UNIMPLEMENTEDFUNCTION System::Integer(-2147286786)
  2252. #define STG_E_INVALIDFLAG System::Integer(-2147286785)
  2253. #define STG_E_INUSE System::Integer(-2147286784)
  2254. #define STG_E_NOTCURRENT System::Integer(-2147286783)
  2255. #define STG_E_REVERTED System::Integer(-2147286782)
  2256. #define STG_E_CANTSAVE System::Integer(-2147286781)
  2257. #define STG_E_OLDFORMAT System::Integer(-2147286780)
  2258. #define STG_E_OLDDLL System::Integer(-2147286779)
  2259. #define STG_E_SHAREREQUIRED System::Integer(-2147286778)
  2260. #define STG_E_NOTFILEBASEDSTORAGE System::Integer(-2147286777)
  2261. #define STG_E_EXTANTMARSHALLINGS System::Integer(-2147286776)
  2262. #define STG_S_CONVERTED System::Integer(197120)
  2263. #define RPC_E_CALL_REJECTED System::Integer(-2147418111)
  2264. #define RPC_E_CALL_CANCELED System::Integer(-2147418110)
  2265. #define RPC_E_CANTPOST_INSENDCALL System::Integer(-2147418109)
  2266. #define RPC_E_CANTCALLOUT_INASYNCCALL System::Integer(-2147418108)
  2267. #define RPC_E_CANTCALLOUT_INEXTERNALCALL System::Integer(-2147418107)
  2268. #define RPC_E_CONNECTION_TERMINATED System::Integer(-2147418106)
  2269. #define RPC_E_SERVER_DIED System::Integer(-2147418105)
  2270. #define RPC_E_CLIENT_DIED System::Integer(-2147418104)
  2271. #define RPC_E_INVALID_DATAPACKET System::Integer(-2147418103)
  2272. #define RPC_E_CANTTRANSMIT_CALL System::Integer(-2147418102)
  2273. #define RPC_E_CLIENT_CANTMARSHAL_DATA System::Integer(-2147418101)
  2274. #define RPC_E_CLIENT_CANTUNMARSHAL_DATA System::Integer(-2147418100)
  2275. #define RPC_E_SERVER_CANTMARSHAL_DATA System::Integer(-2147418099)
  2276. #define RPC_E_SERVER_CANTUNMARSHAL_DATA System::Integer(-2147418098)
  2277. #define RPC_E_INVALID_DATA System::Integer(-2147418097)
  2278. #define RPC_E_INVALID_PARAMETER System::Integer(-2147418096)
  2279. #define RPC_E_CANTCALLOUT_AGAIN System::Integer(-2147418095)
  2280. #define RPC_E_SERVER_DIED_DNE System::Integer(-2147418094)
  2281. #define RPC_E_SYS_CALL_FAILED System::Integer(-2147417856)
  2282. #define RPC_E_OUT_OF_RESOURCES System::Integer(-2147417855)
  2283. #define RPC_E_ATTEMPTED_MULTITHREAD System::Integer(-2147417854)
  2284. #define RPC_E_NOT_REGISTERED System::Integer(-2147417853)
  2285. #define RPC_E_FAULT System::Integer(-2147417852)
  2286. #define RPC_E_SERVERFAULT System::Integer(-2147417851)
  2287. #define RPC_E_CHANGED_MODE System::Integer(-2147417850)
  2288. #define RPC_E_INVALIDMETHOD System::Integer(-2147417849)
  2289. #define RPC_E_DISCONNECTED System::Integer(-2147417848)
  2290. #define RPC_E_RETRY System::Integer(-2147417847)
  2291. #define RPC_E_SERVERCALL_RETRYLATER System::Integer(-2147417846)
  2292. #define RPC_E_SERVERCALL_REJECTED System::Integer(-2147417845)
  2293. #define RPC_E_INVALID_CALLDATA System::Integer(-2147417844)
  2294. #define RPC_E_CANTCALLOUT_ININPUTSYNCCALL System::Integer(-2147417843)
  2295. #define RPC_E_WRONG_THREAD System::Integer(-2147417842)
  2296. #define RPC_E_THREAD_NOT_INIT System::Integer(-2147417841)
  2297. #define RPC_E_UNEXPECTED System::Integer(-2147352577)
  2298. #define MEMCTX_TASK System::Byte(1)
  2299. #define MEMCTX_SHARED System::Byte(2)
  2300. #define MEMCTX_MACSYSTEM System::Byte(3)
  2301. #define MEMCTX_UNKNOWN System::Shortint(-1)
  2302. #define MEMCTX_SAME System::Shortint(-2)
  2303. #define ROTFLAGS_REGISTRATIONKEEPSALIVE System::Byte(1)
  2304. #define CLSCTX_INPROC_SERVER System::Byte(1)
  2305. #define CLSCTX_INPROC_HANDLER System::Byte(2)
  2306. #define CLSCTX_LOCAL_SERVER System::Byte(4)
  2307. #define CLSCTX_INPROC_SERVER16 System::Byte(8)
  2308. #define CLSCTX_ALL System::Byte(7)
  2309. #define CLSCTX_INPROC System::Byte(3)
  2310. #define CLSCTX_SERVER System::Byte(5)
  2311. #define MSHLFLAGS_NORMAL System::Byte(0)
  2312. #define MSHLFLAGS_TABLESTRONG System::Byte(1)
  2313. #define MSHLFLAGS_TABLEWEAK System::Byte(2)
  2314. #define MSHCTX_LOCAL System::Byte(0)
  2315. #define MSHCTX_NOSHAREDMEM System::Byte(1)
  2316. #define MSHCTX_DIFFERENTMACHINE System::Byte(2)
  2317. #define MSHCTX_INPROC System::Byte(3)
  2318. #define DVASPECT_CONTENT System::Byte(1)
  2319. #define DVASPECT_THUMBNAIL System::Byte(2)
  2320. #define DVASPECT_ICON System::Byte(4)
  2321. #define DVASPECT_DOCPRINT System::Byte(8)
  2322. #define STGC_DEFAULT System::Byte(0)
  2323. #define STGC_OVERWRITE System::Byte(1)
  2324. #define STGC_ONLYIFCURRENT System::Byte(2)
  2325. #define STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE System::Byte(4)
  2326. #define STGMOVE_MOVE System::Byte(0)
  2327. #define STGMOVE_COPY System::Byte(1)
  2328. #define STATFLAG_DEFAULT System::Byte(0)
  2329. #define STATFLAG_NONAME System::Byte(1)
  2330. #define BIND_MAYBOTHERUSER System::Byte(1)
  2331. #define BIND_JUSTTESTEXISTENCE System::Byte(2)
  2332. #define MKSYS_NONE System::Byte(0)
  2333. #define MKSYS_GENERICCOMPOSITE System::Byte(1)
  2334. #define MKSYS_FILEMONIKER System::Byte(2)
  2335. #define MKSYS_ANTIMONIKER System::Byte(3)
  2336. #define MKSYS_ITEMMONIKER System::Byte(4)
  2337. #define MKSYS_POINTERMONIKER System::Byte(5)
  2338. #define MKRREDUCE_ONE System::Integer(196608)
  2339. #define MKRREDUCE_TOUSER System::Integer(131072)
  2340. #define MKRREDUCE_THROUGHUSER System::Integer(65536)
  2341. #define MKRREDUCE_ALL System::Byte(0)
  2342. #define STGTY_STORAGE System::Byte(1)
  2343. #define STGTY_STREAM System::Byte(2)
  2344. #define STGTY_LOCKBYTES System::Byte(3)
  2345. #define STGTY_PROPERTY System::Byte(4)
  2346. #define STREAM_SEEK_SET System::Byte(0)
  2347. #define STREAM_SEEK_CUR System::Byte(1)
  2348. #define STREAM_SEEK_END System::Byte(2)
  2349. #define LOCK_WRITE System::Byte(1)
  2350. #define LOCK_EXCLUSIVE System::Byte(2)
  2351. #define LOCK_ONLYONCE System::Byte(4)
  2352. #define ADVF_NODATA System::Byte(1)
  2353. #define ADVF_PRIMEFIRST System::Byte(2)
  2354. #define ADVF_ONLYONCE System::Byte(4)
  2355. #define ADVF_DATAONSTOP System::Byte(64)
  2356. #define ADVFCACHE_NOHANDLER System::Byte(8)
  2357. #define ADVFCACHE_FORCEBUILTIN System::Byte(16)
  2358. #define ADVFCACHE_ONSAVE System::Byte(32)
  2359. #define TYMED_HGLOBAL System::Byte(1)
  2360. #define TYMED_FILE System::Byte(2)
  2361. #define TYMED_ISTREAM System::Byte(4)
  2362. #define TYMED_ISTORAGE System::Byte(8)
  2363. #define TYMED_GDI System::Byte(16)
  2364. #define TYMED_MFPICT System::Byte(32)
  2365. #define TYMED_ENHMF System::Byte(64)
  2366. #define TYMED_NULL System::Byte(0)
  2367. #define DATADIR_GET System::Byte(1)
  2368. #define DATADIR_SET System::Byte(2)
  2369. #define CALLTYPE_TOPLEVEL System::Byte(1)
  2370. #define CALLTYPE_NESTED System::Byte(2)
  2371. #define CALLTYPE_ASYNC System::Byte(3)
  2372. #define CALLTYPE_TOPLEVEL_CALLPENDING System::Byte(4)
  2373. #define CALLTYPE_ASYNC_CALLPENDING System::Byte(5)
  2374. #define SERVERCALL_ISHANDLED System::Byte(0)
  2375. #define SERVERCALL_REJECTED System::Byte(1)
  2376. #define SERVERCALL_RETRYLATER System::Byte(2)
  2377. #define PENDINGTYPE_TOPLEVEL System::Byte(1)
  2378. #define PENDINGTYPE_NESTED System::Byte(2)
  2379. #define PENDINGMSG_CANCELCALL System::Byte(0)
  2380. #define PENDINGMSG_WAITNOPROCESS System::Byte(1)
  2381. #define PENDINGMSG_WAITDEFPROCESS System::Byte(2)
  2382. #define REGCLS_SINGLEUSE System::Byte(0)
  2383. #define REGCLS_MULTIPLEUSE System::Byte(1)
  2384. #define REGCLS_MULTI_SEPARATE System::Byte(2)
  2385. #define MARSHALINTERFACE_MIN System::Smallint(500)
  2386. #define CWCSTORAGENAME System::Byte(32)
  2387. #define STGM_DIRECT System::Byte(0)
  2388. #define STGM_TRANSACTED System::Integer(65536)
  2389. #define STGM_SIMPLE System::Integer(134217728)
  2390. #define STGM_READ System::Byte(0)
  2391. #define STGM_WRITE System::Byte(1)
  2392. #define STGM_READWRITE System::Byte(2)
  2393. #define STGM_SHARE_DENY_NONE System::Byte(64)
  2394. #define STGM_SHARE_DENY_READ System::Byte(48)
  2395. #define STGM_SHARE_DENY_WRITE System::Byte(32)
  2396. #define STGM_SHARE_EXCLUSIVE System::Byte(16)
  2397. #define STGM_PRIORITY System::Integer(262144)
  2398. #define STGM_DELETEONRELEASE System::Integer(67108864)
  2399. #define STGM_CREATE System::Smallint(4096)
  2400. #define STGM_CONVERT System::Integer(131072)
  2401. #define STGM_FAILIFTHERE System::Byte(0)
  2402. #define FADF_AUTO System::Byte(1)
  2403. #define FADF_STATIC System::Byte(2)
  2404. #define FADF_EMBEDDED System::Byte(4)
  2405. #define FADF_FIXEDSIZE System::Byte(16)
  2406. #define FADF_BSTR System::Smallint(256)
  2407. #define FADF_UNKNOWN System::Smallint(512)
  2408. #define FADF_DISPATCH System::Smallint(1024)
  2409. #define FADF_VARIANT System::Smallint(2048)
  2410. #define FADF_RESERVED System::Integer(61672)
  2411. #define VT_EMPTY System::Byte(0)
  2412. #define VT_NULL System::Byte(1)
  2413. #define VT_I2 System::Byte(2)
  2414. #define VT_I4 System::Byte(3)
  2415. #define VT_R4 System::Byte(4)
  2416. #define VT_R8 System::Byte(5)
  2417. #define VT_CY System::Byte(6)
  2418. #define VT_DATE System::Byte(7)
  2419. #define VT_BSTR System::Byte(8)
  2420. #define VT_DISPATCH System::Byte(9)
  2421. #define VT_ERROR System::Byte(10)
  2422. #define VT_BOOL System::Byte(11)
  2423. #define VT_VARIANT System::Byte(12)
  2424. #define VT_UNKNOWN System::Byte(13)
  2425. #define VT_I1 System::Byte(16)
  2426. #define VT_UI1 System::Byte(17)
  2427. #define VT_UI2 System::Byte(18)
  2428. #define VT_UI4 System::Byte(19)
  2429. #define VT_I8 System::Byte(20)
  2430. #define VT_UI8 System::Byte(21)
  2431. #define VT_INT System::Byte(22)
  2432. #define VT_UINT System::Byte(23)
  2433. #define VT_VOID System::Byte(24)
  2434. #define VT_HRESULT System::Byte(25)
  2435. #define VT_PTR System::Byte(26)
  2436. #define VT_SAFEARRAY System::Byte(27)
  2437. #define VT_CARRAY System::Byte(28)
  2438. #define VT_USERDEFINED System::Byte(29)
  2439. #define VT_LPSTR System::Byte(30)
  2440. #define VT_LPWSTR System::Byte(31)
  2441. #define VT_FILETIME System::Byte(64)
  2442. #define VT_BLOB System::Byte(65)
  2443. #define VT_STREAM System::Byte(66)
  2444. #define VT_STORAGE System::Byte(67)
  2445. #define VT_STREAMED_OBJECT System::Byte(68)
  2446. #define VT_STORED_OBJECT System::Byte(69)
  2447. #define VT_BLOB_OBJECT System::Byte(70)
  2448. #define VT_CF System::Byte(71)
  2449. #define VT_CLSID System::Byte(72)
  2450. #define VT_VECTOR System::Smallint(4096)
  2451. #define VT_ARRAY System::Smallint(8192)
  2452. #define VT_BYREF System::Smallint(16384)
  2453. #define VT_RESERVED System::Integer(32768)
  2454. #define TKIND_ENUM System::Byte(0)
  2455. #define TKIND_RECORD System::Byte(1)
  2456. #define TKIND_MODULE System::Byte(2)
  2457. #define TKIND_INTERFACE System::Byte(3)
  2458. #define TKIND_DISPATCH System::Byte(4)
  2459. #define TKIND_COCLASS System::Byte(5)
  2460. #define TKIND_ALIAS System::Byte(6)
  2461. #define TKIND_UNION System::Byte(7)
  2462. #define TKIND_MAX System::Byte(8)
  2463. #define CC_CDECL System::Byte(1)
  2464. #define CC_PASCAL System::Byte(2)
  2465. #define CC_MACPASCAL System::Byte(3)
  2466. #define CC_STDCALL System::Byte(4)
  2467. #define CC_RESERVED System::Byte(5)
  2468. #define CC_SYSCALL System::Byte(6)
  2469. #define CC_MPWCDECL System::Byte(7)
  2470. #define CC_MPWPASCAL System::Byte(8)
  2471. #define CC_MAX System::Byte(9)
  2472. #define FUNC_VIRTUAL System::Byte(0)
  2473. #define FUNC_PUREVIRTUAL System::Byte(1)
  2474. #define FUNC_NONVIRTUAL System::Byte(2)
  2475. #define FUNC_STATIC System::Byte(3)
  2476. #define FUNC_DISPATCH System::Byte(4)
  2477. #define INVOKE_FUNC System::Byte(1)
  2478. #define INVOKE_PROPERTYGET System::Byte(2)
  2479. #define INVOKE_PROPERTYPUT System::Byte(4)
  2480. #define INVOKE_PROPERTYPUTREF System::Byte(8)
  2481. #define VAR_PERINSTANCE System::Byte(0)
  2482. #define VAR_STATIC System::Byte(1)
  2483. #define VAR_CONST System::Byte(2)
  2484. #define VAR_DISPATCH System::Byte(3)
  2485. #define IMPLTYPEFLAG_FDEFAULT System::Byte(1)
  2486. #define IMPLTYPEFLAG_FSOURCE System::Byte(2)
  2487. #define IMPLTYPEFLAG_FRESTRICTED System::Byte(4)
  2488. #define TYPEFLAG_FAPPOBJECT System::Byte(1)
  2489. #define TYPEFLAG_FCANCREATE System::Byte(2)
  2490. #define TYPEFLAG_FLICENSED System::Byte(4)
  2491. #define TYPEFLAG_FPREDECLID System::Byte(8)
  2492. #define TYPEFLAG_FHIDDEN System::Byte(16)
  2493. #define TYPEFLAG_FCONTROL System::Byte(32)
  2494. #define TYPEFLAG_FDUAL System::Byte(64)
  2495. #define TYPEFLAG_FNONEXTENSIBLE System::Byte(128)
  2496. #define TYPEFLAG_FOLEAUTOMATION System::Smallint(256)
  2497. #define FUNCFLAG_FRESTRICTED System::Byte(1)
  2498. #define FUNCFLAG_FSOURCE System::Byte(2)
  2499. #define FUNCFLAG_FBINDABLE System::Byte(4)
  2500. #define FUNCFLAG_FREQUESTEDIT System::Byte(8)
  2501. #define FUNCFLAG_FDISPLAYBIND System::Byte(16)
  2502. #define FUNCFLAG_FDEFAULTBIND System::Byte(32)
  2503. #define FUNCFLAG_FHIDDEN System::Byte(64)
  2504. #define VARFLAG_FREADONLY System::Byte(1)
  2505. #define VARFLAG_FSOURCE System::Byte(2)
  2506. #define VARFLAG_FBINDABLE System::Byte(4)
  2507. #define VARFLAG_FREQUESTEDIT System::Byte(8)
  2508. #define VARFLAG_FDISPLAYBIND System::Byte(16)
  2509. #define VARFLAG_FDEFAULTBIND System::Byte(32)
  2510. #define VARFLAG_FHIDDEN System::Byte(64)
  2511. #define DISPID_VALUE System::Byte(0)
  2512. #define DISPID_UNKNOWN System::Shortint(-1)
  2513. #define DISPID_PROPERTYPUT System::Shortint(-3)
  2514. #define DISPID_NEWENUM System::Shortint(-4)
  2515. #define DISPID_EVALUATE System::Shortint(-5)
  2516. #define DISPID_CONSTRUCTOR System::Shortint(-6)
  2517. #define DISPID_DESTRUCTOR System::Shortint(-7)
  2518. #define DISPID_COLLECT System::Shortint(-8)
  2519. #define DESCKIND_NONE System::Byte(0)
  2520. #define DESCKIND_FUNCDESC System::Byte(1)
  2521. #define DESCKIND_VARDESC System::Byte(2)
  2522. #define DESCKIND_TYPECOMP System::Byte(3)
  2523. #define DESCKIND_IMPLICITAPPOBJ System::Byte(4)
  2524. #define DESCKIND_MAX System::Byte(5)
  2525. #define SYS_WIN16 System::Byte(0)
  2526. #define SYS_WIN32 System::Byte(1)
  2527. #define SYS_MAC System::Byte(2)
  2528. #define LIBFLAG_FRESTRICTED System::Byte(1)
  2529. #define LIBFLAG_FCONTROL System::Byte(2)
  2530. #define LIBFLAG_FHIDDEN System::Byte(4)
  2531. #define STDOLE_MAJORVERNUM System::Byte(1)
  2532. #define STDOLE_MINORVERNUM System::Byte(0)
  2533. #define STDOLE_LCID System::Byte(0)
  2534. #define VARIANT_NOVALUEPROP System::Byte(1)
  2535. #define VAR_TIMEVALUEONLY System::Byte(1)
  2536. #define VAR_DATEVALUEONLY System::Byte(2)
  2537. #define MEMBERID_NIL System::Shortint(-1)
  2538. #define ID_DEFAULTINST System::Shortint(-2)
  2539. #define IDLFLAG_NONE System::Byte(0)
  2540. #define IDLFLAG_FIN System::Byte(1)
  2541. #define IDLFLAG_FOUT System::Byte(2)
  2542. #define IDLFLAG_FLCID System::Byte(4)
  2543. #define IDLFLAG_FRETVAL System::Byte(8)
  2544. #define DISPATCH_METHOD System::Byte(1)
  2545. #define DISPATCH_PROPERTYGET System::Byte(2)
  2546. #define DISPATCH_PROPERTYPUT System::Byte(4)
  2547. #define DISPATCH_PROPERTYPUTREF System::Byte(8)
  2548. #define OLEIVERB_PRIMARY System::Byte(0)
  2549. #define OLEIVERB_SHOW System::Shortint(-1)
  2550. #define OLEIVERB_OPEN System::Shortint(-2)
  2551. #define OLEIVERB_HIDE System::Shortint(-3)
  2552. #define OLEIVERB_UIACTIVATE System::Shortint(-4)
  2553. #define OLEIVERB_INPLACEACTIVATE System::Shortint(-5)
  2554. #define OLEIVERB_DISCARDUNDOSTATE System::Shortint(-6)
  2555. #define EMBDHLP_INPROC_HANDLER System::Byte(0)
  2556. #define EMBDHLP_INPROC_SERVER System::Byte(1)
  2557. #define EMBDHLP_CREATENOW System::Byte(0)
  2558. #define EMBDHLP_DELAYCREATE System::Integer(65536)
  2559. #define UPDFCACHE_NODATACACHE System::Byte(1)
  2560. #define UPDFCACHE_ONSAVECACHE System::Byte(2)
  2561. #define UPDFCACHE_ONSTOPCACHE System::Byte(4)
  2562. #define UPDFCACHE_NORMALCACHE System::Byte(8)
  2563. #define UPDFCACHE_IFBLANK System::Byte(16)
  2564. #define UPDFCACHE_ONLYIFBLANK System::Integer(-2147483648)
  2565. #define UPDFCACHE_IFBLANKORONSAVECACHE System::Byte(18)
  2566. #define UPDFCACHE_ALL System::Integer(2147483647)
  2567. #define UPDFCACHE_ALLBUTNODATACACHE System::Integer(2147483646)
  2568. #define DISCARDCACHE_SAVEIFDIRTY System::Byte(0)
  2569. #define DISCARDCACHE_NOSAVE System::Byte(1)
  2570. #define OLEGETMONIKER_ONLYIFTHERE System::Byte(1)
  2571. #define OLEGETMONIKER_FORCEASSIGN System::Byte(2)
  2572. #define OLEGETMONIKER_UNASSIGN System::Byte(3)
  2573. #define OLEGETMONIKER_TEMPFORUSER System::Byte(4)
  2574. #define OLEWHICHMK_CONTAINER System::Byte(1)
  2575. #define OLEWHICHMK_OBJREL System::Byte(2)
  2576. #define OLEWHICHMK_OBJFULL System::Byte(3)
  2577. #define USERCLASSTYPE_FULL System::Byte(1)
  2578. #define USERCLASSTYPE_SHORT System::Byte(2)
  2579. #define USERCLASSTYPE_APPNAME System::Byte(3)
  2580. #define OLEMISC_RECOMPOSEONRESIZE System::Byte(1)
  2581. #define OLEMISC_ONLYICONIC System::Byte(2)
  2582. #define OLEMISC_INSERTNOTREPLACE System::Byte(4)
  2583. #define OLEMISC_STATIC System::Byte(8)
  2584. #define OLEMISC_CANTLINKINSIDE System::Byte(16)
  2585. #define OLEMISC_CANLINKBYOLE1 System::Byte(32)
  2586. #define OLEMISC_ISLINKOBJECT System::Byte(64)
  2587. #define OLEMISC_INSIDEOUT System::Byte(128)
  2588. #define OLEMISC_ACTIVATEWHENVISIBLE System::Smallint(256)
  2589. #define OLEMISC_RENDERINGISDEVICEINDEPENDENT System::Smallint(512)
  2590. #define OLECLOSE_SAVEIFDIRTY System::Byte(0)
  2591. #define OLECLOSE_NOSAVE System::Byte(1)
  2592. #define OLECLOSE_PROMPTSAVE System::Byte(2)
  2593. #define OLERENDER_NONE System::Byte(0)
  2594. #define OLERENDER_DRAW System::Byte(1)
  2595. #define OLERENDER_FORMAT System::Byte(2)
  2596. #define OLERENDER_ASIS System::Byte(3)
  2597. #define OLEUPDATE_ALWAYS System::Byte(1)
  2598. #define OLEUPDATE_ONCALL System::Byte(3)
  2599. #define OLELINKBIND_EVENIFCLASSDIFF System::Byte(1)
  2600. #define BINDSPEED_INDEFINITE System::Byte(1)
  2601. #define BINDSPEED_MODERATE System::Byte(2)
  2602. #define BINDSPEED_IMMEDIATE System::Byte(3)
  2603. #define OLECONTF_EMBEDDINGS System::Byte(1)
  2604. #define OLECONTF_LINKS System::Byte(2)
  2605. #define OLECONTF_OTHERS System::Byte(4)
  2606. #define OLECONTF_ONLYUSER System::Byte(8)
  2607. #define OLECONTF_ONLYIFRUNNING System::Byte(16)
  2608. #define DROPEFFECT_NONE System::Byte(0)
  2609. #define DROPEFFECT_COPY System::Byte(1)
  2610. #define DROPEFFECT_MOVE System::Byte(2)
  2611. #define DROPEFFECT_LINK System::Byte(4)
  2612. #define DROPEFFECT_SCROLL System::Integer(-2147483648)
  2613. #define DD_DEFSCROLLINSET System::Byte(11)
  2614. #define DD_DEFSCROLLDELAY System::Byte(50)
  2615. #define DD_DEFSCROLLINTERVAL System::Byte(50)
  2616. #define DD_DEFDRAGDELAY System::Byte(200)
  2617. #define DD_DEFDRAGMINDIST System::Byte(2)
  2618. #define OLEVERBATTRIB_NEVERDIRTIES System::Byte(1)
  2619. #define OLEVERBATTRIB_ONCONTAINERMENU System::Byte(2)
  2620. extern TGUID GUID_NULL;
  2621. extern TGUID IID_IUnknown;
  2622. extern TGUID IID_IClassFactory;
  2623. extern TGUID IID_IMarshal;
  2624. extern TGUID IID_IMalloc;
  2625. extern TGUID IID_IStdMarshalInfo;
  2626. extern TGUID IID_IExternalConnection;
  2627. extern TGUID IID_IEnumUnknown;
  2628. extern TGUID IID_IBindCtx;
  2629. extern TGUID IID_IEnumMoniker;
  2630. extern TGUID IID_IRunnableObject;
  2631. extern TGUID IID_IRunningObjectTable;
  2632. extern TGUID IID_IPersist;
  2633. extern TGUID IID_IPersistStream;
  2634. extern TGUID IID_IMoniker;
  2635. extern TGUID IID_IEnumString;
  2636. extern TGUID IID_IStream;
  2637. extern TGUID IID_IEnumStatStg;
  2638. extern TGUID IID_IStorage;
  2639. extern TGUID IID_IPersistFile;
  2640. extern TGUID IID_IPersistStorage;
  2641. extern TGUID IID_ILockBytes;
  2642. extern TGUID IID_IEnumFormatEtc;
  2643. extern TGUID IID_IEnumStatData;
  2644. extern TGUID IID_IRootStorage;
  2645. extern TGUID IID_IAdviseSink;
  2646. extern TGUID IID_IAdviseSink2;
  2647. extern TGUID IID_IDataObject;
  2648. extern TGUID IID_IDataAdviseHolder;
  2649. extern TGUID IID_IMessageFilter;
  2650. extern TGUID IID_IRpcChannelBuffer;
  2651. extern TGUID IID_IRpcProxyBuffer;
  2652. extern TGUID IID_IRpcStubBuffer;
  2653. extern TGUID IID_IPSFactoryBuffer;
  2654. extern TGUID IID_ICreateTypeInfo;
  2655. extern TGUID IID_ICreateTypeLib;
  2656. extern TGUID IID_IDispatch;
  2657. extern TGUID IID_IEnumVariant;
  2658. extern TGUID IID_ITypeComp;
  2659. extern TGUID IID_ITypeInfo;
  2660. extern TGUID IID_ITypeLib;
  2661. extern TGUID IID_IErrorInfo;
  2662. extern TGUID IID_ICreateErrorInfo;
  2663. extern TGUID IID_ISupportErrorInfo;
  2664. extern TGUID IID_IOleAdviseHolder;
  2665. extern TGUID IID_IOleCache;
  2666. extern TGUID IID_IOleCache2;
  2667. extern TGUID IID_IOleCacheControl;
  2668. extern TGUID IID_IParseDisplayName;
  2669. extern TGUID IID_IOleContainer;
  2670. extern TGUID IID_IOleClientSite;
  2671. extern TGUID IID_IOleObject;
  2672. extern TGUID IID_IOleWindow;
  2673. extern TGUID IID_IOleLink;
  2674. extern TGUID IID_IOleItemContainer;
  2675. extern TGUID IID_IOleInPlaceUIWindow;
  2676. extern TGUID IID_IOleInPlaceActiveObject;
  2677. extern TGUID IID_IOleInPlaceFrame;
  2678. extern TGUID IID_IOleInPlaceObject;
  2679. extern TGUID IID_IOleInPlaceSite;
  2680. extern TGUID IID_IViewObject;
  2681. extern TGUID IID_IViewObject2;
  2682. extern TGUID IID_IDropSource;
  2683. extern TGUID IID_IDropTarget;
  2684. extern TGUID IID_IEnumOleVerb;
  2685. extern TGUID IID_IRpcChannel;
  2686. extern TGUID IID_IRpcStub;
  2687. extern TGUID IID_IStubManager;
  2688. extern TGUID IID_IRpcProxy;
  2689. extern TGUID IID_IProxyManager;
  2690. extern TGUID IID_IPSFactory;
  2691. extern TGUID IID_IInternalMoniker;
  2692. extern TGUID CLSID_StdMarshal;
  2693. extern TGUID IID_IEnumGeneric;
  2694. extern TGUID IID_IEnumHolder;
  2695. extern TGUID IID_IEnumCallback;
  2696. extern TGUID IID_IOleManager;
  2697. extern TGUID IID_IOlePresObj;
  2698. extern TGUID IID_IDebug;
  2699. extern TGUID IID_IDebugStream;
  2700. extern "C" System::Boolean __stdcall IsEqualGUID(const TGUID &guid1, const TGUID &guid2);
  2701. extern "C" System::Boolean __stdcall IsEqualIID(const TGUID &iid1, const TGUID &iid2);
  2702. extern "C" System::Boolean __stdcall IsEqualCLSID(const TGUID &clsid1, const TGUID &clsid2);
  2703. extern "C" System::Longint __stdcall CoBuildVersion(void);
  2704. extern "C" System::Longint __stdcall CoInitialize(System::Pointer pvReserved);
  2705. extern "C" void __stdcall CoUninitialize(void);
  2706. extern "C" System::Longint __stdcall CoGetMalloc(System::Longint dwMemContext, IMalloc *&malloc);
  2707. extern "C" System::Longint __stdcall CoGetCurrentProcess(void);
  2708. extern "C" System::Longint __stdcall CoRegisterMallocSpy(IMallocSpy *mallocSpy);
  2709. extern "C" System::Longint __stdcall CoRevokeMallocSpy(void);
  2710. extern "C" System::Longint __stdcall CoCreateStandardMalloc(System::Longint memctx, IMalloc *&malloc
  2711.     );
  2712. extern "C" System::Longint __stdcall CoGetClassObject(const TGUID &clsid, System::Longint dwClsContext
  2713.     , System::Pointer pvReserved, const TGUID &iid, void *pv);
  2714. extern "C" System::Longint __stdcall CoRegisterClassObject(const TGUID &clsid, IUnknown *unk, System::Longint 
  2715.     dwClsContext, System::Longint flags, System::Longint &dwRegister);
  2716. extern "C" System::Longint __stdcall CoRevokeClassObject(System::Longint dwRegister);
  2717. extern "C" System::Longint __stdcall CoGetMarshalSizeMax(System::Longint &ulSize, const TGUID &iid, 
  2718.     IUnknown *unk, System::Longint dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags
  2719.     );
  2720. extern "C" System::Longint __stdcall CoMarshalInterface(IStream *stm, const TGUID &iid, IUnknown *unk
  2721.     , System::Longint dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags);
  2722. extern "C" System::Longint __stdcall CoUnmarshalInterface(IStream *stm, const TGUID &iid, void *pv);
  2723.     
  2724. extern "C" System::Longint __stdcall CoMarshalHResult(IStream *stm, System::Longint result);
  2725. extern "C" System::Longint __stdcall CoUnmarshalHResult(IStream *stm, System::Longint &result);
  2726. extern "C" System::Longint __stdcall CoReleaseMarshalData(IStream *stm);
  2727. extern "C" System::Longint __stdcall CoDisconnectObject(IUnknown *unk, System::Longint dwReserved);
  2728. extern "C" System::Longint __stdcall CoLockObjectExternal(IUnknown *unk, System::LongBool fLock, System::LongBool 
  2729.     fLastUnlockReleases);
  2730. extern "C" System::Longint __stdcall CoGetStandardMarshal(const TGUID &iid, IUnknown *unk, System::Longint 
  2731.     dwDestContext, System::Pointer pvDestContext, System::Longint mshlflags, IMarshal *&marshal);
  2732. extern "C" System::LongBool __stdcall CoIsHandlerConnected(IUnknown *unk);
  2733. extern "C" System::LongBool __stdcall CoHasStrongExternalConnections(IUnknown *unk);
  2734. extern "C" System::Longint __stdcall CoMarshalInterThreadInterfaceInStream(const TGUID &iid, IUnknown *
  2735.     unk, IStream *&stm);
  2736. extern "C" System::Longint __stdcall CoGetInterfaceAndReleaseStream(IStream *stm, const TGUID &iid, 
  2737.     void *pv);
  2738. extern "C" System::Longint __stdcall CoCreateFreeThreadedMarshaler(IUnknown *unkOuter, IUnknown *&unkMarshal
  2739.     );
  2740. extern "C" System::Integer __stdcall CoLoadLibrary(System::PWideChar pszLibName, System::LongBool bAutoFree
  2741.     );
  2742. extern "C" void __stdcall CoFreeLibrary(System::Integer hInst);
  2743. extern "C" void __stdcall CoFreeAllLibraries(void);
  2744. extern "C" void __stdcall CoFreeUnusedLibraries(void);
  2745. extern "C" System::Longint __stdcall CoCreateInstance(const TGUID &clsid, IUnknown *unkOuter, System::Longint 
  2746.     dwClsContext, const TGUID &iid, void *pv);
  2747. extern "C" System::Longint __stdcall StringFromCLSID(const TGUID &clsid, System::PWideChar &psz);
  2748. extern "C" System::Longint __stdcall CLSIDFromString(System::PWideChar psz, TGUID &clsid);
  2749. extern "C" System::Longint __stdcall StringFromIID(const TGUID &iid, System::PWideChar &psz);
  2750. extern "C" System::Longint __stdcall IIDFromString(System::PWideChar psz, TGUID &iid);
  2751. extern "C" System::LongBool __stdcall CoIsOle1Class(const TGUID &clsid);
  2752. extern "C" System::Longint __stdcall ProgIDFromCLSID(const TGUID &clsid, System::PWideChar &pszProgID
  2753.     );
  2754. extern "C" System::Longint __stdcall CLSIDFromProgID(System::PWideChar pszProgID, TGUID &clsid);
  2755. extern "C" System::Integer __stdcall StringFromGUID2(const TGUID &guid, System::PWideChar psz, System::Integer 
  2756.     cbMax);
  2757. extern "C" System::Longint __stdcall CoCreateGuid(TGUID &guid);
  2758. extern "C" System::LongBool __stdcall CoFileTimeToDosDateTime(Windows::TFileTime &filetime, System::Word 
  2759.     &dosDate, System::Word &dosTime);
  2760. extern "C" System::LongBool __stdcall CoDosDateTimeToFileTime(System::Word nDosDate, System::Word nDosTime
  2761.     , Windows::TFileTime &filetime);
  2762. extern "C" System::Longint __stdcall CoFileTimeNow(Windows::TFileTime &filetime);
  2763. extern "C" System::Longint __stdcall CoRegisterMessageFilter(IMessageFilter *messageFilter, IMessageFilter *
  2764.     &pMessageFilter);
  2765. extern "C" System::Longint __stdcall CoGetTreatAsClass(const TGUID &clsidOld, TGUID &clsidNew);
  2766. extern "C" System::Longint __stdcall CoTreatAsClass(const TGUID &clsidOld, const TGUID &clsidNew);
  2767. extern "C" System::Pointer __stdcall CoTaskMemAlloc(System::Longint cb);
  2768. extern "C" System::Pointer __stdcall CoTaskMemRealloc(System::Pointer pv, System::Longint cb);
  2769. extern "C" void __stdcall CoTaskMemFree(System::Pointer pv);
  2770. extern "C" System::Longint __stdcall CreateDataAdviseHolder(IDataAdviseHolder *&DAHolder);
  2771. extern "C" System::Longint __stdcall CreateDataCache(IUnknown *unkOuter, const TGUID &clsid, const TGUID 
  2772.     &iid, void *pv);
  2773. extern "C" System::Longint __stdcall StgCreateDocfile(System::PWideChar pwcsName, System::Longint grfMode
  2774.     , System::Longint reserved, IStorage *&stgOpen);
  2775. extern "C" System::Longint __stdcall StgCreateDocfileOnILockBytes(ILockBytes *lkbyt, System::Longint 
  2776.     grfMode, System::Longint reserved, IStorage *&stgOpen);
  2777. extern "C" System::Longint __stdcall StgOpenStorage(System::PWideChar pwcsName, IStorage *stgPriority
  2778.     , System::Longint grfMode, TSNB snbExclude, System::Longint reserved, IStorage *&stgOpen);
  2779. extern "C" System::Longint __stdcall StgOpenStorageOnILockBytes(ILockBytes *lkbyt, IStorage *stgPriority
  2780.     , System::Longint grfMode, TSNB snbExclude, System::Longint reserved, IStorage *&stgOpen);
  2781. extern "C" System::Longint __stdcall StgIsStorageFile(System::PWideChar pwcsName);
  2782. extern "C" System::Longint __stdcall StgIsStorageILockBytes(ILockBytes *lkbyt);
  2783. extern "C" System::Longint __stdcall StgSetTimes(System::PWideChar pszName, const Windows::TFileTime 
  2784.     &ctime, const Windows::TFileTime &atime, const Windows::TFileTime &mtime);
  2785. extern "C" System::Longint __stdcall BindMoniker(IMoniker *mk, System::Longint grfOpt, const TGUID &iidResult
  2786.     , void *pvResult);
  2787. extern "C" System::Longint __stdcall MkParseDisplayName(IBindCtx *bc, System::PWideChar szUserName, 
  2788.     System::Longint &chEaten, IMoniker *&mk);
  2789. extern "C" System::Longint __stdcall MonikerRelativePathTo(IMoniker *mkSrc, IMoniker *mkDest, IMoniker *
  2790.     &mkRelPath, System::LongBool dwReserved);
  2791. extern "C" System::Longint __stdcall MonikerCommonPrefixWith(IMoniker *mkThis, IMoniker *mkOther, IMoniker *
  2792.     &mkCommon);
  2793. extern "C" System::Longint __stdcall CreateBindCtx(System::Longint reserved, IBindCtx *&bc);
  2794. extern "C" System::Longint __stdcall CreateGenericComposite(IMoniker *mkFirst, IMoniker *mkRest, IMoniker *
  2795.     &mkComposite);
  2796. extern "C" System::Longint __stdcall GetClassFile(System::PWideChar szFilename, TGUID &clsid);
  2797. extern "C" System::Longint __stdcall CreateFileMoniker(System::PWideChar pszPathName, IMoniker *&mk)
  2798.     ;
  2799. extern "C" System::Longint __stdcall CreateItemMoniker(System::PWideChar pszDelim, System::PWideChar 
  2800.     pszItem, IMoniker *&mk);
  2801. extern "C" System::Longint __stdcall CreateAntiMoniker(IMoniker *&mk);
  2802. extern "C" System::Longint __stdcall CreatePointerMoniker(IUnknown *unk, IMoniker *&mk);
  2803. extern "C" System::Longint __stdcall GetRunningObjectTable(System::Longint reserved, IRunningObjectTable *
  2804.     &rot);
  2805. extern "C" System::Longint __stdcall OleBuildVersion(void);
  2806. extern "C" System::Longint __stdcall ReadClassStg(IStorage *stg, TGUID &clsid);
  2807. extern "C" System::Longint __stdcall WriteClassStg(IStorage *stg, const TGUID &clsid);
  2808. extern "C" System::Longint __stdcall ReadClassStm(IStream *stm, TGUID &clsid);
  2809. extern "C" System::Longint __stdcall WriteClassStm(IStream *stm, const TGUID &clsid);
  2810. extern "C" System::Longint __stdcall WriteFmtUserTypeStg(IStorage *stg, System::Word cf, System::PWideChar 
  2811.     pszUserType);
  2812. extern "C" System::Longint __stdcall ReadFmtUserTypeStg(IStorage *stg, System::Word &cf, System::PWideChar 
  2813.     &pszUserType);
  2814. extern "C" System::Longint __stdcall OleInitialize(System::Pointer pwReserved);
  2815. extern "C" void __stdcall OleUninitialize(void);
  2816. extern "C" System::Longint __stdcall OleQueryLinkFromData(IDataObject *srcDataObject);
  2817. extern "C" System::Longint __stdcall OleQueryCreateFromData(IDataObject *srcDataObject);
  2818. extern "C" System::Longint __stdcall OleCreate(const TGUID &clsid, const TGUID &iid, System::Longint 
  2819.     renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void *vObj);
  2820. extern "C" System::Longint __stdcall OleCreateFromData(IDataObject *srcDataObj, const TGUID &iid, System::Longint 
  2821.     renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void *vObj);
  2822. extern "C" System::Longint __stdcall OleCreateLinkFromData(IDataObject *srcDataObj, const TGUID &iid
  2823.     , System::Longint renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void 
  2824.     *vObj);
  2825. extern "C" System::Longint __stdcall OleCreateStaticFromData(IDataObject *srcDataObj, const TGUID &iid
  2826.     , System::Longint renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void 
  2827.     *vObj);
  2828. extern "C" System::Longint __stdcall OleCreateLink(IMoniker *mkLinkSrc, const TGUID &iid, System::Longint 
  2829.     renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void *vObj);
  2830. extern "C" System::Longint __stdcall OleCreateLinkToFile(System::PWideChar pszFileName, const TGUID 
  2831.     &iid, System::Longint renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *stg, void 
  2832.     *vObj);
  2833. extern "C" System::Longint __stdcall OleCreateFromFile(const TGUID &clsid, System::PWideChar pszFileName
  2834.     , const TGUID &iid, System::Longint renderopt, PFormatEtc formatEtc, IOleClientSite *clientSite, IStorage *
  2835.     stg, void *vObj);
  2836. extern "C" System::Longint __stdcall OleLoad(IStorage *stg, const TGUID &iid, IOleClientSite *clientSite
  2837.     , void *vObj);
  2838. extern "C" System::Longint __stdcall OleSave(IPersistStorage *ps, IStorage *stg, System::LongBool fSameAsLoad
  2839.     );
  2840. extern "C" System::Longint __stdcall OleLoadFromStream(IStream *stm, const TGUID &iidInterface, void 
  2841.     *vObj);
  2842. extern "C" System::Longint __stdcall OleSaveToStream(IPersistStream *pstm, IStream *stm);
  2843. extern "C" System::Longint __stdcall OleSetContainedObject(IUnknown *unknown, System::LongBool fContained
  2844.     );
  2845. extern "C" System::Longint __stdcall OleNoteObjectVisible(IUnknown *unknown, System::LongBool fVisible
  2846.     );
  2847. extern "C" System::Longint __stdcall RegisterDragDrop(System::Integer wnd, IDropTarget *dropTarget);
  2848.     
  2849. extern "C" System::Longint __stdcall RevokeDragDrop(System::Integer wnd);
  2850. extern "C" System::Longint __stdcall DoDragDrop(IDataObject *dataObj, IDropSource *dropSource, System::Longint 
  2851.     dwOKEffects, System::Longint &dwEffect);
  2852. extern "C" System::Longint __stdcall OleSetClipboard(IDataObject *dataObj);
  2853. extern "C" System::Longint __stdcall OleGetClipboard(IDataObject *&dataObj);
  2854. extern "C" System::Longint __stdcall OleFlushClipboard(void);
  2855. extern "C" System::Longint __stdcall OleIsCurrentClipboard(IDataObject *dataObj);
  2856. extern "C" System::Integer __stdcall OleCreateMenuDescriptor(System::Integer hmenuCombined, TOleMenuGroupWidths 
  2857.     &menuWidths);
  2858. extern "C" System::Longint __stdcall OleSetMenuDescriptor(System::Integer holemenu, System::Integer 
  2859.     hwndFrame, System::Integer hwndActiveObject, IOleInPlaceFrame *frame, IOleInPlaceActiveObject *activeObj
  2860.     );
  2861. extern "C" System::Longint __stdcall OleDestroyMenuDescriptor(System::Integer holemenu);
  2862. extern "C" System::Longint __stdcall OleTranslateAccelerator(IOleInPlaceFrame *frame, TOleInPlaceFrameInfo 
  2863.     &frameInfo, Windows::PMsg msg);
  2864. extern "C" System::Integer __stdcall OleDuplicateData(System::Integer hSrc, System::Word cfFormat, System::Integer 
  2865.     uiFlags);
  2866. extern "C" System::Longint __stdcall OleDraw(IUnknown *unknown, System::Longint dwAspect, System::Integer 
  2867.     hdcDraw, const Windows::TRect &rcBounds);
  2868. extern "C" System::Longint __stdcall OleRun(IUnknown *unknown);
  2869. extern "C" System::LongBool __stdcall OleIsRunning(IOleObject *obj);
  2870. extern "C" System::Longint __stdcall OleLockRunning(IUnknown *unknown, System::LongBool fLock, System::LongBool 
  2871.     fLastUnlockCloses);
  2872. extern "C" void __stdcall ReleaseStgMedium(TStgMedium &medium);
  2873. extern "C" System::Longint __stdcall CreateOleAdviseHolder(IOleAdviseHolder *&OAHolder);
  2874. extern "C" System::Longint __stdcall OleCreateDefaultHandler(const TGUID &clsid, IUnknown *unkOuter, 
  2875.     const TGUID &iid, void *vObj);
  2876. extern "C" System::Longint __stdcall OleCreateEmbeddingHelper(const TGUID &clsid, IUnknown *unkOuter
  2877.     , System::Longint flags, IClassFactory *cf, const TGUID &iid, void *vObj);
  2878. extern "C" System::LongBool __stdcall IsAccelerator(System::Integer accel, System::Integer cAccelEntries
  2879.     , Windows::PMsg msg, System::Word &pwCmd);
  2880. extern "C" System::Integer __stdcall OleGetIconOfFile(System::PWideChar pszPath, System::LongBool fUseFileAsLabel
  2881.     );
  2882. extern "C" System::Integer __stdcall OleGetIconOfClass(const TGUID &clsid, System::PWideChar pszLabel
  2883.     , System::LongBool fUseTypeAsLabel);
  2884. extern "C" System::Integer __stdcall OleMetafilePictFromIconAndLabel(System::Integer icon, System::PWideChar 
  2885.     pszLabel, System::PWideChar pszSourceFile, System::Integer iIconIndex);
  2886. extern "C" System::Longint __stdcall OleRegGetUserType(const TGUID &clsid, System::Longint dwFormOfType
  2887.     , System::PWideChar &pszUserType);
  2888. extern "C" System::Longint __stdcall OleRegGetMiscStatus(const TGUID &clsid, System::Longint dwAspect
  2889.     , System::Longint &dwStatus);
  2890. extern "C" System::Longint __stdcall OleRegEnumFormatEtc(const TGUID &clsid, System::Longint dwDirection
  2891.     , IEnumFormatEtc *&Enum);
  2892. extern "C" System::Longint __stdcall OleRegEnumVerbs(const TGUID &clsid, IEnumOleVerb *&Enum);
  2893. extern "C" System::Longint __stdcall OleConvertIStorageToOLESTREAM(IStorage *stg, System::Pointer polestm
  2894.     );
  2895. extern "C" System::Longint __stdcall OleConvertOLESTREAMToIStorage(System::Pointer polestm, IStorage *
  2896.     stg, PDVTargetDevice td);
  2897. extern "C" System::Longint __stdcall OleConvertIStorageToOLESTREAMEx(IStorage *stg, System::Word cfFormat
  2898.     , System::Longint lWidth, System::Longint lHeight, System::Longint dwSize, TStgMedium &medium, System::Pointer 
  2899.     polestm);
  2900. extern "C" System::Longint __stdcall OleConvertOLESTREAMToIStorageEx(System::Pointer polestm, IStorage *
  2901.     stg, System::Word &cfFormat, System::Longint &lWidth, System::Longint &lHeight, System::Longint &dwSize
  2902.     , TStgMedium &medium);
  2903. extern "C" System::Longint __stdcall GetHGlobalFromILockBytes(ILockBytes *lkbyt, System::Integer &hglob
  2904.     );
  2905. extern "C" System::Longint __stdcall CreateILockBytesOnHGlobal(System::Integer hglob, System::LongBool 
  2906.     fDeleteOnRelease, ILockBytes *&lkbyt);
  2907. extern "C" System::Longint __stdcall GetHGlobalFromStream(IStream *stm, System::Integer &hglob);
  2908. extern "C" System::Longint __stdcall CreateStreamOnHGlobal(System::Integer hglob, System::LongBool fDeleteOnRelease
  2909.     , IStream *&stm);
  2910. extern "C" System::Longint __stdcall OleDoAutoConvert(IStorage *stg, TGUID &clsidNew);
  2911. extern "C" System::Longint __stdcall OleGetAutoConvert(const TGUID &clsidOld, TGUID &clsidNew);
  2912. extern "C" System::Longint __stdcall OleSetAutoConvert(const TGUID &clsidOld, const TGUID &clsidNew)
  2913.     ;
  2914. extern "C" System::Longint __stdcall GetConvertStg(IStorage *stg);
  2915. extern "C" System::Longint __stdcall SetConvertStg(IStorage *stg, System::LongBool fConvert);
  2916. extern "C" System::PWideChar __stdcall SysAllocString(System::PWideChar psz);
  2917. extern "C" System::Integer __stdcall SysReAllocString(System::PWideChar &bstr, System::PWideChar psz
  2918.     );
  2919. extern "C" System::PWideChar __stdcall SysAllocStringLen(System::PWideChar psz, System::Integer len)
  2920.     ;
  2921. extern "C" System::Integer __stdcall SysReAllocStringLen(System::PWideChar &bstr, System::PWideChar 
  2922.     psz, System::Integer len);
  2923. extern "C" void __stdcall SysFreeString(System::PWideChar bstr);
  2924. extern "C" System::Integer __stdcall SysStringLen(System::PWideChar bstr);
  2925. extern "C" System::Integer __stdcall SysStringByteLen(System::PWideChar bstr);
  2926. extern "C" System::PWideChar __stdcall SysAllocStringByteLen(System::PChar psz, System::Integer len)
  2927.     ;
  2928. extern "C" System::Integer __stdcall DosDateTimeToVariantTime(System::Word wDosDate, System::Word wDosTime
  2929.     , System::Double &vtime);
  2930. extern "C" System::Integer __stdcall VariantTimeToDosDateTime(System::Double vtime, System::Word &wDosDate
  2931.     , System::Word &wDosTime);
  2932. extern "C" System::Longint __stdcall SafeArrayAllocDescriptor(System::Integer cDims, PSafeArray &psaOut
  2933.     );
  2934. extern "C" System::Longint __stdcall SafeArrayAllocData(PSafeArray psa);
  2935. extern "C" PSafeArray __stdcall SafeArrayCreate(System::Word vt, System::Integer cDims, const void *
  2936.     rgsabound);
  2937. extern "C" System::Longint __stdcall SafeArrayDestroyDescriptor(PSafeArray psa);
  2938. extern "C" System::Longint __stdcall SafeArrayDestroyData(PSafeArray psa);
  2939. extern "C" System::Longint __stdcall SafeArrayDestroy(PSafeArray psa);
  2940. extern "C" System::Longint __stdcall SafeArrayRedim(PSafeArray psa, TSafeArrayBound &saboundNew);
  2941. extern "C" System::Integer __stdcall SafeArrayGetDim(PSafeArray psa);
  2942. extern "C" System::Integer __stdcall SafeArrayGetElemsize(PSafeArray psa);
  2943. extern "C" System::Longint __stdcall SafeArrayGetUBound(PSafeArray psa, System::Integer nDim, System::Longint 
  2944.     &lUbound);
  2945. extern "C" System::Longint __stdcall SafeArrayGetLBound(PSafeArray psa, System::Integer nDim, System::Longint 
  2946.     &lLbound);
  2947. extern "C" System::Longint __stdcall SafeArrayLock(PSafeArray psa);
  2948. extern "C" System::Longint __stdcall SafeArrayUnlock(PSafeArray psa);
  2949. extern "C" System::Longint __stdcall SafeArrayAccessData(PSafeArray psa, System::Pointer &pvData);
  2950. extern "C" System::Longint __stdcall SafeArrayUnaccessData(PSafeArray psa);
  2951. extern "C" System::Longint __stdcall SafeArrayGetElement(PSafeArray psa, const void *rgIndices, void 
  2952.     *pv);
  2953. extern "C" System::Longint __stdcall SafeArrayPutElement(PSafeArray psa, const void *rgIndices, const 
  2954.     void *pv);
  2955. extern "C" System::Longint __stdcall SafeArrayCopy(PSafeArray psa, PSafeArray &psaOut);
  2956. extern "C" System::Longint __stdcall SafeArrayPtrOfIndex(PSafeArray psa, void *rgIndices, System::Pointer 
  2957.     &pvData);
  2958. extern "C" void __stdcall VariantInit(System::Variant &varg);
  2959. extern "C" System::Longint __stdcall VariantClear(System::Variant &varg);
  2960. extern "C" System::Longint __stdcall VariantCopy(System::Variant &vargDest, const System::Variant &vargSrc
  2961.     );
  2962. extern "C" System::Longint __stdcall VariantCopyInd(System::Variant &varDest, const System::Variant 
  2963.     &vargSrc);
  2964. extern "C" System::Longint __stdcall VariantChangeType(System::Variant &vargDest, const System::Variant 
  2965.     &vargSrc, System::Word wFlags, System::Word vt);
  2966. extern "C" System::Longint __stdcall VariantChangeTypeEx(System::Variant &vargDest, const System::Variant 
  2967.     &vargSrc, System::Longint lcid, System::Word wFlags, System::Word vt);
  2968. extern "C" System::Longint __stdcall VarUI1FromI2(System::Smallint sIn, System::Byte &bOut);
  2969. extern "C" System::Longint __stdcall VarUI1FromI4(System::Longint lIn, System::Byte &bOut);
  2970. extern "C" System::Longint __stdcall VarUI1FromR4(System::Single fltIn, System::Byte &bOut);
  2971. extern "C" System::Longint __stdcall VarUI1FromR8(System::Double dblIn, System::Byte &bOut);
  2972. extern "C" System::Longint __stdcall VarUI1FromCy(System::Comp cyIn, System::Byte &bOut);
  2973. extern "C" System::Longint __stdcall VarUI1FromDate(System::Double dateIn, System::Byte &bOut);
  2974. extern "C" System::Longint __stdcall VarUI1FromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  2975.     dwFlags, System::Byte &bOut);
  2976. extern "C" System::Longint __stdcall VarUI1FromDisp(IDispatch *dispIn, System::Longint lcid, System::Byte 
  2977.     &bOut);
  2978. extern "C" System::Longint __stdcall VarUI1FromBool(System::WordBool boolIn, System::Byte &bOut);
  2979. extern "C" System::Longint __stdcall VarI2FromUI1(System::Byte bIn, System::Smallint &sOut);
  2980. extern "C" System::Longint __stdcall VarI2FromI4(System::Longint lIn, System::Smallint &sOut);
  2981. extern "C" System::Longint __stdcall VarI2FromR4(System::Single fltIn, System::Smallint &sOut);
  2982. extern "C" System::Longint __stdcall VarI2FromR8(System::Double dblIn, System::Smallint &sOut);
  2983. extern "C" System::Longint __stdcall VarI2FromCy(System::Comp cyIn, System::Smallint &sOut);
  2984. extern "C" System::Longint __stdcall VarI2FromDate(System::Double dateIn, System::Smallint &sOut);
  2985. extern "C" System::Longint __stdcall VarI2FromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  2986.     dwFlags, System::Smallint &sOut);
  2987. extern "C" System::Longint __stdcall VarI2FromDisp(IDispatch *dispIn, System::Longint lcid, System::Smallint 
  2988.     &sOut);
  2989. extern "C" System::Longint __stdcall VarI2FromBool(System::WordBool boolIn, System::Smallint &sOut);
  2990.     
  2991. extern "C" System::Longint __stdcall VarI4FromUI1(System::Byte bIn, System::Longint &lOut);
  2992. extern "C" System::Longint __stdcall VarI4FromI2(System::Smallint sIn, System::Longint &lOut);
  2993. extern "C" System::Longint __stdcall VarI4FromR4(System::Single fltIn, System::Longint &lOut);
  2994. extern "C" System::Longint __stdcall VarI4FromR8(System::Double dblIn, System::Longint &lOut);
  2995. extern "C" System::Longint __stdcall VarI4FromCy(System::Comp cyIn, System::Longint &lOut);
  2996. extern "C" System::Longint __stdcall VarI4FromDate(System::Double dateIn, System::Longint &lOut);
  2997. extern "C" System::Longint __stdcall VarI4FromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  2998.     dwFlags, System::Longint &lOut);
  2999. extern "C" System::Longint __stdcall VarI4FromDisp(IDispatch *dispIn, System::Longint lcid, System::Longint 
  3000.     &lOut);
  3001. extern "C" System::Longint __stdcall VarI4FromBool(System::WordBool boolIn, System::Longint &lOut);
  3002. extern "C" System::Longint __stdcall VarR4FromUI1(System::Byte bIn, System::Single &fltOut);
  3003. extern "C" System::Longint __stdcall VarR4FromI2(System::Smallint sIn, System::Single &fltOut);
  3004. extern "C" System::Longint __stdcall VarR4FromI4(System::Longint lIn, System::Single &fltOut);
  3005. extern "C" System::Longint __stdcall VarR4FromR8(System::Double dblIn, System::Single &fltOut);
  3006. extern "C" System::Longint __stdcall VarR4FromCy(System::Comp cyIn, System::Single &fltOut);
  3007. extern "C" System::Longint __stdcall VarR4FromDate(System::Double dateIn, System::Single &fltOut);
  3008. extern "C" System::Longint __stdcall VarR4FromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  3009.     dwFlags, System::Single &fltOut);
  3010. extern "C" System::Longint __stdcall VarR4FromDisp(IDispatch *dispIn, System::Longint lcid, System::Single 
  3011.     &fltOut);
  3012. extern "C" System::Longint __stdcall VarR4FromBool(System::WordBool boolIn, System::Single &fltOut);
  3013.     
  3014. extern "C" System::Longint __stdcall VarR8FromUI1(System::Byte bIn, System::Double &dblOut);
  3015. extern "C" System::Longint __stdcall VarR8FromI2(System::Smallint sIn, System::Double &dblOut);
  3016. extern "C" System::Longint __stdcall VarR8FromI4(System::Longint lIn, System::Double &dblOut);
  3017. extern "C" System::Longint __stdcall VarR8FromR4(System::Single fltIn, System::Double &dblOut);
  3018. extern "C" System::Longint __stdcall VarR8FromCy(System::Comp cyIn, System::Double &dblOut);
  3019. extern "C" System::Longint __stdcall VarR8FromDate(System::Double dateIn, System::Double &dblOut);
  3020. extern "C" System::Longint __stdcall VarR8FromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  3021.     dwFlags, System::Double &dblOut);
  3022. extern "C" System::Longint __stdcall VarR8FromDisp(IDispatch *dispIn, System::Longint lcid, System::Double 
  3023.     &dblOut);
  3024. extern "C" System::Longint __stdcall VarR8FromBool(System::WordBool boolIn, System::Double &dblOut);
  3025.     
  3026. extern "C" System::Longint __stdcall VarDateFromUI1(System::Byte bIn, System::Double &dateOut);
  3027. extern "C" System::Longint __stdcall VarDateFromI2(System::Smallint sIn, System::Double &dateOut);
  3028. extern "C" System::Longint __stdcall VarDateFromI4(System::Longint lIn, System::Double &dateOut);
  3029. extern "C" System::Longint __stdcall VarDateFromR4(System::Single fltIn, System::Double &dateOut);
  3030. extern "C" System::Longint __stdcall VarDateFromR8(System::Double dblIn, System::Double &dateOut);
  3031. extern "C" System::Longint __stdcall VarDateFromCy(System::Comp cyIn, System::Double &dateOut);
  3032. extern "C" System::Longint __stdcall VarDateFromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  3033.     dwFlags, System::Double &dateOut);
  3034. extern "C" System::Longint __stdcall VarDateFromDisp(IDispatch *dispIn, System::Longint lcid, System::Double 
  3035.     &dateOut);
  3036. extern "C" System::Longint __stdcall VarDateFromBool(System::WordBool boolIn, System::Double &dateOut
  3037.     );
  3038. extern "C" System::Longint __stdcall VarCyFromUI1(System::Byte bIn, System::Comp &cyOut);
  3039. extern "C" System::Longint __stdcall VarCyFromI2(System::Smallint sIn, System::Comp &cyOut);
  3040. extern "C" System::Longint __stdcall VarCyFromI4(System::Longint lIn, System::Comp &cyOut);
  3041. extern "C" System::Longint __stdcall VarCyFromR4(System::Single fltIn, System::Comp &cyOut);
  3042. extern "C" System::Longint __stdcall VarCyFromR8(System::Double dblIn, System::Comp &cyOut);
  3043. extern "C" System::Longint __stdcall VarCyFromDate(System::Double dateIn, System::Comp &cyOut);
  3044. extern "C" System::Longint __stdcall VarCyFromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  3045.     dwFlags, System::Comp &cyOut);
  3046. extern "C" System::Longint __stdcall VarCyFromDisp(IDispatch *dispIn, System::Longint lcid, System::Comp 
  3047.     &cyOut);
  3048. extern "C" System::Longint __stdcall VarCyFromBool(System::WordBool boolIn, System::Comp &cyOut);
  3049. extern "C" System::Longint __stdcall VarBStrFromUI1(System::Byte bVal, System::Longint lcid, System::Longint 
  3050.     dwFlags, System::PWideChar &bstrOut);
  3051. extern "C" System::Longint __stdcall VarBStrFromI2(System::Smallint iVal, System::Longint lcid, System::Longint 
  3052.     dwFlags, System::PWideChar &bstrOut);
  3053. extern "C" System::Longint __stdcall VarBStrFromI4(System::Longint lIn, System::Longint lcid, System::Longint 
  3054.     dwFlags, System::PWideChar &bstrOut);
  3055. extern "C" System::Longint __stdcall VarBStrFromR4(System::Single fltIn, System::Longint lcid, System::Longint 
  3056.     dwFlags, System::PWideChar &bstrOut);
  3057. extern "C" System::Longint __stdcall VarBStrFromR8(System::Double dblIn, System::Longint lcid, System::Longint 
  3058.     dwFlags, System::PWideChar &bstrOut);
  3059. extern "C" System::Longint __stdcall VarBStrFromCy(System::Comp cyIn, System::Longint lcid, System::Longint 
  3060.     dwFlags, System::PWideChar &bstrOut);
  3061. extern "C" System::Longint __stdcall VarBStrFromDate(System::Double dateIn, System::Longint lcid, System::Longint 
  3062.     dwFlags, System::PWideChar &bstrOut);
  3063. extern "C" System::Longint __stdcall VarBStrFromDisp(IDispatch *dispIn, System::Longint lcid, System::Longint 
  3064.     dwFlags, System::PWideChar &bstrOut);
  3065. extern "C" System::Longint __stdcall VarBStrFromBool(System::WordBool boolIn, System::Longint lcid, 
  3066.     System::Longint dwFlags, System::PWideChar &bstrOut);
  3067. extern "C" System::Longint __stdcall VarBoolFromUI1(System::Byte bIn, System::WordBool &boolOut);
  3068. extern "C" System::Longint __stdcall VarBoolFromI2(System::Smallint sIn, System::WordBool &boolOut);
  3069.     
  3070. extern "C" System::Longint __stdcall VarBoolFromI4(System::Longint lIn, System::WordBool &boolOut);
  3071. extern "C" System::Longint __stdcall VarBoolFromR4(System::Single fltIn, System::WordBool &boolOut);
  3072.     
  3073. extern "C" System::Longint __stdcall VarBoolFromR8(System::Double dblIn, System::WordBool &boolOut);
  3074.     
  3075. extern "C" System::Longint __stdcall VarBoolFromDate(System::Double dateIn, System::WordBool &boolOut
  3076.     );
  3077. extern "C" System::Longint __stdcall VarBoolFromCy(System::Comp cyIn, System::WordBool &boolOut);
  3078. extern "C" System::Longint __stdcall VarBoolFromStr(System::PWideChar strIn, System::Longint lcid, System::Longint 
  3079.     dwFlags, System::WordBool &boolOut);
  3080. extern "C" System::Longint __stdcall VarBoolFromDisp(IDispatch *dispIn, System::Longint lcid, System::WordBool 
  3081.     &boolOut);
  3082. extern "C" System::Longint __stdcall LHashValOfNameSys(System::Longint syskind, System::Longint lcid
  3083.     , System::PWideChar szName);
  3084. extern "C" System::Longint __stdcall LHashValOfNameSysA(System::Longint syskind, System::Longint lcid
  3085.     , System::PChar szName);
  3086. extern "C" System::Longint __stdcall LoadTypeLib(System::PWideChar szFile, ITypeLib *&tlib);
  3087. extern "C" System::Longint __stdcall LoadRegTypeLib(const TGUID &guid, System::Word wVerMajor, System::Word 
  3088.     wVerMinor, System::Longint lcid, ITypeLib *&tlib);
  3089. extern "C" System::Longint __stdcall QueryPathOfRegTypeLib(const TGUID &guid, System::Word wMaj, System::Word 
  3090.     wMin, System::Longint lcid, System::PWideChar &bstrPathName);
  3091. extern "C" System::Longint __stdcall RegisterTypeLib(ITypeLib *tlib, System::PWideChar szFullPath, System::PWideChar 
  3092.     szHelpDir);
  3093. extern "C" System::Longint __stdcall CreateTypeLib(System::Longint syskind, System::PWideChar szFile
  3094.     , ICreateTypeLib *&ctlib);
  3095. extern "C" System::Longint __stdcall DispGetParam(TDispParams &dispparams, System::Integer position, 
  3096.     System::Word vtTarg, System::Variant &varResult, System::Integer &puArgErr);
  3097. extern "C" System::Longint __stdcall DispGetIDsOfNames(ITypeInfo *tinfo, void *rgszNames, System::Integer 
  3098.     cNames, void *rgdispid);
  3099. extern "C" System::Longint __stdcall DispInvoke(System::Pointer This, ITypeInfo *tinfo, System::Longint 
  3100.     dispidMember, System::Word wFlags, TDispParams ¶ms, System::Variant &varResult, TExcepInfo &excepinfo
  3101.     , System::Integer &puArgErr);
  3102. extern "C" System::Longint __stdcall CreateDispTypeInfo(TInterfaceData &idata, System::Longint lcid, 
  3103.     ITypeInfo *&tinfo);
  3104. extern "C" System::Longint __stdcall CreateStdDispatch(IUnknown *unkOuter, System::Pointer pvThis, ITypeInfo *
  3105.     tinfo, IUnknown *&unkStdDisp);
  3106. extern "C" System::Longint __stdcall RegisterActiveObject(IUnknown *unk, const TGUID &clsid, System::Longint 
  3107.     dwFlags, System::Longint &dwRegister);
  3108. extern "C" System::Longint __stdcall RevokeActiveObject(System::Longint dwRegister, System::Pointer 
  3109.     pvReserved);
  3110. extern "C" System::Longint __stdcall GetActiveObject(const TGUID &clsid, System::Pointer pvReserved, 
  3111.     IUnknown *&unk);
  3112. extern "C" System::Longint __stdcall SetErrorInfo(System::Longint dwReserved, IErrorInfo *errinfo);
  3113. extern "C" System::Longint __stdcall GetErrorInfo(System::Longint dwReserved, IErrorInfo *&errinfo);
  3114.     
  3115. extern "C" System::Longint __stdcall CreateErrorInfo(ICreateErrorInfo *&errinfo);
  3116. extern "C" System::Longint __stdcall OaBuildVersion(void);
  3117. extern System::Boolean __fastcall Succeeded(System::Longint Res);
  3118. extern System::Boolean __fastcall Failed(System::Longint Res);
  3119. extern System::Integer __fastcall ResultCode(System::Longint Res);
  3120. extern System::Integer __fastcall ResultFacility(System::Longint Res);
  3121. extern System::Integer __fastcall ResultSeverity(System::Longint Res);
  3122. extern System::Longint __fastcall MakeResult(System::Integer Severity, System::Integer Facility, System::Integer 
  3123.     Code);
  3124. extern System::Longint __fastcall LHashValOfName(System::Longint lcid, System::PWideChar szName);
  3125. extern System::Word __fastcall WHashValOfLHashVal(System::Longint lhashval);
  3126. extern System::Boolean __fastcall IsHashValCompatible(System::Longint lhashval1, System::Longint lhashval2
  3127.     );
  3128. inline System::Boolean __stdcall IsEqualCLSID(const TGUID &clsid1, const TGUID &clsid2)
  3129. {
  3130.     return IsEqualCLSID(clsid1, clsid2);
  3131. }
  3132.  
  3133. inline System::Boolean __stdcall IsEqualIID(const TGUID &iid1, const TGUID &iid2)
  3134. {
  3135.     return IsEqualIID(iid1, iid2);
  3136. }
  3137.  
  3138.  
  3139. }    /* namespace Ole2 */
  3140. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  3141. using namespace Ole2;
  3142. #endif
  3143. //-- end unit ----------------------------------------------------------------
  3144. #endif    // OLE2
  3145.