home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Source / Rtl / Win / OLE2.PAS < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  160KB  |  3,829 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       OLE 2 Interface Unit                            }
  6. {                                                       }
  7. {       Copyright (C) 1996,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit OLE2;
  12.  
  13. interface
  14.  
  15. // For CBuilder v1.0 backward compatiblity, OLE2.HPP must include ole2.h
  16. (*$HPPEMIT '#include <ole2.h>'*)
  17.  
  18. uses Windows;
  19.  
  20. const
  21.   {$EXTERNALSYM MEMCTX_TASK}
  22.   MEMCTX_TASK    = 1;
  23.   {$EXTERNALSYM MEMCTX_SHARED}
  24.   MEMCTX_SHARED    = 2;
  25.   {$EXTERNALSYM MEMCTX_MACSYSTEM}
  26.   MEMCTX_MACSYSTEM = 3;
  27.   {$EXTERNALSYM MEMCTX_UNKNOWN}
  28.   MEMCTX_UNKNOWN   = -1;
  29.   {$EXTERNALSYM MEMCTX_SAME}
  30.   MEMCTX_SAME    = -2;
  31.  
  32.   {$EXTERNALSYM ROTFLAGS_REGISTRATIONKEEPSALIVE}
  33.   ROTFLAGS_REGISTRATIONKEEPSALIVE = 1;
  34.  
  35.   {$EXTERNALSYM CLSCTX_INPROC_SERVER}
  36.   CLSCTX_INPROC_SERVER   = 1;
  37.   {$EXTERNALSYM CLSCTX_INPROC_HANDLER}
  38.   CLSCTX_INPROC_HANDLER  = 2;
  39.   {$EXTERNALSYM CLSCTX_LOCAL_SERVER}
  40.   CLSCTX_LOCAL_SERVER  = 4;
  41.   {$EXTERNALSYM CLSCTX_INPROC_SERVER16}
  42.   CLSCTX_INPROC_SERVER16 = 8;
  43.  
  44.   {$EXTERNALSYM CLSCTX_ALL}
  45.   CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or
  46.                   CLSCTX_LOCAL_SERVER;
  47.   {$EXTERNALSYM CLSCTX_INPROC}
  48.   CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER;
  49.   {$EXTERNALSYM CLSCTX_SERVER}
  50.   CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER;
  51.  
  52.   {$EXTERNALSYM MSHLFLAGS_NORMAL}
  53.   MSHLFLAGS_NORMAL  = 0;
  54.   {$EXTERNALSYM MSHLFLAGS_TABLESTRONG}
  55.   MSHLFLAGS_TABLESTRONG = 1;
  56.   {$EXTERNALSYM MSHLFLAGS_TABLEWEAK}
  57.   MSHLFLAGS_TABLEWEAK = 2;
  58.  
  59.   {$EXTERNALSYM MSHCTX_LOCAL}
  60.   MSHCTX_LOCAL            = 0;
  61.   {$EXTERNALSYM MSHCTX_NOSHAREDMEM}
  62.   MSHCTX_NOSHAREDMEM    = 1;
  63.   {$EXTERNALSYM MSHCTX_DIFFERENTMACHINE}
  64.   MSHCTX_DIFFERENTMACHINE = 2;
  65.   {$EXTERNALSYM MSHCTX_INPROC}
  66.   MSHCTX_INPROC           = 3;
  67.  
  68.   {$EXTERNALSYM DVASPECT_CONTENT}
  69.   DVASPECT_CONTENT   = 1;
  70.   {$EXTERNALSYM DVASPECT_THUMBNAIL}
  71.   DVASPECT_THUMBNAIL = 2;
  72.   {$EXTERNALSYM DVASPECT_ICON}
  73.   DVASPECT_ICON      = 4;
  74.   {$EXTERNALSYM DVASPECT_DOCPRINT}
  75.   DVASPECT_DOCPRINT  = 8;
  76.  
  77.   {$EXTERNALSYM STGC_DEFAULT}
  78.   STGC_DEFAULT                            = 0;
  79.   {$EXTERNALSYM STGC_OVERWRITE}
  80.   STGC_OVERWRITE                    = 1;
  81.   {$EXTERNALSYM STGC_ONLYIFCURRENT}
  82.   STGC_ONLYIFCURRENT                    = 2;
  83.   {$EXTERNALSYM STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE}
  84.   STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;
  85.  
  86.   {$EXTERNALSYM STGMOVE_MOVE}
  87.   STGMOVE_MOVE = 0;
  88.   {$EXTERNALSYM STGMOVE_COPY}
  89.   STGMOVE_COPY = 1;
  90.  
  91.   {$EXTERNALSYM STATFLAG_DEFAULT}
  92.   STATFLAG_DEFAULT = 0;
  93.   {$EXTERNALSYM STATFLAG_NONAME}
  94.   STATFLAG_NONAME  = 1;
  95.  
  96.   {$EXTERNALSYM BIND_MAYBOTHERUSER}
  97.   BIND_MAYBOTHERUSER   = 1;
  98.   {$EXTERNALSYM BIND_JUSTTESTEXISTENCE}
  99.   BIND_JUSTTESTEXISTENCE = 2;
  100.  
  101.   {$EXTERNALSYM MKSYS_NONE}
  102.   MKSYS_NONE           = 0;
  103.   {$EXTERNALSYM MKSYS_GENERICCOMPOSITE}
  104.   MKSYS_GENERICCOMPOSITE = 1;
  105.   {$EXTERNALSYM MKSYS_FILEMONIKER}
  106.   MKSYS_FILEMONIKER  = 2;
  107.   {$EXTERNALSYM MKSYS_ANTIMONIKER}
  108.   MKSYS_ANTIMONIKER  = 3;
  109.   {$EXTERNALSYM MKSYS_ITEMMONIKER}
  110.   MKSYS_ITEMMONIKER  = 4;
  111.   {$EXTERNALSYM MKSYS_POINTERMONIKER}
  112.   MKSYS_POINTERMONIKER   = 5;
  113.  
  114.   {$EXTERNALSYM MKRREDUCE_ONE}
  115.   MKRREDUCE_ONE         = 3 shl 16;
  116.   {$EXTERNALSYM MKRREDUCE_TOUSER}
  117.   MKRREDUCE_TOUSER  = 2 shl 16;
  118.   {$EXTERNALSYM MKRREDUCE_THROUGHUSER}
  119.   MKRREDUCE_THROUGHUSER = 1 shl 16;
  120.   {$EXTERNALSYM MKRREDUCE_ALL}
  121.   MKRREDUCE_ALL         = 0;
  122.  
  123.   {$EXTERNALSYM STGTY_STORAGE}
  124.   STGTY_STORAGE   = 1;
  125.   {$EXTERNALSYM STGTY_STREAM}
  126.   STGTY_STREAM    = 2;
  127.   {$EXTERNALSYM STGTY_LOCKBYTES}
  128.   STGTY_LOCKBYTES = 3;
  129.   {$EXTERNALSYM STGTY_PROPERTY}
  130.   STGTY_PROPERTY  = 4;
  131.  
  132.   {$EXTERNALSYM STREAM_SEEK_SET}
  133.   STREAM_SEEK_SET = 0;
  134.   {$EXTERNALSYM STREAM_SEEK_CUR}
  135.   STREAM_SEEK_CUR = 1;
  136.   {$EXTERNALSYM STREAM_SEEK_END}
  137.   STREAM_SEEK_END = 2;
  138.  
  139.   {$EXTERNALSYM LOCK_WRITE}
  140.   LOCK_WRITE   = 1;
  141.   {$EXTERNALSYM LOCK_EXCLUSIVE}
  142.   LOCK_EXCLUSIVE = 2;
  143.   {$EXTERNALSYM LOCK_ONLYONCE}
  144.   LOCK_ONLYONCE  = 4;
  145.  
  146.   {$EXTERNALSYM ADVF_NODATA}
  147.   ADVF_NODATA          = 1;
  148.   {$EXTERNALSYM ADVF_PRIMEFIRST}
  149.   ADVF_PRIMEFIRST  = 2;
  150.   {$EXTERNALSYM ADVF_ONLYONCE}
  151.   ADVF_ONLYONCE          = 4;
  152.   {$EXTERNALSYM ADVF_DATAONSTOP}
  153.   ADVF_DATAONSTOP  = 64;
  154.   {$EXTERNALSYM ADVFCACHE_NOHANDLER}
  155.   ADVFCACHE_NOHANDLER  = 8;
  156.   {$EXTERNALSYM ADVFCACHE_FORCEBUILTIN}
  157.   ADVFCACHE_FORCEBUILTIN = 16;
  158.   {$EXTERNALSYM ADVFCACHE_ONSAVE}
  159.   ADVFCACHE_ONSAVE   = 32;
  160.  
  161.   {$EXTERNALSYM TYMED_HGLOBAL}
  162.   TYMED_HGLOBAL  = 1;
  163.   {$EXTERNALSYM TYMED_FILE}
  164.   TYMED_FILE     = 2;
  165.   {$EXTERNALSYM TYMED_ISTREAM}
  166.   TYMED_ISTREAM  = 4;
  167.   {$EXTERNALSYM TYMED_ISTORAGE}
  168.   TYMED_ISTORAGE = 8;
  169.   {$EXTERNALSYM TYMED_GDI}
  170.   TYMED_GDI  = 16;
  171.   {$EXTERNALSYM TYMED_MFPICT}
  172.   TYMED_MFPICT   = 32;
  173.   {$EXTERNALSYM TYMED_ENHMF}
  174.   TYMED_ENHMF  = 64;
  175.   {$EXTERNALSYM TYMED_NULL}
  176.   TYMED_NULL   = 0;
  177.  
  178.   {$EXTERNALSYM DATADIR_GET}
  179.   DATADIR_GET = 1;
  180.   {$EXTERNALSYM DATADIR_SET}
  181.   DATADIR_SET = 2;
  182.  
  183.   {$EXTERNALSYM CALLTYPE_TOPLEVEL}
  184.   CALLTYPE_TOPLEVEL         = 1;
  185.   {$EXTERNALSYM CALLTYPE_NESTED}
  186.   CALLTYPE_NESTED         = 2;
  187.   {$EXTERNALSYM CALLTYPE_ASYNC}
  188.   CALLTYPE_ASYNC          = 3;
  189.   {$EXTERNALSYM CALLTYPE_TOPLEVEL_CALLPENDING}
  190.   CALLTYPE_TOPLEVEL_CALLPENDING = 4;
  191.   {$EXTERNALSYM CALLTYPE_ASYNC_CALLPENDING}
  192.   CALLTYPE_ASYNC_CALLPENDING  = 5;
  193.  
  194.   {$EXTERNALSYM SERVERCALL_ISHANDLED}
  195.   SERVERCALL_ISHANDLED  = 0;
  196.   {$EXTERNALSYM SERVERCALL_REJECTED}
  197.   SERVERCALL_REJECTED = 1;
  198.   {$EXTERNALSYM SERVERCALL_RETRYLATER}
  199.   SERVERCALL_RETRYLATER = 2;
  200.  
  201.   {$EXTERNALSYM PENDINGTYPE_TOPLEVEL}
  202.   PENDINGTYPE_TOPLEVEL = 1;
  203.   {$EXTERNALSYM PENDINGTYPE_NESTED}
  204.   PENDINGTYPE_NESTED   = 2;
  205.  
  206.   {$EXTERNALSYM PENDINGMSG_CANCELCALL}
  207.   PENDINGMSG_CANCELCALL     = 0;
  208.   {$EXTERNALSYM PENDINGMSG_WAITNOPROCESS}
  209.   PENDINGMSG_WAITNOPROCESS  = 1;
  210.   {$EXTERNALSYM PENDINGMSG_WAITDEFPROCESS}
  211.   PENDINGMSG_WAITDEFPROCESS = 2;
  212.  
  213.   {$EXTERNALSYM REGCLS_SINGLEUSE}
  214.   REGCLS_SINGLEUSE      = 0;
  215.   {$EXTERNALSYM REGCLS_MULTIPLEUSE}
  216.   REGCLS_MULTIPLEUSE    = 1;
  217.   {$EXTERNALSYM REGCLS_MULTI_SEPARATE}
  218.   REGCLS_MULTI_SEPARATE = 2;
  219.  
  220.   {$EXTERNALSYM MARSHALINTERFACE_MIN}
  221.   MARSHALINTERFACE_MIN = 500;
  222.  
  223.   {$EXTERNALSYM CWCSTORAGENAME}
  224.   CWCSTORAGENAME = 32;
  225.  
  226.   {$EXTERNALSYM STGM_DIRECT}
  227.   STGM_DIRECT           = $00000000;
  228.   {$EXTERNALSYM STGM_TRANSACTED}
  229.   STGM_TRANSACTED       = $00010000;
  230.   {$EXTERNALSYM STGM_SIMPLE}
  231.   STGM_SIMPLE           = $08000000;
  232.  
  233.   {$EXTERNALSYM STGM_READ}
  234.   STGM_READ             = $00000000;
  235.   {$EXTERNALSYM STGM_WRITE}
  236.   STGM_WRITE            = $00000001;
  237.   {$EXTERNALSYM STGM_READWRITE}
  238.   STGM_READWRITE        = $00000002;
  239.  
  240.   {$EXTERNALSYM STGM_SHARE_DENY_NONE}
  241.   STGM_SHARE_DENY_NONE  = $00000040;
  242.   {$EXTERNALSYM STGM_SHARE_DENY_READ}
  243.   STGM_SHARE_DENY_READ  = $00000030;
  244.   {$EXTERNALSYM STGM_SHARE_DENY_WRITE}
  245.   STGM_SHARE_DENY_WRITE = $00000020;
  246.   {$EXTERNALSYM STGM_SHARE_EXCLUSIVE}
  247.   STGM_SHARE_EXCLUSIVE  = $00000010;
  248.  
  249.   {$EXTERNALSYM STGM_PRIORITY}
  250.   STGM_PRIORITY         = $00040000;
  251.   {$EXTERNALSYM STGM_DELETEONRELEASE}
  252.   STGM_DELETEONRELEASE  = $04000000;
  253.  
  254.   {$EXTERNALSYM STGM_CREATE}
  255.   STGM_CREATE           = $00001000;
  256.   {$EXTERNALSYM STGM_CONVERT}
  257.   STGM_CONVERT          = $00020000;
  258.   {$EXTERNALSYM STGM_FAILIFTHERE}
  259.   STGM_FAILIFTHERE      = $00000000;
  260.  
  261.   {$EXTERNALSYM FADF_AUTO}
  262.   FADF_AUTO      = $0001;  { array is allocated on the stack }
  263.   {$EXTERNALSYM FADF_STATIC}
  264.   FADF_STATIC    = $0002;  { array is staticly allocated }
  265.   {$EXTERNALSYM FADF_EMBEDDED}
  266.   FADF_EMBEDDED  = $0004;  { array is embedded in a structure }
  267.   {$EXTERNALSYM FADF_FIXEDSIZE}
  268.   FADF_FIXEDSIZE = $0010;  { array may not be resized or reallocated }
  269.   {$EXTERNALSYM FADF_BSTR}
  270.   FADF_BSTR      = $0100;  { an array of BSTRs }
  271.   {$EXTERNALSYM FADF_UNKNOWN}
  272.   FADF_UNKNOWN   = $0200;  { an array of IUnknown }
  273.   {$EXTERNALSYM FADF_DISPATCH}
  274.   FADF_DISPATCH  = $0400;  { an array of IDispatch }
  275.   {$EXTERNALSYM FADF_VARIANT}
  276.   FADF_VARIANT   = $0800;  { an array of VARIANTs }
  277.   {$EXTERNALSYM FADF_RESERVED}
  278.   FADF_RESERVED  = $F0E8;  { bits reserved for future use }
  279.  
  280. { VARENUM usage key,
  281.  
  282.     [V] - may appear in a VARIANT
  283.     [T] - may appear in a TYPEDESC
  284.     [P] - may appear in an OLE property set
  285.     [S] - may appear in a Safe Array }
  286.  
  287.   {$EXTERNALSYM VT_EMPTY}
  288.   VT_EMPTY           = 0;   { [V]   [P]  nothing                     }
  289.   {$EXTERNALSYM VT_NULL}
  290.   VT_NULL            = 1;   { [V]        SQL style Null              }
  291.   {$EXTERNALSYM VT_I2}
  292.   VT_I2              = 2;   { [V][T][P]  2 byte signed int           }
  293.   {$EXTERNALSYM VT_I4}
  294.   VT_I4              = 3;   { [V][T][P]  4 byte signed int           }
  295.   {$EXTERNALSYM VT_R4}
  296.   VT_R4              = 4;   { [V][T][P]  4 byte real                 }
  297.   {$EXTERNALSYM VT_R8}
  298.   VT_R8              = 5;   { [V][T][P]  8 byte real                 }
  299.   {$EXTERNALSYM VT_CY}
  300.   VT_CY              = 6;   { [V][T][P]  currency                    }
  301.   {$EXTERNALSYM VT_DATE}
  302.   VT_DATE            = 7;   { [V][T][P]  date                        }
  303.   {$EXTERNALSYM VT_BSTR}
  304.   VT_BSTR            = 8;   { [V][T][P]  binary string               }
  305.   {$EXTERNALSYM VT_DISPATCH}
  306.   VT_DISPATCH        = 9;   { [V][T]     IDispatch FAR*              }
  307.   {$EXTERNALSYM VT_ERROR}
  308.   VT_ERROR           = 10;  { [V][T]     SCODE                       }
  309.   {$EXTERNALSYM VT_BOOL}
  310.   VT_BOOL            = 11;  { [V][T][P]  True=-1, False=0            }
  311.   {$EXTERNALSYM VT_VARIANT}
  312.   VT_VARIANT         = 12;  { [V][T][P]  VARIANT FAR*                }
  313.   {$EXTERNALSYM VT_UNKNOWN}
  314.   VT_UNKNOWN         = 13;  { [V][T]     IUnknown FAR*               }
  315.  
  316.   {$EXTERNALSYM VT_I1}
  317.   VT_I1              = 16;  {    [T]     signed char                 }
  318.   {$EXTERNALSYM VT_UI1}
  319.   VT_UI1             = 17;  {    [T]     unsigned char               }
  320.   {$EXTERNALSYM VT_UI2}
  321.   VT_UI2             = 18;  {    [T]     unsigned short              }
  322.   {$EXTERNALSYM VT_UI4}
  323.   VT_UI4             = 19;  {    [T]     unsigned short              }
  324.   {$EXTERNALSYM VT_I8}
  325.   VT_I8              = 20;  {    [T][P]  signed 64-bit int           }
  326.   {$EXTERNALSYM VT_UI8}
  327.   VT_UI8             = 21;  {    [T]     unsigned 64-bit int         }
  328.   {$EXTERNALSYM VT_INT}
  329.   VT_INT             = 22;  {    [T]     signed machine int          }
  330.   {$EXTERNALSYM VT_UINT}
  331.   VT_UINT            = 23;  {    [T]     unsigned machine int        }
  332.   {$EXTERNALSYM VT_VOID}
  333.   VT_VOID            = 24;  {    [T]     C style void                }
  334.   {$EXTERNALSYM VT_HRESULT}
  335.   VT_HRESULT         = 25;  {    [T]                                 }
  336.   {$EXTERNALSYM VT_PTR}
  337.   VT_PTR             = 26;  {    [T]     pointer type                }
  338.   {$EXTERNALSYM VT_SAFEARRAY}
  339.   VT_SAFEARRAY       = 27;  {    [T]     (use VT_ARRAY in VARIANT)   }
  340.   {$EXTERNALSYM VT_CARRAY}
  341.   VT_CARRAY          = 28;  {    [T]     C style array               }
  342.   {$EXTERNALSYM VT_USERDEFINED}
  343.   VT_USERDEFINED     = 29;  {    [T]     user defined type          }
  344.   {$EXTERNALSYM VT_LPSTR}
  345.   VT_LPSTR           = 30;  {    [T][P]  null terminated string      }
  346.   {$EXTERNALSYM VT_LPWSTR}
  347.   VT_LPWSTR          = 31;  {    [T][P]  wide null terminated string }
  348.  
  349.   {$EXTERNALSYM VT_FILETIME}
  350.   VT_FILETIME        = 64;  {       [P]  FILETIME                    }
  351.   {$EXTERNALSYM VT_BLOB}
  352.   VT_BLOB            = 65;  {       [P]  Length prefixed bytes       }
  353.   {$EXTERNALSYM VT_STREAM}
  354.   VT_STREAM          = 66;  {       [P]  Name of the stream follows  }
  355.   {$EXTERNALSYM VT_STORAGE}
  356.   VT_STORAGE         = 67;  {       [P]  Name of the storage follows }
  357.   {$EXTERNALSYM VT_STREAMED_OBJECT}
  358.   VT_STREAMED_OBJECT = 68;  {       [P]  Stream contains an object   }
  359.   {$EXTERNALSYM VT_STORED_OBJECT}
  360.   VT_STORED_OBJECT   = 69;  {       [P]  Storage contains an object  }
  361.   {$EXTERNALSYM VT_BLOB_OBJECT}
  362.   VT_BLOB_OBJECT     = 70;  {       [P]  Blob contains an object     }
  363.   {$EXTERNALSYM VT_CF}
  364.   VT_CF              = 71;  {       [P]  Clipboard format            }
  365.   {$EXTERNALSYM VT_CLSID}
  366.   VT_CLSID           = 72;  {       [P]  A Class ID                  }
  367.  
  368.   {$EXTERNALSYM VT_VECTOR}
  369.   VT_VECTOR       = $1000;  {       [P]  simple counted array        }
  370.   {$EXTERNALSYM VT_ARRAY}
  371.   VT_ARRAY        = $2000;  { [V]        SAFEARRAY*                  }
  372.   {$EXTERNALSYM VT_BYREF}
  373.   VT_BYREF        = $4000;  { [V]                                    }
  374.   {$EXTERNALSYM VT_RESERVED}
  375.   VT_RESERVED     = $8000;
  376.  
  377.   {$EXTERNALSYM TKIND_ENUM}
  378.   TKIND_ENUM      = 0;
  379.   {$EXTERNALSYM TKIND_RECORD}
  380.   TKIND_RECORD    = 1;
  381.   {$EXTERNALSYM TKIND_MODULE}
  382.   TKIND_MODULE    = 2;
  383.   {$EXTERNALSYM TKIND_INTERFACE}
  384.   TKIND_INTERFACE = 3;
  385.   {$EXTERNALSYM TKIND_DISPATCH}
  386.   TKIND_DISPATCH  = 4;
  387.   {$EXTERNALSYM TKIND_COCLASS}
  388.   TKIND_COCLASS   = 5;
  389.   {$EXTERNALSYM TKIND_ALIAS}
  390.   TKIND_ALIAS     = 6;
  391.   {$EXTERNALSYM TKIND_UNION}
  392.   TKIND_UNION     = 7;
  393.   {$EXTERNALSYM TKIND_MAX}
  394.   TKIND_MAX       = 8;
  395.  
  396.   {$EXTERNALSYM CC_CDECL}
  397.   CC_CDECL     = 1;
  398.   {$EXTERNALSYM CC_PASCAL}
  399.   CC_PASCAL    = 2;
  400.   {$EXTERNALSYM CC_MACPASCAL}
  401.   CC_MACPASCAL = 3;
  402.   {$EXTERNALSYM CC_STDCALL}
  403.   CC_STDCALL   = 4;
  404.   {$EXTERNALSYM CC_RESERVED}
  405.   CC_RESERVED  = 5;
  406.   {$EXTERNALSYM CC_SYSCALL}
  407.   CC_SYSCALL   = 6;
  408.   {$EXTERNALSYM CC_MPWCDECL}
  409.   CC_MPWCDECL  = 7;
  410.   {$EXTERNALSYM CC_MPWPASCAL}
  411.   CC_MPWPASCAL = 8;
  412.   {$EXTERNALSYM CC_MAX}
  413.   CC_MAX       = 9;
  414.  
  415.   {$EXTERNALSYM FUNC_VIRTUAL}
  416.   FUNC_VIRTUAL     = 0;
  417.   {$EXTERNALSYM FUNC_PUREVIRTUAL}
  418.   FUNC_PUREVIRTUAL = 1;
  419.   {$EXTERNALSYM FUNC_NONVIRTUAL}
  420.   FUNC_NONVIRTUAL  = 2;
  421.   {$EXTERNALSYM FUNC_STATIC}
  422.   FUNC_STATIC      = 3;
  423.   {$EXTERNALSYM FUNC_DISPATCH}
  424.   FUNC_DISPATCH    = 4;
  425.  
  426.   {$EXTERNALSYM INVOKE_FUNC}
  427.   INVOKE_FUNC           = 1;
  428.   {$EXTERNALSYM INVOKE_PROPERTYGET}
  429.   INVOKE_PROPERTYGET    = 2;
  430.   {$EXTERNALSYM INVOKE_PROPERTYPUT}
  431.   INVOKE_PROPERTYPUT    = 4;
  432.   {$EXTERNALSYM INVOKE_PROPERTYPUTREF}
  433.   INVOKE_PROPERTYPUTREF = 8;
  434.  
  435.   {$EXTERNALSYM VAR_PERINSTANCE}
  436.   VAR_PERINSTANCE = 0;
  437.   {$EXTERNALSYM VAR_STATIC}
  438.   VAR_STATIC      = 1;
  439.   {$EXTERNALSYM VAR_CONST}
  440.   VAR_CONST       = 2;
  441.   {$EXTERNALSYM VAR_DISPATCH}
  442.   VAR_DISPATCH    = 3;
  443.  
  444.   {$EXTERNALSYM IMPLTYPEFLAG_FDEFAULT}
  445.   IMPLTYPEFLAG_FDEFAULT    = 1;
  446.   {$EXTERNALSYM IMPLTYPEFLAG_FSOURCE}
  447.   IMPLTYPEFLAG_FSOURCE     = 2;
  448.   {$EXTERNALSYM IMPLTYPEFLAG_FRESTRICTED}
  449.   IMPLTYPEFLAG_FRESTRICTED = 4;
  450.  
  451.   {$EXTERNALSYM TYPEFLAG_FAPPOBJECT}
  452.   TYPEFLAG_FAPPOBJECT   = $0001;
  453.   {$EXTERNALSYM TYPEFLAG_FCANCREATE}
  454.   TYPEFLAG_FCANCREATE   = $0002;
  455.   {$EXTERNALSYM TYPEFLAG_FLICENSED}
  456.   TYPEFLAG_FLICENSED    = $0004;
  457.   {$EXTERNALSYM TYPEFLAG_FPREDECLID}
  458.   TYPEFLAG_FPREDECLID   = $0008;
  459.   {$EXTERNALSYM TYPEFLAG_FHIDDEN}
  460.   TYPEFLAG_FHIDDEN    = $0010;
  461.   {$EXTERNALSYM TYPEFLAG_FCONTROL}
  462.   TYPEFLAG_FCONTROL   = $0020;
  463.   {$EXTERNALSYM TYPEFLAG_FDUAL}
  464.   TYPEFLAG_FDUAL    = $0040;
  465.   {$EXTERNALSYM TYPEFLAG_FNONEXTENSIBLE}
  466.   TYPEFLAG_FNONEXTENSIBLE = $0080;
  467.   {$EXTERNALSYM TYPEFLAG_FOLEAUTOMATION}
  468.   TYPEFLAG_FOLEAUTOMATION = $0100;
  469.  
  470.   {$EXTERNALSYM FUNCFLAG_FRESTRICTED}
  471.   FUNCFLAG_FRESTRICTED  = $0001;
  472.   {$EXTERNALSYM FUNCFLAG_FSOURCE}
  473.   FUNCFLAG_FSOURCE  = $0002;
  474.   {$EXTERNALSYM FUNCFLAG_FBINDABLE}
  475.   FUNCFLAG_FBINDABLE  = $0004;
  476.   {$EXTERNALSYM FUNCFLAG_FREQUESTEDIT}
  477.   FUNCFLAG_FREQUESTEDIT = $0008;
  478.   {$EXTERNALSYM FUNCFLAG_FDISPLAYBIND}
  479.   FUNCFLAG_FDISPLAYBIND = $0010;
  480.   {$EXTERNALSYM FUNCFLAG_FDEFAULTBIND}
  481.   FUNCFLAG_FDEFAULTBIND = $0020;
  482.   {$EXTERNALSYM FUNCFLAG_FHIDDEN}
  483.   FUNCFLAG_FHIDDEN  = $0040;
  484.  
  485.   {$EXTERNALSYM VARFLAG_FREADONLY}
  486.   VARFLAG_FREADONLY    = $0001;
  487.   {$EXTERNALSYM VARFLAG_FSOURCE}
  488.   VARFLAG_FSOURCE      = $0002;
  489.   {$EXTERNALSYM VARFLAG_FBINDABLE}
  490.   VARFLAG_FBINDABLE    = $0004;
  491.   {$EXTERNALSYM VARFLAG_FREQUESTEDIT}
  492.   VARFLAG_FREQUESTEDIT = $0008;
  493.   {$EXTERNALSYM VARFLAG_FDISPLAYBIND}
  494.   VARFLAG_FDISPLAYBIND = $0010;
  495.   {$EXTERNALSYM VARFLAG_FDEFAULTBIND}
  496.   VARFLAG_FDEFAULTBIND = $0020;
  497.   {$EXTERNALSYM VARFLAG_FHIDDEN}
  498.   VARFLAG_FHIDDEN      = $0040;
  499.  
  500.   {$EXTERNALSYM DISPID_VALUE}
  501.   DISPID_VALUE       = 0;
  502.   {$EXTERNALSYM DISPID_UNKNOWN}
  503.   DISPID_UNKNOWN     = -1;
  504.   {$EXTERNALSYM DISPID_PROPERTYPUT}
  505.   DISPID_PROPERTYPUT = -3;
  506.   {$EXTERNALSYM DISPID_NEWENUM}
  507.   DISPID_NEWENUM     = -4;
  508.   {$EXTERNALSYM DISPID_EVALUATE}
  509.   DISPID_EVALUATE    = -5;
  510.   {$EXTERNALSYM DISPID_CONSTRUCTOR}
  511.   DISPID_CONSTRUCTOR = -6;
  512.   {$EXTERNALSYM DISPID_DESTRUCTOR}
  513.   DISPID_DESTRUCTOR  = -7;
  514.   {$EXTERNALSYM DISPID_COLLECT}
  515.   DISPID_COLLECT     = -8;
  516.  
  517.   {$EXTERNALSYM DESCKIND_NONE}
  518.   DESCKIND_NONE = 0;
  519.   {$EXTERNALSYM DESCKIND_FUNCDESC}
  520.   DESCKIND_FUNCDESC = 1;
  521.   {$EXTERNALSYM DESCKIND_VARDESC}
  522.   DESCKIND_VARDESC = 2;
  523.   {$EXTERNALSYM DESCKIND_TYPECOMP}
  524.   DESCKIND_TYPECOMP = 3;
  525.   {$EXTERNALSYM DESCKIND_IMPLICITAPPOBJ}
  526.   DESCKIND_IMPLICITAPPOBJ = 4;
  527.   {$EXTERNALSYM DESCKIND_MAX}
  528.   DESCKIND_MAX = 5;
  529.  
  530.   {$EXTERNALSYM SYS_WIN16}
  531.   SYS_WIN16 = 0;
  532.   {$EXTERNALSYM SYS_WIN32}
  533.   SYS_WIN32 = 1;
  534.   {$EXTERNALSYM SYS_MAC}
  535.   SYS_MAC   = 2;
  536.  
  537.   {$EXTERNALSYM LIBFLAG_FRESTRICTED}
  538.   LIBFLAG_FRESTRICTED = 1;
  539.   {$EXTERNALSYM LIBFLAG_FCONTROL}
  540.   LIBFLAG_FCONTROL    = 2;
  541.   {$EXTERNALSYM LIBFLAG_FHIDDEN}
  542.   LIBFLAG_FHIDDEN     = 4;
  543.  
  544.   {$EXTERNALSYM STDOLE_MAJORVERNUM}
  545.   STDOLE_MAJORVERNUM = 1;
  546.   {$EXTERNALSYM STDOLE_MINORVERNUM}
  547.   STDOLE_MINORVERNUM = 0;
  548.  
  549.   {$EXTERNALSYM STDOLE_LCID}
  550.   STDOLE_LCID = 0;
  551.  
  552.   {$EXTERNALSYM VARIANT_NOVALUEPROP}
  553.   VARIANT_NOVALUEPROP = 1;
  554.  
  555.   {$EXTERNALSYM VAR_TIMEVALUEONLY}
  556.   VAR_TIMEVALUEONLY = 1;
  557.   {$EXTERNALSYM VAR_DATEVALUEONLY}
  558.   VAR_DATEVALUEONLY = 2;
  559.  
  560.   {$EXTERNALSYM MEMBERID_NIL}
  561.   MEMBERID_NIL = DISPID_UNKNOWN;
  562.  
  563.   {$EXTERNALSYM ID_DEFAULTINST}
  564.   ID_DEFAULTINST = -2;
  565.  
  566.   {$EXTERNALSYM IDLFLAG_NONE}
  567.   IDLFLAG_NONE    = 0;
  568.   {$EXTERNALSYM IDLFLAG_FIN}
  569.   IDLFLAG_FIN     = 1;
  570.   {$EXTERNALSYM IDLFLAG_FOUT}
  571.   IDLFLAG_FOUT    = 2;
  572.   {$EXTERNALSYM IDLFLAG_FLCID}
  573.   IDLFLAG_FLCID   = 4;
  574.   {$EXTERNALSYM IDLFLAG_FRETVAL}
  575.   IDLFLAG_FRETVAL = 8;
  576.  
  577.   {$EXTERNALSYM DISPATCH_METHOD}
  578.   DISPATCH_METHOD         = 1;
  579.   {$EXTERNALSYM DISPATCH_PROPERTYGET}
  580.   DISPATCH_PROPERTYGET    = 2;
  581.   {$EXTERNALSYM DISPATCH_PROPERTYPUT}
  582.   DISPATCH_PROPERTYPUT    = 4;
  583.   {$EXTERNALSYM DISPATCH_PROPERTYPUTREF}
  584.   DISPATCH_PROPERTYPUTREF = 8;
  585.  
  586.   {$EXTERNALSYM OLEIVERB_PRIMARY}
  587.   OLEIVERB_PRIMARY          = 0;
  588.   {$EXTERNALSYM OLEIVERB_SHOW}
  589.   OLEIVERB_SHOW             = -1;
  590.   {$EXTERNALSYM OLEIVERB_OPEN}
  591.   OLEIVERB_OPEN             = -2;
  592.   {$EXTERNALSYM OLEIVERB_HIDE}
  593.   OLEIVERB_HIDE             = -3;
  594.   {$EXTERNALSYM OLEIVERB_UIACTIVATE}
  595.   OLEIVERB_UIACTIVATE       = -4;
  596.   {$EXTERNALSYM OLEIVERB_INPLACEACTIVATE}
  597.   OLEIVERB_INPLACEACTIVATE  = -5;
  598.   {$EXTERNALSYM OLEIVERB_DISCARDUNDOSTATE}
  599.   OLEIVERB_DISCARDUNDOSTATE = -6;
  600.  
  601.   {$EXTERNALSYM EMBDHLP_INPROC_HANDLER}
  602.   EMBDHLP_INPROC_HANDLER = $00000000;
  603.   {$EXTERNALSYM EMBDHLP_INPROC_SERVER}
  604.   EMBDHLP_INPROC_SERVER  = $00000001;
  605.   {$EXTERNALSYM EMBDHLP_CREATENOW}
  606.   EMBDHLP_CREATENOW      = $00000000;
  607.   {$EXTERNALSYM EMBDHLP_DELAYCREATE}
  608.   EMBDHLP_DELAYCREATE    = $00010000;
  609.  
  610.   {$EXTERNALSYM UPDFCACHE_NODATACACHE}
  611.   UPDFCACHE_NODATACACHE = 1;
  612.   {$EXTERNALSYM UPDFCACHE_ONSAVECACHE}
  613.   UPDFCACHE_ONSAVECACHE = 2;
  614.   {$EXTERNALSYM UPDFCACHE_ONSTOPCACHE}
  615.   UPDFCACHE_ONSTOPCACHE = 4;
  616.   {$EXTERNALSYM UPDFCACHE_NORMALCACHE}
  617.   UPDFCACHE_NORMALCACHE = 8;
  618.   {$EXTERNALSYM UPDFCACHE_IFBLANK}
  619.   UPDFCACHE_IFBLANK     = $10;
  620.   {$EXTERNALSYM UPDFCACHE_ONLYIFBLANK}
  621.   UPDFCACHE_ONLYIFBLANK = $80000000;
  622.  
  623.   {$EXTERNALSYM UPDFCACHE_IFBLANKORONSAVECACHE}
  624.   UPDFCACHE_IFBLANKORONSAVECACHE = UPDFCACHE_IFBLANK or UPDFCACHE_ONSAVECACHE;
  625.   {$EXTERNALSYM UPDFCACHE_ALL}
  626.   UPDFCACHE_ALL                  = not UPDFCACHE_ONLYIFBLANK;
  627.   {$EXTERNALSYM UPDFCACHE_ALLBUTNODATACACHE}
  628.   UPDFCACHE_ALLBUTNODATACACHE    = UPDFCACHE_ALL and not UPDFCACHE_NODATACACHE;
  629.  
  630.   {$EXTERNALSYM DISCARDCACHE_SAVEIFDIRTY}
  631.   DISCARDCACHE_SAVEIFDIRTY = 0;
  632.   {$EXTERNALSYM DISCARDCACHE_NOSAVE}
  633.   DISCARDCACHE_NOSAVE      = 1;
  634.  
  635.   {$EXTERNALSYM OLEGETMONIKER_ONLYIFTHERE}
  636.   OLEGETMONIKER_ONLYIFTHERE = 1;
  637.   {$EXTERNALSYM OLEGETMONIKER_FORCEASSIGN}
  638.   OLEGETMONIKER_FORCEASSIGN = 2;
  639.   {$EXTERNALSYM OLEGETMONIKER_UNASSIGN}
  640.   OLEGETMONIKER_UNASSIGN    = 3;
  641.   {$EXTERNALSYM OLEGETMONIKER_TEMPFORUSER}
  642.   OLEGETMONIKER_TEMPFORUSER = 4;
  643.  
  644.   {$EXTERNALSYM OLEWHICHMK_CONTAINER}
  645.   OLEWHICHMK_CONTAINER = 1;
  646.   {$EXTERNALSYM OLEWHICHMK_OBJREL}
  647.   OLEWHICHMK_OBJREL    = 2;
  648.   {$EXTERNALSYM OLEWHICHMK_OBJFULL}
  649.   OLEWHICHMK_OBJFULL   = 3;
  650.  
  651.   {$EXTERNALSYM USERCLASSTYPE_FULL}
  652.   USERCLASSTYPE_FULL    = 1;
  653.   {$EXTERNALSYM USERCLASSTYPE_SHORT}
  654.   USERCLASSTYPE_SHORT   = 2;
  655.   {$EXTERNALSYM USERCLASSTYPE_APPNAME}
  656.   USERCLASSTYPE_APPNAME = 3;
  657.  
  658.   {$EXTERNALSYM OLEMISC_RECOMPOSEONRESIZE}
  659.   OLEMISC_RECOMPOSEONRESIZE        = 1;
  660.   {$EXTERNALSYM OLEMISC_ONLYICONIC}
  661.   OLEMISC_ONLYICONIC                 = 2;
  662.   {$EXTERNALSYM OLEMISC_INSERTNOTREPLACE}
  663.   OLEMISC_INSERTNOTREPLACE         = 4;
  664.   {$EXTERNALSYM OLEMISC_STATIC}
  665.   OLEMISC_STATIC                 = 8;
  666.   {$EXTERNALSYM OLEMISC_CANTLINKINSIDE}
  667.   OLEMISC_CANTLINKINSIDE         = 16;
  668.   {$EXTERNALSYM OLEMISC_CANLINKBYOLE1}
  669.   OLEMISC_CANLINKBYOLE1                = 32;
  670.   {$EXTERNALSYM OLEMISC_ISLINKOBJECT}
  671.   OLEMISC_ISLINKOBJECT                 = 64;
  672.   {$EXTERNALSYM OLEMISC_INSIDEOUT}
  673.   OLEMISC_INSIDEOUT                = 128;
  674.   {$EXTERNALSYM OLEMISC_ACTIVATEWHENVISIBLE}
  675.   OLEMISC_ACTIVATEWHENVISIBLE        = 256;
  676.   {$EXTERNALSYM OLEMISC_RENDERINGISDEVICEINDEPENDENT}
  677.   OLEMISC_RENDERINGISDEVICEINDEPENDENT = 512;
  678.  
  679.   {$EXTERNALSYM OLECLOSE_SAVEIFDIRTY}
  680.   OLECLOSE_SAVEIFDIRTY = 0;
  681.   {$EXTERNALSYM OLECLOSE_NOSAVE}
  682.   OLECLOSE_NOSAVE      = 1;
  683.   {$EXTERNALSYM OLECLOSE_PROMPTSAVE}
  684.   OLECLOSE_PROMPTSAVE  = 2;
  685.  
  686.   {$EXTERNALSYM OLERENDER_NONE}
  687.   OLERENDER_NONE   = 0;
  688.   {$EXTERNALSYM OLERENDER_DRAW}
  689.   OLERENDER_DRAW   = 1;
  690.   {$EXTERNALSYM OLERENDER_FORMAT}
  691.   OLERENDER_FORMAT = 2;
  692.   {$EXTERNALSYM OLERENDER_ASIS}
  693.   OLERENDER_ASIS   = 3;
  694.  
  695.   {$EXTERNALSYM OLEUPDATE_ALWAYS}
  696.   OLEUPDATE_ALWAYS = 1;
  697.   {$EXTERNALSYM OLEUPDATE_ONCALL}
  698.   OLEUPDATE_ONCALL = 3;
  699.  
  700.   {$EXTERNALSYM OLELINKBIND_EVENIFCLASSDIFF}
  701.   OLELINKBIND_EVENIFCLASSDIFF = 1;
  702.  
  703.   {$EXTERNALSYM BINDSPEED_INDEFINITE}
  704.   BINDSPEED_INDEFINITE = 1;
  705.   {$EXTERNALSYM BINDSPEED_MODERATE}
  706.   BINDSPEED_MODERATE   = 2;
  707.   {$EXTERNALSYM BINDSPEED_IMMEDIATE}
  708.   BINDSPEED_IMMEDIATE  = 3;
  709.  
  710.   {$EXTERNALSYM OLECONTF_EMBEDDINGS}
  711.   OLECONTF_EMBEDDINGS  = 1;
  712.   {$EXTERNALSYM OLECONTF_LINKS}
  713.   OLECONTF_LINKS   = 2;
  714.   {$EXTERNALSYM OLECONTF_OTHERS}
  715.   OLECONTF_OTHERS  = 4;
  716.   {$EXTERNALSYM OLECONTF_ONLYUSER}
  717.   OLECONTF_ONLYUSER  = 8;
  718.   {$EXTERNALSYM OLECONTF_ONLYIFRUNNING}
  719.   OLECONTF_ONLYIFRUNNING = 16;
  720.  
  721.   {$EXTERNALSYM DROPEFFECT_NONE}
  722.   DROPEFFECT_NONE   = 0;
  723.   {$EXTERNALSYM DROPEFFECT_COPY}
  724.   DROPEFFECT_COPY   = 1;
  725.   {$EXTERNALSYM DROPEFFECT_MOVE}
  726.   DROPEFFECT_MOVE   = 2;
  727.   {$EXTERNALSYM DROPEFFECT_LINK}
  728.   DROPEFFECT_LINK   = 4;
  729.   {$EXTERNALSYM DROPEFFECT_SCROLL}
  730.   DROPEFFECT_SCROLL = $80000000;
  731.  
  732.   {$EXTERNALSYM DD_DEFSCROLLINSET}
  733.   DD_DEFSCROLLINSET    = 11;
  734.   {$EXTERNALSYM DD_DEFSCROLLDELAY}
  735.   DD_DEFSCROLLDELAY    = 50;
  736.   {$EXTERNALSYM DD_DEFSCROLLINTERVAL}
  737.   DD_DEFSCROLLINTERVAL = 50;
  738.   {$EXTERNALSYM DD_DEFDRAGDELAY}
  739.   DD_DEFDRAGDELAY      = 200;
  740.   {$EXTERNALSYM DD_DEFDRAGMINDIST}
  741.   DD_DEFDRAGMINDIST    = 2;
  742.  
  743.   {$EXTERNALSYM OLEVERBATTRIB_NEVERDIRTIES}
  744.   OLEVERBATTRIB_NEVERDIRTIES    = 1;
  745.   {$EXTERNALSYM OLEVERBATTRIB_ONCONTAINERMENU}
  746.   OLEVERBATTRIB_ONCONTAINERMENU = 2;
  747.  
  748. type
  749.  
  750.   PResultList = ^TResultList;
  751.   TResultList = array[0..65535] of HResult;
  752.  
  753. { OLE character and string types }
  754.  
  755.   TOleChar = WideChar;
  756.   POleStr = PWideChar;
  757.  
  758.   POleStrList = ^TOleStrList;
  759.   TOleStrList = array[0..65535] of POleStr;
  760.  
  761. { 64-bit large integer }
  762.  
  763.   Largeint = Comp;
  764.  
  765. { Globally unique ID }
  766.  
  767.   PGUID = ^TGUID;
  768.   TGUID = record
  769.     D1: LongWord;
  770.     D2: Word;
  771.     D3: Word;
  772.     D4: array[0..7] of Byte;
  773.   end;
  774.  
  775. { Interface ID }
  776.  
  777.   PIID = PGUID;
  778.   TIID = TGUID;
  779.  
  780. { Class ID }
  781.  
  782.   PCLSID = PGUID;
  783.   TCLSID = TGUID;
  784.  
  785. { Object ID }
  786.  
  787.   PObjectID = ^TObjectID;
  788.   {$EXTERNALSYM _OBJECTID}
  789.   _OBJECTID = record
  790.     Lineage: TGUID;
  791.     Uniquifier: Longint;
  792.   end;
  793.   TObjectID = _OBJECTID;
  794.   {$EXTERNALSYM OBJECTID}
  795.   OBJECTID = _OBJECTID;
  796.  
  797. { Locale ID }
  798.  
  799.   TLCID = DWORD;
  800.  
  801. { Forward declarations }
  802.  
  803.   {$EXTERNALSYM IStream}
  804.   IStream = class;
  805.   {$EXTERNALSYM IRunningObjectTable }
  806.   IRunningObjectTable = class;
  807.   {$EXTERNALSYM IEnumString }
  808.   IEnumString = class;
  809.   {$EXTERNALSYM IMoniker}
  810.   IMoniker = class;
  811.   {$EXTERNALSYM IAdviseSink}
  812.   IAdviseSink = class;
  813.   {$EXTERNALSYM IDispatch }
  814.   IDispatch = class;
  815.   {$EXTERNALSYM ITypeInfo}
  816.   ITypeInfo = class;
  817.   {$EXTERNALSYM ITypeComp }
  818.   ITypeComp = class;
  819.   {$EXTERNALSYM ITypeLib}
  820.   ITypeLib = class;
  821.   {$EXTERNALSYM IEnumOleVerb }
  822.   IEnumOleVerb = class;
  823.   {$EXTERNALSYM IOleInPlaceActiveObject}
  824.   IOleInPlaceActiveObject = class;
  825.  
  826. { IUnknown interface }
  827.  
  828.   {$EXTERNALSYM IUnknown }
  829.   IUnknown = class
  830.   public
  831.     function QueryInterface(const iid: TIID; var obj): HResult; virtual; stdcall; abstract;
  832.     function AddRef: Longint; virtual; stdcall; abstract;
  833.     function Release: Longint; virtual; stdcall; abstract;
  834.   end;
  835.  
  836. { IClassFactory interface }
  837.  
  838.   {$EXTERNALSYM IClassFactory }
  839.   IClassFactory = class(IUnknown)
  840.   public
  841.     function CreateInstance(unkOuter: IUnknown; const iid: TIID;
  842.       var obj): HResult; virtual; stdcall; abstract;
  843.     function LockServer(fLock: BOOL): HResult; virtual; stdcall; abstract;
  844.   end;
  845.  
  846. { IMarshal interface }
  847.  
  848.   {$EXTERNALSYM IMarshal }
  849.   IMarshal = class(IUnknown)
  850.   public
  851.     function GetUnmarshalClass(const iid: TIID; pv: Pointer;
  852.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  853.       var cid: TCLSID): HResult; virtual; stdcall; abstract;
  854.     function GetMarshalSizeMax(const iid: TIID; pv: Pointer;
  855.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  856.       var size: Longint): HResult; virtual; stdcall; abstract;
  857.     function MarshalInterface(stm: IStream; const iid: TIID; pv: Pointer;
  858.       dwDestContext: Longint; pvDestContext: Pointer;
  859.       mshlflags: Longint): HResult; virtual; stdcall; abstract;
  860.     function UnmarshalInterface(stm: IStream; const iid: TIID;
  861.       var pv): HResult; virtual; stdcall; abstract;
  862.     function ReleaseMarshalData(stm: IStream): HResult;
  863.       virtual; stdcall; abstract;
  864.     function DisconnectObject(dwReserved: Longint): HResult;
  865.       virtual; stdcall; abstract;
  866.   end;
  867.  
  868. { IMalloc interface }
  869.  
  870.   {$EXTERNALSYM IMalloc}
  871.   IMalloc = class(IUnknown)
  872.   public
  873.     function Alloc(cb: Longint): Pointer; virtual; stdcall; abstract;
  874.     function Realloc(pv: Pointer; cb: Longint): Pointer; virtual; stdcall; abstract;
  875.     procedure Free(pv: Pointer); virtual; stdcall; abstract;
  876.     function GetSize(pv: Pointer): Longint; virtual; stdcall; abstract;
  877.     function DidAlloc(pv: Pointer): Integer; virtual; stdcall; abstract;
  878.     procedure HeapMinimize; virtual; stdcall; abstract;
  879.   end;
  880.  
  881. { IMallocSpy interface }
  882.  
  883.   {$EXTERNALSYM IMallocSpy }
  884.   IMallocSpy = class(IUnknown)
  885.   public
  886.     function PreAlloc(cbRequest: Longint): Longint; virtual; stdcall; abstract;
  887.     function PostAlloc(pActual: Pointer): Pointer; virtual; stdcall; abstract;
  888.     function PreFree(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  889.     procedure PostFree(fSpyed: BOOL); virtual; stdcall; abstract;
  890.     function PreRealloc(pRequest: Pointer; cbRequest: Longint;
  891.       var ppNewRequest: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract;
  892.     function PostRealloc(pActual: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  893.     function PreGetSize(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract;
  894.     function PostGetSize(pActual: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract;
  895.     function PostDidAlloc(pRequest: Pointer; fSpyed: BOOL; fActual: Integer): Integer; virtual; stdcall; abstract;
  896.     procedure PreHeapMinimize; virtual; stdcall; abstract;
  897.     procedure PostHeapMinimize; virtual; stdcall; abstract;
  898.   end;
  899.  
  900. { IStdMarshalInfo interface }
  901.  
  902.   {$EXTERNALSYM IStdMarshalInfo }
  903.   IStdMarshalInfo = class(IUnknown)
  904.   public
  905.     function GetClassForHandler(dwDestContext: Longint; pvDestContext: Pointer;
  906.       var clsid: TCLSID): HResult; virtual; stdcall; abstract;
  907.   end;
  908.  
  909. { IExternalConnection interface }
  910.  
  911.   {$EXTERNALSYM IExternalConnection }
  912.   IExternalConnection = class(IUnknown)
  913.   public
  914.     function AddConnection(extconn: Longint; reserved: Longint): Longint;
  915.       virtual; stdcall; abstract;
  916.     function ReleaseConnection(extconn: Longint; reserved: Longint;
  917.       fLastReleaseCloses: BOOL): Longint; virtual; stdcall; abstract;
  918.   end;
  919.  
  920. { IWeakRef interface }
  921.  
  922.   {$EXTERNALSYM IWeakRef }
  923.   IWeakRef = class(IUnknown)
  924.   public
  925.     function ChangeWeakCount(delta: Longint): Longint; virtual; stdcall; abstract;
  926.     function ReleaseKeepAlive(unkReleased: IUnknown;
  927.       reserved: Longint): Longint; virtual; stdcall; abstract;
  928.   end;
  929.  
  930. { IEnumUnknown interface }
  931.  
  932.   {$EXTERNALSYM IEnumUnknown }
  933.   IEnumUnknown = class(IUnknown)
  934.   public
  935.     function Next(celt: Longint; var elt;
  936.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  937.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  938.     function Reset: HResult; virtual; stdcall; abstract;
  939.     function Clone(var enm: IEnumUnknown): HResult; virtual; stdcall; abstract;
  940.   end;
  941.  
  942. { IBindCtx interface }
  943.  
  944.   PBindOpts = ^TBindOpts;
  945.   {$EXTERNALSYM tagBIND_OPTS}
  946.   tagBIND_OPTS = record
  947.     cbStruct: Longint;
  948.     grfFlags: Longint;
  949.     grfMode: Longint;
  950.     dwTickCountDeadline: Longint;
  951.   end;
  952.   TBindOpts = tagBIND_OPTS;
  953.   {$EXTERNALSYM BIND_OPTS}
  954.   BIND_OPTS = tagBIND_OPTS;
  955.  
  956.   {$EXTERNALSYM IBindCtx }
  957.   IBindCtx = class(IUnknown)
  958.   public
  959.     function RegisterObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract;
  960.     function RevokeObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract;
  961.     function ReleaseBoundObjects: HResult; virtual; stdcall; abstract;
  962.     function SetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract;
  963.     function GetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract;
  964.     function GetRunningObjectTable(var rot: IRunningObjectTable): HResult;
  965.       virtual; stdcall; abstract;
  966.     function RegisterObjectParam(pszKey: POleStr; unk: IUnknown): HResult;
  967.       virtual; stdcall; abstract;
  968.     function GetObjectParam(pszKey: POleStr; var unk: IUnknown): HResult;
  969.       virtual; stdcall; abstract;
  970.     function EnumObjectParam(var Enum: IEnumString): HResult; virtual; stdcall; abstract;
  971.     function RevokeObjectParam(pszKey: POleStr): HResult; virtual; stdcall; abstract;
  972.   end;
  973.  
  974. { IEnumMoniker interface }
  975.  
  976.   {$EXTERNALSYM IEnumMoniker }
  977.   IEnumMoniker = class(IUnknown)
  978.   public
  979.     function Next(celt: Longint; var elt;
  980.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  981.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  982.     function Reset: HResult; virtual; stdcall; abstract;
  983.     function Clone(var enm: IEnumMoniker): HResult; virtual; stdcall; abstract;
  984.   end;
  985.  
  986. { IRunnableObject interface }
  987.  
  988.   {$EXTERNALSYM IRunnableObject }
  989.   IRunnableObject = class(IUnknown)
  990.   public
  991.     function GetRunningClass(var clsid: TCLSID): HResult; virtual; stdcall; abstract;
  992.     function Run(bc: IBindCtx): HResult; virtual; stdcall; abstract;
  993.     function IsRunning: BOOL; virtual; stdcall; abstract;
  994.     function LockRunning(fLock: BOOL; fLastUnlockCloses: BOOL): HResult;
  995.       virtual; stdcall; abstract;
  996.     function SetContainedObject(fContained: BOOL): HResult; virtual; stdcall; abstract;
  997.   end;
  998.  
  999. { IRunningObjectTable interface }
  1000.  
  1001.   {$EXTERNALSYM IRunningObjectTable }
  1002.   IRunningObjectTable = class(IUnknown)
  1003.   public
  1004.     function Register(grfFlags: Longint; var unkObject: IUnknown;
  1005.       mkObjectName: IMoniker; var dwRegister: Longint): HResult; virtual; stdcall; abstract;
  1006.     function Revoke(dwRegister: Longint): HResult; virtual; stdcall; abstract;
  1007.     function IsRunning(mkObjectName: IMoniker): HResult; virtual; stdcall; abstract;
  1008.     function GetObject(mkObjectName: IMoniker;
  1009.       var unkObject: IUnknown): HResult; virtual; stdcall; abstract;
  1010.     function NoteChangeTime(dwRegister: Longint;
  1011.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1012.     function GetTimeOfLastChange(mkObjectName: IMoniker;
  1013.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1014.     function EnumRunning(var enumMoniker: IEnumMoniker): HResult; virtual; stdcall; abstract;
  1015.   end;
  1016.  
  1017. { IPersist interface }
  1018.  
  1019.   {$EXTERNALSYM IPersist }
  1020.   IPersist = class(IUnknown)
  1021.   public
  1022.     function GetClassID(var classID: TCLSID): HResult; virtual; stdcall; abstract;
  1023.   end;
  1024.  
  1025. { IPersistStream interface }
  1026.  
  1027.   {$EXTERNALSYM IPersistStream }
  1028.   IPersistStream = class(IPersist)
  1029.   public
  1030.     function IsDirty: HResult; virtual; stdcall; abstract;
  1031.     function Load(stm: IStream): HResult; virtual; stdcall; abstract;
  1032.     function Save(stm: IStream; fClearDirty: BOOL): HResult; virtual; stdcall; abstract;
  1033.     function GetSizeMax(var cbSize: Largeint): HResult; virtual; stdcall; abstract;
  1034.   end;
  1035.  
  1036. { IMoniker interface }
  1037.  
  1038.   {$EXTERNALSYM IMoniker}
  1039.   IMoniker = class(IPersistStream)
  1040.   public
  1041.     function BindToObject(bc: IBindCtx; mkToLeft: IMoniker;
  1042.       const iidResult: TIID; var vResult): HResult; virtual; stdcall; abstract;
  1043.     function BindToStorage(bc: IBindCtx; mkToLeft: IMoniker;
  1044.       const iid: TIID; var vObj): HResult; virtual; stdcall; abstract;
  1045.     function Reduce(bc: IBindCtx; dwReduceHowFar: Longint;
  1046.       var mkToLeft: IMoniker; var mkReduced: IMoniker): HResult; virtual; stdcall; abstract;
  1047.     function ComposeWith(mkRight: IMoniker; fOnlyIfNotGeneric: BOOL;
  1048.       var mkComposite: IMoniker): HResult; virtual; stdcall; abstract;
  1049.     function Enum(fForward: BOOL; var enumMoniker: IEnumMoniker): HResult;
  1050.       virtual; stdcall; abstract;
  1051.     function IsEqual(mkOtherMoniker: IMoniker): HResult; virtual; stdcall; abstract;
  1052.     function Hash(var dwHash: Longint): HResult; virtual; stdcall; abstract;
  1053.     function IsRunning(bc: IBindCtx; mkToLeft: IMoniker;
  1054.       mkNewlyRunning: IMoniker): HResult; virtual; stdcall; abstract;
  1055.     function GetTimeOfLastChange(bc: IBindCtx; mkToLeft: IMoniker;
  1056.       var filetime: TFileTime): HResult; virtual; stdcall; abstract;
  1057.     function Inverse(var mk: IMoniker): HResult; virtual; stdcall; abstract;
  1058.     function CommonPrefixWith(mkOther: IMoniker;
  1059.       var mkPrefix: IMoniker): HResult; virtual; stdcall; abstract;
  1060.     function RelativePathTo(mkOther: IMoniker;
  1061.       var mkRelPath: IMoniker): HResult; virtual; stdcall; abstract;
  1062.     function GetDisplayName(bc: IBindCtx; mkToLeft: IMoniker;
  1063.       var pszDisplayName: POleStr): HResult; virtual; stdcall; abstract;
  1064.     function ParseDisplayName(bc: IBindCtx; mkToLeft: IMoniker;
  1065.       pszDisplayName: POleStr; var chEaten: Longint;
  1066.       var mkOut: IMoniker): HResult; virtual; stdcall; abstract;
  1067.     function IsSystemMoniker(var dwMksys: Longint): HResult; virtual; stdcall; abstract;
  1068.   end;
  1069.  
  1070. { IEnumString interface }
  1071.  
  1072.   {$EXTERNALSYM IEnumString }
  1073.   IEnumString = class(IUnknown)
  1074.   public
  1075.     function Next(celt: Longint; var elt;
  1076.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1077.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1078.     function Reset: HResult; virtual; stdcall; abstract;
  1079.     function Clone(var enm: IEnumString): HResult; virtual; stdcall; abstract;
  1080.   end;
  1081.  
  1082. { IStream interface }
  1083.  
  1084.   PStatStg = ^TStatStg;
  1085.   {$EXTERNALSYM tagSTATSTG}
  1086.   tagSTATSTG = record
  1087.     pwcsName: POleStr;
  1088.     dwType: Longint;
  1089.     cbSize: Largeint;
  1090.     mtime: TFileTime;
  1091.     ctime: TFileTime;
  1092.     atime: TFileTime;
  1093.     grfMode: Longint;
  1094.     grfLocksSupported: Longint;
  1095.     clsid: TCLSID;
  1096.     grfStateBits: Longint;
  1097.     reserved: Longint;
  1098.   end;
  1099.   TStatStg = tagSTATSTG;
  1100.   {$EXTERNALSYM STATSTG}
  1101.   STATSTG = tagSTATSTG;
  1102.  
  1103.   {$EXTERNALSYM IStream}
  1104.   IStream = class(IUnknown)
  1105.   public
  1106.     function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult;
  1107.       virtual; stdcall; abstract;
  1108.     function Write(pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult;
  1109.       virtual; stdcall; abstract;
  1110.     function Seek(dlibMove: Largeint; dwOrigin: Longint;
  1111.       var libNewPosition: Largeint): HResult; virtual; stdcall; abstract;
  1112.     function SetSize(libNewSize: Largeint): HResult; virtual; stdcall; abstract;
  1113.     function CopyTo(stm: IStream; cb: Largeint; var cbRead: Largeint;
  1114.       var cbWritten: Largeint): HResult; virtual; stdcall; abstract;
  1115.     function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract;
  1116.     function Revert: HResult; virtual; stdcall; abstract;
  1117.     function LockRegion(libOffset: Largeint; cb: Largeint;
  1118.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1119.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  1120.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1121.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1122.       virtual; stdcall; abstract;
  1123.     function Clone(var stm: IStream): HResult; virtual; stdcall; abstract;
  1124.   end;
  1125.  
  1126. { IEnumStatStg interface }
  1127.  
  1128.   {$EXTERNALSYM IEnumStatStg }
  1129.   IEnumStatStg = class(IUnknown)
  1130.   public
  1131.     function Next(celt: Longint; var elt;
  1132.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1133.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1134.     function Reset: HResult; virtual; stdcall; abstract;
  1135.     function Clone(var enm: IEnumStatStg): HResult; virtual; stdcall; abstract;
  1136.   end;
  1137.  
  1138. { IStorage interface }
  1139.  
  1140.   TSNB = ^POleStr;
  1141.  
  1142.   {$EXTERNALSYM IStorage}
  1143.   IStorage = class(IUnknown)
  1144.   public
  1145.     function CreateStream(pwcsName: POleStr; grfMode: Longint; reserved1: Longint;
  1146.       reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract;
  1147.     function OpenStream(pwcsName: POleStr; reserved1: Pointer; grfMode: Longint;
  1148.       reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract;
  1149.     function CreateStorage(pwcsName: POleStr; grfMode: Longint;
  1150.       dwStgFmt: Longint; reserved2: Longint; var stg: IStorage): HResult;
  1151.       virtual; stdcall; abstract;
  1152.     function OpenStorage(pwcsName: POleStr; stgPriority: IStorage;
  1153.       grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  1154.       var stg: IStorage): HResult; virtual; stdcall; abstract;
  1155.     function CopyTo(ciidExclude: Longint; rgiidExclude: PIID;
  1156.       snbExclude: TSNB; stgDest: IStorage): HResult; virtual; stdcall; abstract;
  1157.     function MoveElementTo(pwcsName: POleStr; stgDest: IStorage;
  1158.       pwcsNewName: POleStr; grfFlags: Longint): HResult; virtual; stdcall; abstract;
  1159.     function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract;
  1160.     function Revert: HResult; virtual; stdcall; abstract;
  1161.     function EnumElements(reserved1: Longint; reserved2: Pointer; reserved3: Longint;
  1162.       var enm: IEnumStatStg): HResult; virtual; stdcall; abstract;
  1163.     function DestroyElement(pwcsName: POleStr): HResult; virtual; stdcall; abstract;
  1164.     function RenameElement(pwcsOldName: POleStr;
  1165.       pwcsNewName: POleStr): HResult; virtual; stdcall; abstract;
  1166.     function SetElementTimes(pwcsName: POleStr; const ctime: TFileTime;
  1167.       const atime: TFileTime; const mtime: TFileTime): HResult;
  1168.       virtual; stdcall; abstract;
  1169.     function SetClass(const clsid: TCLSID): HResult; virtual; stdcall; abstract;
  1170.     function SetStateBits(grfStateBits: Longint; grfMask: Longint): HResult;
  1171.       virtual; stdcall; abstract;
  1172.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1173.       virtual; stdcall; abstract;
  1174.   end;
  1175.  
  1176. { IPersistFile interface }
  1177.  
  1178.   {$EXTERNALSYM IPersistFile }
  1179.   IPersistFile = class(IPersist)
  1180.   public
  1181.     function IsDirty: HResult; virtual; stdcall; abstract;
  1182.     function Load(pszFileName: POleStr; dwMode: Longint): HResult;
  1183.       virtual; stdcall; abstract;
  1184.     function Save(pszFileName: POleStr; fRemember: BOOL): HResult;
  1185.       virtual; stdcall; abstract;
  1186.     function SaveCompleted(pszFileName: POleStr): HResult;
  1187.       virtual; stdcall; abstract;
  1188.     function GetCurFile(var pszFileName: POleStr): HResult;
  1189.       virtual; stdcall; abstract;
  1190.   end;
  1191.  
  1192. { IPersistStorage interface }
  1193.  
  1194.   {$EXTERNALSYM IPersistStorage }
  1195.   IPersistStorage = class(IPersist)
  1196.   public
  1197.     function IsDirty: HResult; virtual; stdcall; abstract;
  1198.     function InitNew(stg: IStorage): HResult; virtual; stdcall; abstract;
  1199.     function Load(stg: IStorage): HResult; virtual; stdcall; abstract;
  1200.     function Save(stgSave: IStorage; fSameAsLoad: BOOL): HResult;
  1201.       virtual; stdcall; abstract;
  1202.     function SaveCompleted(stgNew: IStorage): HResult; virtual; stdcall; abstract;
  1203.     function HandsOffStorage: HResult; virtual; stdcall; abstract;
  1204.   end;
  1205.  
  1206. { ILockBytes interface }
  1207.  
  1208.   {$EXTERNALSYM ILockBytes}
  1209.   ILockBytes = class(IUnknown)
  1210.   public
  1211.     function ReadAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  1212.       pcbRead: PLongint): HResult; virtual; stdcall; abstract;
  1213.     function WriteAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  1214.       pcbWritten: PLongint): HResult; virtual; stdcall; abstract;
  1215.     function Flush: HResult; virtual; stdcall; abstract;
  1216.     function SetSize(cb: Largeint): HResult; virtual; stdcall; abstract;
  1217.     function LockRegion(libOffset: Largeint; cb: Largeint;
  1218.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1219.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  1220.       dwLockType: Longint): HResult; virtual; stdcall; abstract;
  1221.     function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult;
  1222.       virtual; stdcall; abstract;
  1223.   end;
  1224.  
  1225. { IEnumFormatEtc interface }
  1226.  
  1227.   PDVTargetDevice = ^TDVTargetDevice;
  1228.   {$EXTERNALSYM tagDVTARGETDEVICE}
  1229.   tagDVTARGETDEVICE = record
  1230.     tdSize: Longint;
  1231.     tdDriverNameOffset: Word;
  1232.     tdDeviceNameOffset: Word;
  1233.     tdPortNameOffset: Word;
  1234.     tdExtDevmodeOffset: Word;
  1235.     tdData: record end;
  1236.   end;
  1237.   TDVTargetDevice = tagDVTARGETDEVICE;
  1238.   {$EXTERNALSYM DVTARGETDEVICE}
  1239.   DVTARGETDEVICE = tagDVTARGETDEVICE;
  1240.  
  1241.   PClipFormat = ^TClipFormat;
  1242.   TClipFormat = Word;
  1243.  
  1244.   PFormatEtc = ^TFormatEtc;
  1245.   {$EXTERNALSYM tagFORMATETC}
  1246.   tagFORMATETC = record
  1247.     cfFormat: TClipFormat;
  1248.     ptd: PDVTargetDevice;
  1249.     dwAspect: Longint;
  1250.     lindex: Longint;
  1251.     tymed: Longint;
  1252.   end;
  1253.   TFormatEtc = tagFORMATETC;
  1254.   {$EXTERNALSYM FORMATETC}
  1255.   FORMATETC = tagFORMATETC;
  1256.  
  1257.   {$EXTERNALSYM IEnumFormatEtc }
  1258.   IEnumFormatEtc = class(IUnknown)
  1259.   public
  1260.     function Next(celt: Longint; var elt;
  1261.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1262.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1263.     function Reset: HResult; virtual; stdcall; abstract;
  1264.     function Clone(var Enum: IEnumFormatEtc): HResult; virtual; stdcall; abstract;
  1265.   end;
  1266.  
  1267. { IEnumStatData interface }
  1268.  
  1269.   PStatData = ^TStatData;
  1270.   {$EXTERNALSYM tagSTATDATA}
  1271.   tagSTATDATA = record
  1272.     formatetc: TFormatEtc;
  1273.     advf: Longint;
  1274.     advSink: IAdviseSink;
  1275.     dwConnection: Longint;
  1276.   end;
  1277.   TStatData = tagSTATDATA;
  1278.   {$EXTERNALSYM STATDATA}
  1279.   STATDATA = tagSTATDATA;
  1280.  
  1281.   {$EXTERNALSYM IEnumStatData }
  1282.   IEnumStatData = class(IUnknown)
  1283.   public
  1284.     function Next(celt: Longint; var elt;
  1285.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  1286.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1287.     function Reset: HResult; virtual; stdcall; abstract;
  1288.     function Clone(var Enum: IEnumStatData): HResult; virtual; stdcall; abstract;
  1289.   end;
  1290.  
  1291. { IRootStorage interface }
  1292.  
  1293.   {$EXTERNALSYM IRootStorage }
  1294.   IRootStorage = class(IUnknown)
  1295.   public
  1296.     function SwitchToFile(pszFile: POleStr): HResult; virtual; stdcall; abstract;
  1297.   end;
  1298.  
  1299. { IAdviseSink interface }
  1300.  
  1301.   PRemStgMedium = ^TRemStgMedium;
  1302.   {$EXTERNALSYM tagRemSTGMEDIUM}
  1303.   tagRemSTGMEDIUM = record
  1304.     tymed: Longint;
  1305.     dwHandleType: Longint;
  1306.     pData: Longint;
  1307.     pUnkForRelease: Longint;
  1308.     cbData: Longint;
  1309.     data: record end;
  1310.   end;
  1311.   TRemStgMedium = tagRemSTGMEDIUM;
  1312.   {$EXTERNALSYM RemSTGMEDIUM}
  1313.   RemSTGMEDIUM = tagRemSTGMEDIUM;
  1314.  
  1315.   PStgMedium = ^TStgMedium;
  1316.   {$EXTERNALSYM tagSTGMEDIUM}
  1317.   tagSTGMEDIUM = record
  1318.     tymed: Longint;
  1319.     case Integer of
  1320.       0: (hBitmap: HBitmap; unkForRelease: IUnknown);
  1321.       1: (hMetaFilePict: THandle);
  1322.       2: (hEnhMetaFile: THandle);
  1323.       3: (hGlobal: HGlobal);
  1324.       4: (lpszFileName: POleStr);
  1325.       5: (stm: IStream);
  1326.       6: (stg: IStorage);
  1327.   end;
  1328.   TStgMedium = tagSTGMEDIUM;
  1329.   {$EXTERNALSYM STGMEDIUM}
  1330.   STGMEDIUM = tagSTGMEDIUM;
  1331.  
  1332.   {$EXTERNALSYM IAdviseSink}
  1333.   IAdviseSink = class(IUnknown)
  1334.   public
  1335.     procedure OnDataChange(var formatetc: TFormatEtc; var stgmed: TStgMedium);
  1336.       virtual; stdcall; abstract;
  1337.     procedure OnViewChange(dwAspect: Longint; lindex: Longint);
  1338.       virtual; stdcall; abstract;
  1339.     procedure OnRename(mk: IMoniker); virtual; stdcall; abstract;
  1340.     procedure OnSave; virtual; stdcall; abstract;
  1341.     procedure OnClose; virtual; stdcall; abstract;
  1342.   end;
  1343.  
  1344. { IAdviseSink2 interface }
  1345.  
  1346.   {$EXTERNALSYM IAdviseSink2 }
  1347.   IAdviseSink2 = class(IAdviseSink)
  1348.   public
  1349.     procedure OnLinkSrcChange(mk: IMoniker); virtual; stdcall; abstract;
  1350.   end;
  1351.  
  1352. { IDataObject interface }
  1353.  
  1354.   {$EXTERNALSYM IDataObject}
  1355.   IDataObject = class(IUnknown)
  1356.   public
  1357.     function GetData(var formatetcIn: TFormatEtc; var medium: TStgMedium):
  1358.       HResult; virtual; stdcall; abstract;
  1359.     function GetDataHere(var formatetc: TFormatEtc; var medium: TStgMedium):
  1360.       HResult; virtual; stdcall; abstract;
  1361.     function QueryGetData(var formatetc: TFormatEtc): HResult;
  1362.       virtual; stdcall; abstract;
  1363.     function GetCanonicalFormatEtc(var formatetc: TFormatEtc;
  1364.       var formatetcOut: TFormatEtc): HResult; virtual; stdcall; abstract;
  1365.     function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;
  1366.       fRelease: BOOL): HResult; virtual; stdcall; abstract;
  1367.     function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:
  1368.       IEnumFormatEtc): HResult; virtual; stdcall; abstract;
  1369.     function DAdvise(var formatetc: TFormatEtc; advf: Longint;
  1370.       advSink: IAdviseSink; var dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1371.     function DUnadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1372.     function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;
  1373.       virtual; stdcall; abstract;
  1374.   end;
  1375.  
  1376. { IDataAdviseHolder interface }
  1377.  
  1378.   {$EXTERNALSYM IDataAdviseHolder }
  1379.   IDataAdviseHolder = class(IUnknown)
  1380.   public
  1381.     function Advise(dataObject: IDataObject; var fetc: TFormatEtc;
  1382.       advf: Longint; advise: IAdviseSink; var pdwConnection: Longint): HResult;
  1383.       virtual; stdcall; abstract;
  1384.     function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  1385.     function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract;
  1386.     function SendOnDataChange(dataObject: IDataObject; dwReserved: Longint;
  1387.       advf: Longint): HResult; virtual; stdcall; abstract;
  1388.   end;
  1389.  
  1390. { IMessageFilter interface }
  1391.  
  1392.   PInterfaceInfo = ^TInterfaceInfo;
  1393.   {$EXTERNALSYM tagINTERFACEINFO}
  1394.   tagINTERFACEINFO = record
  1395.     unk: IUnknown;
  1396.     iid: TIID;
  1397.     wMethod: Word;
  1398.   end;
  1399.   TInterfaceInfo = tagINTERFACEINFO;
  1400.   {$EXTERNALSYM INTERFACEINFO}
  1401.   INTERFACEINFO = tagINTERFACEINFO;
  1402.  
  1403.   {$EXTERNALSYM IMessageFilter }
  1404.   IMessageFilter = class(IUnknown)
  1405.   public
  1406.     function HandleInComingCall(dwCallType: Longint; htaskCaller: HTask;
  1407.       dwTickCount: Longint; lpInterfaceInfo: PInterfaceInfo): Longint;
  1408.       virtual; stdcall; abstract;
  1409.     function RetryRejectedCall(htaskCallee: HTask; dwTickCount: Longint;
  1410.       dwRejectType: Longint): Longint; virtual; stdcall; abstract;
  1411.     function MessagePending(htaskCallee: HTask; dwTickCount: Longint;
  1412.       dwPendingType: Longint): Longint; virtual; stdcall; abstract;
  1413.   end;
  1414.  
  1415. { IRpcChannelBuffer interface }
  1416.  
  1417.   TRpcOleDataRep = Longint;
  1418.  
  1419.   PRpcOleMessage = ^TRpcOleMessage;
  1420.   {$EXTERNALSYM tagRPCOLEMESSAGE}
  1421.   tagRPCOLEMESSAGE = record
  1422.     reserved1: Pointer;
  1423.     dataRepresentation: TRpcOleDataRep;
  1424.     Buffer: Pointer;
  1425.     cbBuffer: Longint;
  1426.     iMethod: Longint;
  1427.     reserved2: array[0..4] of Pointer;
  1428.     rpcFlags: Longint;
  1429.   end;
  1430.   TRpcOleMessage = tagRPCOLEMESSAGE;
  1431.   {$EXTERNALSYM RPCOLEMESSAGE}
  1432.   RPCOLEMESSAGE = tagRPCOLEMESSAGE;
  1433.  
  1434.   {$EXTERNALSYM IRpcChannelBuffer }
  1435.   IRpcChannelBuffer = class(IUnknown)
  1436.   public
  1437.     function GetBuffer(var message: TRpcOleMessage; iid: TIID): HResult;
  1438.       virtual; stdcall; abstract;
  1439.     function SendReceive(var message: TRpcOleMessage;
  1440.       var status: Longint): HResult; virtual; stdcall; abstract;
  1441.     function FreeBuffer(var message: TRpcOleMessage): HResult;
  1442.       virtual; stdcall; abstract;
  1443.     function GetDestCtx(var dwDestContext: Longint;
  1444.       var pvDestContext): HResult; virtual; stdcall; abstract;
  1445.     function IsConnected: HResult; virtual; stdcall; abstract;
  1446.   end;
  1447.  
  1448. { IRpcProxyBuffer interface }
  1449.  
  1450.   {$EXTERNALSYM IRpcProxyBuffer }
  1451.   IRpcProxyBuffer = class(IUnknown)
  1452.   public
  1453.     function Connect(rpcChannelBuffer: IRpcChannelBuffer): HResult;
  1454.       virtual; stdcall; abstract;
  1455.     procedure Disconnect; virtual; stdcall; abstract;
  1456.   end;
  1457.  
  1458. { IRpcStubBuffer interface }
  1459.  
  1460.   {$EXTERNALSYM IRpcStubBuffer }
  1461.   IRpcStubBuffer = class(IUnknown)
  1462.   public
  1463.     function Connect(unkServer: IUnknown): HResult; virtual; stdcall; abstract;
  1464.     procedure Disconnect; virtual; stdcall; abstract;
  1465.     function Invoke(var rpcmsg: TRpcOleMessage; rpcChannelBuffer:
  1466.       IRpcChannelBuffer): HResult; virtual; stdcall; abstract;
  1467.     function IsIIDSupported(const iid: TIID): IRpcStubBuffer;
  1468.       virtual; stdcall; abstract;
  1469.     function CountRefs: Longint; virtual; stdcall; abstract;
  1470.     function DebugServerQueryInterface(var pv): HResult;
  1471.       virtual; stdcall; abstract;
  1472.     procedure DebugServerRelease(pv: Pointer); virtual; stdcall; abstract;
  1473.   end;
  1474.  
  1475. { IPSFactoryBuffer interface }
  1476.  
  1477.   {$EXTERNALSYM IPSFactoryBuffer }
  1478.   IPSFactoryBuffer = class(IUnknown)
  1479.   public
  1480.     function CreateProxy(unkOuter: IUnknown; const iid: TIID;
  1481.       var proxy: IRpcProxyBuffer; var pv): HResult; virtual; stdcall; abstract;
  1482.     function CreateStub(const iid: TIID; unkServer: IUnknown;
  1483.       var stub: IRpcStubBuffer): HResult; virtual; stdcall; abstract;
  1484.   end;
  1485.  
  1486. { Automation types }
  1487.  
  1488.   PBStr = ^TBStr;
  1489.   TBStr = POleStr;
  1490.  
  1491.   PBStrList = ^TBStrList;
  1492.   TBStrList = array[0..65535] of TBStr;
  1493.  
  1494.   PBlob = ^TBlob;
  1495.   {$EXTERNALSYM tagBLOB}
  1496.   tagBLOB = record
  1497.     cbSize: Longint;
  1498.     pBlobData: Pointer;
  1499.   end;
  1500.   {$EXTERNALSYM TBlob}
  1501.   TBlob = tagBLOB;
  1502.   {$EXTERNALSYM BLOB}
  1503.   BLOB = tagBLOB;
  1504.  
  1505.   PClipData = ^TClipData;
  1506.   {$EXTERNALSYM tagCLIPDATA}
  1507.   tagCLIPDATA = record
  1508.     cbSize: Longint;
  1509.     ulClipFmt: Longint;
  1510.     pClipData: Pointer;
  1511.   end;
  1512.   TClipData = tagCLIPDATA;
  1513.   {$EXTERNALSYM CLIPDATA}
  1514.   CLIPDATA = tagCLIPDATA;
  1515.  
  1516.   PSafeArrayBound = ^TSafeArrayBound;
  1517.   {$EXTERNALSYM tagSAFEARRAYBOUND}
  1518.   tagSAFEARRAYBOUND = record
  1519.     cElements: Longint;
  1520.     lLbound: Longint;
  1521.   end;
  1522.   TSafeArrayBound = tagSAFEARRAYBOUND;
  1523.   {$EXTERNALSYM SAFEARRAYBOUND}
  1524.   SAFEARRAYBOUND = tagSAFEARRAYBOUND;
  1525.  
  1526.   PSafeArray = ^TSafeArray;
  1527.   {$EXTERNALSYM tagSAFEARRAY}
  1528.   tagSAFEARRAY = record
  1529.     cDims: Word;
  1530.     fFeatures: Word;
  1531.     cbElements: Longint;
  1532.     cLocks: Longint;
  1533.     pvData: Pointer;
  1534.     rgsabound: array[0..0] of TSafeArrayBound;
  1535.   end;
  1536.   TSafeArray = tagSAFEARRAY;
  1537.   {$EXTERNALSYM SAFEARRAY}
  1538.   SAFEARRAY = tagSAFEARRAY;
  1539.  
  1540.   TOleDate = Double;
  1541.  
  1542.   TCurrency = Comp;
  1543.  
  1544.   TOleBool = WordBool;
  1545.  
  1546.   TVarType = Word;
  1547.  
  1548.   PVariantArg = ^TVariantArg;
  1549.   {$EXTERNALSYM tagVARIANT}
  1550.   tagVARIANT = record
  1551.     vt: TVarType;
  1552.     wReserved1: Word;
  1553.     wReserved2: Word;
  1554.     wReserved3: Word;
  1555.     case Integer of
  1556.       VT_UI1:                  (bVal: Byte);
  1557.       VT_I2:                   (iVal: Smallint);
  1558.       VT_I4:                   (lVal: Longint);
  1559.       VT_R4:                   (fltVal: Single);
  1560.       VT_R8:                   (dblVal: Double);
  1561.       VT_BOOL:                 (vbool: TOleBool);
  1562.       VT_ERROR:                (scode: HResult);
  1563.       VT_CY:                   (cyVal: TCurrency);
  1564.       VT_DATE:                 (date: TOleDate);
  1565.       VT_BSTR:                 (bstrVal: TBStr);
  1566.       VT_UNKNOWN:              (unkVal: IUnknown);
  1567.       VT_DISPATCH:             (dispVal: IDispatch);
  1568.       VT_ARRAY:                (parray: PSafeArray);
  1569.       VT_BYREF or VT_UI1:      (pbVal: ^Byte);
  1570.       VT_BYREF or VT_I2:       (piVal: ^Smallint);
  1571.       VT_BYREF or VT_I4:       (plVal: ^Longint);
  1572.       VT_BYREF or VT_R4:       (pfltVal: ^Single);
  1573.       VT_BYREF or VT_R8:       (pdblVal: ^Double);
  1574.       VT_BYREF or VT_BOOL:     (pbool: ^TOleBool);
  1575.       VT_BYREF or VT_ERROR:    (pscode: ^HResult);
  1576.       VT_BYREF or VT_CY:       (pcyVal: ^TCurrency);
  1577.       VT_BYREF or VT_DATE:     (pdate: ^TOleDate);
  1578.       VT_BYREF or VT_BSTR:     (pbstrVal: PBStr);
  1579.       VT_BYREF or VT_UNKNOWN:  (punkVal: ^IUnknown);
  1580.       VT_BYREF or VT_DISPATCH: (pdispVal: ^IDispatch);
  1581.       VT_BYREF or VT_ARRAY:    (pparray: ^PSafeArray);
  1582.       VT_BYREF or VT_VARIANT:  (pvarVal: PVariant);
  1583.       VT_BYREF:                (byRef: Pointer);
  1584.   end;
  1585.   TVariantArg = tagVARIANT;
  1586.   {$EXTERNALSYM VARIANTARG}
  1587.   VARIANTARG = tagVARIANT;
  1588.  
  1589.   PVariantArgList = ^TVariantArgList;
  1590.   TVariantArgList = array[0..65535] of TVariantArg;
  1591.  
  1592.   TDispID = Longint;
  1593.  
  1594.   PDispIDList = ^TDispIDList;
  1595.   TDispIDList = array[0..65535] of TDispID;
  1596.  
  1597.   TMemberID = Longint;
  1598.  
  1599.   PMemberIDList = ^TMemberIDList;
  1600.   TMemberIDList = array[0..65535] of TMemberID;
  1601.  
  1602.   TPropID = Longint;
  1603.  
  1604.   HRefType = Longint;
  1605.  
  1606.   TTypeKind = Longint;
  1607.  
  1608.   PArrayDesc = ^TArrayDesc;
  1609.  
  1610.   PTypeDesc= ^TTypeDesc;
  1611.   {$EXTERNALSYM tagTYPEDESC}
  1612.   tagTYPEDESC = record
  1613.     case Integer of
  1614.       VT_PTR:         (ptdesc: PTypeDesc; vt: TVarType);
  1615.       VT_CARRAY:      (padesc: PArrayDesc);
  1616.       VT_USERDEFINED: (hreftype: HRefType);
  1617.   end;
  1618.   TTypeDesc = tagTYPEDESC;
  1619.   {$EXTERNALSYM TYPEDESC}
  1620.   TYPEDESC = tagTYPEDESC;
  1621.  
  1622.   {$EXTERNALSYM tagARRAYDESC}
  1623.   tagARRAYDESC = record
  1624.     tdescElem: TTypeDesc;
  1625.     cDims: Word;
  1626.     rgbounds: array[0..0] of TSafeArrayBound;
  1627.   end;
  1628.   TArrayDesc = tagARRAYDESC;
  1629.   {$EXTERNALSYM ARRAYDESC}
  1630.   ARRAYDESC = tagARRAYDESC;
  1631.  
  1632.   PIDLDesc = ^TIDLDesc;
  1633.   {$EXTERNALSYM tagIDLDESC}
  1634.   tagIDLDESC = record
  1635.     dwReserved: Longint;
  1636.     wIDLFlags: Word;
  1637.   end;
  1638.   TIDLDesc = tagIDLDESC;
  1639.   {$EXTERNALSYM IDLDESC}
  1640.   IDLDESC = tagIDLDESC;
  1641.  
  1642.   PElemDesc = ^TElemDesc;
  1643.   {$EXTERNALSYM tagELEMDESC}
  1644.   tagELEMDESC = record
  1645.     tdesc: TTypeDesc;
  1646.     idldesc: TIDLDesc;
  1647.   end;
  1648.   TElemDesc = tagELEMDESC;
  1649.   {$EXTERNALSYM ELEMDESC}
  1650.   ELEMDESC = tagELEMDESC;
  1651.  
  1652.   PElemDescList = ^TElemDescList;
  1653.   TElemDescList = array[0..65535] of TElemDesc;
  1654.  
  1655.   PTypeAttr = ^TTypeAttr;
  1656.   {$EXTERNALSYM tagTYPEATTR}
  1657.   tagTYPEATTR = record
  1658.     guid: TGUID;
  1659.     lcid: TLCID;
  1660.     dwReserved: Longint;
  1661.     memidConstructor: TMemberID;
  1662.     memidDestructor: TMemberID;
  1663.     lpstrSchema: POleStr;
  1664.     cbSizeInstance: Longint;
  1665.     typekind: TTypeKind;
  1666.     cFuncs: Word;
  1667.     cVars: Word;
  1668.     cImplTypes: Word;
  1669.     cbSizeVft: Word;
  1670.     cbAlignment: Word;
  1671.     wTypeFlags: Word;
  1672.     wMajorVerNum: Word;
  1673.     wMinorVerNum: Word;
  1674.     tdescAlias: TTypeDesc;
  1675.     idldescType: TIDLDesc;
  1676.   end;
  1677.   TTypeAttr = tagTYPEATTR;
  1678.   {$EXTERNALSYM TYPEATTR}
  1679.   TYPEATTR = tagTYPEATTR;
  1680.  
  1681.   PDispParams = ^TDispParams;
  1682.   {$EXTERNALSYM tagDISPPARAMS}
  1683.   tagDISPPARAMS = record
  1684.     rgvarg: PVariantArgList;
  1685.     rgdispidNamedArgs: PDispIDList;
  1686.     cArgs: Longint;
  1687.     cNamedArgs: Longint;
  1688.   end;
  1689.   TDispParams = tagDISPPARAMS;
  1690.   {$EXTERNALSYM DISPPARAMS}
  1691.   DISPPARAMS = tagDISPPARAMS;
  1692.  
  1693.   PExcepInfo = ^TExcepInfo;
  1694.  
  1695.   TFNDeferredFillIn = function(ExInfo: PExcepInfo): HResult stdcall;
  1696.  
  1697.   {$EXTERNALSYM tagEXCEPINFO}
  1698.   tagEXCEPINFO = record
  1699.     wCode: Word;
  1700.     wReserved: Word;
  1701.     bstrSource: TBStr;
  1702.     bstrDescription: TBStr;
  1703.     bstrHelpFile: TBStr;
  1704.     dwHelpContext: Longint;
  1705.     pvReserved: Pointer;
  1706.     pfnDeferredFillIn: TFNDeferredFillIn;
  1707.     scode: HResult;
  1708.   end;
  1709.   TExcepInfo = tagEXCEPINFO;
  1710.   {$EXTERNALSYM EXCEPINFO}
  1711.   EXCEPINFO = tagEXCEPINFO;
  1712.  
  1713.   TFuncKind = Longint;
  1714.   TInvokeKind = Longint;
  1715.   TCallConv = Longint;
  1716.  
  1717.   PFuncDesc = ^TFuncDesc;
  1718.   {$EXTERNALSYM tagFUNCDESC}
  1719.   tagFUNCDESC = record
  1720.     memid: TMemberID;
  1721.     lprgscode: PResultList;
  1722.     lprgelemdescParam: PElemDescList;
  1723.     funckind: TFuncKind;
  1724.     invkind: TInvokeKind;
  1725.     callconv: TCallConv;
  1726.     cParams: Smallint;
  1727.     cParamsOpt: Smallint;
  1728.     oVft: Smallint;
  1729.     cScodes: Smallint;
  1730.     elemdescFunc: TElemDesc;
  1731.     wFuncFlags: Word;
  1732.   end;
  1733.   TFuncDesc = tagFUNCDESC;
  1734.   {$EXTERNALSYM FUNCDESC}
  1735.   FUNCDESC = tagFUNCDESC;
  1736.  
  1737.   TVarKind = Longint;
  1738.  
  1739.   PVarDesc = ^TVarDesc;
  1740.   {$EXTERNALSYM tagVARDESC}
  1741.   tagVARDESC = record
  1742.     memid: TMemberID;
  1743.     lpstrSchema: POleStr;
  1744.     case Integer of
  1745.       VAR_PERINSTANCE: (
  1746.         oInst: Longint;
  1747.         elemdescVar: TElemDesc;
  1748.         wVarFlags: Word;
  1749.         varkind: TVarKind);
  1750.       VAR_CONST: (
  1751.         lpvarValue: PVariant);
  1752.   end;
  1753.   TVarDesc = tagVARDESC;
  1754.   {$EXTERNALSYM VARDESC}
  1755.   VARDESC = tagVARDESC;
  1756.  
  1757. { ICreateTypeInfo interface }
  1758.  
  1759.   {$EXTERNALSYM ICreateTypeInfo }
  1760.   ICreateTypeInfo = class(IUnknown)
  1761.   public
  1762.     function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1763.     function SetTypeFlags(uTypeFlags: Integer): HResult; virtual; stdcall; abstract;
  1764.     function SetDocString(pstrDoc: POleStr): HResult; virtual; stdcall; abstract;
  1765.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1766.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult;
  1767.       virtual; stdcall; abstract;
  1768.     function AddRefTypeInfo(tinfo: ITypeInfo; var reftype: HRefType): HResult;
  1769.       virtual; stdcall; abstract;
  1770.     function AddFuncDesc(index: Integer; var funcdesc: TFuncDesc): HResult;
  1771.       virtual; stdcall; abstract;
  1772.     function AddImplType(index: Integer; reftype: HRefType): HResult;
  1773.       virtual; stdcall; abstract;
  1774.     function SetImplTypeFlags(index: Integer; impltypeflags: Integer): HResult;
  1775.       virtual; stdcall; abstract;
  1776.     function SetAlignment(cbAlignment: Word): HResult; virtual; stdcall; abstract;
  1777.     function SetSchema(lpstrSchema: POleStr): HResult; virtual; stdcall; abstract;
  1778.     function AddVarDesc(index: Integer; var vardesc: TVarDesc): HResult;
  1779.       virtual; stdcall; abstract;
  1780.     function SetFuncAndParamNames(index: Integer; rgszNames: POleStrList;
  1781.       cNames: Integer): HResult; virtual; stdcall; abstract;
  1782.     function SetVarName(index: Integer; szName: POleStr): HResult; virtual; stdcall; abstract;
  1783.     function SetTypeDescAlias(var descAlias: TTypeDesc): HResult; virtual; stdcall; abstract;
  1784.     function DefineFuncAsDllEntry(index: Integer; szDllName: POleStr;
  1785.       szProcName: POleStr): HResult; virtual; stdcall; abstract;
  1786.     function SetFuncDocString(index: Integer; szDocString: POleStr): HResult;
  1787.       virtual; stdcall; abstract;
  1788.     function SetVarDocString(index: Integer; szDocString: POleStr): HResult;
  1789.       virtual; stdcall; abstract;
  1790.     function SetFuncHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  1791.       virtual; stdcall; abstract;
  1792.     function SetVarHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  1793.       virtual; stdcall; abstract;
  1794.     function SetMops(index: Integer; bstrMops: TBStr): HResult; virtual; stdcall; abstract;
  1795.     function SetTypeIdldesc(var idldesc: TIDLDesc): HResult; virtual; stdcall; abstract;
  1796.     function LayOut: HResult; virtual; stdcall; abstract;
  1797.   end;
  1798.  
  1799. { ICreateTypeLib interface }
  1800.  
  1801.   {$EXTERNALSYM ICreateTypeLib }
  1802.   ICreateTypeLib = class(IUnknown)
  1803.   public
  1804.     function CreateTypeInfo(szName: POleStr; tkind: TTypeKind;
  1805.       var ictinfo: ICreateTypeInfo): HResult; virtual; stdcall; abstract;
  1806.     function SetName(szName: POleStr): HResult; virtual; stdcall; abstract;
  1807.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult; virtual; stdcall; abstract;
  1808.     function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1809.     function SetDocString(szDoc: POleStr): HResult; virtual; stdcall; abstract;
  1810.     function SetHelpFileName(szHelpFileName: POleStr): HResult; virtual; stdcall; abstract;
  1811.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1812.     function SetLcid(lcid: TLCID): HResult; virtual; stdcall; abstract;
  1813.     function SetLibFlags(uLibFlags: Integer): HResult; virtual; stdcall; abstract;
  1814.     function SaveAllChanges: HResult; virtual; stdcall; abstract;
  1815.   end;
  1816.  
  1817. { IDispatch interface }
  1818.  
  1819.   {$EXTERNALSYM IDispatch }
  1820.   IDispatch = class(IUnknown)
  1821.   public
  1822.     function GetTypeInfoCount(var ctinfo: Integer): HResult; virtual; stdcall; abstract;
  1823.     function GetTypeInfo(itinfo: Integer; lcid: TLCID; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract;
  1824.     function GetIDsOfNames(const iid: TIID; rgszNames: POleStrList;
  1825.       cNames: Integer; lcid: TLCID; rgdispid: PDispIDList): HResult; virtual; stdcall; abstract;
  1826.     function Invoke(dispIDMember: TDispID; const iid: TIID; lcid: TLCID;
  1827.       flags: Word; var dispParams: TDispParams; varResult: PVariant;
  1828.       excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract;
  1829.   end;
  1830.  
  1831. { IEnumVariant interface }
  1832.  
  1833.   {$EXTERNALSYM IEnumVariant }
  1834.   IEnumVariant = class(IUnknown)
  1835.   public
  1836.     function Next(celt: Longint; var elt;
  1837.       var pceltFetched: Longint): HResult; virtual; stdcall; abstract;
  1838.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  1839.     function Reset: HResult; virtual; stdcall; abstract;
  1840.     function Clone(var Enum: IEnumVariant): HResult; virtual; stdcall; abstract;
  1841.   end;
  1842.  
  1843. { ITypeComp interface }
  1844.  
  1845.   TDescKind = Longint;
  1846.  
  1847.   PBindPtr = ^TBindPtr;
  1848.   {$EXTERNALSYM tagBINDPTR}
  1849.   tagBINDPTR = record
  1850.     case Integer of
  1851.       0: (lpfuncdesc: PFuncDesc);
  1852.       1: (lpvardesc: PVarDesc);
  1853.       2: (lptcomp: ITypeComp);
  1854.   end;
  1855.   TBindPtr = tagBINDPTR;
  1856.   {$EXTERNALSYM BINDPTR}
  1857.   BINDPTR = tagBINDPTR;
  1858.  
  1859.   {$EXTERNALSYM ITypeComp }
  1860.   ITypeComp = class(IUnknown)
  1861.   public
  1862.     function Bind(szName: POleStr; lHashVal: Longint; wflags: Word;
  1863.       var tinfo: ITypeInfo; var desckind: TDescKind;
  1864.       var bindptr: TBindPtr): HResult; virtual; stdcall; abstract;
  1865.     function BindType(szName: POleStr; lHashVal: Longint;
  1866.       var tinfo: ITypeInfo; var tcomp: ITypeComp): HResult;
  1867.       virtual; stdcall; abstract;
  1868.   end;
  1869.  
  1870. { ITypeInfo interface }
  1871.  
  1872.   {$EXTERNALSYM ITypeInfo}
  1873.   ITypeInfo = class(IUnknown)
  1874.   public
  1875.     function GetTypeAttr(var ptypeattr: PTypeAttr): HResult; virtual; stdcall; abstract;
  1876.     function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract;
  1877.     function GetFuncDesc(index: Integer; var pfuncdesc: PFuncDesc): HResult;
  1878.       virtual; stdcall; abstract;
  1879.     function GetVarDesc(index: Integer; var pvardesc: PVarDesc): HResult;
  1880.       virtual; stdcall; abstract;
  1881.     function GetNames(memid: TMemberID; rgbstrNames: PBStrList;
  1882.       cMaxNames: Integer; var cNames: Integer): HResult; virtual; stdcall; abstract;
  1883.     function GetRefTypeOfImplType(index: Integer; var reftype: HRefType): HResult;
  1884.       virtual; stdcall; abstract;
  1885.     function GetImplTypeFlags(index: Integer; var impltypeflags: Integer): HResult;
  1886.       virtual; stdcall; abstract;
  1887.     function GetIDsOfNames(rgpszNames: POleStrList; cNames: Integer;
  1888.       rgmemid: PMemberIDList): HResult; virtual; stdcall; abstract;
  1889.     function Invoke(pvInstance: Pointer; memid: TMemberID; flags: Word;
  1890.       var dispParams: TDispParams; varResult: PVariant;
  1891.       excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract;
  1892.     function GetDocumentation(memid: TMemberID; pbstrName: PBStr;
  1893.       pbstrDocString: PBStr; pdwHelpContext: PLongint;
  1894.       pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract;
  1895.     function GetDllEntry(memid: TMemberID; invkind: TInvokeKind;
  1896.       var bstrDllName: TBStr; var bstrName: TBStr; var wOrdinal: Word): HResult;
  1897.       virtual; stdcall; abstract;
  1898.     function GetRefTypeInfo(reftype: HRefType; var tinfo: ITypeInfo): HResult;
  1899.       virtual; stdcall; abstract;
  1900.     function AddressOfMember(memid: TMemberID; invkind: TInvokeKind;
  1901.       var ppv: Pointer): HResult; virtual; stdcall; abstract;
  1902.     function CreateInstance(unkOuter: IUnknown; const iid: TIID;
  1903.       var vObj): HResult; virtual; stdcall; abstract;
  1904.     function GetMops(memid: TMemberID; var bstrMops: TBStr): HResult;
  1905.       virtual; stdcall; abstract;
  1906.     function GetContainingTypeLib(var tlib: ITypeLib; var pindex: Integer): HResult;
  1907.       virtual; stdcall; abstract;
  1908.     procedure ReleaseTypeAttr(ptypeattr: PTypeAttr); virtual; stdcall; abstract;
  1909.     procedure ReleaseFuncDesc(pfuncdesc: PFuncDesc); virtual; stdcall; abstract;
  1910.     procedure ReleaseVarDesc(pvardesc: PVarDesc); virtual; stdcall; abstract;
  1911.   end;
  1912.  
  1913. { ITypeLib interface }
  1914.  
  1915.   TSysKind = Longint;
  1916.  
  1917.   PTLibAttr = ^TTLibAttr;
  1918.   {$EXTERNALSYM tagTLIBATTR}
  1919.   tagTLIBATTR = record
  1920.     guid: TGUID;
  1921.     lcid: TLCID;
  1922.     syskind: TSysKind;
  1923.     wMajorVerNum: Word;
  1924.     wMinorVerNum: Word;
  1925.     wLibFlags: Word;
  1926.   end;
  1927.   TTLibAttr = tagTLIBATTR;
  1928.   {$EXTERNALSYM TLIBATTR}
  1929.   TLIBATTR = tagTLIBATTR;
  1930.  
  1931.   PTypeInfoList = ^TTypeInfoList;
  1932.   TTypeInfoList = array[0..65535] of ITypeInfo;
  1933.  
  1934.   {$EXTERNALSYM ITypeLib}
  1935.   ITypeLib = class(IUnknown)
  1936.   public
  1937.     function GetTypeInfoCount: Integer; virtual; stdcall; abstract;
  1938.     function GetTypeInfo(index: Integer; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract;
  1939.     function GetTypeInfoType(index: Integer; var tkind: TTypeKind): HResult;
  1940.       virtual; stdcall; abstract;
  1941.     function GetTypeInfoOfGuid(const guid: TGUID; var tinfo: ITypeInfo): HResult;
  1942.       virtual; stdcall; abstract;
  1943.     function GetLibAttr(var ptlibattr: PTLibAttr): HResult; virtual; stdcall; abstract;
  1944.     function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract;
  1945.     function GetDocumentation(index: Integer; pbstrName: PBStr;
  1946.       pbstrDocString: PBStr; pdwHelpContext: PLongint;
  1947.       pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract;
  1948.     function IsName(szNameBuf: POleStr; lHashVal: Longint; var fName: BOOL): HResult;
  1949.       virtual; stdcall; abstract;
  1950.     function FindName(szNameBuf: POleStr; lHashVal: Longint;
  1951.       rgptinfo: PTypeInfoList; rgmemid: PMemberIDList;
  1952.       var pcFound: Word): HResult; virtual; stdcall; abstract;
  1953.     procedure ReleaseTLibAttr(ptlibattr: PTLibAttr); virtual; stdcall; abstract;
  1954.   end;
  1955.  
  1956. { IErrorInfo interface }
  1957.  
  1958.   {$EXTERNALSYM IErrorInfo }
  1959.   IErrorInfo = class(IUnknown)
  1960.   public
  1961.     function GetGUID(var guid: TGUID): HResult; virtual; stdcall; abstract;
  1962.     function GetSource(var bstrSource: TBStr): HResult; virtual; stdcall; abstract;
  1963.     function GetDescription(var bstrDescription: TBStr): HResult; virtual; stdcall; abstract;
  1964.     function GetHelpFile(var bstrHelpFile: TBStr): HResult; virtual; stdcall; abstract;
  1965.     function GetHelpContext(var dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1966.   end;
  1967.  
  1968. { ICreateErrorInfo interface }
  1969.  
  1970.   {$EXTERNALSYM ICreateErrorInfo }
  1971.   ICreateErrorInfo = class(IUnknown)
  1972.   public
  1973.     function SetGUID(const guid: TGUID): HResult; virtual; stdcall; abstract;
  1974.     function SetSource(szSource: POleStr): HResult; virtual; stdcall; abstract;
  1975.     function SetDescription(szDescription: POleStr): HResult; virtual; stdcall; abstract;
  1976.     function SetHelpFile(szHelpFile: POleStr): HResult; virtual; stdcall; abstract;
  1977.     function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract;
  1978.   end;
  1979.  
  1980. { ISupportErrorInfo interface }
  1981.  
  1982.   {$EXTERNALSYM ISupportErrorInfo }
  1983.   ISupportErrorInfo = class(IUnknown)
  1984.   public
  1985.     function InterfaceSupportsErrorInfo(const iid: TIID): HResult; virtual; stdcall; abstract;
  1986.   end;
  1987.  
  1988. { IDispatch implementation support }
  1989.  
  1990.   PParamData = ^TParamData;
  1991.   {$EXTERNALSYM tagPARAMDATA}
  1992.   tagPARAMDATA = record
  1993.     szName: POleStr;
  1994.     vt: TVarType;
  1995.   end;
  1996.   TParamData = tagPARAMDATA;
  1997.   {$EXTERNALSYM PARAMDATA}
  1998.   PARAMDATA = tagPARAMDATA;
  1999.  
  2000.   PParamDataList = ^TParamDataList;
  2001.   TParamDataList = array[0..65535] of TParamData;
  2002.  
  2003.   PMethodData = ^TMethodData;
  2004.   {$EXTERNALSYM tagMETHODDATA}
  2005.   tagMETHODDATA = record
  2006.     szName: POleStr;
  2007.     ppdata: PParamDataList;
  2008.     dispid: TDispID;
  2009.     iMeth: Integer;
  2010.     cc: TCallConv;
  2011.     cArgs: Integer;
  2012.     wFlags: Word;
  2013.     vtReturn: TVarType;
  2014.   end;
  2015.   TMethodData = tagMETHODDATA;
  2016.   {$EXTERNALSYM METHODDATA}
  2017.   METHODDATA = tagMETHODDATA;
  2018.  
  2019.   PMethodDataList = ^TMethodDataList;
  2020.   TMethodDataList = array[0..65535] of TMethodData;
  2021.  
  2022.   PInterfaceData = ^TInterfaceData;
  2023.   {$EXTERNALSYM tagINTERFACEDATA}
  2024.   tagINTERFACEDATA = record
  2025.     pmethdata: PMethodDataList;
  2026.     cMembers: Integer;
  2027.   end;
  2028.   TInterfaceData = tagINTERFACEDATA;
  2029.   {$EXTERNALSYM INTERFACEDATA}
  2030.   INTERFACEDATA = tagINTERFACEDATA;
  2031.  
  2032. { IOleAdviseHolder interface }
  2033.  
  2034.   {$EXTERNALSYM IOleAdviseHolder}
  2035.   IOleAdviseHolder = class(IUnknown)
  2036.   public
  2037.     function Advise(advise: IAdviseSink; var dwConnection: Longint): HResult;
  2038.       virtual; stdcall; abstract;
  2039.     function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  2040.     function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract;
  2041.     function SendOnRename(mk: IMoniker): HResult; virtual; stdcall; abstract;
  2042.     function SendOnSave: HResult; virtual; stdcall; abstract;
  2043.     function SendOnClose: HResult; virtual; stdcall; abstract;
  2044.   end;
  2045.  
  2046. { IOleCache interface }
  2047.  
  2048.   {$EXTERNALSYM IOleCache }
  2049.   IOleCache = class(IUnknown)
  2050.   public
  2051.     function Cache(var formatetc: TFormatEtc; advf: Longint;
  2052.       var dwConnection: Longint): HResult; virtual; stdcall; abstract;
  2053.     function Uncache(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  2054.     function EnumCache(var enumStatData: IEnumStatData): HResult;
  2055.       virtual; stdcall; abstract;
  2056.     function InitCache(dataObject: IDataObject): HResult; virtual; stdcall; abstract;
  2057.     function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;
  2058.       fRelease: BOOL): HResult; virtual; stdcall; abstract;
  2059.   end;
  2060.  
  2061. { IOleCache2 interface }
  2062.  
  2063.   {$EXTERNALSYM IOleCache2 }
  2064.   IOleCache2 = class(IOleCache)
  2065.   public
  2066.     function UpdateCache(dataObject: IDataObject; grfUpdf: Longint;
  2067.       pReserved: Pointer): HResult; virtual; stdcall; abstract;
  2068.     function DiscardCache(dwDiscardOptions: Longint): HResult; virtual; stdcall; abstract;
  2069.   end;
  2070.  
  2071. { IOleCacheControl interface }
  2072.  
  2073.   {$EXTERNALSYM IOleCacheControl }
  2074.   IOleCacheControl = class(IUnknown)
  2075.   public
  2076.     function OnRun(dataObject: IDataObject): HResult; virtual; stdcall; abstract;
  2077.     function OnStop: HResult; virtual; stdcall; abstract;
  2078.   end;
  2079.  
  2080. { IParseDisplayName interface }
  2081.  
  2082.   {$EXTERNALSYM IParseDisplayName }
  2083.   IParseDisplayName = class(IUnknown)
  2084.   public
  2085.     function ParseDisplayName(bc: IBindCtx; pszDisplayName: POleStr;
  2086.       var chEaten: Longint; var mkOut: IMoniker): HResult; virtual; stdcall; abstract;
  2087.   end;
  2088.  
  2089. { IOleContainer interface }
  2090.  
  2091.   {$EXTERNALSYM IOleContainer}
  2092.   IOleContainer = class(IParseDisplayName)
  2093.   public
  2094.     function EnumObjects(grfFlags: Longint; var Enum: IEnumUnknown): HResult;
  2095.       virtual; stdcall; abstract;
  2096.     function LockContainer(fLock: BOOL): HResult; virtual; stdcall; abstract;
  2097.   end;
  2098.  
  2099. { IOleClientSite interface }
  2100.  
  2101.   {$EXTERNALSYM IOleClientSite}
  2102.   IOleClientSite = class(IUnknown)
  2103.   public
  2104.     function SaveObject: HResult; virtual; stdcall; abstract;
  2105.     function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
  2106.       var mk: IMoniker): HResult; virtual; stdcall; abstract;
  2107.     function GetContainer(var container: IOleContainer): HResult; virtual; stdcall; abstract;
  2108.     function ShowObject: HResult; virtual; stdcall; abstract;
  2109.     function OnShowWindow(fShow: BOOL): HResult; virtual; stdcall; abstract;
  2110.     function RequestNewObjectLayout: HResult; virtual; stdcall; abstract;
  2111.   end;
  2112.  
  2113. { IOleObject interface }
  2114.  
  2115.   {$EXTERNALSYM IOleObject}
  2116.   IOleObject = class(IUnknown)
  2117.   public
  2118.     function SetClientSite(clientSite: IOleClientSite): HResult;
  2119.       virtual; stdcall; abstract;
  2120.     function GetClientSite(var clientSite: IOleClientSite): HResult;
  2121.       virtual; stdcall; abstract;
  2122.     function SetHostNames(szContainerApp: POleStr;
  2123.       szContainerObj: POleStr): HResult; virtual; stdcall; abstract;
  2124.     function Close(dwSaveOption: Longint): HResult; virtual; stdcall; abstract;
  2125.     function SetMoniker(dwWhichMoniker: Longint; mk: IMoniker): HResult;
  2126.       virtual; stdcall; abstract;
  2127.     function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
  2128.       var mk: IMoniker): HResult; virtual; stdcall; abstract;
  2129.     function InitFromData(dataObject: IDataObject; fCreation: BOOL;
  2130.       dwReserved: Longint): HResult; virtual; stdcall; abstract;
  2131.     function GetClipboardData(dwReserved: Longint;
  2132.       var dataObject: IDataObject): HResult; virtual; stdcall; abstract;
  2133.     function DoVerb(iVerb: Longint; msg: PMsg; activeSite: IOleClientSite;
  2134.       lindex: Longint; hwndParent: HWND; const posRect: TRect): HResult;
  2135.       virtual; stdcall; abstract;
  2136.     function EnumVerbs(var enumOleVerb: IEnumOleVerb): HResult; virtual; stdcall; abstract;
  2137.     function Update: HResult; virtual; stdcall; abstract;
  2138.     function IsUpToDate: HResult; virtual; stdcall; abstract;
  2139.     function GetUserClassID(var clsid: TCLSID): HResult; virtual; stdcall; abstract;
  2140.     function GetUserType(dwFormOfType: Longint; var pszUserType: POleStr): HResult;
  2141.       virtual; stdcall; abstract;
  2142.     function SetExtent(dwDrawAspect: Longint; const size: TPoint): HResult;
  2143.       virtual; stdcall; abstract;
  2144.     function GetExtent(dwDrawAspect: Longint; var size: TPoint): HResult;
  2145.       virtual; stdcall; abstract;
  2146.     function Advise(advSink: IAdviseSink; var dwConnection: Longint): HResult;
  2147.       virtual; stdcall; abstract;
  2148.     function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract;
  2149.     function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract;
  2150.     function GetMiscStatus(dwAspect: Longint; var dwStatus: Longint): HResult;
  2151.       virtual; stdcall; abstract;
  2152.     function SetColorScheme(var logpal: TLogPalette): HResult; virtual; stdcall; abstract;
  2153.   end;
  2154.  
  2155. { OLE types }
  2156.  
  2157.   PObjectDescriptor = ^TObjectDescriptor;
  2158.   {$EXTERNALSYM tagOBJECTDESCRIPTOR}
  2159.   tagOBJECTDESCRIPTOR = record
  2160.     cbSize: Longint;
  2161.     clsid: TCLSID;
  2162.     dwDrawAspect: Longint;
  2163.     size: TPoint;
  2164.     point: TPoint;
  2165.     dwStatus: Longint;
  2166.     dwFullUserTypeName: Longint;
  2167.     dwSrcOfCopy: Longint;
  2168.   end;
  2169.   TObjectDescriptor = tagOBJECTDESCRIPTOR;
  2170.   {$EXTERNALSYM OBJECTDESCRIPTOR}
  2171.   OBJECTDESCRIPTOR = tagOBJECTDESCRIPTOR;
  2172.  
  2173.   PLinkSrcDescriptor = PObjectDescriptor;
  2174.   TLinkSrcDescriptor = TObjectDescriptor;
  2175.  
  2176. { IOleWindow interface }
  2177.  
  2178.   {$EXTERNALSYM IOleWindow }
  2179.   IOleWindow = class(IUnknown)
  2180.   public
  2181.     function GetWindow(var wnd: HWnd): HResult; virtual; stdcall; abstract;
  2182.     function ContextSensitiveHelp(fEnterMode: BOOL): HResult; virtual; stdcall; abstract;
  2183.   end;
  2184.  
  2185. { IOleLink interface }
  2186.  
  2187.   {$EXTERNALSYM IOleLink }
  2188.   IOleLink = class(IUnknown)
  2189.   public
  2190.     function SetUpdateOptions(dwUpdateOpt: Longint): HResult;
  2191.       virtual; stdcall; abstract;
  2192.     function GetUpdateOptions(var dwUpdateOpt: Longint): HResult; virtual; stdcall; abstract;
  2193.     function SetSourceMoniker(mk: IMoniker; const clsid: TCLSID): HResult;
  2194.       virtual; stdcall; abstract;
  2195.     function GetSourceMoniker(var mk: IMoniker): HResult; virtual; stdcall; abstract;
  2196.     function SetSourceDisplayName(pszDisplayName: POleStr): HResult;
  2197.       virtual; stdcall; abstract;
  2198.     function GetSourceDisplayName(var pszDisplayName: POleStr): HResult;
  2199.       virtual; stdcall; abstract;
  2200.     function BindToSource(bindflags: Longint; bc: IBindCtx): HResult;
  2201.       virtual; stdcall; abstract;
  2202.     function BindIfRunning: HResult; virtual; stdcall; abstract;
  2203.     function GetBoundSource(var unk: IUnknown): HResult; virtual; stdcall; abstract;
  2204.     function UnbindSource: HResult; virtual; stdcall; abstract;
  2205.     function Update(bc: IBindCtx): HResult; virtual; stdcall; abstract;
  2206.   end;
  2207.  
  2208. { IOleItemContainer interface }
  2209.  
  2210.   {$EXTERNALSYM IOleItemContainer }
  2211.   IOleItemContainer = class(IOleContainer)
  2212.   public
  2213.     function GetObject(pszItem: POleStr; dwSpeedNeeded: Longint;
  2214.       bc: IBindCtx; const iid: TIID; var vObject): HResult; virtual; stdcall; abstract;
  2215.     function GetObjectStorage(pszItem: POleStr; bc: IBindCtx;
  2216.       const iid: TIID; var vStorage): HResult; virtual; stdcall; abstract;
  2217.     function IsRunning(pszItem: POleStr): HResult; virtual; stdcall; abstract;
  2218.   end;
  2219.  
  2220. { IOleInPlaceUIWindow interface }
  2221.  
  2222.   {$EXTERNALSYM IOleInPlaceUIWindow}
  2223.   IOleInPlaceUIWindow = class(IOleWindow)
  2224.   public
  2225.     function GetBorder(var rectBorder: TRect): HResult; virtual; stdcall; abstract;
  2226.     function RequestBorderSpace(const borderwidths: TRect): HResult; virtual; stdcall; abstract;
  2227.     function SetBorderSpace(pborderwidths: PRect): HResult; virtual; stdcall; abstract;
  2228.     function SetActiveObject(activeObject: IOleInPlaceActiveObject;
  2229.       pszObjName: POleStr): HResult; virtual; stdcall; abstract;
  2230.   end;
  2231.  
  2232. { IOleInPlaceActiveObject interface }
  2233.  
  2234.   {$EXTERNALSYM IOleInPlaceActiveObject}
  2235.   IOleInPlaceActiveObject = class(IOleWindow)
  2236.   public
  2237.     function TranslateAccelerator(var msg: TMsg): HResult; virtual; stdcall; abstract;
  2238.     function OnFrameWindowActivate(fActivate: BOOL): HResult; virtual; stdcall; abstract;
  2239.     function OnDocWindowActivate(fActivate: BOOL): HResult; virtual; stdcall; abstract;
  2240.     function ResizeBorder(const rcBorder: TRect; uiWindow: IOleInPlaceUIWindow;
  2241.       fFrameWindow: BOOL): HResult; virtual; stdcall; abstract;
  2242.     function EnableModeless(fEnable: BOOL): HResult; virtual; stdcall; abstract;
  2243.   end;
  2244.  
  2245. { IOleInPlaceFrame interface }
  2246.  
  2247.   POleInPlaceFrameInfo = ^TOleInPlaceFrameInfo;
  2248.   {$EXTERNALSYM tagOIFI}
  2249.   tagOIFI = record
  2250.     cb: Integer;
  2251.     fMDIApp: BOOL;
  2252.     hwndFrame: HWND;
  2253.     haccel: HAccel;
  2254.     cAccelEntries: Integer;
  2255.   end;
  2256.   TOleInPlaceFrameInfo = tagOIFI;
  2257.   {$EXTERNALSYM OLEINPLACEFRAMEINFO}
  2258.   OLEINPLACEFRAMEINFO = tagOIFI;
  2259.  
  2260.   POleMenuGroupWidths = ^TOleMenuGroupWidths;
  2261.   {$EXTERNALSYM tagOleMenuGroupWidths}
  2262.   tagOleMenuGroupWidths = record
  2263.     width: array[0..5] of Longint;
  2264.   end;
  2265.   TOleMenuGroupWidths = tagOleMenuGroupWidths;
  2266.   {$EXTERNALSYM OLEMENUGROUPWIDTHS}
  2267.   OLEMENUGROUPWIDTHS = tagOleMenuGroupWidths;
  2268.  
  2269.   {$EXTERNALSYM IOleInPlaceFrame}
  2270.   IOleInPlaceFrame = class(IOleInPlaceUIWindow)
  2271.   public
  2272.     function InsertMenus(hmenuShared: HMenu;
  2273.       var menuWidths: TOleMenuGroupWidths): HResult; virtual; stdcall; abstract;
  2274.     function SetMenu(hmenuShared: HMenu; holemenu: HMenu;
  2275.       hwndActiveObject: HWnd): HResult; virtual; stdcall; abstract;
  2276.     function RemoveMenus(hmenuShared: HMenu): HResult; virtual; stdcall; abstract;
  2277.     function SetStatusText(pszStatusText: POleStr): HResult; virtual; stdcall; abstract;
  2278.     function EnableModeless(fEnable: BOOL): HResult; virtual; stdcall; abstract;
  2279.     function TranslateAccelerator(var msg: TMsg; wID: Word): HResult; virtual; stdcall; abstract;
  2280.   end;
  2281.  
  2282. { IOleInPlaceObject interface }
  2283.  
  2284.   {$EXTERNALSYM IOleInPlaceObject}
  2285.   IOleInPlaceObject = class(IOleWindow)
  2286.   public
  2287.     function InPlaceDeactivate: HResult; virtual; stdcall; abstract;
  2288.     function UIDeactivate: HResult; virtual; stdcall; abstract;
  2289.     function SetObjectRects(const rcPosRect: TRect;
  2290.       const rcClipRect: TRect): HResult; virtual; stdcall; abstract;
  2291.     function ReactivateAndUndo: HResult; virtual; stdcall; abstract;
  2292.   end;
  2293.  
  2294. { IOleInPlaceSite interface }
  2295.  
  2296.   {$EXTERNALSYM IOleInPlaceSite}
  2297.   IOleInPlaceSite = class(IOleWindow)
  2298.   public
  2299.     function CanInPlaceActivate: HResult; virtual; stdcall; abstract;
  2300.     function OnInPlaceActivate: HResult; virtual; stdcall; abstract;
  2301.     function OnUIActivate: HResult; virtual; stdcall; abstract;
  2302.     function GetWindowContext(var frame: IOleInPlaceFrame;
  2303.       var doc: IOleInPlaceUIWindow; var rcPosRect: TRect;
  2304.       var rcClipRect: TRect; var frameInfo: TOleInPlaceFrameInfo): HResult;
  2305.       virtual; stdcall; abstract;
  2306.     function Scroll(scrollExtent: TPoint): HResult; virtual; stdcall; abstract;
  2307.     function OnUIDeactivate(fUndoable: BOOL): HResult; virtual; stdcall; abstract;
  2308.     function OnInPlaceDeactivate: HResult; virtual; stdcall; abstract;
  2309.     function DiscardUndoState: HResult; virtual; stdcall; abstract;
  2310.     function DeactivateAndUndo: HResult; virtual; stdcall; abstract;
  2311.     function OnPosRectChange(const rcPosRect: TRect): HResult; virtual; stdcall; abstract;
  2312.   end;
  2313.  
  2314. { IViewObject interface }
  2315.  
  2316.   TContinueFunc = function(dwContinue: Longint): BOOL stdcall;
  2317.  
  2318.   {$EXTERNALSYM IViewObject }
  2319.   IViewObject = class(IUnknown)
  2320.   public
  2321.     function Draw(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer;
  2322.       ptd: PDVTargetDevice; hicTargetDev: HDC; hdcDraw: HDC;
  2323.       prcBounds: PRect; prcWBounds: PRect; fnContinue: TContinueFunc;
  2324.       dwContinue: Longint): HResult; virtual; stdcall; abstract;
  2325.     function GetColorSet(dwDrawAspect: Longint; lindex: Longint;
  2326.       pvAspect: Pointer; ptd: PDVTargetDevice; hicTargetDev: HDC;
  2327.       var colorSet: PLogPalette): HResult; virtual; stdcall; abstract;
  2328.     function Freeze(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer;
  2329.       var dwFreeze: Longint): HResult; virtual; stdcall; abstract;
  2330.     function Unfreeze(dwFreeze: Longint): HResult; virtual; stdcall; abstract;
  2331.     function SetAdvise(aspects: Longint; advf: Longint;
  2332.       advSink: IAdviseSink): HResult; virtual; stdcall; abstract;
  2333.     function GetAdvise(pAspects: PLongint; pAdvf: PLongint;
  2334.       var advSink: IAdviseSink): HResult; virtual; stdcall; abstract;
  2335.   end;
  2336.  
  2337. { IViewObject2 interface }
  2338.  
  2339.   {$EXTERNALSYM IViewObject2 }
  2340.   IViewObject2 = class(IViewObject)
  2341.   public
  2342.     function GetExtent(dwDrawAspect: Longint; lindex: Longint;
  2343.       ptd: PDVTargetDevice; var size: TPoint): HResult; virtual; stdcall; abstract;
  2344.   end;
  2345.  
  2346. { IDropSource interface }
  2347.  
  2348.   {$EXTERNALSYM IDropSource }
  2349.   IDropSource = class(IUnknown)
  2350.   public
  2351.     function QueryContinueDrag(fEscapePressed: BOOL;
  2352.       grfKeyState: Longint): HResult; virtual; stdcall; abstract;
  2353.     function GiveFeedback(dwEffect: Longint): HResult; virtual; stdcall;  abstract;
  2354.   end;
  2355.  
  2356. { IDropTarget interface }
  2357.  
  2358.   {$EXTERNALSYM IDropTarget }
  2359.   IDropTarget = class(IUnknown)
  2360.   public
  2361.     function DragEnter(dataObj: IDataObject; grfKeyState: Longint;
  2362.       pt: TPoint; var dwEffect: Longint): HResult; virtual; stdcall; abstract;
  2363.     function DragOver(grfKeyState: Longint; pt: TPoint;
  2364.       var dwEffect: Longint): HResult; virtual; stdcall; abstract;
  2365.     function DragLeave: HResult; virtual; stdcall; abstract;
  2366.     function Drop(dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
  2367.       var dwEffect: Longint): HResult; virtual; stdcall; abstract;
  2368.   end;
  2369.  
  2370. { IEnumOleVerb interface }
  2371.  
  2372.   POleVerb = ^TOleVerb;
  2373.   {$EXTERNALSYM tagOLEVERB}
  2374.   tagOLEVERB = record
  2375.     lVerb: Longint;
  2376.     lpszVerbName: POleStr;
  2377.     fuFlags: Longint;
  2378.     grfAttribs: Longint;
  2379.   end;
  2380.   TOleVerb = tagOLEVERB;
  2381.   {$EXTERNALSYM OLEVERB}
  2382.   OLEVERB = tagOLEVERB;
  2383.  
  2384.   {$EXTERNALSYM IEnumOleVerb }
  2385.   IEnumOleVerb = class(IUnknown)
  2386.   public
  2387.     function Next(celt: Longint; var elt;
  2388.       pceltFetched: PLongint): HResult; virtual; stdcall; abstract;
  2389.     function Skip(celt: Longint): HResult; virtual; stdcall; abstract;
  2390.     function Reset: HResult; virtual; stdcall; abstract;
  2391.     function Clone(var enm: IEnumOleVerb): HResult; virtual; stdcall; abstract;
  2392.   end;
  2393.  
  2394.   {$EXTERNALSYM IOleDocumentView}
  2395.   IOleDocumentView = class(IUnknown)
  2396.   public
  2397.     function SetInPlaceSite(Site: IOleInPlaceSite):HResult; virtual; stdcall; abstract;
  2398.     function GetInPlaceSite(var Site: IOleInPlaceSite):HResult; virtual; stdcall; abstract;
  2399.     function GetDocument(var P: IUnknown):HResult; virtual; stdcall; abstract;
  2400.     function SetRect(const View: TRECT):HResult; virtual; stdcall; abstract;
  2401.     function GetRect(var View: TRECT):HResult; virtual; stdcall; abstract;
  2402.     function SetRectComplex(const View, HScroll, VScroll, SizeBox):HResult; virtual; stdcall; abstract;
  2403.     function Show(fShow: BOOL):HResult; virtual; stdcall; abstract;
  2404.     function UIActivate(fUIActivate: BOOL):HResult; virtual; stdcall; abstract;
  2405.     function Open:HResult; virtual; stdcall; abstract;
  2406.     function CloseView(dwReserved: DWORD):HResult; virtual; stdcall; abstract;
  2407.     function SaveViewState(pstm: IStream):HResult; virtual; stdcall; abstract;
  2408.     function ApplyViewState(pstm: IStream):HResult; virtual; stdcall; abstract;
  2409.     function Clone(NewSite: IOleInPlaceSite; var NewView: IOleDocumentView):HResult; virtual; stdcall; abstract;
  2410.   end;
  2411.  
  2412.   {$EXTERNALSYM IEnumOleDocumentViews }
  2413.   IEnumOleDocumentViews = class(IUnknown)
  2414.   public
  2415.     function Next(Count: Longint; var View: IOleDocumentView; var Fetched: Longint):HResult; virtual; stdcall; abstract;
  2416.     function Skip(Count: Longint):HResult; virtual; stdcall; abstract;
  2417.     function Reset:HResult; virtual; stdcall; abstract;
  2418.     function Clone(var Enum: IEnumOleDocumentViews):HResult; virtual; stdcall; abstract;
  2419.   end;
  2420.  
  2421.   {$EXTERNALSYM IOleDocument }
  2422.   IOleDocument = class(IUnknown)
  2423.   public
  2424.     function CreateView(Site: IOleInPlaceSite; Stream: IStream; rsrvd: DWORD;
  2425.       var View: IOleDocumentView):HResult; virtual; stdcall; abstract;
  2426.     function GetDocMiscStatus(var Status: DWORD):HResult; virtual; stdcall; abstract;
  2427.     function EnumViews(var Enum: IEnumOleDocumentViews;
  2428.       var View: IOleDocumentView):HResult; virtual; stdcall; abstract;
  2429.   end;
  2430.  
  2431.   {$EXTERNALSYM IOleDocumentSite }
  2432.   IOleDocumentSite = class(IUnknown)
  2433.   public
  2434.     function ActivateMe(View: IOleDocumentView): HRESULT; virtual; stdcall; abstract;
  2435.   end;
  2436.  
  2437.  
  2438. const
  2439.  
  2440. { Standard GUIDs }
  2441.  
  2442.   {$EXTERNALSYM GUID_NULL}
  2443.   GUID_NULL: TGUID = (
  2444.     D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00));
  2445.   {$EXTERNALSYM IID_IUnknown}
  2446.   IID_IUnknown: TGUID = (
  2447.     D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2448.   {$EXTERNALSYM IID_IClassFactory}
  2449.   IID_IClassFactory: TGUID = (
  2450.     D1:$00000001;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2451.   {$EXTERNALSYM IID_IMarshal}
  2452.   IID_IMarshal: TGUID = (
  2453.     D1:$00000003;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2454.   {$EXTERNALSYM IID_IMalloc}
  2455.   IID_IMalloc: TGUID = (
  2456.     D1:$00000002;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2457.   {$EXTERNALSYM IID_IStdMarshalInfo}
  2458.   IID_IStdMarshalInfo: TGUID = (
  2459.     D1:$00000018;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2460.   {$EXTERNALSYM IID_IExternalConnection}
  2461.   IID_IExternalConnection: TGUID = (
  2462.     D1:$00000019;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2463.   {$EXTERNALSYM IID_IEnumUnknown}
  2464.   IID_IEnumUnknown: TGUID = (
  2465.     D1:$00000100;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2466.   {$EXTERNALSYM IID_IBindCtx}
  2467.   IID_IBindCtx: TGUID = (
  2468.     D1:$0000000E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2469.   {$EXTERNALSYM IID_IEnumMoniker}
  2470.   IID_IEnumMoniker: TGUID = (
  2471.     D1:$00000102;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2472.   {$EXTERNALSYM IID_IRunnableObject}
  2473.   IID_IRunnableObject: TGUID = (
  2474.     D1:$00000126;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2475.   {$EXTERNALSYM IID_IRunningObjectTable}
  2476.   IID_IRunningObjectTable: TGUID = (
  2477.     D1:$00000010;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2478.   {$EXTERNALSYM IID_IPersist}
  2479.   IID_IPersist: TGUID = (
  2480.     D1:$0000010C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2481.   {$EXTERNALSYM IID_IPersistStream}
  2482.   IID_IPersistStream: TGUID = (
  2483.     D1:$00000109;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2484.   {$EXTERNALSYM IID_IMoniker}
  2485.   IID_IMoniker: TGUID = (
  2486.     D1:$0000000F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2487.   {$EXTERNALSYM IID_IEnumString}
  2488.   IID_IEnumString: TGUID = (
  2489.     D1:$00000101;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2490.   {$EXTERNALSYM IID_IStream}
  2491.   IID_IStream: TGUID = (
  2492.     D1:$0000000C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2493.   {$EXTERNALSYM IID_IEnumStatStg}
  2494.   IID_IEnumStatStg: TGUID = (
  2495.     D1:$0000000D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2496.   {$EXTERNALSYM IID_IStorage}
  2497.   IID_IStorage: TGUID = (
  2498.     D1:$0000000B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2499.   {$EXTERNALSYM IID_IPersistFile}
  2500.   IID_IPersistFile: TGUID = (
  2501.     D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2502.   {$EXTERNALSYM IID_IPersistStorage}
  2503.   IID_IPersistStorage: TGUID = (
  2504.     D1:$0000010A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2505.   {$EXTERNALSYM IID_ILockBytes}
  2506.   IID_ILockBytes: TGUID = (
  2507.     D1:$0000000A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2508.   {$EXTERNALSYM IID_IEnumFormatEtc}
  2509.   IID_IEnumFormatEtc: TGUID = (
  2510.     D1:$00000103;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2511.   {$EXTERNALSYM IID_IEnumStatData}
  2512.   IID_IEnumStatData: TGUID = (
  2513.     D1:$00000105;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2514.   {$EXTERNALSYM IID_IRootStorage}
  2515.   IID_IRootStorage: TGUID = (
  2516.     D1:$00000012;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2517.   {$EXTERNALSYM IID_IAdviseSink}
  2518.   IID_IAdviseSink: TGUID = (
  2519.     D1:$0000010F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2520.   {$EXTERNALSYM IID_IAdviseSink2}
  2521.   IID_IAdviseSink2: TGUID = (
  2522.     D1:$00000125;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2523.   {$EXTERNALSYM IID_IDataObject}
  2524.   IID_IDataObject: TGUID = (
  2525.     D1:$0000010E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2526.   {$EXTERNALSYM IID_IDataAdviseHolder}
  2527.   IID_IDataAdviseHolder: TGUID = (
  2528.     D1:$00000110;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2529.   {$EXTERNALSYM IID_IMessageFilter}
  2530.   IID_IMessageFilter: TGUID = (
  2531.     D1:$00000016;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2532.   {$EXTERNALSYM IID_IRpcChannelBuffer}
  2533.   IID_IRpcChannelBuffer: TGUID = (
  2534.     D1:$D5F56B60;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A));
  2535.   {$EXTERNALSYM IID_IRpcProxyBuffer}
  2536.   IID_IRpcProxyBuffer: TGUID = (
  2537.     D1:$D5F56A34;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A));
  2538.   {$EXTERNALSYM IID_IRpcStubBuffer}
  2539.   IID_IRpcStubBuffer: TGUID = (
  2540.     D1:$D5F56AFC;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A));
  2541.   {$EXTERNALSYM IID_IPSFactoryBuffer}
  2542.   IID_IPSFactoryBuffer: TGUID = (
  2543.     D1:$D5F569D0;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A));
  2544.   {$EXTERNALSYM IID_ICreateTypeInfo}
  2545.   IID_ICreateTypeInfo: TGUID = (
  2546.     D1:$00020405;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2547.   {$EXTERNALSYM IID_ICreateTypeLib}
  2548.   IID_ICreateTypeLib: TGUID = (
  2549.     D1:$00020406;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2550.   {$EXTERNALSYM IID_IDispatch}
  2551.   IID_IDispatch: TGUID = (
  2552.     D1:$00020400;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2553.   {$EXTERNALSYM IID_IEnumVariant}
  2554.   IID_IEnumVariant: TGUID = (
  2555.     D1:$00020404;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2556.   {$EXTERNALSYM IID_ITypeComp}
  2557.   IID_ITypeComp: TGUID = (
  2558.     D1:$00020403;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2559.   {$EXTERNALSYM IID_ITypeInfo}
  2560.   IID_ITypeInfo: TGUID = (
  2561.     D1:$00020401;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2562.   {$EXTERNALSYM IID_ITypeLib}
  2563.   IID_ITypeLib: TGUID = (
  2564.     D1:$00020402;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2565.   {$EXTERNALSYM IID_IErrorInfo}
  2566.   IID_IErrorInfo: TGUID = (
  2567.     D1:$1CF2B120;D2:$547D;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19));
  2568.   {$EXTERNALSYM IID_ICreateErrorInfo}
  2569.   IID_ICreateErrorInfo: TGUID = (
  2570.     D1:$22F03340;D2:$547D;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19));
  2571.   {$EXTERNALSYM IID_ISupportErrorInfo}
  2572.   IID_ISupportErrorInfo: TGUID = (
  2573.     D1:$DF0B3D60;D2:$548F;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19));
  2574.   {$EXTERNALSYM IID_IOleAdviseHolder}
  2575.   IID_IOleAdviseHolder: TGUID = (
  2576.     D1:$00000111;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2577.   {$EXTERNALSYM IID_IOleCache}
  2578.   IID_IOleCache: TGUID = (
  2579.     D1:$0000011E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2580.   {$EXTERNALSYM IID_IOleCache2}
  2581.   IID_IOleCache2: TGUID = (
  2582.     D1:$00000128;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2583.   {$EXTERNALSYM IID_IOleCacheControl}
  2584.   IID_IOleCacheControl: TGUID = (
  2585.     D1:$00000129;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2586.   {$EXTERNALSYM IID_IParseDisplayName}
  2587.   IID_IParseDisplayName: TGUID = (
  2588.     D1:$0000011A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2589.   {$EXTERNALSYM IID_IOleContainer}
  2590.   IID_IOleContainer: TGUID = (
  2591.     D1:$0000011B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2592.   {$EXTERNALSYM IID_IOleClientSite}
  2593.   IID_IOleClientSite: TGUID = (
  2594.     D1:$00000118;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2595.   {$EXTERNALSYM IID_IOleObject}
  2596.   IID_IOleObject: TGUID = (
  2597.     D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2598.   {$EXTERNALSYM IID_IOleWindow}
  2599.   IID_IOleWindow: TGUID = (
  2600.     D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2601.   {$EXTERNALSYM IID_IOleLink}
  2602.   IID_IOleLink: TGUID = (
  2603.     D1:$0000011D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2604.   {$EXTERNALSYM IID_IOleItemContainer}
  2605.   IID_IOleItemContainer: TGUID = (
  2606.     D1:$0000011C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2607.   {$EXTERNALSYM IID_IOleInPlaceUIWindow}
  2608.   IID_IOleInPlaceUIWindow: TGUID = (
  2609.     D1:$00000115;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2610.   {$EXTERNALSYM IID_IOleInPlaceActiveObject}
  2611.   IID_IOleInPlaceActiveObject: TGUID = (
  2612.     D1:$00000117;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2613.   {$EXTERNALSYM IID_IOleInPlaceFrame}
  2614.   IID_IOleInPlaceFrame: TGUID = (
  2615.     D1:$00000116;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2616.   {$EXTERNALSYM IID_IOleInPlaceObject}
  2617.   IID_IOleInPlaceObject: TGUID = (
  2618.     D1:$00000113;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2619.   {$EXTERNALSYM IID_IOleInPlaceSite}
  2620.   IID_IOleInPlaceSite: TGUID = (
  2621.     D1:$00000119;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2622.   {$EXTERNALSYM IID_IViewObject}
  2623.   IID_IViewObject: TGUID = (
  2624.     D1:$0000010D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2625.   {$EXTERNALSYM IID_IViewObject2}
  2626.   IID_IViewObject2: TGUID = (
  2627.     D1:$00000127;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2628.   {$EXTERNALSYM IID_IDropSource}
  2629.   IID_IDropSource: TGUID = (
  2630.     D1:$00000121;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2631.   {$EXTERNALSYM IID_IDropTarget}
  2632.   IID_IDropTarget: TGUID = (
  2633.     D1:$00000122;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2634.   {$EXTERNALSYM IID_IEnumOleVerb}
  2635.   IID_IEnumOleVerb: TGUID = (
  2636.     D1:$00000104;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2637.  
  2638. { Additional GUIDs }
  2639.  
  2640.   {$EXTERNALSYM IID_IRpcChannel}
  2641.   IID_IRpcChannel: TGUID = (
  2642.     D1:$00000004;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2643.   {$EXTERNALSYM IID_IRpcStub}
  2644.   IID_IRpcStub: TGUID = (
  2645.     D1:$00000005;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2646.   {$EXTERNALSYM IID_IStubManager}
  2647.   IID_IStubManager: TGUID = (
  2648.     D1:$00000006;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2649.   {$EXTERNALSYM IID_IRpcProxy}
  2650.   IID_IRpcProxy: TGUID = (
  2651.     D1:$00000007;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2652.   {$EXTERNALSYM IID_IProxyManager}
  2653.   IID_IProxyManager: TGUID = (
  2654.     D1:$00000008;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2655.   {$EXTERNALSYM IID_IPSFactory}
  2656.   IID_IPSFactory: TGUID = (
  2657.     D1:$00000009;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2658.   {$EXTERNALSYM IID_IInternalMoniker}
  2659.   IID_IInternalMoniker: TGUID = (
  2660.     D1:$00000011;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2661.   {$EXTERNALSYM CLSID_StdMarshal}
  2662.   CLSID_StdMarshal: TGUID = (
  2663.     D1:$00000017;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2664.   {$EXTERNALSYM IID_IEnumGeneric}
  2665.   IID_IEnumGeneric: TGUID = (
  2666.     D1:$00000106;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2667.   {$EXTERNALSYM IID_IEnumHolder}
  2668.   IID_IEnumHolder: TGUID = (
  2669.     D1:$00000107;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2670.   {$EXTERNALSYM IID_IEnumCallback}
  2671.   IID_IEnumCallback: TGUID = (
  2672.     D1:$00000108;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2673.   {$EXTERNALSYM IID_IOleManager}
  2674.   IID_IOleManager: TGUID = (
  2675.     D1:$0000011F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2676.   {$EXTERNALSYM IID_IOlePresObj}
  2677.   IID_IOlePresObj: TGUID = (
  2678.     D1:$00000120;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2679.   {$EXTERNALSYM IID_IDebug}
  2680.   IID_IDebug: TGUID = (
  2681.     D1:$00000123;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2682.   {$EXTERNALSYM IID_IDebugStream}
  2683.   IID_IDebugStream: TGUID = (
  2684.     D1:$00000124;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
  2685.  
  2686.   {$EXTERNALSYM IID_IOleDocument}
  2687.   IID_IOleDocument: TGUID = (
  2688.     D1:$b722bcc5;D2:$4e68;D3:$101b;D4:($a2,$bc,$00,$aa,$00,$40,$47,$70));
  2689.   {$EXTERNALSYM IID_IOleDocumentSite}
  2690.   IID_IOleDocumentSite: TGUID = (
  2691.     D1:$b722bcc7;D2:$4e68;D3:$101b;D4:($a2,$bc,$00,$aa,$00,$40,$47,$70));
  2692.  
  2693.  
  2694. { HResult manipulation routines }
  2695.  
  2696. function Succeeded(Res: HResult): Boolean;
  2697. function Failed(Res: HResult): Boolean;
  2698. function ResultCode(Res: HResult): Integer;
  2699. function ResultFacility(Res: HResult): Integer;
  2700. function ResultSeverity(Res: HResult): Integer;
  2701. {$EXTERNALSYM MakeResult}
  2702. function MakeResult(Severity, Facility, Code: Integer): HResult;
  2703.  
  2704. { GUID functions }
  2705.  
  2706. {$EXTERNALSYM IsEqualGUID}
  2707. function IsEqualGUID(const guid1, guid2: TGUID): Boolean; stdcall;
  2708. {$EXTERNALSYM IsEqualIID}
  2709. function IsEqualIID(const iid1, iid2: TIID): Boolean; stdcall;
  2710. {$EXTERNALSYM IsEqualCLSID}
  2711. function IsEqualCLSID(const clsid1, clsid2: TCLSID): Boolean; stdcall;
  2712.  
  2713. { Standard object API functions }
  2714.  
  2715. {$EXTERNALSYM CoBuildVersion}
  2716. function CoBuildVersion: Longint; stdcall;
  2717.  
  2718. { Init/Uninit }
  2719.  
  2720. {$EXTERNALSYM CoInitialize}
  2721. function CoInitialize(pvReserved: Pointer): HResult; stdcall;
  2722. {$EXTERNALSYM CoUninitialize}
  2723. procedure CoUninitialize; stdcall;
  2724. {$EXTERNALSYM CoGetMalloc}
  2725. function CoGetMalloc(dwMemContext: Longint; var malloc: IMalloc): HResult; stdcall;
  2726. {$EXTERNALSYM CoGetCurrentProcess}
  2727. function CoGetCurrentProcess: Longint; stdcall;
  2728. {$EXTERNALSYM CoRegisterMallocSpy}
  2729. function CoRegisterMallocSpy(mallocSpy: IMallocSpy): HResult; stdcall;
  2730. {$EXTERNALSYM CoRevokeMallocSpy}
  2731. function CoRevokeMallocSpy: HResult stdcall;
  2732. {$EXTERNALSYM CoCreateStandardMalloc}
  2733. function CoCreateStandardMalloc(memctx: Longint; var malloc: IMalloc): HResult; stdcall;
  2734.  
  2735. { Register, revoke, and get class objects }
  2736.  
  2737. {$EXTERNALSYM CoGetClassObject}
  2738. function CoGetClassObject(const clsid: TCLSID; dwClsContext: Longint;
  2739.   pvReserved: Pointer; const iid: TIID; var pv): HResult; stdcall;
  2740. {$EXTERNALSYM CoRegisterClassObject}
  2741. function CoRegisterClassObject(const clsid: TCLSID; unk: IUnknown;
  2742.   dwClsContext: Longint; flags: Longint; var dwRegister: Longint): HResult; stdcall;
  2743. {$EXTERNALSYM CoRevokeClassObject}
  2744. function CoRevokeClassObject(dwRegister: Longint): HResult; stdcall;
  2745.  
  2746. { Marshaling interface pointers }
  2747.  
  2748. {$EXTERNALSYM CoGetMarshalSizeMax}
  2749. function CoGetMarshalSizeMax(var ulSize: Longint; const iid: TIID;
  2750.   unk: IUnknown; dwDestContext: Longint; pvDestContext: Pointer;
  2751.   mshlflags: Longint): HResult; stdcall;
  2752. {$EXTERNALSYM CoMarshalInterface}
  2753. function CoMarshalInterface(stm: IStream; const iid: TIID; unk: IUnknown;
  2754.   dwDestContext: Longint; pvDestContext: Pointer;
  2755.   mshlflags: Longint): HResult; stdcall;
  2756. {$EXTERNALSYM CoUnmarshalInterface}
  2757. function CoUnmarshalInterface(stm: IStream; const iid: TIID;
  2758.   var pv): HResult; stdcall;
  2759. {$EXTERNALSYM CoMarshalHResult}
  2760. function CoMarshalHResult(stm: IStream; result: HResult): HResult; stdcall;
  2761. {$EXTERNALSYM CoUnmarshalHResult}
  2762. function CoUnmarshalHResult(stm: IStream; var result: HResult): HResult; stdcall;
  2763. {$EXTERNALSYM CoReleaseMarshalData}
  2764. function CoReleaseMarshalData(stm: IStream): HResult; stdcall;
  2765. {$EXTERNALSYM CoDisconnectObject}
  2766. function CoDisconnectObject(unk: IUnknown; dwReserved: Longint): HResult; stdcall;
  2767. {$EXTERNALSYM CoLockObjectExternal}
  2768. function CoLockObjectExternal(unk: IUnknown; fLock: BOOL;
  2769.   fLastUnlockReleases: BOOL): HResult; stdcall;
  2770. {$EXTERNALSYM CoGetStandardMarshal}
  2771. function CoGetStandardMarshal(const iid: TIID; unk: IUnknown;
  2772.   dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  2773.   var marshal: IMarshal): HResult; stdcall;
  2774.  
  2775. {$EXTERNALSYM CoIsHandlerConnected}
  2776. function CoIsHandlerConnected(unk: IUnknown): BOOL; stdcall;
  2777. {$EXTERNALSYM CoHasStrongExternalConnections}
  2778. function CoHasStrongExternalConnections(unk: IUnknown): BOOL; stdcall;
  2779.  
  2780. { Apartment model inter-thread interface passing helpers }
  2781.  
  2782. {$EXTERNALSYM CoMarshalInterThreadInterfaceInStream}
  2783. function CoMarshalInterThreadInterfaceInStream(const iid: TIID;
  2784.   unk: IUnknown; var stm: IStream): HResult; stdcall;
  2785. {$EXTERNALSYM CoGetInterfaceAndReleaseStream}
  2786. function CoGetInterfaceAndReleaseStream(stm: IStream; const iid: TIID;
  2787.   var pv): HResult; stdcall;
  2788. {$EXTERNALSYM CoCreateFreeThreadedMarshaler}
  2789. function CoCreateFreeThreadedMarshaler(unkOuter: IUnknown;
  2790.   var unkMarshal: IUnknown): HResult; stdcall;
  2791.  
  2792. { DLL loading helpers; keeps track of ref counts and unloads all on exit }
  2793.  
  2794. {$EXTERNALSYM CoLoadLibrary}
  2795. function CoLoadLibrary(pszLibName: POleStr; bAutoFree: BOOL): THandle; stdcall;
  2796. {$EXTERNALSYM CoFreeLibrary}
  2797. procedure CoFreeLibrary(hInst: THandle); stdcall;
  2798. {$EXTERNALSYM CoFreeAllLibraries}
  2799. procedure CoFreeAllLibraries; stdcall;
  2800. {$EXTERNALSYM CoFreeUnusedLibraries}
  2801. procedure CoFreeUnusedLibraries; stdcall;
  2802.  
  2803. { Helper for creating instances }
  2804.  
  2805. {$EXTERNALSYM CoCreateInstance}
  2806. function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown;
  2807.   dwClsContext: Longint; const iid: TIID; var pv): HResult; stdcall;
  2808.  
  2809. { Other helpers }
  2810.  
  2811. {$EXTERNALSYM StringFromCLSID}
  2812. function StringFromCLSID(const clsid: TCLSID; var psz: POleStr): HResult; stdcall;
  2813. {$EXTERNALSYM CLSIDFromString}
  2814. function CLSIDFromString(psz: POleStr; var clsid: TCLSID): HResult; stdcall;
  2815. {$EXTERNALSYM StringFromIID}
  2816. function StringFromIID(const iid: TIID; var psz: POleStr): HResult; stdcall;
  2817. {$EXTERNALSYM IIDFromString}
  2818. function IIDFromString(psz: POleStr; var iid: TIID): HResult; stdcall;
  2819. {$EXTERNALSYM CoIsOle1Class}
  2820. function CoIsOle1Class(const clsid: TCLSID): BOOL; stdcall;
  2821. {$EXTERNALSYM ProgIDFromCLSID}
  2822. function ProgIDFromCLSID(const clsid: TCLSID; var pszProgID: POleStr): HResult; stdcall;
  2823. {$EXTERNALSYM CLSIDFromProgID}
  2824. function CLSIDFromProgID(pszProgID: POleStr; var clsid: TCLSID): HResult; stdcall;
  2825. {$EXTERNALSYM StringFromGUID2}
  2826. function StringFromGUID2(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall;
  2827.  
  2828. {$EXTERNALSYM CoCreateGuid}
  2829. function CoCreateGuid(var guid: TGUID): HResult; stdcall;
  2830.  
  2831. {$EXTERNALSYM CoFileTimeToDosDateTime}
  2832. function CoFileTimeToDosDateTime(var filetime: TFileTime; var dosDate: Word;
  2833.   var dosTime: Word): BOOL; stdcall;
  2834. {$EXTERNALSYM CoDosDateTimeToFileTime}
  2835. function CoDosDateTimeToFileTime(nDosDate: Word; nDosTime: Word;
  2836.   var filetime: TFileTime): BOOL; stdcall;
  2837. {$EXTERNALSYM CoFileTimeNow}
  2838. function CoFileTimeNow(var filetime: TFileTime): HResult; stdcall;
  2839. {$EXTERNALSYM CoRegisterMessageFilter}
  2840. function CoRegisterMessageFilter(messageFilter: IMessageFilter;
  2841.   var pMessageFilter: IMessageFilter): HResult; stdcall;
  2842.  
  2843. { TreatAs APIs }
  2844.  
  2845. {$EXTERNALSYM CoGetTreatAsClass}
  2846. function CoGetTreatAsClass(const clsidOld: TCLSID; var clsidNew: TCLSID): HResult; stdcall;
  2847. {$EXTERNALSYM CoTreatAsClass}
  2848. function CoTreatAsClass(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall;
  2849.  
  2850. { The server DLLs must define their DllGetClassObject and DllCanUnloadNow
  2851.   to match these; the typedefs are located here to ensure all are changed at
  2852.   the same time }
  2853.  
  2854. type
  2855.   TDLLGetClassObject = function(const clsid: TCLSID; const iid: TIID;
  2856.     var pv): HResult stdcall;
  2857.   TDLLCanUnloadNow = function: HResult stdcall;
  2858.  
  2859. { Default memory allocation }
  2860.  
  2861. {$EXTERNALSYM CoTaskMemAlloc}
  2862. function CoTaskMemAlloc(cb: Longint): Pointer; stdcall;
  2863. {$EXTERNALSYM CoTaskMemRealloc}
  2864. function CoTaskMemRealloc(pv: Pointer; cb: Longint): Pointer; stdcall;
  2865. {$EXTERNALSYM CoTaskMemFree}
  2866. procedure CoTaskMemFree(pv: Pointer); stdcall;
  2867.  
  2868. { DV APIs }
  2869.  
  2870. {$EXTERNALSYM CreateDataAdviseHolder}
  2871. function CreateDataAdviseHolder(var DAHolder: IDataAdviseHolder): HResult; stdcall;
  2872. {$EXTERNALSYM CreateDataCache}
  2873. function CreateDataCache(unkOuter: IUnknown; const clsid: TCLSID;
  2874.   const iid: TIID; var pv): HResult; stdcall;
  2875.  
  2876. { Storage API prototypes }
  2877.  
  2878. {$EXTERNALSYM StgCreateDocfile}
  2879. function StgCreateDocfile(pwcsName: POleStr; grfMode: Longint;
  2880.   reserved: Longint; var stgOpen: IStorage): HResult; stdcall;
  2881. {$EXTERNALSYM StgCreateDocfileOnILockBytes}
  2882. function StgCreateDocfileOnILockBytes(lkbyt: ILockBytes; grfMode: Longint;
  2883.   reserved: Longint; var stgOpen: IStorage): HResult; stdcall;
  2884. {$EXTERNALSYM StgOpenStorage}
  2885. function StgOpenStorage(pwcsName: POleStr; stgPriority: IStorage;
  2886.   grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  2887.   var stgOpen: IStorage): HResult; stdcall;
  2888. {$EXTERNALSYM StgOpenStorageOnILockBytes}
  2889. function StgOpenStorageOnILockBytes(lkbyt: ILockBytes; stgPriority: IStorage;
  2890.   grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  2891.   var stgOpen: IStorage): HResult; stdcall;
  2892. {$EXTERNALSYM StgIsStorageFile}
  2893. function StgIsStorageFile(pwcsName: POleStr): HResult; stdcall;
  2894. {$EXTERNALSYM StgIsStorageILockBytes}
  2895. function StgIsStorageILockBytes(lkbyt: ILockBytes): HResult; stdcall;
  2896. {$EXTERNALSYM StgSetTimes}
  2897. function StgSetTimes(pszName: POleStr; const ctime: TFileTime;
  2898.   const atime: TFileTime; const mtime: TFileTime): HResult; stdcall;
  2899.  
  2900. { Moniker APIs }
  2901.  
  2902. {$EXTERNALSYM BindMoniker}
  2903. function BindMoniker(mk: IMoniker; grfOpt: Longint; const iidResult: TIID;
  2904.   var pvResult): HResult; stdcall;
  2905. {$EXTERNALSYM MkParseDisplayName}
  2906. function MkParseDisplayName(bc: IBindCtx; szUserName: POleStr;
  2907.   var chEaten: Longint; var mk: IMoniker): HResult; stdcall;
  2908. {$EXTERNALSYM MonikerRelativePathTo}
  2909. function MonikerRelativePathTo(mkSrc: IMoniker; mkDest: IMoniker;
  2910.   var mkRelPath: IMoniker; dwReserved: BOOL): HResult; stdcall;
  2911. {$EXTERNALSYM MonikerCommonPrefixWith}
  2912. function MonikerCommonPrefixWith(mkThis: IMoniker; mkOther: IMoniker;
  2913.   var mkCommon: IMoniker): HResult; stdcall;
  2914. {$EXTERNALSYM CreateBindCtx}
  2915. function CreateBindCtx(reserved: Longint; var bc: IBindCtx): HResult; stdcall;
  2916. {$EXTERNALSYM CreateGenericComposite}
  2917. function CreateGenericComposite(mkFirst: IMoniker; mkRest: IMoniker;
  2918.   var mkComposite: IMoniker): HResult; stdcall;
  2919. {$EXTERNALSYM GetClassFile}
  2920. function GetClassFile(szFilename: POleStr; var clsid: TCLSID): HResult; stdcall;
  2921. {$EXTERNALSYM CreateFileMoniker}
  2922. function CreateFileMoniker(pszPathName: POleStr; var mk: IMoniker): HResult; stdcall;
  2923. {$EXTERNALSYM CreateItemMoniker}
  2924. function CreateItemMoniker(pszDelim: POleStr; pszItem: POleStr;
  2925.   var mk: IMoniker): HResult; stdcall;
  2926. {$EXTERNALSYM CreateAntiMoniker}
  2927. function CreateAntiMoniker(var mk: IMoniker): HResult; stdcall;
  2928. {$EXTERNALSYM CreatePointerMoniker}
  2929. function CreatePointerMoniker(unk: IUnknown; var mk: IMoniker): HResult; stdcall;
  2930. {$EXTERNALSYM GetRunningObjectTable}
  2931. function GetRunningObjectTable(reserved: Longint;
  2932.   var rot: IRunningObjectTable): HResult; stdcall;
  2933.  
  2934. { TBStr API }
  2935.  
  2936. {$EXTERNALSYM SysAllocString}
  2937. function SysAllocString(psz: POleStr): TBStr; stdcall;
  2938. {$EXTERNALSYM SysReAllocString}
  2939. function SysReAllocString(var bstr: TBStr; psz: POleStr): Integer; stdcall;
  2940. {$EXTERNALSYM SysAllocStringLen}
  2941. function SysAllocStringLen(psz: POleStr; len: Integer): TBStr; stdcall;
  2942. {$EXTERNALSYM SysReAllocStringLen}
  2943. function SysReAllocStringLen(var bstr: TBStr; psz: POleStr;
  2944.   len: Integer): Integer; stdcall;
  2945. {$EXTERNALSYM SysFreeString}
  2946. procedure SysFreeString(bstr: TBStr); stdcall;
  2947. {$EXTERNALSYM SysStringLen}
  2948. function SysStringLen(bstr: TBStr): Integer; stdcall;
  2949. {$EXTERNALSYM SysStringByteLen}
  2950. function SysStringByteLen(bstr: TBStr): Integer; stdcall;
  2951. {$EXTERNALSYM SysAllocStringByteLen}
  2952. function SysAllocStringByteLen(psz: PChar; len: Integer): TBStr; stdcall;
  2953.  
  2954. { Time API }
  2955.  
  2956. {$EXTERNALSYM DosDateTimeToVariantTime}
  2957. function DosDateTimeToVariantTime(wDosDate, wDosTime: Word;
  2958.   var vtime: TOleDate): Integer; stdcall;
  2959. {$EXTERNALSYM VariantTimeToDosDateTime}
  2960. function VariantTimeToDosDateTime(vtime: TOleDate; var wDosDate,
  2961.   wDosTime: Word): Integer; stdcall;
  2962.  
  2963. { SafeArray API }
  2964.  
  2965. {$EXTERNALSYM SafeArrayAllocDescriptor}
  2966. function SafeArrayAllocDescriptor(cDims: Integer; var psaOut: PSafeArray): HResult; stdcall;
  2967. {$EXTERNALSYM SafeArrayAllocData}
  2968. function SafeArrayAllocData(psa: PSafeArray): HResult; stdcall;
  2969. {$EXTERNALSYM SafeArrayCreate}
  2970. function SafeArrayCreate(vt: TVarType; cDims: Integer; const rgsabound): PSafeArray; stdcall;
  2971. {$EXTERNALSYM SafeArrayDestroyDescriptor}
  2972. function SafeArrayDestroyDescriptor(psa: PSafeArray): HResult; stdcall;
  2973. {$EXTERNALSYM SafeArrayDestroyData}
  2974. function SafeArrayDestroyData(psa: PSafeArray): HResult; stdcall;
  2975. {$EXTERNALSYM SafeArrayDestroy}
  2976. function SafeArrayDestroy(psa: PSafeArray): HResult; stdcall;
  2977. {$EXTERNALSYM SafeArrayRedim}
  2978. function SafeArrayRedim(psa: PSafeArray; var saboundNew: TSafeArrayBound): HResult; stdcall;
  2979. {$EXTERNALSYM SafeArrayGetDim}
  2980. function SafeArrayGetDim(psa: PSafeArray): Integer; stdcall;
  2981. {$EXTERNALSYM SafeArrayGetElemsize}
  2982. function SafeArrayGetElemsize(psa: PSafeArray): Integer; stdcall;
  2983. {$EXTERNALSYM SafeArrayGetUBound}
  2984. function SafeArrayGetUBound(psa: PSafeArray; nDim: Integer; var lUbound: Longint): HResult; stdcall;
  2985. {$EXTERNALSYM SafeArrayGetLBound}
  2986. function SafeArrayGetLBound(psa: PSafeArray; nDim: Integer; var lLbound: Longint): HResult; stdcall;
  2987. {$EXTERNALSYM SafeArrayLock}
  2988. function SafeArrayLock(psa: PSafeArray): HResult; stdcall;
  2989. {$EXTERNALSYM SafeArrayUnlock}
  2990. function SafeArrayUnlock(psa: PSafeArray): HResult; stdcall;
  2991. {$EXTERNALSYM SafeArrayAccessData}
  2992. function SafeArrayAccessData(psa: PSafeArray; var pvData: Pointer): HResult; stdcall;
  2993. {$EXTERNALSYM SafeArrayUnaccessData}
  2994. function SafeArrayUnaccessData(psa: PSafeArray): HResult; stdcall;
  2995. {$EXTERNALSYM SafeArrayGetElement}
  2996. function SafeArrayGetElement(psa: PSafeArray; const rgIndices; var pv): HResult; stdcall;
  2997. {$EXTERNALSYM SafeArrayPutElement}
  2998. function SafeArrayPutElement(psa: PSafeArray; const rgIndices; const pv): HResult; stdcall;
  2999. {$EXTERNALSYM SafeArrayCopy}
  3000. function SafeArrayCopy(psa: PSafeArray; var psaOut: PSafeArray): HResult; stdcall;
  3001. {$EXTERNALSYM SafeArrayPtrOfIndex}
  3002. function SafeArrayPtrOfIndex(psa: PSafeArray; var rgIndices; var pvData: Pointer): HResult; stdcall;
  3003.  
  3004. { Variant API }
  3005.  
  3006. {$EXTERNALSYM VariantInit}
  3007. procedure VariantInit(var varg: Variant); stdcall;
  3008. {$EXTERNALSYM VariantClear}
  3009. function VariantClear(var varg: Variant): HResult; stdcall;
  3010. {$EXTERNALSYM VariantCopy}
  3011. function VariantCopy(var vargDest: Variant; const vargSrc: Variant): HResult; stdcall;
  3012. {$EXTERNALSYM VariantCopyInd}
  3013. function VariantCopyInd(var varDest: Variant; const vargSrc: Variant): HResult; stdcall;
  3014. {$EXTERNALSYM VariantChangeType}
  3015. function VariantChangeType(var vargDest: Variant; const vargSrc: Variant;
  3016.   wFlags: Word; vt: TVarType): HResult; stdcall;
  3017. {$EXTERNALSYM VariantChangeTypeEx}
  3018. function VariantChangeTypeEx(var vargDest: Variant; const vargSrc: Variant;
  3019.   lcid: TLCID; wFlags: Word; vt: TVarType): HResult; stdcall;
  3020.  
  3021. { VarType coercion API }
  3022.  
  3023. { Note: The routines that convert from a string are defined
  3024.   to take a POleStr rather than a TBStr because no allocation is
  3025.   required, and this makes the routines a bit more generic.
  3026.   They may of course still be passed a TBStr as the strIn param. }
  3027.  
  3028. { Any of the coersion functions that converts either from or to a string
  3029.   takes an additional lcid and dwFlags arguments. The lcid argument allows
  3030.   locale specific parsing to occur.  The dwFlags allow additional function
  3031.   specific condition to occur.  All function that accept the dwFlags argument
  3032.   can include either 0 or LOCALE_NOUSEROVERRIDE flag. In addition, the
  3033.   VarDateFromStr functions also accepts the VAR_TIMEVALUEONLY and
  3034.   VAR_DATEVALUEONLY flags }
  3035.  
  3036. {$EXTERNALSYM VarUI1FromI2}
  3037. function VarUI1FromI2(sIn: Smallint; var bOut: Byte): HResult; stdcall;
  3038. {$EXTERNALSYM VarUI1FromI4}
  3039. function VarUI1FromI4(lIn: Longint; var bOut: Byte): HResult; stdcall;
  3040. {$EXTERNALSYM VarUI1FromR4}
  3041. function VarUI1FromR4(fltIn: Single; var bOut: Byte): HResult; stdcall;
  3042. {$EXTERNALSYM VarUI1FromR8}
  3043. function VarUI1FromR8(dblIn: Double; var bOut: Byte): HResult; stdcall;
  3044. {$EXTERNALSYM VarUI1FromCy}
  3045. function VarUI1FromCy(cyIn: TCurrency; var bOut: Byte): HResult; stdcall;
  3046. {$EXTERNALSYM VarUI1FromDate}
  3047. function VarUI1FromDate(dateIn: TOleDate; var bOut: Byte): HResult; stdcall;
  3048. {$EXTERNALSYM VarUI1FromStr}
  3049. function VarUI1FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var bOut: Byte): HResult; stdcall;
  3050. {$EXTERNALSYM VarUI1FromDisp}
  3051. function VarUI1FromDisp(dispIn: IDispatch; lcid: TLCID; var bOut: Byte): HResult; stdcall;
  3052. {$EXTERNALSYM VarUI1FromBool}
  3053. function VarUI1FromBool(boolIn: TOleBool; var bOut: Byte): HResult; stdcall;
  3054.  
  3055. {$EXTERNALSYM VarI2FromUI1}
  3056. function VarI2FromUI1(bIn: Byte; var sOut: Smallint): HResult; stdcall;
  3057. {$EXTERNALSYM VarI2FromI4}
  3058. function VarI2FromI4(lIn: Longint; var sOut: Smallint): HResult; stdcall;
  3059. {$EXTERNALSYM VarI2FromR4}
  3060. function VarI2FromR4(fltIn: Single; var sOut: Smallint): HResult; stdcall;
  3061. {$EXTERNALSYM VarI2FromR8}
  3062. function VarI2FromR8(dblIn: Double; var sOut: Smallint): HResult; stdcall;
  3063. {$EXTERNALSYM VarI2FromCy}
  3064. function VarI2FromCy(cyIn: TCurrency; var sOut: Smallint): HResult; stdcall;
  3065. {$EXTERNALSYM VarI2FromDate}
  3066. function VarI2FromDate(dateIn: TOleDate; var sOut: Smallint): HResult; stdcall;
  3067. {$EXTERNALSYM VarI2FromStr}
  3068. function VarI2FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var sOut: Smallint): HResult; stdcall;
  3069. {$EXTERNALSYM VarI2FromDisp}
  3070. function VarI2FromDisp(dispIn: IDispatch; lcid: TLCID; var sOut: Smallint): HResult; stdcall;
  3071. {$EXTERNALSYM VarI2FromBool}
  3072. function VarI2FromBool(boolIn: TOleBool; var sOut: Smallint): HResult; stdcall;
  3073.  
  3074. {$EXTERNALSYM VarI4FromUI1}
  3075. function VarI4FromUI1(bIn: Byte; var lOut: Longint): HResult; stdcall;
  3076. {$EXTERNALSYM VarI4FromI2}
  3077. function VarI4FromI2(sIn: Smallint; var lOut: Longint): HResult; stdcall;
  3078. {$EXTERNALSYM VarI4FromR4}
  3079. function VarI4FromR4(fltIn: Single; var lOut: Longint): HResult; stdcall;
  3080. {$EXTERNALSYM VarI4FromR8}
  3081. function VarI4FromR8(dblIn: Double; var lOut: Longint): HResult; stdcall;
  3082. {$EXTERNALSYM VarI4FromCy}
  3083. function VarI4FromCy(cyIn: TCurrency; var lOut: Longint): HResult; stdcall;
  3084. {$EXTERNALSYM VarI4FromDate}
  3085. function VarI4FromDate(dateIn: TOleDate; var lOut: Longint): HResult; stdcall;
  3086. {$EXTERNALSYM VarI4FromStr}
  3087. function VarI4FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var lOut: Longint): HResult; stdcall;
  3088. {$EXTERNALSYM VarI4FromDisp}
  3089. function VarI4FromDisp(dispIn: IDispatch; lcid: TLCID; var lOut: Longint): HResult; stdcall;
  3090. {$EXTERNALSYM VarI4FromBool}
  3091. function VarI4FromBool(boolIn: TOleBool; var lOut: Longint): HResult; stdcall;
  3092.  
  3093. {$EXTERNALSYM VarR4FromUI1}
  3094. function VarR4FromUI1(bIn: Byte; var fltOut: Single): HResult; stdcall;
  3095. {$EXTERNALSYM VarR4FromI2}
  3096. function VarR4FromI2(sIn: Smallint; var fltOut: Single): HResult; stdcall;
  3097. {$EXTERNALSYM VarR4FromI4}
  3098. function VarR4FromI4(lIn: Longint; var fltOut: Single): HResult; stdcall;
  3099. {$EXTERNALSYM VarR4FromR8}
  3100. function VarR4FromR8(dblIn: Double; var fltOut: Single): HResult; stdcall;
  3101. {$EXTERNALSYM VarR4FromCy}
  3102. function VarR4FromCy(cyIn: TCurrency; var fltOut: Single): HResult; stdcall;
  3103. {$EXTERNALSYM VarR4FromDate}
  3104. function VarR4FromDate(dateIn: TOleDate; var fltOut: Single): HResult; stdcall;
  3105. {$EXTERNALSYM VarR4FromStr}
  3106. function VarR4FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var fltOut: Single): HResult; stdcall;
  3107. {$EXTERNALSYM VarR4FromDisp}
  3108. function VarR4FromDisp(dispIn: IDispatch; lcid: TLCID; var fltOut: Single): HResult; stdcall;
  3109. {$EXTERNALSYM VarR4FromBool}
  3110. function VarR4FromBool(boolIn: TOleBool; var fltOut: Single): HResult; stdcall;
  3111.  
  3112. {$EXTERNALSYM VarR8FromUI1}
  3113. function VarR8FromUI1(bIn: Byte; var dblOut: Double): HResult; stdcall;
  3114. {$EXTERNALSYM VarR8FromI2}
  3115. function VarR8FromI2(sIn: Smallint; var dblOut: Double): HResult; stdcall;
  3116. {$EXTERNALSYM VarR8FromI4}
  3117. function VarR8FromI4(lIn: Longint; var dblOut: Double): HResult; stdcall;
  3118. {$EXTERNALSYM VarR8FromR4}
  3119. function VarR8FromR4(fltIn: Single; var dblOut: Double): HResult; stdcall;
  3120. {$EXTERNALSYM VarR8FromCy}
  3121. function VarR8FromCy(cyIn: TCurrency; var dblOut: Double): HResult; stdcall;
  3122. {$EXTERNALSYM VarR8FromDate}
  3123. function VarR8FromDate(dateIn: TOleDate; var dblOut: Double): HResult; stdcall;
  3124. {$EXTERNALSYM VarR8FromStr}
  3125. function VarR8FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var dblOut: Double): HResult; stdcall;
  3126. {$EXTERNALSYM VarR8FromDisp}
  3127. function VarR8FromDisp(dispIn: IDispatch; lcid: TLCID; var dblOut: Double): HResult; stdcall;
  3128. {$EXTERNALSYM VarR8FromBool}
  3129. function VarR8FromBool(boolIn: TOleBool; var dblOut: Double): HResult; stdcall;
  3130.  
  3131. {$EXTERNALSYM VarDateFromUI1}
  3132. function VarDateFromUI1(bIn: Byte; var dateOut: TOleDate): HResult; stdcall;
  3133. {$EXTERNALSYM VarDateFromI2}
  3134. function VarDateFromI2(sIn: Smallint; var dateOut: TOleDate): HResult; stdcall;
  3135. {$EXTERNALSYM VarDateFromI4}
  3136. function VarDateFromI4(lIn: Longint; var dateOut: TOleDate): HResult; stdcall;
  3137. {$EXTERNALSYM VarDateFromR4}
  3138. function VarDateFromR4(fltIn: Single; var dateOut: TOleDate): HResult; stdcall;
  3139. {$EXTERNALSYM VarDateFromR8}
  3140. function VarDateFromR8(dblIn: Double; var dateOut: TOleDate): HResult; stdcall;
  3141. {$EXTERNALSYM VarDateFromCy}
  3142. function VarDateFromCy(cyIn: TCurrency; var dateOut: TOleDate): HResult; stdcall;
  3143. {$EXTERNALSYM VarDateFromStr}
  3144. function VarDateFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var dateOut: TOleDate): HResult; stdcall;
  3145. {$EXTERNALSYM VarDateFromDisp}
  3146. function VarDateFromDisp(dispIn: IDispatch; lcid: TLCID; var dateOut: TOleDate): HResult; stdcall;
  3147. {$EXTERNALSYM VarDateFromBool}
  3148. function VarDateFromBool(boolIn: TOleBool; var dateOut: TOleDate): HResult; stdcall;
  3149.  
  3150. {$EXTERNALSYM VarCyFromUI1}
  3151. function VarCyFromUI1(bIn: Byte; var cyOut: TCurrency): HResult; stdcall;
  3152. {$EXTERNALSYM VarCyFromI2}
  3153. function VarCyFromI2(sIn: Smallint; var cyOut: TCurrency): HResult; stdcall;
  3154. {$EXTERNALSYM VarCyFromI4}
  3155. function VarCyFromI4(lIn: Longint; var cyOut: TCurrency): HResult; stdcall;
  3156. {$EXTERNALSYM VarCyFromR4}
  3157. function VarCyFromR4(fltIn: Single; var cyOut: TCurrency): HResult; stdcall;
  3158. {$EXTERNALSYM VarCyFromR8}
  3159. function VarCyFromR8(dblIn: Double; var cyOut: TCurrency): HResult; stdcall;
  3160. {$EXTERNALSYM VarCyFromDate}
  3161. function VarCyFromDate(dateIn: TOleDate; var cyOut: TCurrency): HResult; stdcall;
  3162. {$EXTERNALSYM VarCyFromStr}
  3163. function VarCyFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var cyOut: TCurrency): HResult; stdcall;
  3164. {$EXTERNALSYM VarCyFromDisp}
  3165. function VarCyFromDisp(dispIn: IDispatch; lcid: TLCID; var cyOut: TCurrency): HResult; stdcall;
  3166. {$EXTERNALSYM VarCyFromBool}
  3167. function VarCyFromBool(boolIn: TOleBool; var cyOut: TCurrency): HResult; stdcall;
  3168.  
  3169. {$EXTERNALSYM VarBStrFromUI1}
  3170. function VarBStrFromUI1(bVal: Byte; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3171. {$EXTERNALSYM VarBStrFromI2}
  3172. function VarBStrFromI2(iVal: Smallint; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3173. {$EXTERNALSYM VarBStrFromI4}
  3174. function VarBStrFromI4(lIn: Longint; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3175. {$EXTERNALSYM VarBStrFromR4}
  3176. function VarBStrFromR4(fltIn: Single; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3177. {$EXTERNALSYM VarBStrFromR8}
  3178. function VarBStrFromR8(dblIn: Double; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3179. {$EXTERNALSYM VarBStrFromCy}
  3180. function VarBStrFromCy(cyIn: TCurrency; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3181. {$EXTERNALSYM VarBStrFromDate}
  3182. function VarBStrFromDate(dateIn: TOleDate; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3183. {$EXTERNALSYM VarBStrFromDisp}
  3184. function VarBStrFromDisp(dispIn: IDispatch; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3185. {$EXTERNALSYM VarBStrFromBool}
  3186. function VarBStrFromBool(boolIn: TOleBool; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall;
  3187.  
  3188. {$EXTERNALSYM VarBoolFromUI1}
  3189. function VarBoolFromUI1(bIn: Byte; var boolOut: TOleBool): HResult; stdcall;
  3190. {$EXTERNALSYM VarBoolFromI2}
  3191. function VarBoolFromI2(sIn: Smallint; var boolOut: TOleBool): HResult; stdcall;
  3192. {$EXTERNALSYM VarBoolFromI4}
  3193. function VarBoolFromI4(lIn: Longint; var boolOut: TOleBool): HResult; stdcall;
  3194. {$EXTERNALSYM VarBoolFromR4}
  3195. function VarBoolFromR4(fltIn: Single; var boolOut: TOleBool): HResult; stdcall;
  3196. {$EXTERNALSYM VarBoolFromR8}
  3197. function VarBoolFromR8(dblIn: Double; var boolOut: TOleBool): HResult; stdcall;
  3198. {$EXTERNALSYM VarBoolFromDate}
  3199. function VarBoolFromDate(dateIn: TOleDate; var boolOut: TOleBool): HResult; stdcall;
  3200. {$EXTERNALSYM VarBoolFromCy}
  3201. function VarBoolFromCy(cyIn: TCurrency; var boolOut: TOleBool): HResult; stdcall;
  3202. {$EXTERNALSYM VarBoolFromStr}
  3203. function VarBoolFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var boolOut: TOleBool): HResult; stdcall;
  3204. {$EXTERNALSYM VarBoolFromDisp}
  3205. function VarBoolFromDisp(dispIn: IDispatch; lcid: TLCID; var boolOut: TOleBool): HResult; stdcall;
  3206.  
  3207. { TypeInfo API }
  3208.  
  3209. {$EXTERNALSYM LHashValOfNameSys}
  3210. function LHashValOfNameSys(syskind: TSysKind; lcid: TLCID;
  3211.   szName: POleStr): Longint; stdcall;
  3212. {$EXTERNALSYM LHashValOfNameSysA}
  3213. function LHashValOfNameSysA(syskind: TSysKind; lcid: TLCID;
  3214.   szName: PChar): Longint; stdcall;
  3215.  
  3216. {$EXTERNALSYM LHashValOfName}
  3217. function LHashValOfName(lcid: TLCID; szName: POleStr): Longint;
  3218. {$EXTERNALSYM WHashValOfLHashVal}
  3219. function WHashValOfLHashVal(lhashval: Longint): Word;
  3220. {$EXTERNALSYM IsHashValCompatible}
  3221. function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean;
  3222.  
  3223. {$EXTERNALSYM LoadTypeLib}
  3224. function LoadTypeLib(szFile: POleStr; var tlib: ITypeLib): HResult; stdcall;
  3225. {$EXTERNALSYM LoadRegTypeLib}
  3226. function LoadRegTypeLib(const guid: TGUID; wVerMajor, wVerMinor: Word;
  3227.   lcid: TLCID; var tlib: ITypeLib): HResult; stdcall;
  3228. {$EXTERNALSYM QueryPathOfRegTypeLib}
  3229. function QueryPathOfRegTypeLib(const guid: TGUID; wMaj, wMin: Word;
  3230.   lcid: TLCID; var bstrPathName: TBStr): HResult; stdcall;
  3231. {$EXTERNALSYM RegisterTypeLib}
  3232. function RegisterTypeLib(tlib: ITypeLib; szFullPath, szHelpDir: POleStr): HResult; stdcall;
  3233. {$EXTERNALSYM CreateTypeLib}
  3234. function CreateTypeLib(syskind: TSysKind; szFile: POleStr;
  3235.   var ctlib: ICreateTypeLib): HResult; stdcall;
  3236.  
  3237. { IDispatch implementation support }
  3238.  
  3239. {$EXTERNALSYM DispGetParam}
  3240. function DispGetParam(var dispparams: TDispParams; position: Integer;
  3241.   vtTarg: TVarType; var varResult: Variant; var puArgErr: Integer): HResult; stdcall;
  3242. {$EXTERNALSYM DispGetIDsOfNames}
  3243. function DispGetIDsOfNames(tinfo: ITypeInfo; var rgszNames; cNames: Integer;
  3244.   var rgdispid): HResult; stdcall;
  3245. {$EXTERNALSYM DispInvoke}
  3246. function DispInvoke(This: Pointer; tinfo: ITypeInfo; dispidMember: TDispID;
  3247.   wFlags: Word; var params: TDispParams; var varResult: Variant;
  3248.   var excepinfo: TExcepInfo; var puArgErr: Integer): HResult; stdcall;
  3249. {$EXTERNALSYM CreateDispTypeInfo}
  3250. function CreateDispTypeInfo(var idata: TInterfaceData; lcid: TLCID;
  3251.   var tinfo: ITypeInfo): HResult; stdcall;
  3252. {$EXTERNALSYM CreateStdDispatch}
  3253. function CreateStdDispatch(unkOuter: IUnknown; pvThis: Pointer;
  3254.   tinfo: ITypeInfo; var unkStdDisp: IUnknown): HResult; stdcall;
  3255.  
  3256. { Active object registration API }
  3257.  
  3258. {$EXTERNALSYM RegisterActiveObject}
  3259. function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID;
  3260.   dwFlags: Longint; var dwRegister: Longint): HResult; stdcall;
  3261. {$EXTERNALSYM RevokeActiveObject}
  3262. function RevokeActiveObject(dwRegister: Longint; pvReserved: Pointer): HResult; stdcall;
  3263. {$EXTERNALSYM GetActiveObject}
  3264. function GetActiveObject(const clsid: TCLSID; pvReserved: Pointer;
  3265.   var unk: IUnknown): HResult; stdcall;
  3266.  
  3267. { ErrorInfo API }
  3268.  
  3269. {$EXTERNALSYM SetErrorInfo}
  3270. function SetErrorInfo(dwReserved: Longint; errinfo: IErrorInfo): HResult; stdcall;
  3271. {$EXTERNALSYM GetErrorInfo}
  3272. function GetErrorInfo(dwReserved: Longint; var errinfo: IErrorInfo): HResult; stdcall;
  3273. {$EXTERNALSYM CreateErrorInfo}
  3274. function CreateErrorInfo(var errinfo: ICreateErrorInfo): HResult; stdcall;
  3275.  
  3276. { Misc API }
  3277.  
  3278. {$EXTERNALSYM OaBuildVersion}
  3279. function OaBuildVersion: Longint; stdcall;
  3280.  
  3281. { OLE API prototypes }
  3282.  
  3283. {$EXTERNALSYM OleBuildVersion}
  3284. function OleBuildVersion: HResult; stdcall;
  3285.  
  3286. { helper functions }
  3287.  
  3288. {$EXTERNALSYM ReadClassStg}
  3289. function ReadClassStg(stg: IStorage; var clsid: TCLSID): HResult; stdcall;
  3290. {$EXTERNALSYM WriteClassStg}
  3291. function WriteClassStg(stg: IStorage; const clsid: TIID): HResult; stdcall;
  3292. {$EXTERNALSYM ReadClassStm}
  3293. function ReadClassStm(stm: IStream; var clsid: TCLSID): HResult; stdcall;
  3294. {$EXTERNALSYM WriteClassStm}
  3295. function WriteClassStm(stm: IStream; const clsid: TIID): HResult; stdcall;
  3296. {$EXTERNALSYM WriteFmtUserTypeStg}
  3297. function WriteFmtUserTypeStg(stg: IStorage; cf: TClipFormat;
  3298.   pszUserType: POleStr): HResult; stdcall;
  3299. {$EXTERNALSYM ReadFmtUserTypeStg}
  3300. function ReadFmtUserTypeStg(stg: IStorage; var cf: TClipFormat;
  3301.   var pszUserType: POleStr): HResult; stdcall;
  3302.  
  3303. { Initialization and termination }
  3304.  
  3305. {$EXTERNALSYM OleInitialize}
  3306. function OleInitialize(pwReserved: Pointer): HResult; stdcall;
  3307. {$EXTERNALSYM OleUninitialize}
  3308. procedure OleUninitialize; stdcall;
  3309.  
  3310. { APIs to query whether (Embedded/Linked) object can be created from
  3311.   the data object }
  3312.  
  3313. {$EXTERNALSYM OleQueryLinkFromData}
  3314. function OleQueryLinkFromData(srcDataObject: IDataObject): HResult; stdcall;
  3315. {$EXTERNALSYM OleQueryCreateFromData}
  3316. function OleQueryCreateFromData(srcDataObject: IDataObject): HResult; stdcall;
  3317.  
  3318. { Object creation APIs }
  3319.  
  3320. {$EXTERNALSYM OleCreate}
  3321. function OleCreate(const clsid: TCLSID; const iid: TIID; renderopt: Longint;
  3322.   formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3323.   stg: IStorage; var vObj): HResult; stdcall;
  3324. {$EXTERNALSYM OleCreateFromData}
  3325. function OleCreateFromData(srcDataObj: IDataObject; const iid: TIID;
  3326.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3327.   stg: IStorage; var vObj): HResult; stdcall;
  3328. {$EXTERNALSYM OleCreateLinkFromData}
  3329. function OleCreateLinkFromData(srcDataObj: IDataObject; const iid: TIID;
  3330.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3331.   stg: IStorage; var vObj): HResult; stdcall;
  3332. {$EXTERNALSYM OleCreateStaticFromData}
  3333. function OleCreateStaticFromData(srcDataObj: IDataObject; const iid: TIID;
  3334.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3335.   stg: IStorage; var vObj): HResult; stdcall;
  3336. {$EXTERNALSYM OleCreateLink}
  3337. function OleCreateLink(mkLinkSrc: IMoniker; const iid: TIID;
  3338.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3339.   stg: IStorage; var vObj): HResult; stdcall;
  3340. {$EXTERNALSYM OleCreateLinkToFile}
  3341. function OleCreateLinkToFile(pszFileName: POleStr; const iid: TIID;
  3342.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  3343.   stg: IStorage; var vObj): HResult; stdcall;
  3344. {$EXTERNALSYM OleCreateFromFile}
  3345. function OleCreateFromFile(const clsid: TCLSID; pszFileName: POleStr;
  3346.   const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc;
  3347.   clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall;
  3348. {$EXTERNALSYM OleLoad}
  3349. function OleLoad(stg: IStorage; const iid: TIID; clientSite: IOleClientSite;
  3350.   var vObj): HResult; stdcall;
  3351. {$EXTERNALSYM OleSave}
  3352. function OleSave(ps: IPersistStorage; stg: IStorage; fSameAsLoad: BOOL): HResult; stdcall;
  3353. {$EXTERNALSYM OleLoadFromStream}
  3354. function OleLoadFromStream(stm: IStream; const iidInterface: TIID;
  3355.   var vObj): HResult; stdcall;
  3356. {$EXTERNALSYM OleSaveToStream}
  3357. function OleSaveToStream(pstm: IPersistStream; stm: IStream): HResult; stdcall;
  3358. {$EXTERNALSYM OleSetContainedObject}
  3359. function OleSetContainedObject(unknown: IUnknown; fContained: BOOL): HResult; stdcall;
  3360. {$EXTERNALSYM OleNoteObjectVisible}
  3361. function OleNoteObjectVisible(unknown: IUnknown; fVisible: BOOL): HResult; stdcall;
  3362.  
  3363. { DragDrop APIs }
  3364.  
  3365. {$EXTERNALSYM RegisterDragDrop}
  3366. function RegisterDragDrop(wnd: HWnd; dropTarget: IDropTarget): HResult; stdcall;
  3367. {$EXTERNALSYM RevokeDragDrop}
  3368. function RevokeDragDrop(wnd: HWnd): HResult; stdcall;
  3369. {$EXTERNALSYM DoDragDrop}
  3370. function DoDragDrop(dataObj: IDataObject; dropSource: IDropSource;
  3371.   dwOKEffects: Longint; var dwEffect: Longint): HResult; stdcall;
  3372.  
  3373. { Clipboard APIs }
  3374.  
  3375. {$EXTERNALSYM OleSetClipboard}
  3376. function OleSetClipboard(dataObj: IDataObject): HResult; stdcall;
  3377. {$EXTERNALSYM OleGetClipboard}
  3378. function OleGetClipboard(var dataObj: IDataObject): HResult; stdcall;
  3379. {$EXTERNALSYM OleFlushClipboard}
  3380. function OleFlushClipboard: HResult; stdcall;
  3381. {$EXTERNALSYM OleIsCurrentClipboard}
  3382. function OleIsCurrentClipboard(dataObj: IDataObject): HResult; stdcall;
  3383.  
  3384. { In-place editing APIs }
  3385.  
  3386. {$EXTERNALSYM OleCreateMenuDescriptor}
  3387. function OleCreateMenuDescriptor(hmenuCombined: HMenu;
  3388.   var menuWidths: TOleMenuGroupWidths): HMenu; stdcall;
  3389. {$EXTERNALSYM OleSetMenuDescriptor}
  3390. function OleSetMenuDescriptor(holemenu: HMenu; hwndFrame: HWnd;
  3391.   hwndActiveObject: HWnd; frame: IOleInPlaceFrame;
  3392.   activeObj: IOleInPlaceActiveObject): HResult; stdcall;
  3393. {$EXTERNALSYM OleDestroyMenuDescriptor}
  3394. function OleDestroyMenuDescriptor(holemenu: HMenu): HResult; stdcall;
  3395. {$EXTERNALSYM OleTranslateAccelerator}
  3396. function OleTranslateAccelerator(frame: IOleInPlaceFrame;
  3397.   var frameInfo: TOleInPlaceFrameInfo; msg: PMsg): HResult; stdcall;
  3398.  
  3399. { Helper APIs }
  3400.  
  3401. {$EXTERNALSYM OleDuplicateData}
  3402. function OleDuplicateData(hSrc: THandle; cfFormat: TClipFormat;
  3403.   uiFlags: Integer): THandle; stdcall;
  3404. {$EXTERNALSYM OleDraw}
  3405. function OleDraw(unknown: IUnknown; dwAspect: Longint; hdcDraw: HDC;
  3406.   const rcBounds: TRect): HResult; stdcall;
  3407. {$EXTERNALSYM OleRun}
  3408. function OleRun(unknown: IUnknown): HResult; stdcall;
  3409. {$EXTERNALSYM OleIsRunning}
  3410. function OleIsRunning(obj: IOleObject): BOOL; stdcall;
  3411. {$EXTERNALSYM OleLockRunning}
  3412. function OleLockRunning(unknown: IUnknown; fLock: BOOL;
  3413.   fLastUnlockCloses: BOOL): HResult; stdcall;
  3414. {$EXTERNALSYM ReleaseStgMedium}
  3415. procedure ReleaseStgMedium(var medium: TStgMedium); stdcall;
  3416. {$EXTERNALSYM CreateOleAdviseHolder}
  3417. function CreateOleAdviseHolder(var OAHolder: IOleAdviseHolder): HResult; stdcall;
  3418. {$EXTERNALSYM OleCreateDefaultHandler}
  3419. function OleCreateDefaultHandler(const clsid: TCLSID; unkOuter: IUnknown;
  3420.   const iid: TIID; var vObj): HResult; stdcall;
  3421. {$EXTERNALSYM OleCreateEmbeddingHelper}
  3422. function OleCreateEmbeddingHelper(const clsid: TCLSID; unkOuter: IUnknown;
  3423.   flags: Longint; cf: IClassFactory; const iid: TIID; var vObj): HResult; stdcall;
  3424. {$EXTERNALSYM IsAccelerator}
  3425. function IsAccelerator(accel: HAccel; cAccelEntries: Integer; msg: PMsg;
  3426.   var pwCmd: Word): BOOL; stdcall;
  3427.  
  3428. { Icon extraction helper APIs }
  3429.  
  3430. {$EXTERNALSYM OleGetIconOfFile}
  3431. function OleGetIconOfFile(pszPath: POleStr; fUseFileAsLabel: BOOL): HGlobal; stdcall;
  3432. {$EXTERNALSYM OleGetIconOfClass}
  3433. function OleGetIconOfClass(const clsid: TCLSID; pszLabel: POleStr;
  3434.   fUseTypeAsLabel: BOOL): HGlobal; stdcall;
  3435. {$EXTERNALSYM OleMetafilePictFromIconAndLabel}
  3436. function OleMetafilePictFromIconAndLabel(icon: HIcon; pszLabel: POleStr;
  3437.   pszSourceFile: POleStr; iIconIndex: Integer): HGlobal; stdcall;
  3438.  
  3439. { Registration database helper APIs }
  3440.  
  3441. {$EXTERNALSYM OleRegGetUserType}
  3442. function OleRegGetUserType(const clsid: TCLSID; dwFormOfType: Longint;
  3443.   var pszUserType: POleStr): HResult; stdcall;
  3444. {$EXTERNALSYM OleRegGetMiscStatus}
  3445. function OleRegGetMiscStatus(const clsid: TCLSID; dwAspect: Longint;
  3446.   var dwStatus: Longint): HResult; stdcall;
  3447. {$EXTERNALSYM OleRegEnumFormatEtc}
  3448. function OleRegEnumFormatEtc(const clsid: TCLSID; dwDirection: Longint;
  3449.   var Enum: IEnumFormatEtc): HResult; stdcall;
  3450. {$EXTERNALSYM OleRegEnumVerbs}
  3451. function OleRegEnumVerbs(const clsid: TCLSID;
  3452.   var Enum: IEnumOleVerb): HResult; stdcall;
  3453.  
  3454. { OLE 1.0 conversion APIs }
  3455.  
  3456. {$EXTERNALSYM OleConvertIStorageToOLESTREAM}
  3457. function OleConvertIStorageToOLESTREAM(stg: IStorage;
  3458.   polestm: Pointer): HResult; stdcall;
  3459. {$EXTERNALSYM OleConvertOLESTREAMToIStorage}
  3460. function OleConvertOLESTREAMToIStorage(polestm: Pointer; stg: IStorage;
  3461.   td: PDVTargetDevice): HResult; stdcall;
  3462. {$EXTERNALSYM OleConvertIStorageToOLESTREAMEx}
  3463. function OleConvertIStorageToOLESTREAMEx(stg: IStorage; cfFormat: TClipFormat;
  3464.   lWidth: Longint; lHeight: Longint; dwSize: Longint; var medium: TStgMedium;
  3465.   polestm: Pointer): HResult; stdcall;
  3466. {$EXTERNALSYM OleConvertOLESTREAMToIStorageEx}
  3467. function OleConvertOLESTREAMToIStorageEx(polestm: Pointer; stg: IStorage;
  3468.   var cfFormat: TClipFormat; var lWidth: Longint; var lHeight: Longint;
  3469.   var dwSize: Longint; var medium: TStgMedium): HResult; stdcall;
  3470.  
  3471. { Storage utility APIs }
  3472.  
  3473. {$EXTERNALSYM GetHGlobalFromILockBytes}
  3474. function GetHGlobalFromILockBytes(lkbyt: ILockBytes; var hglob: HGlobal): HResult; stdcall;
  3475. {$EXTERNALSYM CreateILockBytesOnHGlobal}
  3476. function CreateILockBytesOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL;
  3477.   var lkbyt: ILockBytes): HResult; stdcall;
  3478. {$EXTERNALSYM GetHGlobalFromStream}
  3479. function GetHGlobalFromStream(stm: IStream; var hglob: HGlobal): HResult; stdcall;
  3480. {$EXTERNALSYM CreateStreamOnHGlobal}
  3481. function CreateStreamOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL;
  3482.   var stm: IStream): HResult; stdcall;
  3483.  
  3484. { ConvertTo APIs }
  3485.  
  3486. {$EXTERNALSYM OleDoAutoConvert}
  3487. function OleDoAutoConvert(stg: IStorage; var clsidNew: TCLSID): HResult; stdcall;
  3488. {$EXTERNALSYM OleGetAutoConvert}
  3489. function OleGetAutoConvert(const clsidOld: TCLSID; var clsidNew: TCLSID): HResult; stdcall;
  3490. {$EXTERNALSYM OleSetAutoConvert}
  3491. function OleSetAutoConvert(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall;
  3492. {$EXTERNALSYM GetConvertStg}
  3493. function GetConvertStg(stg: IStorage): HResult; stdcall;
  3494. {$EXTERNALSYM SetConvertStg}
  3495. function SetConvertStg(stg: IStorage; fConvert: BOOL): HResult; stdcall;
  3496.  
  3497. implementation
  3498.  
  3499. const
  3500.   ole32    = 'ole32.dll';
  3501.   oleaut32 = 'oleaut32.dll';
  3502.  
  3503. { Externals from ole32.dll }
  3504.  
  3505. function IsEqualGUID;                   external ole32 name 'IsEqualGUID';
  3506. function IsEqualIID;                    external ole32 name 'IsEqualGUID';
  3507. function IsEqualCLSID;                  external ole32 name 'IsEqualGUID';
  3508. function CoBuildVersion;                external ole32 name 'CoBuildVersion';
  3509. function CoInitialize;                  external ole32 name 'CoInitialize';
  3510. procedure CoUninitialize;               external ole32 name 'CoUninitialize';
  3511. function CoGetMalloc;                   external ole32 name 'CoGetMalloc';
  3512. function CoGetCurrentProcess;           external ole32 name 'CoGetCurrentProcess';
  3513. function CoRegisterMallocSpy;           external ole32 name 'CoRegisterMallocSpy';
  3514. function CoRevokeMallocSpy;             external ole32 name 'CoRevokeMallocSpy';
  3515. function CoCreateStandardMalloc;        external ole32 name 'CoCreateStandardMalloc';
  3516. function CoGetClassObject;              external ole32 name 'CoGetClassObject';
  3517. function CoRegisterClassObject;         external ole32 name 'CoRegisterClassObject';
  3518. function CoRevokeClassObject;           external ole32 name 'CoRevokeClassObject';
  3519. function CoGetMarshalSizeMax;           external ole32 name 'CoGetMarshalSizeMax';
  3520. function CoMarshalInterface;            external ole32 name 'CoMarshalInterface';
  3521. function CoUnmarshalInterface;          external ole32 name 'CoUnmarshalInterface';
  3522. function CoMarshalHResult;              external ole32 name 'CoMarshalHResult';
  3523. function CoUnmarshalHResult;            external ole32 name 'CoUnmarshalHResult';
  3524. function CoReleaseMarshalData;          external ole32 name 'CoReleaseMarshalData';
  3525. function CoDisconnectObject;            external ole32 name 'CoDisconnectObject';
  3526. function CoLockObjectExternal;          external ole32 name 'CoLockObjectExternal';
  3527. function CoGetStandardMarshal;          external ole32 name 'CoGetStandardMarshal';
  3528. function CoIsHandlerConnected;          external ole32 name 'CoIsHandlerConnected';
  3529. function CoHasStrongExternalConnections; external ole32 name 'CoHasStrongExternalConnections';
  3530. function CoMarshalInterThreadInterfaceInStream; external ole32 name 'CoMarshalInterThreadInterfaceInStream';
  3531. function CoGetInterfaceAndReleaseStream; external ole32 name 'CoGetInterfaceAndReleaseStream';
  3532. function CoCreateFreeThreadedMarshaler; external ole32 name 'CoCreateFreeThreadedMarshaler';
  3533. function CoLoadLibrary;                 external ole32 name 'CoLoadLibrary';
  3534. procedure CoFreeLibrary;                external ole32 name 'CoFreeLibrary';
  3535. procedure CoFreeAllLibraries;           external ole32 name 'CoFreeAllLibraries';
  3536. procedure CoFreeUnusedLibraries;        external ole32 name 'CoFreeUnusedLibraries';
  3537. function CoCreateInstance;              external ole32 name 'CoCreateInstance';
  3538. function StringFromCLSID;               external ole32 name 'StringFromCLSID';
  3539. function CLSIDFromString;               external ole32 name 'CLSIDFromString';
  3540. function StringFromIID;                 external ole32 name 'StringFromIID';
  3541. function IIDFromString;                 external ole32 name 'IIDFromString';
  3542. function CoIsOle1Class;                 external ole32 name 'CoIsOle1Class';
  3543. function ProgIDFromCLSID;               external ole32 name 'ProgIDFromCLSID';
  3544. function CLSIDFromProgID;               external ole32 name 'CLSIDFromProgID';
  3545. function StringFromGUID2;               external ole32 name 'StringFromGUID2';
  3546. function CoCreateGuid;                  external ole32 name 'CoCreateGuid';
  3547. function CoFileTimeToDosDateTime;       external ole32 name 'CoFileTimeToDosDateTime';
  3548. function CoDosDateTimeToFileTime;       external ole32 name 'CoDosDateTimeToFileTime';
  3549. function CoFileTimeNow;                 external ole32 name 'CoFileTimeNow';
  3550. function CoRegisterMessageFilter;       external ole32 name 'CoRegisterMessageFilter';
  3551. function CoGetTreatAsClass;             external ole32 name 'CoGetTreatAsClass';
  3552. function CoTreatAsClass;                external ole32 name 'CoTreatAsClass';
  3553. function CoTaskMemAlloc;                external ole32 name 'CoTaskMemAlloc';
  3554. function CoTaskMemRealloc;              external ole32 name 'CoTaskMemRealloc';
  3555. procedure CoTaskMemFree;                external ole32 name 'CoTaskMemFree';
  3556. function CreateDataAdviseHolder;        external ole32 name 'CreateDataAdviseHolder';
  3557. function CreateDataCache;               external ole32 name 'CreateDataCache';
  3558. function StgCreateDocfile;              external ole32 name 'StgCreateDocfile';
  3559. function StgCreateDocfileOnILockBytes;  external ole32 name 'StgCreateDocfileOnILockBytes';
  3560. function StgOpenStorage;                external ole32 name 'StgOpenStorage';
  3561. function StgOpenStorageOnILockBytes;    external ole32 name 'StgOpenStorageOnILockBytes';
  3562. function StgIsStorageFile;              external ole32 name 'StgIsStorageFile';
  3563. function StgIsStorageILockBytes;        external ole32 name 'StgIsStorageILockBytes';
  3564. function StgSetTimes;                   external ole32 name 'StgSetTimes';
  3565. function BindMoniker;                   external ole32 name 'BindMoniker';
  3566. function MkParseDisplayName;            external ole32 name 'MkParseDisplayName';
  3567. function MonikerRelativePathTo;         external ole32 name 'MonikerRelativePathTo';
  3568. function MonikerCommonPrefixWith;       external ole32 name 'MonikerCommonPrefixWith';
  3569. function CreateBindCtx;                 external ole32 name 'CreateBindCtx';
  3570. function CreateGenericComposite;        external ole32 name 'CreateGenericComposite';
  3571. function GetClassFile;                  external ole32 name 'GetClassFile';
  3572. function CreateFileMoniker;             external ole32 name 'CreateFileMoniker';
  3573. function CreateItemMoniker;             external ole32 name 'CreateItemMoniker';
  3574. function CreateAntiMoniker;             external ole32 name 'CreateAntiMoniker';
  3575. function CreatePointerMoniker;          external ole32 name 'CreatePointerMoniker';
  3576. function GetRunningObjectTable;         external ole32 name 'GetRunningObjectTable';
  3577. function OleBuildVersion;               external ole32 name 'OleBuildVersion';
  3578. function ReadClassStg;                  external ole32 name 'ReadClassStg';
  3579. function WriteClassStg;                 external ole32 name 'WriteClassStg';
  3580. function ReadClassStm;                  external ole32 name 'ReadClassStm';
  3581. function WriteClassStm;                 external ole32 name 'WriteClassStm';
  3582. function WriteFmtUserTypeStg;           external ole32 name 'WriteFmtUserTypeStg';
  3583. function ReadFmtUserTypeStg;            external ole32 name 'ReadFmtUserTypeStg';
  3584. function OleInitialize;                 external ole32 name 'OleInitialize';
  3585. procedure OleUninitialize;              external ole32 name 'OleUninitialize';
  3586. function OleQueryLinkFromData;          external ole32 name 'OleQueryLinkFromData';
  3587. function OleQueryCreateFromData;        external ole32 name 'OleQueryCreateFromData';
  3588. function OleCreate;                     external ole32 name 'OleCreate';
  3589. function OleCreateFromData;             external ole32 name 'OleCreateFromData';
  3590. function OleCreateLinkFromData;         external ole32 name 'OleCreateLinkFromData';
  3591. function OleCreateStaticFromData;       external ole32 name 'OleCreateStaticFromData';
  3592. function OleCreateLink;                 external ole32 name 'OleCreateLink';
  3593. function OleCreateLinkToFile;           external ole32 name 'OleCreateLinkToFile';
  3594. function OleCreateFromFile;             external ole32 name 'OleCreateFromFile';
  3595. function OleLoad;                       external ole32 name 'OleLoad';
  3596. function OleSave;                       external ole32 name 'OleSave';
  3597. function OleLoadFromStream;             external ole32 name 'OleLoadFromStream';
  3598. function OleSaveToStream;               external ole32 name 'OleSaveToStream';
  3599. function OleSetContainedObject;         external ole32 name 'OleSetContainedObject';
  3600. function OleNoteObjectVisible;          external ole32 name 'OleNoteObjectVisible';
  3601. function RegisterDragDrop;              external ole32 name 'RegisterDragDrop';
  3602. function RevokeDragDrop;                external ole32 name 'RevokeDragDrop';
  3603. function DoDragDrop;                    external ole32 name 'DoDragDrop';
  3604. function OleSetClipboard;               external ole32 name 'OleSetClipboard';
  3605. function OleGetClipboard;               external ole32 name 'OleGetClipboard';
  3606. function OleFlushClipboard ;            external ole32 name 'OleFlushClipboard';
  3607. function OleIsCurrentClipboard;         external ole32 name 'OleIsCurrentClipboard';
  3608. function OleCreateMenuDescriptor;       external ole32 name 'OleCreateMenuDescriptor';
  3609. function OleSetMenuDescriptor;          external ole32 name 'OleSetMenuDescriptor';
  3610. function OleDestroyMenuDescriptor;      external ole32 name 'OleDestroyMenuDescriptor';
  3611. function OleTranslateAccelerator;       external ole32 name 'OleTranslateAccelerator';
  3612. function OleDuplicateData;              external ole32 name 'OleDuplicateData';
  3613. function OleDraw;                       external ole32 name 'OleDraw';
  3614. function OleRun;                        external ole32 name 'OleRun';
  3615. function OleIsRunning;                  external ole32 name 'OleIsRunning';
  3616. function OleLockRunning;                external ole32 name 'OleLockRunning';
  3617. procedure ReleaseStgMedium;             external ole32 name 'ReleaseStgMedium';
  3618. function CreateOleAdviseHolder;         external ole32 name 'CreateOleAdviseHolder';
  3619. function OleCreateDefaultHandler;       external ole32 name 'OleCreateDefaultHandler';
  3620. function OleCreateEmbeddingHelper;      external ole32 name 'OleCreateEmbeddingHelper';
  3621. function IsAccelerator;                 external ole32 name 'IsAccelerator';
  3622. function OleGetIconOfFile;              external ole32 name 'OleGetIconOfFile';
  3623. function OleGetIconOfClass;             external ole32 name 'OleGetIconOfClass';
  3624. function OleMetafilePictFromIconAndLabel; external ole32 name 'OleMetafilePictFromIconAndLabel';
  3625. function OleRegGetUserType;             external ole32 name 'OleRegGetUserType';
  3626. function OleRegGetMiscStatus;           external ole32 name 'OleRegGetMiscStatus';
  3627. function OleRegEnumFormatEtc;           external ole32 name 'OleRegEnumFormatEtc';
  3628. function OleRegEnumVerbs;               external ole32 name 'OleRegEnumVerbs';
  3629. function OleConvertIStorageToOLESTREAM; external ole32 name 'OleConvertIStorageToOLESTREAM';
  3630. function OleConvertOLESTREAMToIStorage; external ole32 name 'OleConvertOLESTREAMToIStorage';
  3631. function OleConvertIStorageToOLESTREAMEx; external ole32 name 'OleConvertIStorageToOLESTREAMEx';
  3632. function OleConvertOLESTREAMToIStorageEx; external ole32 name 'OleConvertOLESTREAMToIStorageEx';
  3633. function GetHGlobalFromILockBytes;      external ole32 name 'GetHGlobalFromILockBytes';
  3634. function CreateILockBytesOnHGlobal;     external ole32 name 'CreateILockBytesOnHGlobal';
  3635. function GetHGlobalFromStream;          external ole32 name 'GetHGlobalFromStream';
  3636. function CreateStreamOnHGlobal;         external ole32 name 'CreateStreamOnHGlobal';
  3637. function OleDoAutoConvert;              external ole32 name 'OleDoAutoConvert';
  3638. function OleGetAutoConvert;             external ole32 name 'OleGetAutoConvert';
  3639. function OleSetAutoConvert;             external ole32 name 'OleSetAutoConvert';
  3640. function GetConvertStg;                 external ole32 name 'GetConvertStg';
  3641. function SetConvertStg;                 external ole32 name 'SetConvertStg';
  3642.  
  3643. { Externals from oleaut32.dll }
  3644.  
  3645. function SysAllocString;                external oleaut32 name 'SysAllocString';
  3646. function SysReAllocString;              external oleaut32 name 'SysReAllocString';
  3647. function SysAllocStringLen;             external oleaut32 name 'SysAllocStringLen';
  3648. function SysReAllocStringLen;           external oleaut32 name 'SysReAllocStringLen';
  3649. procedure SysFreeString;                external oleaut32 name 'SysFreeString';
  3650. function SysStringLen;                  external oleaut32 name 'SysStringLen';
  3651. function SysStringByteLen;              external oleaut32 name 'SysStringByteLen';
  3652. function SysAllocStringByteLen;         external oleaut32 name 'SysAllocStringByteLen';
  3653. function DosDateTimeToVariantTime;      external oleaut32 name 'DosDateTimeToVariantTime';
  3654. function VariantTimeToDosDateTime;      external oleaut32 name 'VariantTimeToDosDateTime';
  3655. function SafeArrayAllocDescriptor;      external oleaut32 name 'SafeArrayAllocDescriptor';
  3656. function SafeArrayAllocData;            external oleaut32 name 'SafeArrayAllocData';
  3657. function SafeArrayCreate;               external oleaut32 name 'SafeArrayCreate';
  3658. function SafeArrayDestroyDescriptor;    external oleaut32 name 'SafeArrayDestroyDescriptor';
  3659. function SafeArrayDestroyData;          external oleaut32 name 'SafeArrayDestroyData';
  3660. function SafeArrayDestroy;              external oleaut32 name 'SafeArrayDestroy';
  3661. function SafeArrayRedim;                external oleaut32 name 'SafeArrayRedim';
  3662. function SafeArrayGetDim;               external oleaut32 name 'SafeArrayGetDim';
  3663. function SafeArrayGetElemsize;          external oleaut32 name 'SafeArrayGetElemsize';
  3664. function SafeArrayGetUBound;            external oleaut32 name 'SafeArrayGetUBound';
  3665. function SafeArrayGetLBound;            external oleaut32 name 'SafeArrayGetLBound';
  3666. function SafeArrayLock;                 external oleaut32 name 'SafeArrayLock';
  3667. function SafeArrayUnlock;               external oleaut32 name 'SafeArrayUnlock';
  3668. function SafeArrayAccessData;           external oleaut32 name 'SafeArrayAccessData';
  3669. function SafeArrayUnaccessData;         external oleaut32 name 'SafeArrayUnaccessData';
  3670. function SafeArrayGetElement;           external oleaut32 name 'SafeArrayGetElement';
  3671. function SafeArrayPutElement;           external oleaut32 name 'SafeArrayPutElement';
  3672. function SafeArrayCopy;                 external oleaut32 name 'SafeArrayCopy';
  3673. function SafeArrayPtrOfIndex;           external oleaut32 name 'SafeArrayPtrOfIndex';
  3674. procedure VariantInit;                  external oleaut32 name 'VariantInit';
  3675. function VariantClear;                  external oleaut32 name 'VariantClear';
  3676. function VariantCopy;                   external oleaut32 name 'VariantCopy';
  3677. function VariantCopyInd;                external oleaut32 name 'VariantCopyInd';
  3678. function VariantChangeType;             external oleaut32 name 'VariantChangeType';
  3679. function VariantChangeTypeEx;           external oleaut32 name 'VariantChangeTypeEx';
  3680. function VarUI1FromI2;                  external oleaut32 name 'VarUI1FromI2';
  3681. function VarUI1FromI4;                  external oleaut32 name 'VarUI1FromI4';
  3682. function VarUI1FromR4;                  external oleaut32 name 'VarUI1FromR4';
  3683. function VarUI1FromR8;                  external oleaut32 name 'VarUI1FromR8';
  3684. function VarUI1FromCy;                  external oleaut32 name 'VarUI1FromCy';
  3685. function VarUI1FromDate;                external oleaut32 name 'VarUI1FromDate';
  3686. function VarUI1FromStr;                 external oleaut32 name 'VarUI1FromStr';
  3687. function VarUI1FromDisp;                external oleaut32 name 'VarUI1FromDisp';
  3688. function VarUI1FromBool;                external oleaut32 name 'VarUI1FromBool';
  3689. function VarI2FromUI1;                  external oleaut32 name 'VarI2FromUI1';
  3690. function VarI2FromI4;                   external oleaut32 name 'VarI2FromI4';
  3691. function VarI2FromR4;                   external oleaut32 name 'VarI2FromR4';
  3692. function VarI2FromR8;                   external oleaut32 name 'VarI2FromR8';
  3693. function VarI2FromCy;                   external oleaut32 name 'VarI2FromCy';
  3694. function VarI2FromDate;                 external oleaut32 name 'VarI2FromDate';
  3695. function VarI2FromStr;                  external oleaut32 name 'VarI2FromStr';
  3696. function VarI2FromDisp;                 external oleaut32 name 'VarI2FromDisp';
  3697. function VarI2FromBool;                 external oleaut32 name 'VarI2FromBool';
  3698. function VarI4FromUI1;                  external oleaut32 name 'VarI4FromUI1';
  3699. function VarI4FromI2;                   external oleaut32 name 'VarI4FromI2';
  3700. function VarI4FromR4;                   external oleaut32 name 'VarI4FromR4';
  3701. function VarI4FromR8;                   external oleaut32 name 'VarI4FromR8';
  3702. function VarI4FromCy;                   external oleaut32 name 'VarI4FromCy';
  3703. function VarI4FromDate;                 external oleaut32 name 'VarI4FromDate';
  3704. function VarI4FromStr;                  external oleaut32 name 'VarI4FromStr';
  3705. function VarI4FromDisp;                 external oleaut32 name 'VarI4FromDisp';
  3706. function VarI4FromBool;                 external oleaut32 name 'VarI4FromBool';
  3707. function VarR4FromUI1;                  external oleaut32 name 'VarR4FromUI1';
  3708. function VarR4FromI2;                   external oleaut32 name 'VarR4FromI2';
  3709. function VarR4FromI4;                   external oleaut32 name 'VarR4FromI4';
  3710. function VarR4FromR8;                   external oleaut32 name 'VarR4FromR8';
  3711. function VarR4FromCy;                   external oleaut32 name 'VarR4FromCy';
  3712. function VarR4FromDate;                 external oleaut32 name 'VarR4FromDate';
  3713. function VarR4FromStr;                  external oleaut32 name 'VarR4FromStr';
  3714. function VarR4FromDisp;                 external oleaut32 name 'VarR4FromDisp';
  3715. function VarR4FromBool;                 external oleaut32 name 'VarR4FromBool';
  3716. function VarR8FromUI1;                  external oleaut32 name 'VarR8FromUI1';
  3717. function VarR8FromI2;                   external oleaut32 name 'VarR8FromI2';
  3718. function VarR8FromI4;                   external oleaut32 name 'VarR8FromI4';
  3719. function VarR8FromR4;                   external oleaut32 name 'VarR8FromR4';
  3720. function VarR8FromCy;                   external oleaut32 name 'VarR8FromCy';
  3721. function VarR8FromDate;                 external oleaut32 name 'VarR8FromDate';
  3722. function VarR8FromStr;                  external oleaut32 name 'VarR8FromStr';
  3723. function VarR8FromDisp;                 external oleaut32 name 'VarR8FromDisp';
  3724. function VarR8FromBool;                 external oleaut32 name 'VarR8FromBool';
  3725. function VarDateFromUI1;                external oleaut32 name 'VarDateFromUI1';
  3726. function VarDateFromI2;                 external oleaut32 name 'VarDateFromI2';
  3727. function VarDateFromI4;                 external oleaut32 name 'VarDateFromI4';
  3728. function VarDateFromR4;                 external oleaut32 name 'VarDateFromR4';
  3729. function VarDateFromR8;                 external oleaut32 name 'VarDateFromR8';
  3730. function VarDateFromCy;                 external oleaut32 name 'VarDateFromCy';
  3731. function VarDateFromStr;                external oleaut32 name 'VarDateFromStr';
  3732. function VarDateFromDisp;               external oleaut32 name 'VarDateFromDisp';
  3733. function VarDateFromBool;               external oleaut32 name 'VarDateFromBool';
  3734. function VarCyFromUI1;                  external oleaut32 name 'VarCyFromUI1';
  3735. function VarCyFromI2;                   external oleaut32 name 'VarCyFromI2';
  3736. function VarCyFromI4;                   external oleaut32 name 'VarCyFromI4';
  3737. function VarCyFromR4;                   external oleaut32 name 'VarCyFromR4';
  3738. function VarCyFromR8;                   external oleaut32 name 'VarCyFromR8';
  3739. function VarCyFromDate;                 external oleaut32 name 'VarCyFromDate';
  3740. function VarCyFromStr;                  external oleaut32 name 'VarCyFromStr';
  3741. function VarCyFromDisp;                 external oleaut32 name 'VarCyFromDisp';
  3742. function VarCyFromBool;                 external oleaut32 name 'VarCyFromBool';
  3743. function VarBStrFromUI1;                external oleaut32 name 'VarBStrFromUI1';
  3744. function VarBStrFromI2;                 external oleaut32 name 'VarBStrFromI2';
  3745. function VarBStrFromI4;                 external oleaut32 name 'VarBStrFromI4';
  3746. function VarBStrFromR4;                 external oleaut32 name 'VarBStrFromR4';
  3747. function VarBStrFromR8;                 external oleaut32 name 'VarBStrFromR8';
  3748. function VarBStrFromCy;                 external oleaut32 name 'VarBStrFromCy';
  3749. function VarBStrFromDate;               external oleaut32 name 'VarBStrFromDate';
  3750. function VarBStrFromDisp;               external oleaut32 name 'VarBStrFromDisp';
  3751. function VarBStrFromBool;               external oleaut32 name 'VarBStrFromBool';
  3752. function VarBoolFromUI1;                external oleaut32 name 'VarBoolFromUI1';
  3753. function VarBoolFromI2;                 external oleaut32 name 'VarBoolFromI2';
  3754. function VarBoolFromI4;                 external oleaut32 name 'VarBoolFromI4';
  3755. function VarBoolFromR4;                 external oleaut32 name 'VarBoolFromR4';
  3756. function VarBoolFromR8;                 external oleaut32 name 'VarBoolFromR8';
  3757. function VarBoolFromDate;               external oleaut32 name 'VarBoolFromDate';
  3758. function VarBoolFromCy;                 external oleaut32 name 'VarBoolFromCy';
  3759. function VarBoolFromStr;                external oleaut32 name 'VarBoolFromStr';
  3760. function VarBoolFromDisp;               external oleaut32 name 'VarBoolFromDisp';
  3761. function LHashValOfNameSys;             external oleaut32 name 'LHashValOfNameSys';
  3762. function LHashValOfNameSysA;            external oleaut32 name 'LHashValOfNameSysA';
  3763. function LoadTypeLib;                   external oleaut32 name 'LoadTypeLib';
  3764. function LoadRegTypeLib;                external oleaut32 name 'LoadRegTypeLib';
  3765. function QueryPathOfRegTypeLib;         external oleaut32 name 'QueryPathOfRegTypeLib';
  3766. function RegisterTypeLib;               external oleaut32 name 'RegisterTypeLib';
  3767. function CreateTypeLib;                 external oleaut32 name 'CreateTypeLib';
  3768. function DispGetParam;                  external oleaut32 name 'DispGetParam';
  3769. function DispGetIDsOfNames;             external oleaut32 name 'DispGetIDsOfNames';
  3770. function DispInvoke;                    external oleaut32 name 'DispInvoke';
  3771. function CreateDispTypeInfo;            external oleaut32 name 'CreateDispTypeInfo';
  3772. function CreateStdDispatch;             external oleaut32 name 'CreateStdDispatch';
  3773. function RegisterActiveObject;          external oleaut32 name 'RegisterActiveObject';
  3774. function RevokeActiveObject;            external oleaut32 name 'RevokeActiveObject';
  3775. function GetActiveObject;               external oleaut32 name 'GetActiveObject';
  3776. function SetErrorInfo;                  external oleaut32 name 'SetErrorInfo';
  3777. function GetErrorInfo;                  external oleaut32 name 'GetErrorInfo';
  3778. function CreateErrorInfo;               external oleaut32 name 'CreateErrorInfo';
  3779. function OaBuildVersion;                external oleaut32 name 'OaBuildVersion';
  3780.  
  3781. { Helper functions }
  3782.  
  3783. function Succeeded(Res: HResult): Boolean;
  3784. begin
  3785.   Result := Res and $80000000 = 0;
  3786. end;
  3787.  
  3788. function Failed(Res: HResult): Boolean;
  3789. begin
  3790.   Result := Res and $80000000 <> 0;
  3791. end;
  3792.  
  3793. function ResultCode(Res: HResult): Integer;
  3794. begin
  3795.   Result := Res and $0000FFFF;
  3796. end;
  3797.  
  3798. function ResultFacility(Res: HResult): Integer;
  3799. begin
  3800.   Result := (Res shr 16) and $00001FFF;
  3801. end;
  3802.  
  3803. function ResultSeverity(Res: HResult): Integer;
  3804. begin
  3805.   Result := Res shr 31;
  3806. end;
  3807.  
  3808. function MakeResult(Severity, Facility, Code: Integer): HResult;
  3809. begin
  3810.   Result := (Severity shl 31) or (Facility shl 16) or Code;
  3811. end;
  3812.  
  3813. function LHashValOfName(lcid: TLCID; szName: POleStr): Longint;
  3814. begin
  3815.   Result := LHashValOfNameSys(SYS_WIN32, lcid, szName);
  3816. end;
  3817.  
  3818. function WHashValOfLHashVal(lhashval: Longint): Word;
  3819. begin
  3820.   Result := lhashval and $0000FFFF;
  3821. end;
  3822.  
  3823. function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean;
  3824. begin
  3825.   Result := lhashval1 and $00FF0000 = lhashval2 and $00FF0000;
  3826. end;
  3827.  
  3828. end.
  3829.