开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
mmole2.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：189k
源码类别：

Delphi控件源码

开发平台：

Delphi

mmole2.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       OLE 2 Interface Unit                            }
  6. {                                                       }
  7. {       Copyright (c) 1996,98 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  11. unit MMOLE2;
  13. {$I COMPILER.INC}
  15. interface
  17. // For CBuilder v1.0 backward compatiblity, OLE2.HPP must include ole2.h
  18. {$IFDEF BCB} {$HPPEMIT '#include <ole2.h>'} {$ENDIF}
  20. uses Windows;
  22. const
  23.   {$IFDEF BCB} {$EXTERNALSYM MEMCTX_TASK} {$ENDIF}
  24.   MEMCTX_TASK    = 1;
  25.   {$IFDEF BCB} {$EXTERNALSYM MEMCTX_SHARED} {$ENDIF}
  26.   MEMCTX_SHARED    = 2;
  27.   {$IFDEF BCB} {$EXTERNALSYM MEMCTX_MACSYSTEM} {$ENDIF}
  28.   MEMCTX_MACSYSTEM = 3;
  29.   {$IFDEF BCB} {$EXTERNALSYM MEMCTX_UNKNOWN} {$ENDIF}
  30.   MEMCTX_UNKNOWN   = -1;
  31.   {$IFDEF BCB} {$EXTERNALSYM MEMCTX_SAME} {$ENDIF}
  32.   MEMCTX_SAME    = -2;
  34.   {$IFDEF BCB} {$EXTERNALSYM ROTFLAGS_REGISTRATIONKEEPSALIVE} {$ENDIF}
  35.   ROTFLAGS_REGISTRATIONKEEPSALIVE = 1;
  37.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_SERVER} {$ENDIF}
  38.   CLSCTX_INPROC_SERVER   = 1;
  39.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_HANDLER} {$ENDIF}
  40.   CLSCTX_INPROC_HANDLER  = 2;
  41.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_LOCAL_SERVER} {$ENDIF}
  42.   CLSCTX_LOCAL_SERVER  = 4;
  43.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_SERVER16} {$ENDIF}
  44.   CLSCTX_INPROC_SERVER16 = 8;
  46.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_ALL} {$ENDIF}
  47.   CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or
  48.                   CLSCTX_LOCAL_SERVER;
  49.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC} {$ENDIF}
  50.   CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER;
  51.   {$IFDEF BCB} {$EXTERNALSYM CLSCTX_SERVER} {$ENDIF}
  52.   CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER;
  54.   {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_NORMAL} {$ENDIF}
  55.   MSHLFLAGS_NORMAL  = 0;
  56.   {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_TABLESTRONG} {$ENDIF}
  57.   MSHLFLAGS_TABLESTRONG = 1;
  58.   {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_TABLEWEAK} {$ENDIF}
  59.   MSHLFLAGS_TABLEWEAK = 2;
  61.   {$IFDEF BCB} {$EXTERNALSYM MSHCTX_LOCAL} {$ENDIF}
  62.   MSHCTX_LOCAL            = 0;
  63.   {$IFDEF BCB} {$EXTERNALSYM MSHCTX_NOSHAREDMEM} {$ENDIF}
  64.   MSHCTX_NOSHAREDMEM    = 1;
  65.   {$IFDEF BCB} {$EXTERNALSYM MSHCTX_DIFFERENTMACHINE} {$ENDIF}
  66.   MSHCTX_DIFFERENTMACHINE = 2;
  67.   {$IFDEF BCB} {$EXTERNALSYM MSHCTX_INPROC} {$ENDIF}
  68.   MSHCTX_INPROC           = 3;
  70.   {$IFDEF BCB} {$EXTERNALSYM DVASPECT_CONTENT} {$ENDIF}
  71.   DVASPECT_CONTENT   = 1;
  72.   {$IFDEF BCB} {$EXTERNALSYM DVASPECT_THUMBNAIL} {$ENDIF}
  73.   DVASPECT_THUMBNAIL = 2;
  74.   {$IFDEF BCB} {$EXTERNALSYM DVASPECT_ICON} {$ENDIF}
  75.   DVASPECT_ICON      = 4;
  76.   {$IFDEF BCB} {$EXTERNALSYM DVASPECT_DOCPRINT} {$ENDIF}
  77.   DVASPECT_DOCPRINT  = 8;
  79.   {$IFDEF BCB} {$EXTERNALSYM STGC_DEFAULT} {$ENDIF}
  80.   STGC_DEFAULT                            = 0;
  81.   {$IFDEF BCB} {$EXTERNALSYM STGC_OVERWRITE} {$ENDIF}
  82.   STGC_OVERWRITE                    = 1;
  83.   {$IFDEF BCB} {$EXTERNALSYM STGC_ONLYIFCURRENT} {$ENDIF}
  84.   STGC_ONLYIFCURRENT                    = 2;
  85.   {$IFDEF BCB} {$EXTERNALSYM STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE} {$ENDIF}
  86.   STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;
  88.   {$IFDEF BCB} {$EXTERNALSYM STGMOVE_MOVE} {$ENDIF}
  89.   STGMOVE_MOVE = 0;
  90.   {$IFDEF BCB} {$EXTERNALSYM STGMOVE_COPY} {$ENDIF}
  91.   STGMOVE_COPY = 1;
  93.   {$IFDEF BCB} {$EXTERNALSYM STATFLAG_DEFAULT} {$ENDIF}
  94.   STATFLAG_DEFAULT = 0;
  95.   {$IFDEF BCB} {$EXTERNALSYM STATFLAG_NONAME} {$ENDIF}
  96.   STATFLAG_NONAME  = 1;
  98.   {$IFDEF BCB} {$EXTERNALSYM BIND_MAYBOTHERUSER} {$ENDIF}
  99.   BIND_MAYBOTHERUSER   = 1;
  100.   {$IFDEF BCB} {$EXTERNALSYM BIND_JUSTTESTEXISTENCE} {$ENDIF}
  101.   BIND_JUSTTESTEXISTENCE = 2;
  103.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_NONE} {$ENDIF}
  104.   MKSYS_NONE           = 0;
  105.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_GENERICCOMPOSITE} {$ENDIF}
  106.   MKSYS_GENERICCOMPOSITE = 1;
  107.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_FILEMONIKER} {$ENDIF}
  108.   MKSYS_FILEMONIKER  = 2;
  109.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_ANTIMONIKER} {$ENDIF}
  110.   MKSYS_ANTIMONIKER  = 3;
  111.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_ITEMMONIKER} {$ENDIF}
  112.   MKSYS_ITEMMONIKER  = 4;
  113.   {$IFDEF BCB} {$EXTERNALSYM MKSYS_POINTERMONIKER} {$ENDIF}
  114.   MKSYS_POINTERMONIKER   = 5;
  116.   {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_ONE} {$ENDIF}
  117.   MKRREDUCE_ONE         = 3 shl 16;
  118.   {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_TOUSER} {$ENDIF}
  119.   MKRREDUCE_TOUSER  = 2 shl 16;
  120.   {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_THROUGHUSER} {$ENDIF}
  121.   MKRREDUCE_THROUGHUSER = 1 shl 16;
  122.   {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_ALL} {$ENDIF}
  123.   MKRREDUCE_ALL         = 0;
  125.   {$IFDEF BCB} {$EXTERNALSYM STGTY_STORAGE} {$ENDIF}
  126.   STGTY_STORAGE   = 1;
  127.   {$IFDEF BCB} {$EXTERNALSYM STGTY_STREAM} {$ENDIF}
  128.   STGTY_STREAM    = 2;
  129.   {$IFDEF BCB} {$EXTERNALSYM STGTY_LOCKBYTES} {$ENDIF}
  130.   STGTY_LOCKBYTES = 3;
  131.   {$IFDEF BCB} {$EXTERNALSYM STGTY_PROPERTY} {$ENDIF}
  132.   STGTY_PROPERTY  = 4;
  134.   {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_SET} {$ENDIF}
  135.   STREAM_SEEK_SET = 0;
  136.   {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_CUR} {$ENDIF}
  137.   STREAM_SEEK_CUR = 1;
  138.   {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_END} {$ENDIF}
  139.   STREAM_SEEK_END = 2;
  141.   {$IFDEF BCB} {$EXTERNALSYM LOCK_WRITE} {$ENDIF}
  142.   LOCK_WRITE   = 1;
  143.   {$IFDEF BCB} {$EXTERNALSYM LOCK_EXCLUSIVE} {$ENDIF}
  144.   LOCK_EXCLUSIVE = 2;
  145.   {$IFDEF BCB} {$EXTERNALSYM LOCK_ONLYONCE} {$ENDIF}
  146.   LOCK_ONLYONCE  = 4;
  148.   {$IFDEF BCB} {$EXTERNALSYM ADVF_NODATA} {$ENDIF}
  149.   ADVF_NODATA          = 1;
  150.   {$IFDEF BCB} {$EXTERNALSYM ADVF_PRIMEFIRST} {$ENDIF}
  151.   ADVF_PRIMEFIRST  = 2;
  152.   {$IFDEF BCB} {$EXTERNALSYM ADVF_ONLYONCE} {$ENDIF}
  153.   ADVF_ONLYONCE          = 4;
  154.   {$IFDEF BCB} {$EXTERNALSYM ADVF_DATAONSTOP} {$ENDIF}
  155.   ADVF_DATAONSTOP  = 64;
  156.   {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_NOHANDLER} {$ENDIF}
  157.   ADVFCACHE_NOHANDLER  = 8;
  158.   {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_FORCEBUILTIN} {$ENDIF}
  159.   ADVFCACHE_FORCEBUILTIN = 16;
  160.   {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_ONSAVE} {$ENDIF}
  161.   ADVFCACHE_ONSAVE   = 32;
  163.   {$IFDEF BCB} {$EXTERNALSYM TYMED_HGLOBAL} {$ENDIF}
  164.   TYMED_HGLOBAL  = 1;
  165.   {$IFDEF BCB} {$EXTERNALSYM TYMED_FILE} {$ENDIF}
  166.   TYMED_FILE     = 2;
  167.   {$IFDEF BCB} {$EXTERNALSYM TYMED_ISTREAM} {$ENDIF}
  168.   TYMED_ISTREAM  = 4;
  169.   {$IFDEF BCB} {$EXTERNALSYM TYMED_ISTORAGE} {$ENDIF}
  170.   TYMED_ISTORAGE = 8;
  171.   {$IFDEF BCB} {$EXTERNALSYM TYMED_GDI} {$ENDIF}
  172.   TYMED_GDI  = 16;
  173.   {$IFDEF BCB} {$EXTERNALSYM TYMED_MFPICT} {$ENDIF}
  174.   TYMED_MFPICT   = 32;
  175.   {$IFDEF BCB} {$EXTERNALSYM TYMED_ENHMF} {$ENDIF}
  176.   TYMED_ENHMF  = 64;
  177.   {$IFDEF BCB} {$EXTERNALSYM TYMED_NULL} {$ENDIF}
  178.   TYMED_NULL   = 0;
  180.   {$IFDEF BCB} {$EXTERNALSYM DATADIR_GET} {$ENDIF}
  181.   DATADIR_GET = 1;
  182.   {$IFDEF BCB} {$EXTERNALSYM DATADIR_SET} {$ENDIF}
  183.   DATADIR_SET = 2;
  185.   {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_TOPLEVEL} {$ENDIF}
  186.   CALLTYPE_TOPLEVEL         = 1;
  187.   {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_NESTED} {$ENDIF}
  188.   CALLTYPE_NESTED         = 2;
  189.   {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_ASYNC} {$ENDIF}
  190.   CALLTYPE_ASYNC          = 3;
  191.   {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_TOPLEVEL_CALLPENDING} {$ENDIF}
  192.   CALLTYPE_TOPLEVEL_CALLPENDING = 4;
  193.   {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_ASYNC_CALLPENDING} {$ENDIF}
  194.   CALLTYPE_ASYNC_CALLPENDING  = 5;
  196.   {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_ISHANDLED} {$ENDIF}
  197.   SERVERCALL_ISHANDLED  = 0;
  198.   {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_REJECTED} {$ENDIF}
  199.   SERVERCALL_REJECTED = 1;
  200.   {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_RETRYLATER} {$ENDIF}
  201.   SERVERCALL_RETRYLATER = 2;
  203.   {$IFDEF BCB} {$EXTERNALSYM PENDINGTYPE_TOPLEVEL} {$ENDIF}
  204.   PENDINGTYPE_TOPLEVEL = 1;
  205.   {$IFDEF BCB} {$EXTERNALSYM PENDINGTYPE_NESTED} {$ENDIF}
  206.   PENDINGTYPE_NESTED   = 2;
  208.   {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_CANCELCALL} {$ENDIF}
  209.   PENDINGMSG_CANCELCALL     = 0;
  210.   {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_WAITNOPROCESS} {$ENDIF}
  211.   PENDINGMSG_WAITNOPROCESS  = 1;
  212.   {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_WAITDEFPROCESS} {$ENDIF}
  213.   PENDINGMSG_WAITDEFPROCESS = 2;
  215.   {$IFDEF BCB} {$EXTERNALSYM REGCLS_SINGLEUSE} {$ENDIF}
  216.   REGCLS_SINGLEUSE      = 0;
  217.   {$IFDEF BCB} {$EXTERNALSYM REGCLS_MULTIPLEUSE} {$ENDIF}
  218.   REGCLS_MULTIPLEUSE    = 1;
  219.   {$IFDEF BCB} {$EXTERNALSYM REGCLS_MULTI_SEPARATE} {$ENDIF}
  220.   REGCLS_MULTI_SEPARATE = 2;
  222.   {$IFDEF BCB} {$EXTERNALSYM MARSHALINTERFACE_MIN} {$ENDIF}
  223.   MARSHALINTERFACE_MIN = 500;
  225.   {$IFDEF BCB} {$EXTERNALSYM CWCSTORAGENAME} {$ENDIF}
  226.   CWCSTORAGENAME = 32;
  228.   {$IFDEF BCB} {$EXTERNALSYM STGM_DIRECT} {$ENDIF}
  229.   STGM_DIRECT           = $00000000;
  230.   {$IFDEF BCB} {$EXTERNALSYM STGM_TRANSACTED} {$ENDIF}
  231.   STGM_TRANSACTED       = $00010000;
  232.   {$IFDEF BCB} {$EXTERNALSYM STGM_SIMPLE} {$ENDIF}
  233.   STGM_SIMPLE           = $08000000;
  235.   {$IFDEF BCB} {$EXTERNALSYM STGM_READ} {$ENDIF}
  236.   STGM_READ             = $00000000;
  237.   {$IFDEF BCB} {$EXTERNALSYM STGM_WRITE} {$ENDIF}
  238.   STGM_WRITE            = $00000001;
  239.   {$IFDEF BCB} {$EXTERNALSYM STGM_READWRITE} {$ENDIF}
  240.   STGM_READWRITE        = $00000002;
  242.   {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_NONE} {$ENDIF}
  243.   STGM_SHARE_DENY_NONE  = $00000040;
  244.   {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_READ} {$ENDIF}
  245.   STGM_SHARE_DENY_READ  = $00000030;
  246.   {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_WRITE} {$ENDIF}
  247.   STGM_SHARE_DENY_WRITE = $00000020;
  248.   {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_EXCLUSIVE} {$ENDIF}
  249.   STGM_SHARE_EXCLUSIVE  = $00000010;
  251.   {$IFDEF BCB} {$EXTERNALSYM STGM_PRIORITY} {$ENDIF}
  252.   STGM_PRIORITY         = $00040000;
  253.   {$IFDEF BCB} {$EXTERNALSYM STGM_DELETEONRELEASE} {$ENDIF}
  254.   STGM_DELETEONRELEASE  = $04000000;
  256.   {$IFDEF BCB} {$EXTERNALSYM STGM_CREATE} {$ENDIF}
  257.   STGM_CREATE           = $00001000;
  258.   {$IFDEF BCB} {$EXTERNALSYM STGM_CONVERT} {$ENDIF}
  259.   STGM_CONVERT          = $00020000;
  260.   {$IFDEF BCB} {$EXTERNALSYM STGM_FAILIFTHERE} {$ENDIF}
  261.   STGM_FAILIFTHERE      = $00000000;
  263.   {$IFDEF BCB} {$EXTERNALSYM FADF_AUTO} {$ENDIF}
  264.   FADF_AUTO      = $0001;  { array is allocated on the stack }
  265.   {$IFDEF BCB} {$EXTERNALSYM FADF_STATIC} {$ENDIF}
  266.   FADF_STATIC    = $0002;  { array is staticly allocated }
  267.   {$IFDEF BCB} {$EXTERNALSYM FADF_EMBEDDED} {$ENDIF}
  268.   FADF_EMBEDDED  = $0004;  { array is embedded in a structure }
  269.   {$IFDEF BCB} {$EXTERNALSYM FADF_FIXEDSIZE} {$ENDIF}
  270.   FADF_FIXEDSIZE = $0010;  { array may not be resized or reallocated }
  271.   {$IFDEF BCB} {$EXTERNALSYM FADF_BSTR} {$ENDIF}
  272.   FADF_BSTR      = $0100;  { an array of BSTRs }
  273.   {$IFDEF BCB} {$EXTERNALSYM FADF_UNKNOWN} {$ENDIF}
  274.   FADF_UNKNOWN   = $0200;  { an array of IUnknown }
  275.   {$IFDEF BCB} {$EXTERNALSYM FADF_DISPATCH} {$ENDIF}
  276.   FADF_DISPATCH  = $0400;  { an array of IDispatch }
  277.   {$IFDEF BCB} {$EXTERNALSYM FADF_VARIANT} {$ENDIF}
  278.   FADF_VARIANT   = $0800;  { an array of VARIANTs }
  279.   {$IFDEF BCB} {$EXTERNALSYM FADF_RESERVED} {$ENDIF}
  280.   FADF_RESERVED  = $F0E8;  { bits reserved for future use }
  282. { VARENUM usage key,
  284.     [V] - may appear in a VARIANT
  285.     [T] - may appear in a TYPEDESC
  286.     [P] - may appear in an OLE property set
  287.     [S] - may appear in a Safe Array }
  289.   {$IFDEF BCB} {$EXTERNALSYM VT_EMPTY} {$ENDIF}
  290.   VT_EMPTY           = 0;   { [V]   [P]  nothing                     }
  291.   {$IFDEF BCB} {$EXTERNALSYM VT_NULL} {$ENDIF}
  292.   VT_NULL            = 1;   { [V]        SQL style Null              }
  293.   {$IFDEF BCB} {$EXTERNALSYM VT_I2} {$ENDIF}
  294.   VT_I2              = 2;   { [V][T][P]  2 byte signed int           }
  295.   {$IFDEF BCB} {$EXTERNALSYM VT_I4} {$ENDIF}
  296.   VT_I4              = 3;   { [V][T][P]  4 byte signed int           }
  297.   {$IFDEF BCB} {$EXTERNALSYM VT_R4} {$ENDIF}
  298.   VT_R4              = 4;   { [V][T][P]  4 byte real                 }
  299.   {$IFDEF BCB} {$EXTERNALSYM VT_R8} {$ENDIF}
  300.   VT_R8              = 5;   { [V][T][P]  8 byte real                 }
  301.   {$IFDEF BCB} {$EXTERNALSYM VT_CY} {$ENDIF}
  302.   VT_CY              = 6;   { [V][T][P]  currency                    }
  303.   {$IFDEF BCB} {$EXTERNALSYM VT_DATE} {$ENDIF}
  304.   VT_DATE            = 7;   { [V][T][P]  date                        }
  305.   {$IFDEF BCB} {$EXTERNALSYM VT_BSTR} {$ENDIF}
  306.   VT_BSTR            = 8;   { [V][T][P]  binary string               }
  307.   {$IFDEF BCB} {$EXTERNALSYM VT_DISPATCH} {$ENDIF}
  308.   VT_DISPATCH        = 9;   { [V][T]     IDispatch FAR*              }
  309.   {$IFDEF BCB} {$EXTERNALSYM VT_ERROR} {$ENDIF}
  310.   VT_ERROR           = 10;  { [V][T]     SCODE                       }
  311.   {$IFDEF BCB} {$EXTERNALSYM VT_BOOL} {$ENDIF}
  312.   VT_BOOL            = 11;  { [V][T][P]  True=-1, False=0            }
  313.   {$IFDEF BCB} {$EXTERNALSYM VT_VARIANT} {$ENDIF}
  314.   VT_VARIANT         = 12;  { [V][T][P]  VARIANT FAR*                }
  315.   {$IFDEF BCB} {$EXTERNALSYM VT_UNKNOWN} {$ENDIF}
  316.   VT_UNKNOWN         = 13;  { [V][T]     IUnknown FAR*               }
  318.   {$IFDEF BCB} {$EXTERNALSYM VT_I1} {$ENDIF}
  319.   VT_I1              = 16;  {    [T]     signed char                 }
  320.   {$IFDEF BCB} {$EXTERNALSYM VT_UI1} {$ENDIF}
  321.   VT_UI1             = 17;  {    [T]     unsigned char               }
  322.   {$IFDEF BCB} {$EXTERNALSYM VT_UI2} {$ENDIF}
  323.   VT_UI2             = 18;  {    [T]     unsigned short              }
  324.   {$IFDEF BCB} {$EXTERNALSYM VT_UI4} {$ENDIF}
  325.   VT_UI4             = 19;  {    [T]     unsigned short              }
  326.   {$IFDEF BCB} {$EXTERNALSYM VT_I8} {$ENDIF}
  327.   VT_I8              = 20;  {    [T][P]  signed 64-bit int           }
  328.   {$IFDEF BCB} {$EXTERNALSYM VT_UI8} {$ENDIF}
  329.   VT_UI8             = 21;  {    [T]     unsigned 64-bit int         }
  330.   {$IFDEF BCB} {$EXTERNALSYM VT_INT} {$ENDIF}
  331.   VT_INT             = 22;  {    [T]     signed machine int          }
  332.   {$IFDEF BCB} {$EXTERNALSYM VT_UINT} {$ENDIF}
  333.   VT_UINT            = 23;  {    [T]     unsigned machine int        }
  334.   {$IFDEF BCB} {$EXTERNALSYM VT_VOID} {$ENDIF}
  335.   VT_VOID            = 24;  {    [T]     C style void                }
  336.   {$IFDEF BCB} {$EXTERNALSYM VT_HRESULT} {$ENDIF}
  337.   VT_HRESULT         = 25;  {    [T]                                 }
  338.   {$IFDEF BCB} {$EXTERNALSYM VT_PTR} {$ENDIF}
  339.   VT_PTR             = 26;  {    [T]     pointer type                }
  340.   {$IFDEF BCB} {$EXTERNALSYM VT_SAFEARRAY} {$ENDIF}
  341.   VT_SAFEARRAY       = 27;  {    [T]     (use VT_ARRAY in VARIANT)   }
  342.   {$IFDEF BCB} {$EXTERNALSYM VT_CARRAY} {$ENDIF}
  343.   VT_CARRAY          = 28;  {    [T]     C style array               }
  344.   {$IFDEF BCB} {$EXTERNALSYM VT_USERDEFINED} {$ENDIF}
  345.   VT_USERDEFINED     = 29;  {    [T]     user defined type          }
  346.   {$IFDEF BCB} {$EXTERNALSYM VT_LPSTR} {$ENDIF}
  347.   VT_LPSTR           = 30;  {    [T][P]  null terminated string      }
  348.   {$IFDEF BCB} {$EXTERNALSYM VT_LPWSTR} {$ENDIF}
  349.   VT_LPWSTR          = 31;  {    [T][P]  wide null terminated string }
  351.   {$IFDEF BCB} {$EXTERNALSYM VT_FILETIME} {$ENDIF}
  352.   VT_FILETIME        = 64;  {       [P]  FILETIME                    }
  353.   {$IFDEF BCB} {$EXTERNALSYM VT_BLOB} {$ENDIF}
  354.   VT_BLOB            = 65;  {       [P]  Length prefixed bytes       }
  355.   {$IFDEF BCB} {$EXTERNALSYM VT_STREAM} {$ENDIF}
  356.   VT_STREAM          = 66;  {       [P]  Name of the stream follows  }
  357.   {$IFDEF BCB} {$EXTERNALSYM VT_STORAGE} {$ENDIF}
  358.   VT_STORAGE         = 67;  {       [P]  Name of the storage follows }
  359.   {$IFDEF BCB} {$EXTERNALSYM VT_STREAMED_OBJECT} {$ENDIF}
  360.   VT_STREAMED_OBJECT = 68;  {       [P]  Stream contains an object   }
  361.   {$IFDEF BCB} {$EXTERNALSYM VT_STORED_OBJECT} {$ENDIF}
  362.   VT_STORED_OBJECT   = 69;  {       [P]  Storage contains an object  }
  363.   {$IFDEF BCB} {$EXTERNALSYM VT_BLOB_OBJECT} {$ENDIF}
  364.   VT_BLOB_OBJECT     = 70;  {       [P]  Blob contains an object     }
  365.   {$IFDEF BCB} {$EXTERNALSYM VT_CF} {$ENDIF}
  366.   VT_CF              = 71;  {       [P]  Clipboard format            }
  367.   {$IFDEF BCB} {$EXTERNALSYM VT_CLSID} {$ENDIF}
  368.   VT_CLSID           = 72;  {       [P]  A Class ID                  }
  370.   {$IFDEF BCB} {$EXTERNALSYM VT_VECTOR} {$ENDIF}
  371.   VT_VECTOR       = $1000;  {       [P]  simple counted array        }
  372.   {$IFDEF BCB} {$EXTERNALSYM VT_ARRAY} {$ENDIF}
  373.   VT_ARRAY        = $2000;  { [V]        SAFEARRAY*                  }
  374.   {$IFDEF BCB} {$EXTERNALSYM VT_BYREF} {$ENDIF}
  375.   VT_BYREF        = $4000;  { [V]                                    }
  376.   {$IFDEF BCB} {$EXTERNALSYM VT_RESERVED} {$ENDIF}
  377.   VT_RESERVED     = $8000;
  379.   {$IFDEF BCB} {$EXTERNALSYM TKIND_ENUM} {$ENDIF}
  380.   TKIND_ENUM      = 0;
  381.   {$IFDEF BCB} {$EXTERNALSYM TKIND_RECORD} {$ENDIF}
  382.   TKIND_RECORD    = 1;
  383.   {$IFDEF BCB} {$EXTERNALSYM TKIND_MODULE} {$ENDIF}
  384.   TKIND_MODULE    = 2;
  385.   {$IFDEF BCB} {$EXTERNALSYM TKIND_INTERFACE} {$ENDIF}
  386.   TKIND_INTERFACE = 3;
  387.   {$IFDEF BCB} {$EXTERNALSYM TKIND_DISPATCH} {$ENDIF}
  388.   TKIND_DISPATCH  = 4;
  389.   {$IFDEF BCB} {$EXTERNALSYM TKIND_COCLASS} {$ENDIF}
  390.   TKIND_COCLASS   = 5;
  391.   {$IFDEF BCB} {$EXTERNALSYM TKIND_ALIAS} {$ENDIF}
  392.   TKIND_ALIAS     = 6;
  393.   {$IFDEF BCB} {$EXTERNALSYM TKIND_UNION} {$ENDIF}
  394.   TKIND_UNION     = 7;
  395.   {$IFDEF BCB} {$EXTERNALSYM TKIND_MAX} {$ENDIF}
  396.   TKIND_MAX       = 8;
  398.   {$IFDEF BCB} {$EXTERNALSYM CC_CDECL} {$ENDIF}
  399.   CC_CDECL     = 1;
  400.   {$IFDEF BCB} {$EXTERNALSYM CC_PASCAL} {$ENDIF}
  401.   CC_PASCAL    = 2;
  402.   {$IFDEF BCB} {$EXTERNALSYM CC_MACPASCAL} {$ENDIF}
  403.   CC_MACPASCAL = 3;
  404.   {$IFDEF BCB} {$EXTERNALSYM CC_STDCALL} {$ENDIF}
  405.   CC_STDCALL   = 4;
  406.   {$IFDEF BCB} {$EXTERNALSYM CC_RESERVED} {$ENDIF}
  407.   CC_RESERVED  = 5;
  408.   {$IFDEF BCB} {$EXTERNALSYM CC_SYSCALL} {$ENDIF}
  409.   CC_SYSCALL   = 6;
  410.   {$IFDEF BCB} {$EXTERNALSYM CC_MPWCDECL} {$ENDIF}
  411.   CC_MPWCDECL  = 7;
  412.   {$IFDEF BCB} {$EXTERNALSYM CC_MPWPASCAL} {$ENDIF}
  413.   CC_MPWPASCAL = 8;
  414.   {$IFDEF BCB} {$EXTERNALSYM CC_MAX} {$ENDIF}
  415.   CC_MAX       = 9;
  417.   {$IFDEF BCB} {$EXTERNALSYM FUNC_VIRTUAL} {$ENDIF}
  418.   FUNC_VIRTUAL     = 0;
  419.   {$IFDEF BCB} {$EXTERNALSYM FUNC_PUREVIRTUAL} {$ENDIF}
  420.   FUNC_PUREVIRTUAL = 1;
  421.   {$IFDEF BCB} {$EXTERNALSYM FUNC_NONVIRTUAL} {$ENDIF}
  422.   FUNC_NONVIRTUAL  = 2;
  423.   {$IFDEF BCB} {$EXTERNALSYM FUNC_STATIC} {$ENDIF}
  424.   FUNC_STATIC      = 3;
  425.   {$IFDEF BCB} {$EXTERNALSYM FUNC_DISPATCH} {$ENDIF}
  426.   FUNC_DISPATCH    = 4;
  428.   {$IFDEF BCB} {$EXTERNALSYM INVOKE_FUNC} {$ENDIF}
  429.   INVOKE_FUNC           = 1;
  430.   {$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYGET} {$ENDIF}
  431.   INVOKE_PROPERTYGET    = 2;
  432.   {$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYPUT} {$ENDIF}
  433.   INVOKE_PROPERTYPUT    = 4;
  434.   {$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYPUTREF} {$ENDIF}
  435.   INVOKE_PROPERTYPUTREF = 8;
  437.   {$IFDEF BCB} {$EXTERNALSYM VAR_PERINSTANCE} {$ENDIF}
  438.   VAR_PERINSTANCE = 0;
  439.   {$IFDEF BCB} {$EXTERNALSYM VAR_STATIC} {$ENDIF}
  440.   VAR_STATIC      = 1;
  441.   {$IFDEF BCB} {$EXTERNALSYM VAR_CONST} {$ENDIF}
  442.   VAR_CONST       = 2;
  443.   {$IFDEF BCB} {$EXTERNALSYM VAR_DISPATCH} {$ENDIF}
  444.   VAR_DISPATCH    = 3;
  446.   {$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FDEFAULT} {$ENDIF}
  447.   IMPLTYPEFLAG_FDEFAULT    = 1;
  448.   {$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FSOURCE} {$ENDIF}
  449.   IMPLTYPEFLAG_FSOURCE     = 2;
  450.   {$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FRESTRICTED} {$ENDIF}
  451.   IMPLTYPEFLAG_FRESTRICTED = 4;
  453.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FAPPOBJECT} {$ENDIF}
  454.   TYPEFLAG_FAPPOBJECT   = $0001;
  455.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FCANCREATE} {$ENDIF}
  456.   TYPEFLAG_FCANCREATE   = $0002;
  457.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FLICENSED} {$ENDIF}
  458.   TYPEFLAG_FLICENSED    = $0004;
  459.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FPREDECLID} {$ENDIF}
  460.   TYPEFLAG_FPREDECLID   = $0008;
  461.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FHIDDEN} {$ENDIF}
  462.   TYPEFLAG_FHIDDEN    = $0010;
  463.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FCONTROL} {$ENDIF}
  464.   TYPEFLAG_FCONTROL   = $0020;
  465.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FDUAL} {$ENDIF}
  466.   TYPEFLAG_FDUAL    = $0040;
  467.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FNONEXTENSIBLE} {$ENDIF}
  468.   TYPEFLAG_FNONEXTENSIBLE = $0080;
  469.   {$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FOLEAUTOMATION} {$ENDIF}
  470.   TYPEFLAG_FOLEAUTOMATION = $0100;
  472.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FRESTRICTED} {$ENDIF}
  473.   FUNCFLAG_FRESTRICTED  = $0001;
  474.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FSOURCE} {$ENDIF}
  475.   FUNCFLAG_FSOURCE  = $0002;
  476.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FBINDABLE} {$ENDIF}
  477.   FUNCFLAG_FBINDABLE  = $0004;
  478.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FREQUESTEDIT} {$ENDIF}
  479.   FUNCFLAG_FREQUESTEDIT = $0008;
  480.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FDISPLAYBIND} {$ENDIF}
  481.   FUNCFLAG_FDISPLAYBIND = $0010;
  482.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FDEFAULTBIND} {$ENDIF}
  483.   FUNCFLAG_FDEFAULTBIND = $0020;
  484.   {$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FHIDDEN} {$ENDIF}
  485.   FUNCFLAG_FHIDDEN  = $0040;
  487.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FREADONLY} {$ENDIF}
  488.   VARFLAG_FREADONLY    = $0001;
  489.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FSOURCE} {$ENDIF}
  490.   VARFLAG_FSOURCE      = $0002;
  491.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FBINDABLE} {$ENDIF}
  492.   VARFLAG_FBINDABLE    = $0004;
  493.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FREQUESTEDIT} {$ENDIF}
  494.   VARFLAG_FREQUESTEDIT = $0008;
  495.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FDISPLAYBIND} {$ENDIF}
  496.   VARFLAG_FDISPLAYBIND = $0010;
  497.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FDEFAULTBIND} {$ENDIF}
  498.   VARFLAG_FDEFAULTBIND = $0020;
  499.   {$IFDEF BCB} {$EXTERNALSYM VARFLAG_FHIDDEN} {$ENDIF}
  500.   VARFLAG_FHIDDEN      = $0040;
  502.   {$IFDEF BCB} {$EXTERNALSYM DISPID_VALUE} {$ENDIF}
  503.   DISPID_VALUE       = 0;
  504.   {$IFDEF BCB} {$EXTERNALSYM DISPID_UNKNOWN} {$ENDIF}
  505.   DISPID_UNKNOWN     = -1;
  506.   {$IFDEF BCB} {$EXTERNALSYM DISPID_PROPERTYPUT} {$ENDIF}
  507.   DISPID_PROPERTYPUT = -3;
  508.   {$IFDEF BCB} {$EXTERNALSYM DISPID_NEWENUM} {$ENDIF}
  509.   DISPID_NEWENUM     = -4;
  510.   {$IFDEF BCB} {$EXTERNALSYM DISPID_EVALUATE} {$ENDIF}
  511.   DISPID_EVALUATE    = -5;
  512.   {$IFDEF BCB} {$EXTERNALSYM DISPID_CONSTRUCTOR} {$ENDIF}
  513.   DISPID_CONSTRUCTOR = -6;
  514.   {$IFDEF BCB} {$EXTERNALSYM DISPID_DESTRUCTOR} {$ENDIF}
  515.   DISPID_DESTRUCTOR  = -7;
  516.   {$IFDEF BCB} {$EXTERNALSYM DISPID_COLLECT} {$ENDIF}
  517.   DISPID_COLLECT     = -8;
  519.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_NONE} {$ENDIF}
  520.   DESCKIND_NONE = 0;
  521.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_FUNCDESC} {$ENDIF}
  522.   DESCKIND_FUNCDESC = 1;
  523.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_VARDESC} {$ENDIF}
  524.   DESCKIND_VARDESC = 2;
  525.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_TYPECOMP} {$ENDIF}
  526.   DESCKIND_TYPECOMP = 3;
  527.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_IMPLICITAPPOBJ} {$ENDIF}
  528.   DESCKIND_IMPLICITAPPOBJ = 4;
  529.   {$IFDEF BCB} {$EXTERNALSYM DESCKIND_MAX} {$ENDIF}
  530.   DESCKIND_MAX = 5;
  532.   {$IFDEF BCB} {$EXTERNALSYM SYS_WIN16} {$ENDIF}
  533.   SYS_WIN16 = 0;
  534.   {$IFDEF BCB} {$EXTERNALSYM SYS_WIN32} {$ENDIF}
  535.   SYS_WIN32 = 1;
  536.   {$IFDEF BCB} {$EXTERNALSYM SYS_MAC} {$ENDIF}
  537.   SYS_MAC   = 2;
  539.   {$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FRESTRICTED} {$ENDIF}
  540.   LIBFLAG_FRESTRICTED = 1;
  541.   {$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FCONTROL} {$ENDIF}
  542.   LIBFLAG_FCONTROL    = 2;
  543.   {$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FHIDDEN} {$ENDIF}
  544.   LIBFLAG_FHIDDEN     = 4;
  546.   {$IFDEF BCB} {$EXTERNALSYM STDOLE_MAJORVERNUM} {$ENDIF}
  547.   STDOLE_MAJORVERNUM = 1;
  548.   {$IFDEF BCB} {$EXTERNALSYM STDOLE_MINORVERNUM} {$ENDIF}
  549.   STDOLE_MINORVERNUM = 0;
  551.   {$IFDEF BCB} {$EXTERNALSYM STDOLE_LCID} {$ENDIF}
  552.   STDOLE_LCID = 0;
  554.   {$IFDEF BCB} {$EXTERNALSYM VARIANT_NOVALUEPROP} {$ENDIF}
  555.   VARIANT_NOVALUEPROP = 1;
  557.   {$IFDEF BCB} {$EXTERNALSYM VAR_TIMEVALUEONLY} {$ENDIF}
  558.   VAR_TIMEVALUEONLY = 1;
  559.   {$IFDEF BCB} {$EXTERNALSYM VAR_DATEVALUEONLY} {$ENDIF}
  560.   VAR_DATEVALUEONLY = 2;
  562.   {$IFDEF BCB} {$EXTERNALSYM MEMBERID_NIL} {$ENDIF}
  563.   MEMBERID_NIL = DISPID_UNKNOWN;
  565.   {$IFDEF BCB} {$EXTERNALSYM ID_DEFAULTINST} {$ENDIF}
  566.   ID_DEFAULTINST = -2;
  568.   {$IFDEF BCB} {$EXTERNALSYM IDLFLAG_NONE} {$ENDIF}
  569.   IDLFLAG_NONE    = 0;
  570.   {$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FIN} {$ENDIF}
  571.   IDLFLAG_FIN     = 1;
  572.   {$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FOUT} {$ENDIF}
  573.   IDLFLAG_FOUT    = 2;
  574.   {$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FLCID} {$ENDIF}
  575.   IDLFLAG_FLCID   = 4;
  576.   {$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FRETVAL} {$ENDIF}
  577.   IDLFLAG_FRETVAL = 8;
  579.   {$IFDEF BCB} {$EXTERNALSYM DISPATCH_METHOD} {$ENDIF}
  580.   DISPATCH_METHOD         = 1;
  581.   {$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYGET} {$ENDIF}
  582.   DISPATCH_PROPERTYGET    = 2;
  583.   {$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYPUT} {$ENDIF}
  584.   DISPATCH_PROPERTYPUT    = 4;
  585.   {$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYPUTREF} {$ENDIF}
  586.   DISPATCH_PROPERTYPUTREF = 8;
  588.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_PRIMARY} {$ENDIF}
  589.   OLEIVERB_PRIMARY          = 0;
  590.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_SHOW} {$ENDIF}
  591.   OLEIVERB_SHOW             = -1;
  592.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_OPEN} {$ENDIF}
  593.   OLEIVERB_OPEN             = -2;
  594.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_HIDE} {$ENDIF}
  595.   OLEIVERB_HIDE             = -3;
  596.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_UIACTIVATE} {$ENDIF}
  597.   OLEIVERB_UIACTIVATE       = -4;
  598.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_INPLACEACTIVATE} {$ENDIF}
  599.   OLEIVERB_INPLACEACTIVATE  = -5;
  600.   {$IFDEF BCB} {$EXTERNALSYM OLEIVERB_DISCARDUNDOSTATE} {$ENDIF}
  601.   OLEIVERB_DISCARDUNDOSTATE = -6;
  603.   {$IFDEF BCB} {$EXTERNALSYM EMBDHLP_INPROC_HANDLER} {$ENDIF}
  604.   EMBDHLP_INPROC_HANDLER = $00000000;
  605.   {$IFDEF BCB} {$EXTERNALSYM EMBDHLP_INPROC_SERVER} {$ENDIF}
  606.   EMBDHLP_INPROC_SERVER  = $00000001;
  607.   {$IFDEF BCB} {$EXTERNALSYM EMBDHLP_CREATENOW} {$ENDIF}
  608.   EMBDHLP_CREATENOW      = $00000000;
  609.   {$IFDEF BCB} {$EXTERNALSYM EMBDHLP_DELAYCREATE} {$ENDIF}
  610.   EMBDHLP_DELAYCREATE    = $00010000;
  612.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_NODATACACHE} {$ENDIF}
  613.   UPDFCACHE_NODATACACHE = 1;
  614.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONSAVECACHE} {$ENDIF}
  615.   UPDFCACHE_ONSAVECACHE = 2;
  616.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONSTOPCACHE} {$ENDIF}
  617.   UPDFCACHE_ONSTOPCACHE = 4;
  618.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_NORMALCACHE} {$ENDIF}
  619.   UPDFCACHE_NORMALCACHE = 8;
  620.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_IFBLANK} {$ENDIF}
  621.   UPDFCACHE_IFBLANK     = $10;
  622.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONLYIFBLANK} {$ENDIF}
  623.   UPDFCACHE_ONLYIFBLANK = $80000000;
  625.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_IFBLANKORONSAVECACHE} {$ENDIF}
  626.   UPDFCACHE_IFBLANKORONSAVECACHE = UPDFCACHE_IFBLANK or UPDFCACHE_ONSAVECACHE;
  627.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ALL} {$ENDIF}
  628.   UPDFCACHE_ALL                  = not UPDFCACHE_ONLYIFBLANK;
  629.   {$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ALLBUTNODATACACHE} {$ENDIF}
  630.   UPDFCACHE_ALLBUTNODATACACHE    = UPDFCACHE_ALL and not UPDFCACHE_NODATACACHE;
  632.   {$IFDEF BCB} {$EXTERNALSYM DISCARDCACHE_SAVEIFDIRTY} {$ENDIF}
  633.   DISCARDCACHE_SAVEIFDIRTY = 0;
  634.   {$IFDEF BCB} {$EXTERNALSYM DISCARDCACHE_NOSAVE} {$ENDIF}
  635.   DISCARDCACHE_NOSAVE      = 1;
  637.   {$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_ONLYIFTHERE} {$ENDIF}
  638.   OLEGETMONIKER_ONLYIFTHERE = 1;
  639.   {$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_FORCEASSIGN} {$ENDIF}
  640.   OLEGETMONIKER_FORCEASSIGN = 2;
  641.   {$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_UNASSIGN} {$ENDIF}
  642.   OLEGETMONIKER_UNASSIGN    = 3;
  643.   {$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_TEMPFORUSER} {$ENDIF}
  644.   OLEGETMONIKER_TEMPFORUSER = 4;
  646.   {$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_CONTAINER} {$ENDIF}
  647.   OLEWHICHMK_CONTAINER = 1;
  648.   {$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_OBJREL} {$ENDIF}
  649.   OLEWHICHMK_OBJREL    = 2;
  650.   {$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_OBJFULL} {$ENDIF}
  651.   OLEWHICHMK_OBJFULL   = 3;
  653.   {$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_FULL} {$ENDIF}
  654.   USERCLASSTYPE_FULL    = 1;
  655.   {$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_SHORT} {$ENDIF}
  656.   USERCLASSTYPE_SHORT   = 2;
  657.   {$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_APPNAME} {$ENDIF}
  658.   USERCLASSTYPE_APPNAME = 3;
  660.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_RECOMPOSEONRESIZE} {$ENDIF}
  661.   OLEMISC_RECOMPOSEONRESIZE        = 1;
  662.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_ONLYICONIC} {$ENDIF}
  663.   OLEMISC_ONLYICONIC                 = 2;
  664.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_INSERTNOTREPLACE} {$ENDIF}
  665.   OLEMISC_INSERTNOTREPLACE         = 4;
  666.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_STATIC} {$ENDIF}
  667.   OLEMISC_STATIC                 = 8;
  668.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_CANTLINKINSIDE} {$ENDIF}
  669.   OLEMISC_CANTLINKINSIDE         = 16;
  670.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_CANLINKBYOLE1} {$ENDIF}
  671.   OLEMISC_CANLINKBYOLE1                = 32;
  672.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_ISLINKOBJECT} {$ENDIF}
  673.   OLEMISC_ISLINKOBJECT                 = 64;
  674.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_INSIDEOUT} {$ENDIF}
  675.   OLEMISC_INSIDEOUT                = 128;
  676.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_ACTIVATEWHENVISIBLE} {$ENDIF}
  677.   OLEMISC_ACTIVATEWHENVISIBLE        = 256;
  678.   {$IFDEF BCB} {$EXTERNALSYM OLEMISC_RENDERINGISDEVICEINDEPENDENT} {$ENDIF}
  679.   OLEMISC_RENDERINGISDEVICEINDEPENDENT = 512;
  681.   {$IFDEF BCB} {$EXTERNALSYM OLECLOSE_SAVEIFDIRTY} {$ENDIF}
  682.   OLECLOSE_SAVEIFDIRTY = 0;
  683.   {$IFDEF BCB} {$EXTERNALSYM OLECLOSE_NOSAVE} {$ENDIF}
  684.   OLECLOSE_NOSAVE      = 1;
  685.   {$IFDEF BCB} {$EXTERNALSYM OLECLOSE_PROMPTSAVE} {$ENDIF}
  686.   OLECLOSE_PROMPTSAVE  = 2;
  688.   {$IFDEF BCB} {$EXTERNALSYM OLERENDER_NONE} {$ENDIF}
  689.   OLERENDER_NONE   = 0;
  690.   {$IFDEF BCB} {$EXTERNALSYM OLERENDER_DRAW} {$ENDIF}
  691.   OLERENDER_DRAW   = 1;
  692.   {$IFDEF BCB} {$EXTERNALSYM OLERENDER_FORMAT} {$ENDIF}
  693.   OLERENDER_FORMAT = 2;
  694.   {$IFDEF BCB} {$EXTERNALSYM OLERENDER_ASIS} {$ENDIF}
  695.   OLERENDER_ASIS   = 3;
  697.   {$IFDEF BCB} {$EXTERNALSYM OLEUPDATE_ALWAYS} {$ENDIF}
  698.   OLEUPDATE_ALWAYS = 1;
  699.   {$IFDEF BCB} {$EXTERNALSYM OLEUPDATE_ONCALL} {$ENDIF}
  700.   OLEUPDATE_ONCALL = 3;
  702.   {$IFDEF BCB} {$EXTERNALSYM OLELINKBIND_EVENIFCLASSDIFF} {$ENDIF}
  703.   OLELINKBIND_EVENIFCLASSDIFF = 1;
  705.   {$IFDEF BCB} {$EXTERNALSYM BINDSPEED_INDEFINITE} {$ENDIF}
  706.   BINDSPEED_INDEFINITE = 1;
  707.   {$IFDEF BCB} {$EXTERNALSYM BINDSPEED_MODERATE} {$ENDIF}
  708.   BINDSPEED_MODERATE   = 2;
  709.   {$IFDEF BCB} {$EXTERNALSYM BINDSPEED_IMMEDIATE} {$ENDIF}
  710.   BINDSPEED_IMMEDIATE  = 3;
  712.   {$IFDEF BCB} {$EXTERNALSYM OLECONTF_EMBEDDINGS} {$ENDIF}
  713.   OLECONTF_EMBEDDINGS  = 1;
  714.   {$IFDEF BCB} {$EXTERNALSYM OLECONTF_LINKS} {$ENDIF}
  715.   OLECONTF_LINKS   = 2;
  716.   {$IFDEF BCB} {$EXTERNALSYM OLECONTF_OTHERS} {$ENDIF}
  717.   OLECONTF_OTHERS  = 4;
  718.   {$IFDEF BCB} {$EXTERNALSYM OLECONTF_ONLYUSER} {$ENDIF}
  719.   OLECONTF_ONLYUSER  = 8;
  720.   {$IFDEF BCB} {$EXTERNALSYM OLECONTF_ONLYIFRUNNING} {$ENDIF}
  721.   OLECONTF_ONLYIFRUNNING = 16;
  723.   {$IFDEF BCB} {$EXTERNALSYM DROPEFFECT_NONE} {$ENDIF}
  724.   DROPEFFECT_NONE   = 0;
  725.   {$IFDEF BCB} {$EXTERNALSYM DROPEFFECT_COPY} {$ENDIF}
  726.   DROPEFFECT_COPY   = 1;
  727.   {$IFDEF BCB} {$EXTERNALSYM DROPEFFECT_MOVE} {$ENDIF}
  728.   DROPEFFECT_MOVE   = 2;
  729.   {$IFDEF BCB} {$EXTERNALSYM DROPEFFECT_LINK} {$ENDIF}
  730.   DROPEFFECT_LINK   = 4;
  731.   {$IFDEF BCB} {$EXTERNALSYM DROPEFFECT_SCROLL} {$ENDIF}
  732.   DROPEFFECT_SCROLL = $80000000;
  734.   {$IFDEF BCB} {$EXTERNALSYM DD_DEFSCROLLINSET} {$ENDIF}
  735.   DD_DEFSCROLLINSET    = 11;
  736.   {$IFDEF BCB} {$EXTERNALSYM DD_DEFSCROLLDELAY} {$ENDIF}
  737.   DD_DEFSCROLLDELAY    = 50;
  738.   {$IFDEF BCB} {$EXTERNALSYM DD_DEFSCROLLINTERVAL} {$ENDIF}
  739.   DD_DEFSCROLLINTERVAL = 50;
  740.   {$IFDEF BCB} {$EXTERNALSYM DD_DEFDRAGDELAY} {$ENDIF}
  741.   DD_DEFDRAGDELAY      = 200;
  742.   {$IFDEF BCB} {$EXTERNALSYM DD_DEFDRAGMINDIST} {$ENDIF}
  743.   DD_DEFDRAGMINDIST    = 2;
  745.   {$IFDEF BCB} {$EXTERNALSYM OLEVERBATTRIB_NEVERDIRTIES} {$ENDIF}
  746.   OLEVERBATTRIB_NEVERDIRTIES    = 1;
  747.   {$IFDEF BCB} {$EXTERNALSYM OLEVERBATTRIB_ONCONTAINERMENU} {$ENDIF}
  748.   OLEVERBATTRIB_ONCONTAINERMENU = 2;
  750. type
  752. { Result code }
  754.   HResult = Longint;
  756.   PResultList = ^TResultList;
  757.   TResultList = array[0..65535] of HResult;
  759. { OLE character and string types }
  761.   TOleChar = WideChar;
  762.   POleStr = PWideChar;
  764.   POleStrList = ^TOleStrList;
  765.   TOleStrList = array[0..65535] of POleStr;
  767. { 64-bit large integer }
  769.   Largeint = Comp;
  771. { Globally unique ID }
  773.   PGUID = ^TGUID;
  774.   TGUID = record
  775.     D1: Longint;
  776.     D2: Word;
  777.     D3: Word;
  778.     D4: array[0..7] of Byte;
  779.   end;
  781. { Interface ID }
  783.   PIID = PGUID;
  784.   TIID = TGUID;
  786. { Class ID }
  788.   PCLSID = PGUID;
  789.   TCLSID = TGUID;
  791. { Object ID }
  793.   PObjectID = ^TObjectID;
  794.   {$IFDEF BCB} {$EXTERNALSYM _OBJECTID} {$ENDIF}
  795.   _OBJECTID = record
  796.     Lineage: TGUID;
  797.     Uniquifier: Longint;
  798.   end;
  799.   TObjectID = _OBJECTID;
  800.   {$IFDEF BCB} {$EXTERNALSYM OBJECTID} {$ENDIF}
  801.   OBJECTID = _OBJECTID;
  803. { Locale ID }
  805.   TLCID = Longint;
  807. { Forward declarations }
  809.   {$IFDEF BCB} {$EXTERNALSYM IStream} {$ENDIF}
  810.   IStream = class;
  811.   {$IFDEF BCB} {$EXTERNALSYM IRunningObjectTable } {$ENDIF}
  812.   IRunningObjectTable = class;
  813.   {$IFDEF BCB} {$EXTERNALSYM IEnumString } {$ENDIF}
  814.   IEnumString = class;
  815.   {$IFDEF BCB} {$EXTERNALSYM IMoniker} {$ENDIF}
  816.   IMoniker = class;
  817.   {$IFDEF BCB} {$EXTERNALSYM IAdviseSink} {$ENDIF}
  818.   IAdviseSink = class;
  819.   {$IFDEF BCB} {$EXTERNALSYM IDispatch } {$ENDIF}
  820.   IDispatch = class;
  821.   {$IFDEF BCB} {$EXTERNALSYM ITypeInfo} {$ENDIF}
  822.   ITypeInfo = class;
  823.   {$IFDEF BCB} {$EXTERNALSYM ITypeComp } {$ENDIF}
  824.   ITypeComp = class;
  825.   {$IFDEF BCB} {$EXTERNALSYM ITypeLib} {$ENDIF}
  826.   ITypeLib = class;
  827.   {$IFDEF BCB} {$EXTERNALSYM IEnumOleVerb } {$ENDIF}
  828.   IEnumOleVerb = class;
  829.   {$IFDEF BCB} {$EXTERNALSYM IOleInPlaceActiveObject} {$ENDIF}
  830.   IOleInPlaceActiveObject = class;
  832. { IUnknown interface }
  833.   //{$IFDEF BCB} {$EXTERNALSYM IUnknown } {$ENDIF}
  834.   IUnknown = class
  835.   public
  836.     function QueryInterface(const iid: TIID; var obj): HResult; virtual; stdcall; abstract;
  837.     function AddRef: Longint; virtual; stdcall; abstract;
  838.     function Release: Longint; virtual; stdcall; abstract;
  839.   end;
  841. { IClassFactory interface }
  843.   {$IFDEF BCB} {$EXTERNALSYM IClassFactory } {$ENDIF}
  844.   IClassFactory = class(IUnknown)
  845.   public
  846.     function CreateInstance(unkOuter: IUnknown; const iid: TIID;
  847.       var obj): HResult; virtual; stdcall; abstract;
  848.     function LockServer(fLock: BOOL): HResult; virtual; stdcall; abstract;
  849.   end;
  851. { IMarshal interface }
  853.   {$IFDEF BCB} {$EXTERNALSYM IMarshal } {$ENDIF}
  854.   IMarshal = class(IUnknown)
  855.   public
  856.     function GetUnmarshalClass(const iid: TIID; pv: Pointer;
  857.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  858.       var cid: TCLSID): HResult; virtual; stdcall; abstract;
  859.     function GetMarshalSizeMax(const iid: TIID; pv: Pointer;
  860.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  861.       var size: Longint): HResult; virtual; stdcall; abstract;
  862.     function MarshalInterface(stm: IStream; const iid: TIID; pv: Pointer;
  863.       dwDestContext: Longint; pvDestContext: Pointer;
  864.       mshlflags: Longint): HResult; virtual; stdcall; abstract;
  865.     function UnmarshalInterface(stm: IStream; const iid: TIID;
  866.       var pv): HResult; virtual; stdcall; abstract;
  867.     function ReleaseMarshalData(stm: IStream): HResult;
  868.       virtual; stdcall; abstract;
  869.     function DisconnectObject(dwReserved: Longint): HResult;
  870.       virtual; stdcall; abstract;
  871.   end;
  873. { IMalloc interface }
  875.   {$IFDEF BCB} {$EXTERNALSYM IMalloc} {$ENDIF}
  876.   IMalloc = class(IUnknown)
  877.   public
  878.     function Alloc(cb: Longint): Pointer; virtual; stdcall; abstract;
  879.     function Realloc(pv: Pointer; cb: Longint): Pointer; virtual; stdcall; abstract;
  880.     procedure Free(pv: Pointer); virtual; stdcall; abstract;
  881.     function GetSize(pv: Pointer): Longint; virtual; stdcall; abstract;
  882.     function DidAlloc(pv: Pointer): Integer; virtual; stdcall; abstract;
  883.     procedure HeapMinimize; virtual; stdcall; abstract;
  884.   end;
  886. { IMallocSpy interface }
  888.   {$IFDEF BCB} {$EXTERNALSYM IMallocSpy } {$ENDIF}
  889.   IMallocSpy = class(IUnknown)
  890.   public
  891.     function PreAlloc(cbRequest: Longint): Longint; virtual; stdcall; abstract;
  892.     function PostAlloc(pActual: Pointer): Pointer; virtual; stdcall; abstract;
  893.     function PreFree(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  894.     procedure PostFree(fSpyed: BOOL); virtual; stdcall; abstract;
  895.     function PreRealloc(pRequest: Pointer; cbRequest: Longint;
  896.       var ppNewRequest: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract;
  897.     function PostRealloc(pActual: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  898.     function PreGetSize(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  899.     function PostGetSize(pActual: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract;
  900.     function PostDidAlloc(pRequest: Pointer; fSpyed: BOOL; fActual: Integer): Integer; virtual; stdcall; abstract;
  901.     procedure PreHeapMinimize; virtual; stdcall; abstract;
  902.     procedure PostHeapMinimize; virtual; stdcall; abstract;
  903.   end;
  905. { IStdMarshalInfo interface }
  907.   {$IFDEF BCB} {$EXTERNALSYM IStdMarshalInfo } {$ENDIF}
  908.   IStdMarshalInfo = class(IUnknown)
  909.   public
  910.     function GetClassForHandler(dwDestContext: Longint; pvDestContext: Pointer;
  911.       var clsid: TCLSID): HResult; virtual; stdcall; abstract;
  912.   end;
  914. { IExternalConnection interface }
  916.   {$IFDEF BCB} {$EXTERNALSYM IExternalConnection } {$ENDIF}
  917.   IExternalConnection = class(IUnknown)
  918.   public
  919.     function AddConnection(extconn: Longint; reserved: Longint): Longint;
  920.       virtual; stdcall; abstract;
  921.     function ReleaseConnection(extconn: Longint; reserved: Longint;
  922.       fLastReleaseCloses: BOOL): Longint; virtual; stdcall; abstract;
  923.   end;
  925. { IWeakRef interface }
  927.   {$IFDEF BCB} {$EXTERNALSYM IWeakRef } {$ENDIF}
  928.   IWeakRef = class(IUnknown)
  929.   public
  930.     function ChangeWeakCount(delta: Longint): Longint; virtual; stdcall; abstract;
  931.     function ReleaseKeepAlive(unkReleased: IUnknown;
  932.       reserved: Longint): Longint; virtual; stdcall; abstract;
  933.   end;
  935. { IEnumUnknown interface } 
  937.   {$IFDEF BCB} {$EXTERNALSYM IEnumUnknown } {$ENDIF}
  938.   IEnumUnknown = class(IUnknown)
  939.   public
  940.     function Next(celt: Longint; var elt;
  941.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  942.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  943.     function Reset: HResult; virtual; stdcall; abstract;
  944.     function Clone(var enm: IEnumUnknown): HResult; virtual; stdcall; abstract;
  945.   end;
  947. { IBindCtx interface }
  949.   PBindOpts = ^TBindOpts;
  950.   {$IFDEF BCB} {$EXTERNALSYM tagBIND_OPTS} {$ENDIF}
  951.   tagBIND_OPTS = record
  952.     cbStruct: Longint;
  953.     grfFlags: Longint;
  954.     grfMode: Longint;
  955.     dwTickCountDeadline: Longint;
  956.   end;
  957.   TBindOpts = tagBIND_OPTS;
  958.   {$IFDEF BCB} {$EXTERNALSYM BIND_OPTS} {$ENDIF}
  959.   BIND_OPTS = tagBIND_OPTS;
  961.   {$IFDEF BCB} {$EXTERNALSYM IBindCtx } {$ENDIF}
  962.   IBindCtx = class(IUnknown)
  963.   public
  964.     function RegisterObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract;
  965.     function RevokeObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract;
  966.     function ReleaseBoundObjects: HResult; virtual; stdcall; abstract;
  967.     function SetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract;
  968.     function GetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract;
  969.     function GetRunningObjectTable(var rot: IRunningObjectTable): HResult;
  970.       virtual; stdcall; abstract;
  971.     function RegisterObjectParam(pszKey: POleStr; unk: IUnknown): HResult;
  972.       virtual; stdcall; abstract;
  973.     function GetObjectParam(pszKey: POleStr; var unk: IUnknown): HResult;
  974.       virtual; stdcall; abstract;
  975.     function EnumObjectParam(var Enum: IEnumString): HResult; virtual; stdcall; abstract;
  976.     function RevokeObjectParam(pszKey: POleStr): HResult; virtual; stdcall; abstract;
  977.   end;
  979. { IEnumMoniker interface }
  981.   {$IFDEF BCB} {$EXTERNALSYM IEnumMoniker } {$ENDIF}
  982.   IEnumMoniker = class(IUnknown)
  983.   public
  984.     function Next(celt: Longint; var elt;
  985.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  986.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  987.     function Reset: HResult; virtual; stdcall; abstract;
  988.     function Clone(var enm: IEnumMoniker): HResult; virtual; stdcall; abstract;
  989.   end;
  991. { IRunnableObject interface }
  993.   {$IFDEF BCB} {$EXTERNALSYM IRunnableObject } {$ENDIF}
  994.   IRunnableObject = class(IUnknown)
  995.   public
  996.     function GetRunningClass(var clsid: TCLSID): HResult; virtual; stdcall; abstract;
  997.     function Run(bc: IBindCtx): HResult; virtual; stdcall; abstract;
  998.     function IsRunning: BOOL; virtual; stdcall; abstract;
  999.     function LockRunning(fLock: BOOL; fLastUnlockCloses: BOOL): HResult;
  1000.       virtual; stdcall; abstract;
  1001.     function SetContainedObject(fContained: BOOL): HResult; virtual; stdcall; abstract;
  1002.   end;
  1004. { IRunningObjectTable interface }
  1006.   {$IFDEF BCB} {$EXTERNALSYM IRunningObjectTable } {$ENDIF}
  1007.   IRunningObjectTable = class(IUnknown)
  1008.   public
  1009.     function Register(grfFlags: Longint; var unkObject: IUnknown;
  1010.       mkObjectName: IMoniker; var dwRegister: Longint): HResult; virtual; stdcall; abstract;
  1011.     function Revoke(dwRegister: Longint): HResult; virtual; stdcall; abstract;
  1012.     function IsRunning(mkObjectName: IMoniker): HResult; virtual; stdcall; abstract;
  1013.     function GetObject(mkObjectName: IMoniker;
  1014.       var unkObject: IUnknown): HResult; virtual; stdcall; abstract;
  1015.     function NoteChangeTime(dwRegister: Longint;
  1016.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1017.     function GetTimeOfLastChange(mkObjectName: IMoniker;
  1018.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1019.     function EnumRunning(var enumMoniker: IEnumMoniker): HResult; virtual; stdcall; abstract;
  1020.   end;
  1022. { IPersist interface }
  1024.   {$IFDEF BCB} {$EXTERNALSYM IPersist } {$ENDIF}
  1025.   IPersist = class(IUnknown)
  1026.   public
  1027.     function GetClassID(var classID: TCLSID): HResult; virtual; stdcall; abstract;
  1028.   end;
  1030. { IPersistStream interface }
  1032.   {$IFDEF BCB} {$EXTERNALSYM IPersistStream } {$ENDIF}
  1033.   IPersistStream = class(IPersist)
  1034.   public
  1035.     function IsDirty: HResult; virtual; stdcall; abstract;
  1036.     function Load(stm: IStream): HResult; virtual; stdcall; abstract;
  1037.     function Save(stm: IStream; fClearDirty: BOOL): HResult; virtual; stdcall; abstract;
  1038.     function GetSizeMax(var cbSize: Largeint): HResult; virtual; stdcall; abstract;
  1039.   end;
  1041. { IMoniker interface }
  1043.   {$IFDEF BCB} {$EXTERNALSYM IMoniker} {$ENDIF}
  1044.   IMoniker = class(IPersistStream)
  1045.   public
  1046.     function BindToObject(bc: IBindCtx; mkToLeft: IMoniker;
  1047.       const iidResult: TIID; var vResult): HResult; virtual; stdcall; abstract;
  1048.     function BindToStorage(bc: IBindCtx; mkToLeft: IMoniker;
  1049.       const iid: TIID; var vObj): HResult; virtual; stdcall; abstract;
  1050.     function Reduce(bc: IBindCtx; dwReduceHowFar: Longint;
  1051.       var mkToLeft: IMoniker; var mkReduced: IMoniker): HResult; virtual; stdcall; abstract;
  1052.     function ComposeWith(mkRight: IMoniker; fOnlyIfNotGeneric: BOOL;
  1053.       var mkComposite: IMoniker): HResult; virtual; stdcall; abstract;
  1054.     function Enum(fForward: BOOL; var enumMoniker: IEnumMoniker): HResult;
  1055.       virtual; stdcall; abstract;
  1056.     function IsEqual(mkOtherMoniker: IMoniker): HResult; virtual; stdcall; abstract;
  1057.     function Hash(var dwHash: Longint): HResult; virtual; stdcall; abstract;
  1058.     function IsRunning(bc: IBindCtx; mkToLeft: IMoniker;
  1059.       mkNewlyRunning: IMoniker): HResult; virtual; stdcall; abstract;
  1060.     function GetTimeOfLastChange(bc: IBindCtx; mkToLeft: IMoniker;
  1061.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1062.     function Inverse(var mk: IMoniker): HResult; virtual; stdcall; abstract;
  1063.     function CommonPrefixWith(mkOther: IMoniker;
  1064.       var mkPrefix: IMoniker): HResult; virtual; stdcall; abstract;
  1065.     function RelativePathTo(mkOther: IMoniker;
  1066.       var mkRelPath: IMoniker): HResult; virtual; stdcall; abstract;
  1067.     function GetDisplayName(bc: IBindCtx; mkToLeft: IMoniker;
  1068.       var pszDisplayName: POleStr): HResult; virtual; stdcall; abstract;
  1069.     function ParseDisplayName(bc: IBindCtx; mkToLeft: IMoniker;
  1070.       pszDisplayName: POleStr; var chEaten: Longint;
  1071.       var mkOut: IMoniker): HResult; virtual; stdcall; abstract;
  1072.     function IsSystemMoniker(var dwMksys: Longint): HResult; virtual; stdcall; abstract;
  1073.   end;
  1075. { IEnumString interface }
  1077.   {$IFDEF BCB} {$EXTERNALSYM IEnumString } {$ENDIF}
  1078.   IEnumString = class(IUnknown)
  1079.   public
  1080.     function Next(celt: Longint; var elt;
  1081.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1082.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1083.     function Reset: HResult; virtual; stdcall; abstract;
  1084.     function Clone(var enm: IEnumString): HResult; virtual; stdcall; abstract;
  1085.   end;
  1087. { IStream interface }
  1089.   PStatStg = ^TStatStg;
  1090.   {$IFDEF BCB} {$EXTERNALSYM tagSTATSTG} {$ENDIF}
  1091.   tagSTATSTG = record
  1092.     pwcsName: POleStr;
  1093.     dwType: Longint;
  1094.     cbSize: Largeint;
  1095.     mtime: TFileTime;
  1096.     ctime: TFileTime;
  1097.     atime: TFileTime;
  1098.     grfMode: Longint;
  1099.     grfLocksSupported: Longint;
  1100.     clsid: TCLSID;
  1101.     grfStateBits: Longint;
  1102.     reserved: Longint;
  1103.   end;
  1104.   TStatStg = tagSTATSTG;
  1105.   {$IFDEF BCB} {$EXTERNALSYM STATSTG} {$ENDIF}
  1106.   STATSTG = tagSTATSTG;
  1108.   {$IFDEF BCB} {$EXTERNALSYM IStream} {$ENDIF}
  1109.   IStream = class(IUnknown)
  1110.   public
  1111.     function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult;
  1112.       virtual; stdcall; abstract;
  1113.     function Write(pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult;
  1114.       virtual; stdcall; abstract;
  1115.     function Seek(dlibMove: Largeint; dwOrigin: Longint;
  1116.       var libNewPosition: Largeint): HResult; virtual; stdcall; abstract;
  1117.     function SetSize(libNewSize: Largeint): HResult; virtual; stdcall; abstract;
  1118.     function CopyTo(stm: IStream; cb: Largeint; var cbRead: Largeint;
  1119.       var cbWritten: Largeint): HResult; virtual; stdcall; abstract;
  1120.     function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract;
  1121.     function Revert: HResult; virtual; stdcall; abstract;
  1122.     function LockRegion(libOffset: Largeint; cb: Largeint;
  1123.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1124.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  1125.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1126.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1127.       virtual; stdcall; abstract;
  1128.     function Clone(var stm: IStream): HResult; virtual; stdcall; abstract;
  1129.   end;
  1131. { IEnumStatStg interface }
  1133.   {$IFDEF BCB} {$EXTERNALSYM IEnumStatStg } {$ENDIF}
  1134.   IEnumStatStg = class(IUnknown)
  1135.   public
  1136.     function Next(celt: Longint; var elt;
  1137.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1138.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1139.     function Reset: HResult; virtual; stdcall; abstract;
  1140.     function Clone(var enm: IEnumStatStg): HResult; virtual; stdcall; abstract;
  1141.   end;
  1143. { IStorage interface }
  1145.   TSNB = ^POleStr;
  1147.   {$IFDEF BCB} {$EXTERNALSYM IStorage} {$ENDIF}
  1148.   IStorage = class(IUnknown)
  1149.   public
  1150.     function CreateStream(pwcsName: POleStr; grfMode: Longint; reserved1: Longint;
  1151.       reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract;
  1152.     function OpenStream(pwcsName: POleStr; reserved1: Pointer; grfMode: Longint;
  1153.       reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract;
  1154.     function CreateStorage(pwcsName: POleStr; grfMode: Longint;
  1155.       dwStgFmt: Longint; reserved2: Longint; var stg: IStorage): HResult;
  1156.       virtual; stdcall; abstract;
  1157.     function OpenStorage(pwcsName: POleStr; stgPriority: IStorage;
  1158.       grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  1159.       var stg: IStorage): HResult; virtual; stdcall; abstract;
  1160.     function CopyTo(ciidExclude: Longint; rgiidExclude: PIID;
  1161.       snbExclude: TSNB; stgDest: IStorage): HResult; virtual; stdcall; abstract;
  1162.     function MoveElementTo(pwcsName: POleStr; stgDest: IStorage;
  1163.       pwcsNewName: POleStr; grfFlags: Longint): HResult; virtual; stdcall; abstract;
  1164.     function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract;
  1165.     function Revert: HResult; virtual; stdcall; abstract;
  1166.     function EnumElements(reserved1: Longint; reserved2: Pointer; reserved3: Longint;
  1167.       var enm: IEnumStatStg): HResult; virtual; stdcall; abstract;
  1168.     function DestroyElement(pwcsName: POleStr): HResult; virtual; stdcall; abstract;
  1169.     function RenameElement(pwcsOldName: POleStr;
  1170.       pwcsNewName: POleStr): HResult; virtual; stdcall; abstract;
  1171.     function SetElementTimes(pwcsName: POleStr; const ctime: TFileTime;
  1172.       const atime: TFileTime; const mtime: TFileTime): HResult;
  1173.       virtual; stdcall; abstract;
  1174.     function SetClass(const clsid: TCLSID): HResult; virtual; stdcall; abstract;
  1175.     function SetStateBits(grfStateBits: Longint; grfMask: Longint): HResult;
  1176.       virtual; stdcall; abstract;
  1177.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1178.       virtual; stdcall; abstract;
  1179.   end;
  1181. { IPersistFile interface }
  1183.   {$IFDEF BCB} {$EXTERNALSYM IPersistFile } {$ENDIF}
  1184.   IPersistFile = class(IPersist)
  1185.   public
  1186.     function IsDirty: HResult; virtual; stdcall; abstract;
  1187.     function Load(pszFileName: POleStr; dwMode: Longint): HResult;
  1188.       virtual; stdcall; abstract;
  1189.     function Save(pszFileName: POleStr; fRemember: BOOL): HResult;
  1190.       virtual; stdcall; abstract;
  1191.     function SaveCompleted(pszFileName: POleStr): HResult;
  1192.       virtual; stdcall; abstract;
  1193.     function GetCurFile(var pszFileName: POleStr): HResult;
  1194.       virtual; stdcall; abstract;
  1195.   end;
  1197. { IPersistStorage interface }
  1199.   {$IFDEF BCB} {$EXTERNALSYM IPersistStorage } {$ENDIF}
  1200.   IPersistStorage = class(IPersist)
  1201.   public
  1202.     function IsDirty: HResult; virtual; stdcall; abstract;
  1203.     function InitNew(stg: IStorage): HResult; virtual; stdcall; abstract;
  1204.     function Load(stg: IStorage): HResult; virtual; stdcall; abstract;
  1205.     function Save(stgSave: IStorage; fSameAsLoad: BOOL): HResult;
  1206.       virtual; stdcall; abstract;
  1207.     function SaveCompleted(stgNew: IStorage): HResult; virtual; stdcall; abstract;
  1208.     function HandsOffStorage: HResult; virtual; stdcall; abstract;
  1209.   end;
  1211. { ILockBytes interface }
  1213.   {$IFDEF BCB} {$EXTERNALSYM ILockBytes} {$ENDIF}
  1214.   ILockBytes = class(IUnknown)
  1215.   public
  1216.     function ReadAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  1217.       pcbRead: PLongint): HResult; virtual; stdcall; abstract;
  1218.     function WriteAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  1219.       pcbWritten: PLongint): HResult; virtual; stdcall; abstract;
  1220.     function Flush: HResult; virtual; stdcall; abstract;
  1221.     function SetSize(cb: Largeint): HResult; virtual; stdcall; abstract;
  1222.     function LockRegion(libOffset: Largeint; cb: Largeint;
  1223.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1224.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  1225.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1226.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1227.       virtual; stdcall; abstract;
  1228.   end;
  1230. { IEnumFormatEtc interface }
  1232.   PDVTargetDevice = ^TDVTargetDevice;
  1233.   {$IFDEF BCB} {$EXTERNALSYM tagDVTARGETDEVICE} {$ENDIF}
  1234.   tagDVTARGETDEVICE = record
  1235.     tdSize: Longint;
  1236.     tdDriverNameOffset: Word;
  1237.     tdDeviceNameOffset: Word;
  1238.     tdPortNameOffset: Word;
  1239.     tdExtDevmodeOffset: Word;
  1240.     tdData: record end;
  1241.   end;
  1242.   TDVTargetDevice = tagDVTARGETDEVICE;
  1243.   {$IFDEF BCB} {$EXTERNALSYM DVTARGETDEVICE} {$ENDIF}
  1244.   DVTARGETDEVICE = tagDVTARGETDEVICE;
  1246.   PClipFormat = ^TClipFormat;
  1247.   TClipFormat = Word;
  1249.   PFormatEtc = ^TFormatEtc;
  1250.   {$IFDEF BCB} {$EXTERNALSYM tagFORMATETC} {$ENDIF}
  1251.   tagFORMATETC = record
  1252.     cfFormat: TClipFormat;
  1253.     ptd: PDVTargetDevice;
  1254.     dwAspect: Longint;
  1255.     lindex: Longint;
  1256.     tymed: Longint;
  1257.   end;
  1258.   TFormatEtc = tagFORMATETC;
  1259.   {$IFDEF BCB} {$EXTERNALSYM FORMATETC} {$ENDIF}
  1260.   FORMATETC = tagFORMATETC;
  1262.   {$IFDEF BCB} {$EXTERNALSYM IEnumFormatEtc } {$ENDIF}
  1263.   IEnumFormatEtc = class(IUnknown)
  1264.   public
  1265.     function Next(celt: Longint; var elt;
  1266.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1267.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1268.     function Reset: HResult; virtual; stdcall; abstract;
  1269.     function Clone(var Enum: IEnumFormatEtc): HResult; virtual; stdcall; abstract;
  1270.   end;
  1272. { IEnumStatData interface }
  1274.   PStatData = ^TStatData;
  1275.   {$IFDEF BCB} {$EXTERNALSYM tagSTATDATA} {$ENDIF}
  1276.   tagSTATDATA = record
  1277.     formatetc: TFormatEtc;
  1278.     advf: Longint;
  1279.     advSink: IAdviseSink;
  1280.     dwConnection: Longint;
  1281.   end;
  1282.   TStatData = tagSTATDATA;
  1283.   {$IFDEF BCB} {$EXTERNALSYM STATDATA} {$ENDIF}
  1284.   STATDATA = tagSTATDATA;
  1286.   {$IFDEF BCB} {$EXTERNALSYM IEnumStatData } {$ENDIF}
  1287.   IEnumStatData = class(IUnknown)
  1288.   public
  1289.     function Next(celt: Longint; var elt;
  1290.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1291.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1292.     function Reset: HResult; virtual; stdcall; abstract;
  1293.     function Clone(var Enum: IEnumStatData): HResult; virtual; stdcall; abstract;
  1294.   end;
  1296. { IRootStorage interface }
  1298.   {$IFDEF BCB} {$EXTERNALSYM IRootStorage } {$ENDIF}
  1299.   IRootStorage = class(IUnknown)
  1300.   public
  1301.     function SwitchToFile(pszFile: POleStr): HResult; virtual; stdcall; abstract;
  1302.   end;
  1304. { IAdviseSink interface }
  1306.   PRemStgMedium = ^TRemStgMedium;
  1307.   {$IFDEF BCB} {$EXTERNALSYM tagRemSTGMEDIUM} {$ENDIF}
  1308.   tagRemSTGMEDIUM = record
  1309.     tymed: Longint;
  1310.     dwHandleType: Longint;
  1311.     pData: Longint;
  1312.     pUnkForRelease: Longint;
  1313.     cbData: Longint;
  1314.     data: record end;
  1315.   end;
  1316.   TRemStgMedium = tagRemSTGMEDIUM;
  1317.   {$IFDEF BCB} {$EXTERNALSYM RemSTGMEDIUM} {$ENDIF}
  1318.   RemSTGMEDIUM = tagRemSTGMEDIUM;
  1320.   PStgMedium = ^TStgMedium;
  1321.   {$IFDEF BCB} {$EXTERNALSYM tagSTGMEDIUM} {$ENDIF}
  1322.   tagSTGMEDIUM = record
  1323.     tymed: Longint;
  1324.     case Integer of
  1325.       0: (hBitmap: HBitmap; unkForRelease: IUnknown);
  1326.       1: (hMetaFilePict: THandle);
  1327.       2: (hEnhMetaFile: THandle);
  1328.       3: (hGlobal: HGlobal);
  1329.       4: (lpszFileName: POleStr);
  1330.       5: (stm: IStream);
  1331.       6: (stg: IStorage);
  1332.   end;
  1333.   TStgMedium = tagSTGMEDIUM;
  1334.   {$IFDEF BCB} {$EXTERNALSYM STGMEDIUM} {$ENDIF}
  1335.   STGMEDIUM = tagSTGMEDIUM;
  1337.   {$IFDEF BCB} {$EXTERNALSYM IAdviseSink} {$ENDIF}
  1338.   IAdviseSink = class(IUnknown)
  1339.   public
  1340.     procedure OnDataChange(var formatetc: TFormatEtc; var stgmed: TStgMedium);
  1341.       virtual; stdcall; abstract;
  1342.     procedure OnViewChange(dwAspect: Longint; lindex: Longint);
  1343.       virtual; stdcall; abstract;
  1344.     procedure OnRename(mk: IMoniker); virtual; stdcall; abstract;
  1345.     procedure OnSave; virtual; stdcall; abstract;
  1346.     procedure OnClose; virtual; stdcall; abstract;
  1347.   end;
  1349. { IAdviseSink2 interface }
  1351.   {$IFDEF BCB} {$EXTERNALSYM IAdviseSink2 } {$ENDIF}
  1352.   IAdviseSink2 = class(IAdviseSink)
  1353.   public
  1354.     procedure OnLinkSrcChange(mk: IMoniker); virtual; stdcall; abstract;
  1355.   end;
  1357. { IDataObject interface }
  1359.   {$IFDEF BCB} {$EXTERNALSYM IDataObject} {$ENDIF}
  1360.   IDataObject = class(IUnknown)
  1361.   public
  1362.     function GetData(var formatetcIn: TFormatEtc; var medium: TStgMedium):
  1363.       HResult; virtual; stdcall; abstract;
  1364.     function GetDataHere(var formatetc: TFormatEtc; var medium: TStgMedium):
  1365.       HResult; virtual; stdcall; abstract;
  1366.     function QueryGetData(var formatetc: TFormatEtc): HResult;
  1367.       virtual; stdcall; abstract;
  1368.     function GetCanonicalFormatEtc(var formatetc: TFormatEtc;
  1369.       var formatetcOut: TFormatEtc): HResult; virtual; stdcall; abstract;
  1370.     function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;
  1371.       fRelease: BOOL): HResult; virtual; stdcall; abstract;
  1372.     function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:
  1373.       IEnumFormatEtc): HResult; virtual; stdcall; abstract;
  1374.     function DAdvise(var formatetc: TFormatEtc; advf: Longint;
  1375.       advSink: IAdviseSink; var dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1376.     function DUnadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1377.     function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;
  1378.       virtual; stdcall; abstract;
  1379.   end;
  1381. { IDataAdviseHolder interface }
  1383.   {$IFDEF BCB} {$EXTERNALSYM IDataAdviseHolder } {$ENDIF}
  1384.   IDataAdviseHolder = class(IUnknown)
  1385.   public
  1386.     function Advise(dataObject: IDataObject; var fetc: TFormatEtc;
  1387.       advf: Longint; advise: IAdviseSink; var pdwConnection: Longint): HResult;
  1388.       virtual; stdcall; abstract;
  1389.     function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1390.     function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract;
  1391.     function SendOnDataChange(dataObject: IDataObject; dwReserved: Longint;
  1392.       advf: Longint): HResult; virtual; stdcall; abstract;
  1393.   end;
  1395. { IMessageFilter interface }
  1397.   PInterfaceInfo = ^TInterfaceInfo;
  1398.   {$IFDEF BCB} {$EXTERNALSYM tagINTERFACEINFO} {$ENDIF}
  1399.   tagINTERFACEINFO = record
  1400.     unk: IUnknown;
  1401.     iid: TIID;
  1402.     wMethod: Word;
  1403.   end;
  1404.   TInterfaceInfo = tagINTERFACEINFO;
  1405.   {$IFDEF BCB} {$EXTERNALSYM INTERFACEINFO} {$ENDIF}
  1406.   INTERFACEINFO = tagINTERFACEINFO;
  1408.   {$IFDEF BCB} {$EXTERNALSYM IMessageFilter } {$ENDIF}
  1409.   IMessageFilter = class(IUnknown)
  1410.   public
  1411.     function HandleInComingCall(dwCallType: Longint; htaskCaller: HTask;
  1412.       dwTickCount: Longint; lpInterfaceInfo: PInterfaceInfo): Longint;
  1413.       virtual; stdcall; abstract;
  1414.     function RetryRejectedCall(htaskCallee: HTask; dwTickCount: Longint;
  1415.       dwRejectType: Longint): Longint; virtual; stdcall; abstract;
  1416.     function MessagePending(htaskCallee: HTask; dwTickCount: Longint;
  1417.       dwPendingType: Longint): Longint; virtual; stdcall; abstract;
  1418.   end;
  1420. { IRpcChannelBuffer interface }
  1422.   TRpcOleDataRep = Longint;
  1424.   PRpcOleMessage = ^TRpcOleMessage;
  1425.   {$IFDEF BCB} {$EXTERNALSYM tagRPCOLEMESSAGE} {$ENDIF}
  1426.   tagRPCOLEMESSAGE = record
  1427.     reserved1: Pointer;
  1428.     dataRepresentation: TRpcOleDataRep;
  1429.     Buffer: Pointer;
  1430.     cbBuffer: Longint;
  1431.     iMethod: Longint;
  1432.     reserved2: array[0..4] of Pointer;
  1433.     rpcFlags: Longint;
  1434.   end;
  1435.   TRpcOleMessage = tagRPCOLEMESSAGE;
  1436.   {$IFDEF BCB} {$EXTERNALSYM RPCOLEMESSAGE} {$ENDIF}
  1437.   RPCOLEMESSAGE = tagRPCOLEMESSAGE;
  1439.   {$IFDEF BCB} {$EXTERNALSYM IRpcChannelBuffer } {$ENDIF}
  1440.   IRpcChannelBuffer = class(IUnknown)
  1441.   public
  1442.     function GetBuffer(var message: TRpcOleMessage; iid: TIID): HResult;
  1443.       virtual; stdcall; abstract;
  1444.     function SendReceive(var message: TRpcOleMessage;
  1445.       var status: Longint): HResult; virtual; stdcall; abstract;
  1446.     function FreeBuffer(var message: TRpcOleMessage): HResult;
  1447.       virtual; stdcall; abstract;
  1448.     function GetDestCtx(var dwDestContext: Longint;
  1449.       var pvDestContext): HResult; virtual; stdcall; abstract;
  1450.     function IsConnected: HResult; virtual; stdcall; abstract;
  1451.   end;
  1453. { IRpcProxyBuffer interface }
  1455.   {$IFDEF BCB} {$EXTERNALSYM IRpcProxyBuffer } {$ENDIF}
  1456.   IRpcProxyBuffer = class(IUnknown)
  1457.   public
  1458.     function Connect(rpcChannelBuffer: IRpcChannelBuffer): HResult;
  1459.       virtual; stdcall; abstract;
  1460.     procedure Disconnect; virtual; stdcall; abstract;
  1461.   end;
  1463. { IRpcStubBuffer interface }
  1465.   {$IFDEF BCB} {$EXTERNALSYM IRpcStubBuffer } {$ENDIF}
  1466.   IRpcStubBuffer = class(IUnknown)
  1467.   public
  1468.     function Connect(unkServer: IUnknown): HResult; virtual; stdcall; abstract;
  1469.     procedure Disconnect; virtual; stdcall; abstract;
  1470.     function Invoke(var rpcmsg: TRpcOleMessage; rpcChannelBuffer:
  1471.       IRpcChannelBuffer): HResult; virtual; stdcall; abstract;
  1472.     function IsIIDSupported(const iid: TIID): IRpcStubBuffer;
  1473.       virtual; stdcall; abstract;
  1474.     function CountRefs: Longint; virtual; stdcall; abstract;
  1475.     function DebugServerQueryInterface(var pv): HResult;
  1476.       virtual; stdcall; abstract;
  1477.     procedure DebugServerRelease(pv: Pointer); virtual; stdcall; abstract;
  1478.   end;
  1480. { IPSFactoryBuffer interface }
  1482.   {$IFDEF BCB} {$EXTERNALSYM IPSFactoryBuffer } {$ENDIF}
  1483.   IPSFactoryBuffer = class(IUnknown)
  1484.   public
  1485.     function CreateProxy(unkOuter: IUnknown; const iid: TIID;
  1486.       var proxy: IRpcProxyBuffer; var pv): HResult; virtual; stdcall; abstract;
  1487.     function CreateStub(const iid: TIID; unkServer: IUnknown;
  1488.       var stub: IRpcStubBuffer): HResult; virtual; stdcall; abstract;
  1489.   end;
  1491. { Automation types }
  1493.   PBStr = ^TBStr;
  1494.   TBStr = POleStr;
  1496.   PBStrList = ^TBStrList;
  1497.   TBStrList = array[0..65535] of TBStr;
  1499.   PBlob = ^TBlob;
  1500.   {$IFDEF BCB} {$EXTERNALSYM tagBLOB} {$ENDIF}
  1501.   tagBLOB = record
  1502.     cbSize: Longint;
  1503.     pBlobData: Pointer;
  1504.   end;
  1505.   {$IFDEF BCB} {$EXTERNALSYM TBlob} {$ENDIF}
  1506.   TBlob = tagBLOB;
  1507.   {$IFDEF BCB} {$EXTERNALSYM BLOB} {$ENDIF}
  1508.   BLOB = tagBLOB;
  1510.   PClipData = ^TClipData;
  1511.   {$IFDEF BCB} {$EXTERNALSYM tagCLIPDATA} {$ENDIF}
  1512.   tagCLIPDATA = record
  1513.     cbSize: Longint;
  1514.     ulClipFmt: Longint;
  1515.     pClipData: Pointer;
  1516.   end;
  1517.   TClipData = tagCLIPDATA;
  1518.   {$IFDEF BCB} {$EXTERNALSYM CLIPDATA} {$ENDIF}
  1519.   CLIPDATA = tagCLIPDATA;
  1521.   PSafeArrayBound = ^TSafeArrayBound;
  1522.   {$IFDEF BCB} {$EXTERNALSYM tagSAFEARRAYBOUND} {$ENDIF}
  1523.   tagSAFEARRAYBOUND = record
  1524.     cElements: Longint;
  1525.     lLbound: Longint;
  1526.   end;
  1527.   TSafeArrayBound = tagSAFEARRAYBOUND;
  1528.   {$IFDEF BCB} {$EXTERNALSYM SAFEARRAYBOUND} {$ENDIF}
  1529.   SAFEARRAYBOUND = tagSAFEARRAYBOUND;
  1531.   PSafeArray = ^TSafeArray;
  1532.   {$IFDEF BCB} {$EXTERNALSYM tagSAFEARRAY} {$ENDIF}
  1533.   tagSAFEARRAY = record
  1534.     cDims: Word;
  1535.     fFeatures: Word;
  1536.     cbElements: Longint;
  1537.     cLocks: Longint;
  1538.     pvData: Pointer;
  1539.     rgsabound: array[0..0] of TSafeArrayBound;
  1540.   end;
  1541.   TSafeArray = tagSAFEARRAY;
  1542.   {$IFDEF BCB} {$EXTERNALSYM SAFEARRAY} {$ENDIF}
  1543.   SAFEARRAY = tagSAFEARRAY;
  1545.   TOleDate = Double;
  1547.   TCurrency = Comp;
  1549.   TOleBool = WordBool;
  1551.   TVarType = Word;
  1553.   PVariantArg = ^TVariantArg;
  1554.   {$IFDEF BCB} {$EXTERNALSYM tagVARIANT} {$ENDIF}
  1555.   tagVARIANT = record
  1556.     vt: TVarType;
  1557.     wReserved1: Word;
  1558.     wReserved2: Word;
  1559.     wReserved3: Word;
  1560.     case Integer of
  1561.       VT_UI1:                  (bVal: Byte);
  1562.       VT_I2:                   (iVal: Smallint);
  1563.       VT_I4:                   (lVal: Longint);
  1564.       VT_R4:                   (fltVal: Single);
  1565.       VT_R8:                   (dblVal: Double);
  1566.       VT_BOOL:                 (vbool: TOleBool);
  1567.       VT_ERROR:                (scode: HResult);
  1568.       VT_CY:                   (cyVal: TCurrency);
  1569.       VT_DATE:                 (date: TOleDate);
  1570.       VT_BSTR:                 (bstrVal: TBStr);
  1571.       VT_UNKNOWN:              (unkVal: IUnknown);
  1572.       VT_DISPATCH:             (dispVal: IDispatch);
  1573.       VT_ARRAY:                (parray: PSafeArray);
  1574.       VT_BYREF or VT_UI1:      (pbVal: ^Byte);
  1575.       VT_BYREF or VT_I2:       (piVal: ^Smallint);
  1576.       VT_BYREF or VT_I4:       (plVal: ^Longint);
  1577.       VT_BYREF or VT_R4:       (pfltVal: ^Single);
  1578.       VT_BYREF or VT_R8:       (pdblVal: ^Double);
  1579.       VT_BYREF or VT_BOOL:     (pbool: ^TOleBool);
  1580.       VT_BYREF or VT_ERROR:    (pscode: ^HResult);
  1581.       VT_BYREF or VT_CY:       (pcyVal: ^TCurrency);
  1582.       VT_BYREF or VT_DATE:     (pdate: ^TOleDate);
  1583.       VT_BYREF or VT_BSTR:     (pbstrVal: PBStr);
  1584.       VT_BYREF or VT_UNKNOWN:  (punkVal: ^IUnknown);
  1585.       VT_BYREF or VT_DISPATCH: (pdispVal: ^IDispatch);
  1586.       VT_BYREF or VT_ARRAY:    (pparray: ^PSafeArray);
  1587.       VT_BYREF or VT_VARIANT:  (pvarVal: PVariant);
  1588.       VT_BYREF:                (byRef: Pointer);
  1589.   end;
  1590.   TVariantArg = tagVARIANT;
  1591.   {$IFDEF BCB} {$EXTERNALSYM VARIANTARG} {$ENDIF}
  1592.   VARIANTARG = tagVARIANT;
  1594.   PVariantArgList = ^TVariantArgList;
  1595.   TVariantArgList = array[0..65535] of TVariantArg;
  1597.   TDispID = Longint;
  1599.   PDispIDList = ^TDispIDList;
  1600.   TDispIDList = array[0..65535] of TDispID;
  1602.   TMemberID = Longint;
  1604.   PMemberIDList = ^TMemberIDList;
  1605.   TMemberIDList = array[0..65535] of TMemberID;
  1607.   TPropID = Longint;
  1609.   HRefType = Longint;
  1611.   TTypeKind = Longint;
  1613.   PArrayDesc = ^TArrayDesc;
  1615.   PTypeDesc= ^TTypeDesc;
  1616.   {$IFDEF BCB} {$EXTERNALSYM tagTYPEDESC} {$ENDIF}
  1617.   tagTYPEDESC = record
  1618.     case Integer of
  1619.       VT_PTR:         (ptdesc: PTypeDesc; vt: TVarType);
  1620.       VT_CARRAY:      (padesc: PArrayDesc);
  1621.       VT_USERDEFINED: (hreftype: HRefType);
  1622.   end;
  1623.   TTypeDesc = tagTYPEDESC;
  1624.   {$IFDEF BCB} {$EXTERNALSYM TYPEDESC} {$ENDIF}
  1625.   TYPEDESC = tagTYPEDESC;
  1627.   {$IFDEF BCB} {$EXTERNALSYM tagARRAYDESC} {$ENDIF}
  1628.   tagARRAYDESC = record
  1629.     tdescElem: TTypeDesc;
  1630.     cDims: Word;
  1631.     rgbounds: array[0..0] of TSafeArrayBound;
  1632.   end;
  1633.   TArrayDesc = tagARRAYDESC;
  1634.   {$IFDEF BCB} {$EXTERNALSYM ARRAYDESC} {$ENDIF}
  1635.   ARRAYDESC = tagARRAYDESC;
  1637.   PIDLDesc = ^TIDLDesc;
  1638.   {$IFDEF BCB} {$EXTERNALSYM tagIDLDESC} {$ENDIF}
  1639.   tagIDLDESC = record
  1640.     dwReserved: Longint;
  1641.     wIDLFlags: Word;
  1642.   end;
  1643.   TIDLDesc = tagIDLDESC;
  1644.   {$IFDEF BCB} {$EXTERNALSYM IDLDESC} {$ENDIF}
  1645.   IDLDESC = tagIDLDESC;
  1647.   PElemDesc = ^TElemDesc;
  1648.   {$IFDEF BCB} {$EXTERNALSYM tagELEMDESC} {$ENDIF}
  1649.   tagELEMDESC = record
  1650.     tdesc: TTypeDesc;
  1651.     idldesc: TIDLDesc;
  1652.   end;
  1653.   TElemDesc = tagELEMDESC;
  1654.   {$IFDEF BCB} {$EXTERNALSYM ELEMDESC} {$ENDIF}
  1655.   ELEMDESC = tagELEMDESC;
  1657.   PElemDescList = ^TElemDescList;
  1658.   TElemDescList = array[0..65535] of TElemDesc;
  1660.   PTypeAttr = ^TTypeAttr;
  1661.   {$IFDEF BCB} {$EXTERNALSYM tagTYPEATTR} {$ENDIF}
  1662.   tagTYPEATTR = record
  1663.     guid: TGUID;
  1664.     lcid: TLCID;
  1665.     dwReserved: Longint;
  1666.     memidConstructor: TMemberID;
  1667.     memidDestructor: TMemberID;
  1668.     lpstrSchema: POleStr;
  1669.     cbSizeInstance: Longint;
  1670.     typekind: TTypeKind;
  1671.     cFuncs: Word;
  1672.     cVars: Word;
  1673.     cImplTypes: Word;
  1674.     cbSizeVft: Word;
  1675.     cbAlignment: Word;
  1676.     wTypeFlags: Word;
  1677.     wMajorVerNum: Word;
  1678.     wMinorVerNum: Word;
  1679.     tdescAlias: TTypeDesc;
  1680.     idldescType: TIDLDesc;
  1681.   end;
  1682.   TTypeAttr = tagTYPEATTR;
  1683.   {$IFDEF BCB} {$EXTERNALSYM TYPEATTR} {$ENDIF}
  1684.   TYPEATTR = tagTYPEATTR;
  1686.   PDispParams = ^TDispParams;
  1687.   {$IFDEF BCB} {$EXTERNALSYM tagDISPPARAMS} {$ENDIF}
  1688.   tagDISPPARAMS = record
  1689.     rgvarg: PVariantArgList;
  1690.     rgdispidNamedArgs: PDispIDList;
  1691.     cArgs: Longint;
  1692.     cNamedArgs: Longint;
  1693.   end;
  1694.   TDispParams = tagDISPPARAMS;
  1695.   {$IFDEF BCB} {$EXTERNALSYM DISPPARAMS} {$ENDIF}
  1696.   DISPPARAMS = tagDISPPARAMS;
  1698.   PExcepInfo = ^TExcepInfo;
  1700.   TFNDeferredFillIn = function(ExInfo: PExcepInfo): HResult stdcall;
  1702.   {$IFDEF BCB} {$EXTERNALSYM tagEXCEPINFO} {$ENDIF}
  1703.   tagEXCEPINFO = record
  1704.     wCode: Word;
  1705.     wReserved: Word;
  1706.     bstrSource: TBStr;
  1707.     bstrDescription: TBStr;
  1708.     bstrHelpFile: TBStr;
  1709.     dwHelpContext: Longint;
  1710.     pvReserved: Pointer;
  1711.     pfnDeferredFillIn: TFNDeferredFillIn;
  1712.     scode: HResult;
  1713.   end;
  1714.   TExcepInfo = tagEXCEPINFO;
  1715.   {$IFDEF BCB} {$EXTERNALSYM EXCEPINFO} {$ENDIF}
  1716.   EXCEPINFO = tagEXCEPINFO;
  1718.   TFuncKind = Longint;
  1719.   TInvokeKind = Longint;
  1720.   TCallConv = Longint;
  1722.   PFuncDesc = ^TFuncDesc;
  1723.   {$IFDEF BCB} {$EXTERNALSYM tagFUNCDESC} {$ENDIF}
  1724.   tagFUNCDESC = record
  1725.     memid: TMemberID;
  1726.     lprgscode: PResultList;
  1727.     lprgelemdescParam: PElemDescList;
  1728.     funckind: TFuncKind;
  1729.     invkind: TInvokeKind;
  1730.     callconv: TCallConv;
  1731.     cParams: Smallint;
  1732.     cParamsOpt: Smallint;
  1733.     oVft: Smallint;
  1734.     cScodes: Smallint;
  1735.     elemdescFunc: TElemDesc;
  1736.     wFuncFlags: Word;
  1737.   end;
  1738.   TFuncDesc = tagFUNCDESC;
  1739.   {$IFDEF BCB} {$EXTERNALSYM FUNCDESC} {$ENDIF}
  1740.   FUNCDESC = tagFUNCDESC;
  1742.   TVarKind = Longint;
  1744.   PVarDesc = ^TVarDesc;
  1745.   {$IFDEF BCB} {$EXTERNALSYM tagVARDESC} {$ENDIF}
  1746.   tagVARDESC = record
  1747.     memid: TMemberID;
  1748.     lpstrSchema: POleStr;
  1749.     case Integer of
  1750.       VAR_PERINSTANCE: (
  1751.         oInst: Longint;
  1752.         elemdescVar: TElemDesc;
  1753.         wVarFlags: Word;
  1754.         varkind: TVarKind);
  1755.       VAR_CONST: (
  1756.         lpvarValue: PVariant);
  1757.   end;
  1758.   TVarDesc = tagVARDESC;
  1759.   {$IFDEF BCB} {$EXTERNALSYM VARDESC} {$ENDIF}
  1760.   VARDESC = tagVARDESC;
  1762. { ICreateTypeInfo interface }
  1764.   {$IFDEF BCB} {$EXTERNALSYM ICreateTypeInfo } {$ENDIF}
  1765.   ICreateTypeInfo = class(IUnknown)
  1766.   public
  1767.     function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1768.     function SetTypeFlags(uTypeFlags: Integer): HResult; virtual; stdcall; abstract;
  1769.     function SetDocString(pstrDoc: POleStr): HResult; virtual; stdcall; abstract;
  1770.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1771.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult;
  1772.       virtual; stdcall; abstract;
  1773.     function AddRefTypeInfo(tinfo: ITypeInfo; var reftype: HRefType): HResult;
  1774.       virtual; stdcall; abstract;
  1775.     function AddFuncDesc(index: Integer; var funcdesc: TFuncDesc): HResult;
  1776.       virtual; stdcall; abstract;
  1777.     function AddImplType(index: Integer; reftype: HRefType): HResult;
  1778.       virtual; stdcall; abstract;
  1779.     function SetImplTypeFlags(index: Integer; impltypeflags: Integer): HResult;
  1780.       virtual; stdcall; abstract;
  1781.     function SetAlignment(cbAlignment: Word): HResult; virtual; stdcall; abstract;
  1782.     function SetSchema(lpstrSchema: POleStr): HResult; virtual; stdcall; abstract;
  1783.     function AddVarDesc(index: Integer; var vardesc: TVarDesc): HResult;
  1784.       virtual; stdcall; abstract;
  1785.     function SetFuncAndParamNames(index: Integer; rgszNames: POleStrList;
  1786.       cNames: Integer): HResult; virtual; stdcall; abstract;
  1787.     function SetVarName(index: Integer; szName: POleStr): HResult; virtual; stdcall; abstract;
  1788.     function SetTypeDescAlias(var descAlias: TTypeDesc): HResult; virtual; stdcall; abstract;
  1789.     function DefineFuncAsDllEntry(index: Integer; szDllName: POleStr;
  1790.       szProcName: POleStr): HResult; virtual; stdcall; abstract;
  1791.     function SetFuncDocString(index: Integer; szDocString: POleStr): HResult;
  1792.       virtual; stdcall; abstract;
  1793.     function SetVarDocString(index: Integer; szDocString: POleStr): HResult;
  1794.       virtual; stdcall; abstract;
  1795.     function SetFuncHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  1796.       virtual; stdcall; abstract;
  1797.     function SetVarHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  1798.       virtual; stdcall; abstract;
  1799.     function SetMops(index: Integer; bstrMops: TBStr): HResult; virtual; stdcall; abstract;
  1800.     function SetTypeIdldesc(var idldesc: TIDLDesc): HResult; virtual; stdcall; abstract;
  1801.     function LayOut: HResult; virtual; stdcall; abstract;
  1802.   end;
  1804. { ICreateTypeLib interface }
  1806.   {$IFDEF BCB} {$EXTERNALSYM ICreateTypeLib } {$ENDIF}
  1807.   ICreateTypeLib = class(IUnknown)
  1808.   public
  1809.     function CreateTypeInfo(szName: POleStr; tkind: TTypeKind;
  1810.       var ictinfo: ICreateTypeInfo): HResult; virtual; stdcall; abstract;
  1811.     function SetName(szName: POleStr): HResult; virtual; stdcall; abstract;
  1812.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult; virtual; stdcall; abstract;
  1813.     function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1814.     function SetDocString(szDoc: POleStr): HResult; virtual; stdcall; abstract;
  1815.     function SetHelpFileName(szHelpFileName: POleStr): HResult; virtual; stdcall; abstract;
  1816.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1817.     function SetLcid(lcid: TLCID): HResult; virtual; stdcall; abstract;
  1818.     function SetLibFlags(uLibFlags: Integer): HResult; virtual; stdcall; abstract;
  1819.     function SaveAllChanges: HResult; virtual; stdcall; abstract;
  1820.   end;
  1822. { IDispatch interface }
  1824.   {$IFDEF BCB} {$EXTERNALSYM IDispatch } {$ENDIF}
  1825.   IDispatch = class(IUnknown)
  1826.   public
  1827.     function GetTypeInfoCount(var ctinfo: Integer): HResult; virtual; stdcall; abstract;
  1828.     function GetTypeInfo(itinfo: Integer; lcid: TLCID; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract;
  1829.     function GetIDsOfNames(const iid: TIID; rgszNames: POleStrList;
  1830.       cNames: Integer; lcid: TLCID; rgdispid: PDispIDList): HResult; virtual; stdcall; abstract;
  1831.     function Invoke(dispIDMember: TDispID; const iid: TIID; lcid: TLCID;
  1832.       flags: Word; var dispParams: TDispParams; varResult: PVariant;
  1833.       excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract;
  1834.   end;
  1836. { IEnumVariant interface }
  1838.   {$IFDEF BCB} {$EXTERNALSYM IEnumVariant } {$ENDIF}
  1839.   IEnumVariant = class(IUnknown)
  1840.   public
  1841.     function Next(celt: Longint; var elt;
  1842.       var pceltFetched: Longint): HResult; virtual; stdcall; abstract;
  1843.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1844.     function Reset: HResult; virtual; stdcall; abstract;
  1845.     function Clone(var Enum: IEnumVariant): HResult; virtual; stdcall; abstract;
  1846.   end;
  1848. { ITypeComp interface }
  1850.   TDescKind = Longint;
  1852.   PBindPtr = ^TBindPtr;
  1853.   {$IFDEF BCB} {$EXTERNALSYM tagBINDPTR} {$ENDIF}
  1854.   tagBINDPTR = record
  1855.     case Integer of
  1856.       0: (lpfuncdesc: PFuncDesc);
  1857.       1: (lpvardesc: PVarDesc);
  1858.       2: (lptcomp: ITypeComp);
  1859.   end;
  1860.   TBindPtr = tagBINDPTR;
  1861.   {$IFDEF BCB} {$EXTERNALSYM BINDPTR} {$ENDIF}
  1862.   BINDPTR = tagBINDPTR;
  1864.   {$IFDEF BCB} {$EXTERNALSYM ITypeComp } {$ENDIF}
  1865.   ITypeComp = class(IUnknown)
  1866.   public
  1867.     function Bind(szName: POleStr; lHashVal: Longint; wflags: Word;
  1868.       var tinfo: ITypeInfo; var desckind: TDescKind;
  1869.       var bindptr: TBindPtr): HResult; virtual; stdcall; abstract;
  1870.     function BindType(szName: POleStr; lHashVal: Longint;
  1871.       var tinfo: ITypeInfo; var tcomp: ITypeComp): HResult;
  1872.       virtual; stdcall; abstract;
  1873.   end;
  1875. { ITypeInfo interface }
  1877.   {$IFDEF BCB} {$EXTERNALSYM ITypeInfo} {$ENDIF}
  1878.   ITypeInfo = class(IUnknown)
  1879.   public
  1880.     function GetTypeAttr(var ptypeattr: PTypeAttr): HResult; virtual; stdcall; abstract;
  1881.     function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract;
  1882.     function GetFuncDesc(index: Integer; var pfuncdesc: PFuncDesc): HResult;
  1883.       virtual; stdcall; abstract;
  1884.     function GetVarDesc(index: Integer; var pvardesc: PVarDesc): HResult;
  1885.       virtual; stdcall; abstract;
  1886.     function GetNames(memid: TMemberID; rgbstrNames: PBStrList;
  1887.       cMaxNames: Integer; var cNames: Integer): HResult; virtual; stdcall; abstract;
  1888.     function GetRefTypeOfImplType(index: Integer; var reftype: HRefType): HResult;
  1889.       virtual; stdcall; abstract;
  1890.     function GetImplTypeFlags(index: Integer; var impltypeflags: Integer): HResult;
  1891.       virtual; stdcall; abstract;
  1892.     function GetIDsOfNames(rgpszNames: POleStrList; cNames: Integer;
  1893.       rgmemid: PMemberIDList): HResult; virtual; stdcall; abstract;
  1894.     function Invoke(pvInstance: Pointer; memid: TMemberID; flags: Word;
  1895.       var dispParams: TDispParams; varResult: PVariant;
  1896.       excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract;
  1897.     function GetDocumentation(memid: TMemberID; pbstrName: PBStr;
  1898.       pbstrDocString: PBStr; pdwHelpContext: PLongint;
  1899.       pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract;
  1900.     function GetDllEntry(memid: TMemberID; invkind: TInvokeKind;
  1901.       var bstrDllName: TBStr; var bstrName: TBStr; var wOrdinal: Word): HResult;
  1902.       virtual; stdcall; abstract;
  1903.     function GetRefTypeInfo(reftype: HRefType; var tinfo: ITypeInfo): HResult;
  1904.       virtual; stdcall; abstract;
  1905.     function AddressOfMember(memid: TMemberID; invkind: TInvokeKind;
  1906.       var ppv: Pointer): HResult; virtual; stdcall; abstract;
  1907.     function CreateInstance(unkOuter: IUnknown; const iid: TIID;
  1908.       var vObj): HResult; virtual; stdcall; abstract;
  1909.     function GetMops(memid: TMemberID; var bstrMops: TBStr): HResult;
  1910.       virtual; stdcall; abstract;
  1911.     function GetContainingTypeLib(var tlib: ITypeLib; var pindex: Integer): HResult;
  1912.       virtual; stdcall; abstract;
  1913.     procedure ReleaseTypeAttr(ptypeattr: PTypeAttr); virtual; stdcall; abstract;
  1914.     procedure ReleaseFuncDesc(pfuncdesc: PFuncDesc); virtual; stdcall; abstract;
  1915.     procedure ReleaseVarDesc(pvardesc: PVarDesc); virtual; stdcall; abstract;
  1916.   end;
  1918. { ITypeLib interface }
  1920.   TSysKind = Longint;
  1922.   PTLibAttr = ^TTLibAttr;
  1923.   {$IFDEF BCB} {$EXTERNALSYM tagTLIBATTR} {$ENDIF}
  1924.   tagTLIBATTR = record
  1925.     guid: TGUID;
  1926.     lcid: TLCID;
  1927.     syskind: TSysKind;
  1928.     wMajorVerNum: Word;
  1929.     wMinorVerNum: Word;
  1930.     wLibFlags: Word;
  1931.   end;
  1932.   TTLibAttr = tagTLIBATTR;
  1933.   {$IFDEF BCB} {$EXTERNALSYM TLIBATTR} {$ENDIF}
  1934.   TLIBATTR = tagTLIBATTR;
  1936.   PTypeInfoList = ^TTypeInfoList;
  1937.   TTypeInfoList = array[0..65535] of ITypeInfo;
  1939.   {$IFDEF BCB} {$EXTERNALSYM ITypeLib} {$ENDIF}
  1940.   ITypeLib = class(IUnknown)
  1941.   public
  1942.     function GetTypeInfoCount: Integer; virtual; stdcall; abstract;
  1943.     function GetTypeInfo(index: Integer; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract;
  1944.     function GetTypeInfoType(index: Integer; var tkind: TTypeKind): HResult;
  1945.       virtual; stdcall; abstract;
  1946.     function GetTypeInfoOfGuid(const guid: TGUID; var tinfo: ITypeInfo): HResult;
  1947.       virtual; stdcall; abstract;
  1948.     function GetLibAttr(var ptlibattr: PTLibAttr): HResult; virtual; stdcall; abstract;
  1949.     function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract;
  1950.     function GetDocumentation(index: Integer; pbstrName: PBStr;
  1951.       pbstrDocString: PBStr; pdwHelpContext: PLongint;
  1952.       pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract;
  1953.     function IsName(szNameBuf: POleStr; lHashVal: Longint; var fName: BOOL): HResult;
  1954.       virtual; stdcall; abstract;
  1955.     function FindName(szNameBuf: POleStr; lHashVal: Longint;
  1956.       rgptinfo: PTypeInfoList; rgmemid: PMemberIDList;
  1957.       var pcFound: Word): HResult; virtual; stdcall; abstract;
  1958.     procedure ReleaseTLibAttr(ptlibattr: PTLibAttr); virtual; stdcall; abstract;
  1959.   end;
  1961. { IErrorInfo interface }
  1963.   {$IFDEF BCB} {$EXTERNALSYM IErrorInfo } {$ENDIF}
  1964.   IErrorInfo = class(IUnknown)
  1965.   public
  1966.     function GetGUID(var guid: TGUID): HResult; virtual; stdcall; abstract;
  1967.     function GetSource(var bstrSource: TBStr): HResult; virtual; stdcall; abstract;
  1968.     function GetDescription(var bstrDescription: TBStr): HResult; virtual; stdcall; abstract;
  1969.     function GetHelpFile(var bstrHelpFile: TBStr): HResult; virtual; stdcall; abstract;
  1970.     function GetHelpContext(var dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1971.   end;
  1973. { ICreateErrorInfo interface }
  1975.   {$IFDEF BCB} {$EXTERNALSYM ICreateErrorInfo } {$ENDIF}
  1976.   ICreateErrorInfo = class(IUnknown)
  1977.   public
  1978.     function SetGUID(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1979.     function SetSource(szSource: POleStr): HResult; virtual; stdcall; abstract;
  1980.     function SetDescription(szDescription: POleStr): HResult; virtual; stdcall; abstract;
  1981.     function SetHelpFile(szHelpFile: POleStr): HResult; virtual; stdcall; abstract;
  1982.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1983.   end;
  1985. { ISupportErrorInfo interface }
  1987.   {$IFDEF BCB} {$EXTERNALSYM ISupportErrorInfo } {$ENDIF}
  1988.   ISupportErrorInfo = class(IUnknown)
  1989.   public
  1990.     function InterfaceSupportsErrorInfo(const iid: TIID): HResult; virtual; stdcall; abstract;
  1991.   end;
  1993. { IDispatch implementation support }
  1995.   PParamData = ^TParamData;
  1996.   {$IFDEF BCB} {$EXTERNALSYM tagPARAMDATA} {$ENDIF}
  1997.   tagPARAMDATA = record
  1998.     szName: POleStr;
  1999.     vt: TVarType;
  2000.   end;
  2001.   TParamData = tagPARAMDATA;
  2002.   {$IFDEF BCB} {$EXTERNALSYM PARAMDATA} {$ENDIF}
  2003.   PARAMDATA = tagPARAMDATA;
  2005.   PParamDataList = ^TParamDataList;
  2006.   TParamDataList = array[0..65535] of TParamData;
  2008.   PMethodData = ^TMethodData;
  2009.   {$IFDEF BCB} {$EXTERNALSYM tagMETHODDATA} {$ENDIF}
  2010.   tagMETHODDATA = record
  2011.     szName: POleStr;
  2012.     ppdata: PParamDataList;
  2013.     dispid: TDispID;
  2014.     iMeth: Integer;
  2015.     cc: TCallConv;
  2016.     cArgs: Integer;
  2017.     wFlags: Word;
  2018.     vtReturn: TVarType;
  2019.   end;
  2020.   TMethodData = tagMETHODDATA;
  2021.   {$IFDEF BCB} {$EXTERNALSYM METHODDATA} {$ENDIF}
  2022.   METHODDATA = tagMETHODDATA;
  2024.   PMethodDataList = ^TMethodDataList;
  2025.   TMethodDataList = array[0..65535] of TMethodData;
  2027.   PInterfaceData = ^TInterfaceData;
  2028.   {$IFDEF BCB} {$EXTERNALSYM tagINTERFACEDATA} {$ENDIF}
  2029.   tagINTERFACEDATA = record
  2030.     pmethdata: PMethodDataList;
  2031.     cMembers: Integer;
  2032.   end;
  2033.   TInterfaceData = tagINTERFACEDATA;
  2034.   {$IFDEF BCB} {$EXTERNALSYM INTERFACEDATA} {$ENDIF}
  2035.   INTERFACEDATA = tagINTERFACEDATA;
  2037. { IOleAdviseHolder interface }
  2039.   {$IFDEF BCB} {$EXTERNALSYM IOleAdviseHolder} {$ENDIF}
  2040.   IOleAdviseHolder = class(IUnknown)
  2041.   public
  2042.     function Advise(advise: IAdviseSink; var dwConnection: Longint): HResult;
  2043.       virtual; stdcall; abstract;
  2044.     function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  2045.     function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract;
  2046.     function SendOnRename(mk: IMoniker): HResult; virtual; stdcall; abstract;
  2047.     function SendOnSave: HResult; virtual; stdcall; abstract;
  2048.     function SendOnClose: HResult; virtual; stdcall; abstract;
  2049.   end;
  2051. { IOleCache interface }
  2053.   {$IFDEF BCB} {$EXTERNALSYM IOleCache } {$ENDIF}
  2054.   IOleCache = class(IUnknown)
  2055.   public