home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Source / Rtl / Win / ACTIVEX.PAS < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  247KB  |  6,344 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       ActiveX / OLE 2 Interface Unit                  }
  6. {                                                       }
  7. {       Copyright (C) 1997,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit ActiveX;
  12.  
  13. interface
  14.  
  15. uses Windows, Messages;
  16.  
  17. (*$HPPEMIT '' *)
  18. (*$HPPEMIT '#include <olectl.h>' *)
  19. (*$HPPEMIT '#include <docobj.H>' *)
  20. (*$HPPEMIT '#include <oleauto.h>' *)
  21. (*$HPPEMIT '#include <propidl.h>' *) // WIN2K
  22. (*$HPPEMIT '' *)
  23. (*$HPPEMIT '' *)
  24.  
  25. { Do not WEAKPACKAGE this unit.
  26.   This unit requires startup code to initialize constants. }
  27.  
  28. const
  29.  
  30. { from WTYPES.H }
  31.   {$EXTERNALSYM MEMCTX_TASK}
  32.   MEMCTX_TASK      = 1;
  33.   {$EXTERNALSYM MEMCTX_SHARED}
  34.   MEMCTX_SHARED    = 2;
  35.   {$EXTERNALSYM MEMCTX_MACSYSTEM}
  36.   MEMCTX_MACSYSTEM = 3;
  37.   {$EXTERNALSYM MEMCTX_UNKNOWN}
  38.   MEMCTX_UNKNOWN   = -1;
  39.   {$EXTERNALSYM MEMCTX_SAME}
  40.   MEMCTX_SAME      = -2;
  41.  
  42.   {$EXTERNALSYM ROTFLAGS_REGISTRATIONKEEPSALIVE}
  43.   ROTFLAGS_REGISTRATIONKEEPSALIVE = 1;
  44.   {$EXTERNALSYM ROTFLAGS_ALLOWANYCLIENT}
  45.   ROTFLAGS_ALLOWANYCLIENT         = 2;
  46.  
  47.   {$EXTERNALSYM CLSCTX_INPROC_SERVER}
  48.   CLSCTX_INPROC_SERVER     = 1;
  49.   {$EXTERNALSYM CLSCTX_INPROC_HANDLER}
  50.   CLSCTX_INPROC_HANDLER    = 2;
  51.   {$EXTERNALSYM CLSCTX_LOCAL_SERVER}
  52.   CLSCTX_LOCAL_SERVER      = 4;
  53.   {$EXTERNALSYM CLSCTX_INPROC_SERVER16}
  54.   CLSCTX_INPROC_SERVER16   = 8;
  55.   {$EXTERNALSYM CLSCTX_REMOTE_SERVER}
  56.   CLSCTX_REMOTE_SERVER     = $10;
  57.   {$EXTERNALSYM CLSCTX_INPROC_HANDLER16}
  58.   CLSCTX_INPROC_HANDLER16  = $20;
  59.   {$EXTERNALSYM CLSCTX_INPROC_SERVERX86}
  60.   CLSCTX_INPROC_SERVERX86  = $40;
  61.   {$EXTERNALSYM CLSCTX_INPROC_HANDLERX86}
  62.   CLSCTX_INPROC_HANDLERX86 = $80;
  63.  
  64. { from OBJBASE }
  65.   {$EXTERNALSYM CLSCTX_ALL}
  66.   CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or
  67.       CLSCTX_LOCAL_SERVER;
  68.   {$EXTERNALSYM CLSCTX_INPROC}
  69.   CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER;
  70.   {$EXTERNALSYM CLSCTX_SERVER}
  71.   CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER;
  72.  
  73.   {$EXTERNALSYM COM_RIGHTS_EXECUTE}
  74.   COM_RIGHTS_EXECUTE = 1;
  75.  
  76. { from WTYPES.H }
  77.   {$EXTERNALSYM MSHLFLAGS_NORMAL}
  78.   MSHLFLAGS_NORMAL      = 0;
  79.   {$EXTERNALSYM MSHLFLAGS_TABLESTRONG}
  80.   MSHLFLAGS_TABLESTRONG = 1;
  81.   {$EXTERNALSYM MSHLFLAGS_TABLEWEAK}
  82.   MSHLFLAGS_TABLEWEAK   = 2;
  83.   {$EXTERNALSYM MSHLFLAGS_NOPING}
  84.   MSHLFLAGS_NOPING      = 4;
  85.  
  86.   {$EXTERNALSYM MSHCTX_LOCAL}
  87.   MSHCTX_LOCAL            = 0;
  88.   {$EXTERNALSYM MSHCTX_NOSHAREDMEM}
  89.   MSHCTX_NOSHAREDMEM      = 1;
  90.   {$EXTERNALSYM MSHCTX_DIFFERENTMACHINE}
  91.   MSHCTX_DIFFERENTMACHINE = 2;
  92.   {$EXTERNALSYM MSHCTX_INPROC}
  93.   MSHCTX_INPROC           = 3;
  94.  
  95.   {$EXTERNALSYM DVASPECT_CONTENT}
  96.   DVASPECT_CONTENT   = 1;
  97.   {$EXTERNALSYM DVASPECT_THUMBNAIL}
  98.   DVASPECT_THUMBNAIL = 2;
  99.   {$EXTERNALSYM DVASPECT_ICON}
  100.   DVASPECT_ICON      = 4;
  101.   {$EXTERNALSYM DVASPECT_DOCPRINT}
  102.   DVASPECT_DOCPRINT  = 8;
  103.  
  104.   {$EXTERNALSYM STGC_DEFAULT}
  105.   STGC_DEFAULT                            = 0;
  106.   {$EXTERNALSYM STGC_OVERWRITE}
  107.   STGC_OVERWRITE                          = 1;
  108.   {$EXTERNALSYM STGC_ONLYIFCURRENT}
  109.   STGC_ONLYIFCURRENT                      = 2;
  110.   {$EXTERNALSYM STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE}
  111.   STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;
  112.  
  113.   {$EXTERNALSYM STGMOVE_MOVE}
  114.   STGMOVE_MOVE        = 0;
  115.   {$EXTERNALSYM STGMOVE_COPY}
  116.   STGMOVE_COPY        = 1;
  117.   {$EXTERNALSYM STGMOVE_SHALLOWCOPY}
  118.   STGMOVE_SHALLOWCOPY = 2;
  119.  
  120.   {$EXTERNALSYM STATFLAG_DEFAULT}
  121.   STATFLAG_DEFAULT = 0;
  122.   {$EXTERNALSYM STATFLAG_NONAME}
  123.   STATFLAG_NONAME  = 1;
  124.  
  125. { from OBJIDL.H }
  126.   {$EXTERNALSYM BIND_MAYBOTHERUSER}
  127.   BIND_MAYBOTHERUSER     = 1;
  128.   {$EXTERNALSYM BIND_JUSTTESTEXISTENCE}
  129.   BIND_JUSTTESTEXISTENCE = 2;
  130.  
  131.   {$EXTERNALSYM MKSYS_NONE}
  132.   MKSYS_NONE             = 0;
  133.   {$EXTERNALSYM MKSYS_GENERICCOMPOSITE}
  134.   MKSYS_GENERICCOMPOSITE = 1;
  135.   {$EXTERNALSYM MKSYS_FILEMONIKER}
  136.   MKSYS_FILEMONIKER      = 2;
  137.   {$EXTERNALSYM MKSYS_ANTIMONIKER}
  138.   MKSYS_ANTIMONIKER      = 3;
  139.   {$EXTERNALSYM MKSYS_ITEMMONIKER}
  140.   MKSYS_ITEMMONIKER      = 4;
  141.   {$EXTERNALSYM MKSYS_POINTERMONIKER}
  142.   MKSYS_POINTERMONIKER   = 5;
  143.  
  144.   {$EXTERNALSYM MKRREDUCE_ONE}
  145.   MKRREDUCE_ONE         = 3 shl 16;
  146.   {$EXTERNALSYM MKRREDUCE_TOUSER}
  147.   MKRREDUCE_TOUSER      = 2 shl 16;
  148.   {$EXTERNALSYM MKRREDUCE_THROUGHUSER}
  149.   MKRREDUCE_THROUGHUSER = 1 shl 16;
  150.   {$EXTERNALSYM MKRREDUCE_ALL}
  151.   MKRREDUCE_ALL         = 0;
  152.  
  153.   {$EXTERNALSYM STGTY_STORAGE}
  154.   STGTY_STORAGE   = 1;
  155.   {$EXTERNALSYM STGTY_STREAM}
  156.   STGTY_STREAM    = 2;
  157.   {$EXTERNALSYM STGTY_LOCKBYTES}
  158.   STGTY_LOCKBYTES = 3;
  159.   {$EXTERNALSYM STGTY_PROPERTY}
  160.   STGTY_PROPERTY  = 4;
  161.  
  162.   {$EXTERNALSYM STREAM_SEEK_SET}
  163.   STREAM_SEEK_SET = 0;
  164.   {$EXTERNALSYM STREAM_SEEK_CUR}
  165.   STREAM_SEEK_CUR = 1;
  166.   {$EXTERNALSYM STREAM_SEEK_END}
  167.   STREAM_SEEK_END = 2;
  168.  
  169.   {$EXTERNALSYM LOCK_WRITE}
  170.   LOCK_WRITE     = 1;
  171.   {$EXTERNALSYM LOCK_EXCLUSIVE}
  172.   LOCK_EXCLUSIVE = 2;
  173.   {$EXTERNALSYM LOCK_ONLYONCE}
  174.   LOCK_ONLYONCE  = 4;
  175.  
  176.   {$EXTERNALSYM ADVF_NODATA}
  177.   ADVF_NODATA            = 1;
  178.   {$EXTERNALSYM ADVF_PRIMEFIRST}
  179.   ADVF_PRIMEFIRST        = 2;
  180.   {$EXTERNALSYM ADVF_ONLYONCE}
  181.   ADVF_ONLYONCE          = 4;
  182.   {$EXTERNALSYM ADVF_DATAONSTOP}
  183.   ADVF_DATAONSTOP        = 64;
  184.   {$EXTERNALSYM ADVFCACHE_NOHANDLER}
  185.   ADVFCACHE_NOHANDLER    = 8;
  186.   {$EXTERNALSYM ADVFCACHE_FORCEBUILTIN}
  187.   ADVFCACHE_FORCEBUILTIN = 16;
  188.   {$EXTERNALSYM ADVFCACHE_ONSAVE}
  189.   ADVFCACHE_ONSAVE       = 32;
  190.  
  191.   {$EXTERNALSYM TYMED_HGLOBAL}
  192.   TYMED_HGLOBAL  = 1;
  193.   {$EXTERNALSYM TYMED_FILE}
  194.   TYMED_FILE     = 2;
  195.   {$EXTERNALSYM TYMED_ISTREAM}
  196.   TYMED_ISTREAM  = 4;
  197.   {$EXTERNALSYM TYMED_ISTORAGE}
  198.   TYMED_ISTORAGE = 8;
  199.   {$EXTERNALSYM TYMED_GDI}
  200.   TYMED_GDI      = 16;
  201.   {$EXTERNALSYM TYMED_MFPICT}
  202.   TYMED_MFPICT   = 32;
  203.   {$EXTERNALSYM TYMED_ENHMF}
  204.   TYMED_ENHMF    = 64;
  205.   {$EXTERNALSYM TYMED_NULL}
  206.   TYMED_NULL     = 0;
  207.  
  208.   {$EXTERNALSYM DATADIR_GET}
  209.   DATADIR_GET = 1;
  210.   {$EXTERNALSYM DATADIR_SET}
  211.   DATADIR_SET = 2;
  212.  
  213.   {$EXTERNALSYM CALLTYPE_TOPLEVEL}
  214.   CALLTYPE_TOPLEVEL             = 1;
  215.   {$EXTERNALSYM CALLTYPE_NESTED}
  216.   CALLTYPE_NESTED               = 2;
  217.   {$EXTERNALSYM CALLTYPE_ASYNC}
  218.   CALLTYPE_ASYNC                = 3;
  219.   {$EXTERNALSYM CALLTYPE_TOPLEVEL_CALLPENDING}
  220.   CALLTYPE_TOPLEVEL_CALLPENDING = 4;
  221.   {$EXTERNALSYM CALLTYPE_ASYNC_CALLPENDING}
  222.   CALLTYPE_ASYNC_CALLPENDING    = 5;
  223.  
  224.   {$EXTERNALSYM SERVERCALL_ISHANDLED}
  225.   SERVERCALL_ISHANDLED  = 0;
  226.   {$EXTERNALSYM SERVERCALL_REJECTED}
  227.   SERVERCALL_REJECTED   = 1;
  228.   {$EXTERNALSYM SERVERCALL_RETRYLATER}
  229.   SERVERCALL_RETRYLATER = 2;
  230.  
  231.   {$EXTERNALSYM PENDINGTYPE_TOPLEVEL}
  232.   PENDINGTYPE_TOPLEVEL = 1;
  233.   {$EXTERNALSYM PENDINGTYPE_NESTED}
  234.   PENDINGTYPE_NESTED   = 2;
  235.  
  236.   {$EXTERNALSYM PENDINGMSG_CANCELCALL}
  237.   PENDINGMSG_CANCELCALL     = 0;
  238.   {$EXTERNALSYM PENDINGMSG_WAITNOPROCESS}
  239.   PENDINGMSG_WAITNOPROCESS  = 1;
  240.   {$EXTERNALSYM PENDINGMSG_WAITDEFPROCESS}
  241.   PENDINGMSG_WAITDEFPROCESS = 2;
  242.  
  243.   {$EXTERNALSYM PROPSETFLAG_DEFAULT}
  244.   PROPSETFLAG_DEFAULT   = 0;
  245.   {$EXTERNALSYM PROPSETFLAG_NONSIMPLE}
  246.   PROPSETFLAG_NONSIMPLE    = 1;
  247.   {$EXTERNALSYM PROPSETFLAG_ANSI}
  248.   PROPSETFLAG_ANSI    = 2;
  249.  
  250. { from OBJBASE.H }
  251.   {$EXTERNALSYM REGCLS_SINGLEUSE}
  252.   REGCLS_SINGLEUSE      = 0;
  253.   {$EXTERNALSYM REGCLS_MULTIPLEUSE}
  254.   REGCLS_MULTIPLEUSE    = 1;
  255.   {$EXTERNALSYM REGCLS_MULTI_SEPARATE}
  256.   REGCLS_MULTI_SEPARATE = 2;
  257.   {$EXTERNALSYM REGCLS_SUSPENDED}
  258.   REGCLS_SUSPENDED      = 4;
  259.  
  260.   {$EXTERNALSYM MARSHALINTERFACE_MIN}
  261.   MARSHALINTERFACE_MIN = 500;
  262.  
  263.   {$EXTERNALSYM CWCSTORAGENAME}
  264.   CWCSTORAGENAME = 32;
  265.  
  266.   {$EXTERNALSYM STGM_DIRECT}
  267.   STGM_DIRECT           = $00000000;
  268.   {$EXTERNALSYM STGM_TRANSACTED}
  269.   STGM_TRANSACTED       = $00010000;
  270.   {$EXTERNALSYM STGM_SIMPLE}
  271.   STGM_SIMPLE           = $08000000;
  272.  
  273.   {$EXTERNALSYM STGM_READ}
  274.   STGM_READ             = $00000000;
  275.   {$EXTERNALSYM STGM_WRITE}
  276.   STGM_WRITE            = $00000001;
  277.   {$EXTERNALSYM STGM_READWRITE}
  278.   STGM_READWRITE        = $00000002;
  279.  
  280.   {$EXTERNALSYM STGM_SHARE_DENY_NONE}
  281.   STGM_SHARE_DENY_NONE  = $00000040;
  282.   {$EXTERNALSYM STGM_SHARE_DENY_READ}
  283.   STGM_SHARE_DENY_READ  = $00000030;
  284.   {$EXTERNALSYM STGM_SHARE_DENY_WRITE}
  285.   STGM_SHARE_DENY_WRITE = $00000020;
  286.   {$EXTERNALSYM STGM_SHARE_EXCLUSIVE}
  287.   STGM_SHARE_EXCLUSIVE  = $00000010;
  288.  
  289.   {$EXTERNALSYM STGM_PRIORITY}
  290.   STGM_PRIORITY         = $00040000;
  291.   {$EXTERNALSYM STGM_DELETEONRELEASE}
  292.   STGM_DELETEONRELEASE  = $04000000;
  293.   {$EXTERNALSYM STGM_NOSCRATCH}
  294.   STGM_NOSCRATCH        = $00100000;
  295.  
  296.   {$EXTERNALSYM STGM_CREATE}
  297.   STGM_CREATE           = $00001000;
  298.   {$EXTERNALSYM STGM_CONVERT}
  299.   STGM_CONVERT          = $00020000;
  300.   {$EXTERNALSYM STGM_FAILIFTHERE}
  301.   STGM_FAILIFTHERE      = $00000000;
  302.  
  303.   {$EXTERNALSYM FADF_AUTO}
  304.   FADF_AUTO      = $0001;  { array is allocated on the stack }
  305.   {$EXTERNALSYM FADF_STATIC}
  306.   FADF_STATIC    = $0002;  { array is staticly allocated }
  307.   {$EXTERNALSYM FADF_EMBEDDED}
  308.   FADF_EMBEDDED  = $0004;  { array is embedded in a structure }
  309.   {$EXTERNALSYM FADF_FIXEDSIZE}
  310.   FADF_FIXEDSIZE = $0010;  { array may not be resized or reallocated }
  311.   {$EXTERNALSYM FADF_BSTR}
  312.   FADF_BSTR      = $0100;  { an array of BSTRs }
  313.   {$EXTERNALSYM FADF_UNKNOWN}
  314.   FADF_UNKNOWN   = $0200;  { an array of IUnknown }
  315.   {$EXTERNALSYM FADF_DISPATCH}
  316.   FADF_DISPATCH  = $0400;  { an array of IDispatch }
  317.   {$EXTERNALSYM FADF_VARIANT}
  318.   FADF_VARIANT   = $0800;  { an array of VARIANTs }
  319.   {$EXTERNALSYM FADF_RESERVED}
  320.   FADF_RESERVED  = $F0E8;  { bits reserved for future use }
  321.  
  322. { from WTYPES.H }
  323. { VARENUM usage key,
  324.  
  325.     [V] - may appear in a VARIANT
  326.     [T] - may appear in a TYPEDESC
  327.     [P] - may appear in an OLE property set
  328.     [S] - may appear in a Safe Array }
  329.  
  330.   {$EXTERNALSYM VT_EMPTY}
  331.   VT_EMPTY           = 0;   { [V]   [P]  nothing                     }
  332.   {$EXTERNALSYM VT_NULL}
  333.   VT_NULL            = 1;   { [V]        SQL style Null              }
  334.   {$EXTERNALSYM VT_I2}
  335.   VT_I2              = 2;   { [V][T][P]  2 byte signed int           }
  336.   {$EXTERNALSYM VT_I4}
  337.   VT_I4              = 3;   { [V][T][P]  4 byte signed int           }
  338.   {$EXTERNALSYM VT_R4}
  339.   VT_R4              = 4;   { [V][T][P]  4 byte real                 }
  340.   {$EXTERNALSYM VT_R8}
  341.   VT_R8              = 5;   { [V][T][P]  8 byte real                 }
  342.   {$EXTERNALSYM VT_CY}
  343.   VT_CY              = 6;   { [V][T][P]  currency                    }
  344.   {$EXTERNALSYM VT_DATE}
  345.   VT_DATE            = 7;   { [V][T][P]  date                        }
  346.   {$EXTERNALSYM VT_BSTR}
  347.   VT_BSTR            = 8;   { [V][T][P]  binary string               }
  348.   {$EXTERNALSYM VT_DISPATCH}
  349.   VT_DISPATCH        = 9;   { [V][T]     IDispatch FAR*              }
  350.   {$EXTERNALSYM VT_ERROR}
  351.   VT_ERROR           = 10;  { [V][T]     SCODE                       }
  352.   {$EXTERNALSYM VT_BOOL}
  353.   VT_BOOL            = 11;  { [V][T][P]  True=-1, False=0            }
  354.   {$EXTERNALSYM VT_VARIANT}
  355.   VT_VARIANT         = 12;  { [V][T][P]  VARIANT FAR*                }
  356.   {$EXTERNALSYM VT_UNKNOWN}
  357.   VT_UNKNOWN         = 13;  { [V][T]     IUnknown FAR*               }
  358.   {$EXTERNALSYM VT_DECIMAL}
  359.   VT_DECIMAL         = 14;  { [V][T]   [S]  16 byte fixed point      }
  360.  
  361.   {$EXTERNALSYM VT_I1}
  362.   VT_I1              = 16;  {    [T]     signed char                 }
  363.   {$EXTERNALSYM VT_UI1}
  364.   VT_UI1             = 17;  {    [T]     unsigned char               }
  365.   {$EXTERNALSYM VT_UI2}
  366.   VT_UI2             = 18;  {    [T]     unsigned short              }
  367.   {$EXTERNALSYM VT_UI4}
  368.   VT_UI4             = 19;  {    [T]     unsigned short              }
  369.   {$EXTERNALSYM VT_I8}
  370.   VT_I8              = 20;  {    [T][P]  signed 64-bit int           }
  371.   {$EXTERNALSYM VT_UI8}
  372.   VT_UI8             = 21;  {    [T]     unsigned 64-bit int         }
  373.   {$EXTERNALSYM VT_INT}
  374.   VT_INT             = 22;  {    [T]     signed machine int          }
  375.   {$EXTERNALSYM VT_UINT}
  376.   VT_UINT            = 23;  {    [T]     unsigned machine int        }
  377.   {$EXTERNALSYM VT_VOID}
  378.   VT_VOID            = 24;  {    [T]     C style void                }
  379.   {$EXTERNALSYM VT_HRESULT}
  380.   VT_HRESULT         = 25;  {    [T]                                 }
  381.   {$EXTERNALSYM VT_PTR}
  382.   VT_PTR             = 26;  {    [T]     pointer type                }
  383.   {$EXTERNALSYM VT_SAFEARRAY}
  384.   VT_SAFEARRAY       = 27;  {    [T]     (use VT_ARRAY in VARIANT)   }
  385.   {$EXTERNALSYM VT_CARRAY}
  386.   VT_CARRAY          = 28;  {    [T]     C style array               }
  387.   {$EXTERNALSYM VT_USERDEFINED}
  388.   VT_USERDEFINED     = 29;  {    [T]     user defined type          }
  389.   {$EXTERNALSYM VT_LPSTR}
  390.   VT_LPSTR           = 30;  {    [T][P]  null terminated string      }
  391.   {$EXTERNALSYM VT_LPWSTR}
  392.   VT_LPWSTR          = 31;  {    [T][P]  wide null terminated string }
  393.  
  394.   {$EXTERNALSYM VT_FILETIME}
  395.   VT_FILETIME        = 64;  {       [P]  FILETIME                    }
  396.   {$EXTERNALSYM VT_BLOB}
  397.   VT_BLOB            = 65;  {       [P]  Length prefixed bytes       }
  398.   {$EXTERNALSYM VT_STREAM}
  399.   VT_STREAM          = 66;  {       [P]  Name of the stream follows  }
  400.   {$EXTERNALSYM VT_STORAGE}
  401.   VT_STORAGE         = 67;  {       [P]  Name of the storage follows }
  402.   {$EXTERNALSYM VT_STREAMED_OBJECT}
  403.   VT_STREAMED_OBJECT = 68;  {       [P]  Stream contains an object   }
  404.   {$EXTERNALSYM VT_STORED_OBJECT}
  405.   VT_STORED_OBJECT   = 69;  {       [P]  Storage contains an object  }
  406.   {$EXTERNALSYM VT_BLOB_OBJECT}
  407.   VT_BLOB_OBJECT     = 70;  {       [P]  Blob contains an object     }
  408.   {$EXTERNALSYM VT_CF}
  409.   VT_CF              = 71;  {       [P]  Clipboard format            }
  410.   {$EXTERNALSYM VT_CLSID}
  411.   VT_CLSID           = 72;  {       [P]  A Class ID                  }
  412.  
  413.   {$EXTERNALSYM VT_VECTOR}
  414.   VT_VECTOR        = $1000; {       [P]  simple counted array        }
  415.   {$EXTERNALSYM VT_ARRAY}
  416.   VT_ARRAY         = $2000; { [V]        SAFEARRAY*                  }
  417.   {$EXTERNALSYM VT_BYREF}
  418.   VT_BYREF         = $4000; { [V]                                    }
  419.   {$EXTERNALSYM VT_RESERVED}
  420.   VT_RESERVED      = $8000;
  421.   {$EXTERNALSYM VT_ILLEGAL}
  422.   VT_ILLEGAL       = $ffff;
  423.   {$EXTERNALSYM VT_ILLEGALMASKED}
  424.   VT_ILLEGALMASKED = $0fff;
  425.   {$EXTERNALSYM VT_TYPEMASK}
  426.   VT_TYPEMASK      = $0fff;
  427.  
  428. type
  429.   {$EXTERNALSYM PROPID}
  430.   PROPID = ULONG;
  431.   PPropID = ^TPropID;
  432.   TPropID = PROPID;
  433.  
  434. { from OAIDL.H }
  435.  
  436. const
  437.   {$EXTERNALSYM TKIND_ENUM}
  438.   TKIND_ENUM      = 0;
  439.   {$EXTERNALSYM TKIND_RECORD}
  440.   TKIND_RECORD    = 1;
  441.   {$EXTERNALSYM TKIND_MODULE}
  442.   TKIND_MODULE    = 2;
  443.   {$EXTERNALSYM TKIND_INTERFACE}
  444.   TKIND_INTERFACE = 3;
  445.   {$EXTERNALSYM TKIND_DISPATCH}
  446.   TKIND_DISPATCH  = 4;
  447.   {$EXTERNALSYM TKIND_COCLASS}
  448.   TKIND_COCLASS   = 5;
  449.   {$EXTERNALSYM TKIND_ALIAS}
  450.   TKIND_ALIAS     = 6;
  451.   {$EXTERNALSYM TKIND_UNION}
  452.   TKIND_UNION     = 7;
  453.   {$EXTERNALSYM TKIND_MAX}
  454.   TKIND_MAX       = 8;
  455.  
  456.   {$EXTERNALSYM CC_CDECL}
  457.   CC_CDECL       = 1;
  458.   {$EXTERNALSYM CC_PASCAL}
  459.   CC_PASCAL      = 2;
  460.   {$EXTERNALSYM CC_MACPASCAL}
  461.   CC_MACPASCAL   = 3;
  462.   {$EXTERNALSYM CC_STDCALL}
  463.   CC_STDCALL     = 4;
  464.   {$EXTERNALSYM CC_FPFASTCALL}
  465.   CC_FPFASTCALL  = 5;
  466.   {$EXTERNALSYM CC_SYSCALL}
  467.   CC_SYSCALL     = 6;
  468.   {$EXTERNALSYM CC_MPWCDECL}
  469.   CC_MPWCDECL    = 7;
  470.   {$EXTERNALSYM CC_MPWPASCAL}
  471.   CC_MPWPASCAL   = 8;
  472.   {$EXTERNALSYM CC_MAX}
  473.   CC_MAX         = 9;
  474.  
  475.   {$EXTERNALSYM FUNC_VIRTUAL}
  476.   FUNC_VIRTUAL     = 0;
  477.   {$EXTERNALSYM FUNC_PUREVIRTUAL}
  478.   FUNC_PUREVIRTUAL = 1;
  479.   {$EXTERNALSYM FUNC_NONVIRTUAL}
  480.   FUNC_NONVIRTUAL  = 2;
  481.   {$EXTERNALSYM FUNC_STATIC}
  482.   FUNC_STATIC      = 3;
  483.   {$EXTERNALSYM FUNC_DISPATCH}
  484.   FUNC_DISPATCH    = 4;
  485.  
  486.   {$EXTERNALSYM INVOKE_FUNC}
  487.   INVOKE_FUNC           = 1;
  488.   {$EXTERNALSYM INVOKE_PROPERTYGET}
  489.   INVOKE_PROPERTYGET    = 2;
  490.   {$EXTERNALSYM INVOKE_PROPERTYPUT}
  491.   INVOKE_PROPERTYPUT    = 4;
  492.   {$EXTERNALSYM INVOKE_PROPERTYPUTREF}
  493.   INVOKE_PROPERTYPUTREF = 8;
  494.  
  495.   {$EXTERNALSYM VAR_PERINSTANCE}
  496.   VAR_PERINSTANCE = 0;
  497.   {$EXTERNALSYM VAR_STATIC}
  498.   VAR_STATIC      = 1;
  499.   {$EXTERNALSYM VAR_CONST}
  500.   VAR_CONST       = 2;
  501.   {$EXTERNALSYM VAR_DISPATCH}
  502.   VAR_DISPATCH    = 3;
  503.  
  504.   {$EXTERNALSYM IMPLTYPEFLAG_FDEFAULT}
  505.   IMPLTYPEFLAG_FDEFAULT        = 1;
  506.   {$EXTERNALSYM IMPLTYPEFLAG_FSOURCE}
  507.   IMPLTYPEFLAG_FSOURCE         = 2;
  508.   {$EXTERNALSYM IMPLTYPEFLAG_FRESTRICTED}
  509.   IMPLTYPEFLAG_FRESTRICTED     = 4;
  510.   {$EXTERNALSYM IMPLTYPEFLAG_FDEFAULTVTABLE}
  511.   IMPLTYPEFLAG_FDEFAULTVTABLE    = 8;
  512.  
  513.   {$EXTERNALSYM TYPEFLAG_FAPPOBJECT}
  514.   TYPEFLAG_FAPPOBJECT     = $0001;
  515.   {$EXTERNALSYM TYPEFLAG_FCANCREATE}
  516.   TYPEFLAG_FCANCREATE     = $0002;
  517.   {$EXTERNALSYM TYPEFLAG_FLICENSED}
  518.   TYPEFLAG_FLICENSED      = $0004;
  519.   {$EXTERNALSYM TYPEFLAG_FPREDECLID}
  520.   TYPEFLAG_FPREDECLID     = $0008;
  521.   {$EXTERNALSYM TYPEFLAG_FHIDDEN}
  522.   TYPEFLAG_FHIDDEN        = $0010;
  523.   {$EXTERNALSYM TYPEFLAG_FCONTROL}
  524.   TYPEFLAG_FCONTROL       = $0020;
  525.   {$EXTERNALSYM TYPEFLAG_FDUAL}
  526.   TYPEFLAG_FDUAL          = $0040;
  527.   {$EXTERNALSYM TYPEFLAG_FNONEXTENSIBLE}
  528.   TYPEFLAG_FNONEXTENSIBLE = $0080;
  529.   {$EXTERNALSYM TYPEFLAG_FOLEAUTOMATION}
  530.   TYPEFLAG_FOLEAUTOMATION = $0100;
  531.   {$EXTERNALSYM TYPEFLAG_FRESTRICTED}
  532.   TYPEFLAG_FRESTRICTED    = $0200;
  533.   {$EXTERNALSYM TYPEFLAG_FAGGREGATABLE}
  534.   TYPEFLAG_FAGGREGATABLE  = $0400;
  535.   {$EXTERNALSYM TYPEFLAG_FREPLACEABLE}
  536.   TYPEFLAG_FREPLACEABLE   = $0800;
  537.   {$EXTERNALSYM TYPEFLAG_FDISPATCHABLE}
  538.   TYPEFLAG_FDISPATCHABLE  = $1000;
  539.   {$EXTERNALSYM TYPEFLAG_FREVERSEBIND}
  540.   TYPEFLAG_FREVERSEBIND   = $2000;
  541.  
  542.   {$EXTERNALSYM FUNCFLAG_FRESTRICTED}
  543.   FUNCFLAG_FRESTRICTED       = $0001;
  544.   {$EXTERNALSYM FUNCFLAG_FSOURCE}
  545.   FUNCFLAG_FSOURCE           = $0002;
  546.   {$EXTERNALSYM FUNCFLAG_FBINDABLE}
  547.   FUNCFLAG_FBINDABLE         = $0004;
  548.   {$EXTERNALSYM FUNCFLAG_FREQUESTEDIT}
  549.   FUNCFLAG_FREQUESTEDIT      = $0008;
  550.   {$EXTERNALSYM FUNCFLAG_FDISPLAYBIND}
  551.   FUNCFLAG_FDISPLAYBIND      = $0010;
  552.   {$EXTERNALSYM FUNCFLAG_FDEFAULTBIND}
  553.   FUNCFLAG_FDEFAULTBIND      = $0020;
  554.   {$EXTERNALSYM FUNCFLAG_FHIDDEN}
  555.   FUNCFLAG_FHIDDEN           = $0040;
  556.   {$EXTERNALSYM FUNCFLAG_FUSESGETLASTERROR}
  557.   FUNCFLAG_FUSESGETLASTERROR = $0080;
  558.   {$EXTERNALSYM FUNCFLAG_FDEFAULTCOLLELEM}
  559.   FUNCFLAG_FDEFAULTCOLLELEM  = $0100;
  560.   {$EXTERNALSYM FUNCFLAG_FUIDEFAULT}
  561.   FUNCFLAG_FUIDEFAULT        = $0200;
  562.   {$EXTERNALSYM FUNCFLAG_FNONBROWSABLE}
  563.   FUNCFLAG_FNONBROWSABLE          = $0400;
  564.   {$EXTERNALSYM FUNCFLAG_FREPLACEABLE}
  565.   FUNCFLAG_FREPLACEABLE      = $0800;
  566.   {$EXTERNALSYM FUNCFLAG_FIMMEDIATEBIND}
  567.   FUNCFLAG_FIMMEDIATEBIND         = $1000;
  568.  
  569.   {$EXTERNALSYM VARFLAG_FREADONLY}
  570.   VARFLAG_FREADONLY        = $0001;
  571.   {$EXTERNALSYM VARFLAG_FSOURCE}
  572.   VARFLAG_FSOURCE          = $0002;
  573.   {$EXTERNALSYM VARFLAG_FBINDABLE}
  574.   VARFLAG_FBINDABLE        = $0004;
  575.   {$EXTERNALSYM VARFLAG_FREQUESTEDIT}
  576.   VARFLAG_FREQUESTEDIT     = $0008;
  577.   {$EXTERNALSYM VARFLAG_FDISPLAYBIND}
  578.   VARFLAG_FDISPLAYBIND     = $0010;
  579.   {$EXTERNALSYM VARFLAG_FDEFAULTBIND}
  580.   VARFLAG_FDEFAULTBIND     = $0020;
  581.   {$EXTERNALSYM VARFLAG_FHIDDEN}
  582.   VARFLAG_FHIDDEN          = $0040;
  583.   {$EXTERNALSYM VARFLAG_FRESTRICTED}
  584.   VARFLAG_FRESTRICTED      = $0080;
  585.   {$EXTERNALSYM VARFLAG_FDEFAULTCOLLELEM}
  586.   VARFLAG_FDEFAULTCOLLELEM      = $0100;
  587.   {$EXTERNALSYM VARFLAG_FUIDEFAULT}
  588.   VARFLAG_FUIDEFAULT          = $0200;
  589.   {$EXTERNALSYM VARFLAG_FNONBROWSABLE}
  590.   VARFLAG_FNONBROWSABLE    = $0400;
  591.   {$EXTERNALSYM VARFLAG_FREPLACEABLE}
  592.   VARFLAG_FREPLACEABLE     = $0800;
  593.   {$EXTERNALSYM VARFLAG_FIMMEDIATEBIND}
  594.   VARFLAG_FIMMEDIATEBIND        = $1000;
  595.  
  596.   {$EXTERNALSYM DISPID_VALUE}
  597.   DISPID_VALUE       = 0;
  598.   {$EXTERNALSYM DISPID_UNKNOWN}
  599.   DISPID_UNKNOWN     = -1;
  600.   {$EXTERNALSYM DISPID_PROPERTYPUT}
  601.   DISPID_PROPERTYPUT = -3;
  602.   {$EXTERNALSYM DISPID_NEWENUM}
  603.   DISPID_NEWENUM     = -4;
  604.   {$EXTERNALSYM DISPID_EVALUATE}
  605.   DISPID_EVALUATE    = -5;
  606.   {$EXTERNALSYM DISPID_CONSTRUCTOR}
  607.   DISPID_CONSTRUCTOR = -6;
  608.   {$EXTERNALSYM DISPID_DESTRUCTOR}
  609.   DISPID_DESTRUCTOR  = -7;
  610.   {$EXTERNALSYM DISPID_COLLECT}
  611.   DISPID_COLLECT     = -8;
  612.  
  613.   {$EXTERNALSYM DESCKIND_NONE}
  614.   DESCKIND_NONE = 0;
  615.   {$EXTERNALSYM DESCKIND_FUNCDESC}
  616.   DESCKIND_FUNCDESC = 1;
  617.   {$EXTERNALSYM DESCKIND_VARDESC}
  618.   DESCKIND_VARDESC = 2;
  619.   {$EXTERNALSYM DESCKIND_TYPECOMP}
  620.   DESCKIND_TYPECOMP = 3;
  621.   {$EXTERNALSYM DESCKIND_IMPLICITAPPOBJ}
  622.   DESCKIND_IMPLICITAPPOBJ = 4;
  623.   {$EXTERNALSYM DESCKIND_MAX}
  624.   DESCKIND_MAX = 5;
  625.  
  626.   {$EXTERNALSYM SYS_WIN16}
  627.   SYS_WIN16 = 0;
  628.   {$EXTERNALSYM SYS_WIN32}
  629.   SYS_WIN32 = 1;
  630.   {$EXTERNALSYM SYS_MAC}
  631.   SYS_MAC   = 2;
  632.  
  633.   {$EXTERNALSYM LIBFLAG_FRESTRICTED}
  634.   LIBFLAG_FRESTRICTED   = 1;
  635.   {$EXTERNALSYM LIBFLAG_FCONTROL}
  636.   LIBFLAG_FCONTROL      = 2;
  637.   {$EXTERNALSYM LIBFLAG_FHIDDEN}
  638.   LIBFLAG_FHIDDEN       = 4;
  639.   {$EXTERNALSYM LIBFLAG_FHASDISKIMAGE}
  640.   LIBFLAG_FHASDISKIMAGE = 8;
  641.  
  642. { from OLEAUTO.H }
  643.   {$EXTERNALSYM STDOLE_MAJORVERNUM}
  644.   STDOLE_MAJORVERNUM = 1;
  645.   {$EXTERNALSYM STDOLE_MINORVERNUM}
  646.   STDOLE_MINORVERNUM = 0;
  647.   {$EXTERNALSYM STDOLE_LCID}
  648.   STDOLE_LCID = 0;
  649.  
  650.   {$EXTERNALSYM VARIANT_NOVALUEPROP}
  651.   VARIANT_NOVALUEPROP = 1;
  652.  
  653.   {$EXTERNALSYM VAR_TIMEVALUEONLY}
  654.   VAR_TIMEVALUEONLY = 1;
  655.   {$EXTERNALSYM VAR_DATEVALUEONLY}
  656.   VAR_DATEVALUEONLY = 2;
  657.  
  658.   {$EXTERNALSYM MEMBERID_NIL}
  659.   MEMBERID_NIL = DISPID_UNKNOWN;
  660.   {$EXTERNALSYM ID_DEFAULTINST}
  661.   ID_DEFAULTINST = -2;
  662.  
  663.   {$EXTERNALSYM DISPATCH_METHOD}
  664.   DISPATCH_METHOD         = 1;
  665.   {$EXTERNALSYM DISPATCH_PROPERTYGET}
  666.   DISPATCH_PROPERTYGET    = 2;
  667.   {$EXTERNALSYM DISPATCH_PROPERTYPUT}
  668.   DISPATCH_PROPERTYPUT    = 4;
  669.   {$EXTERNALSYM DISPATCH_PROPERTYPUTREF}
  670.   DISPATCH_PROPERTYPUTREF = 8;
  671.  
  672. { from OAIDL.H }
  673.   {$EXTERNALSYM IDLFLAG_NONE}
  674.   IDLFLAG_NONE    = 0;
  675.   {$EXTERNALSYM IDLFLAG_FIN}
  676.   IDLFLAG_FIN     = 1;
  677.   {$EXTERNALSYM IDLFLAG_FOUT}
  678.   IDLFLAG_FOUT    = 2;
  679.   {$EXTERNALSYM IDLFLAG_FLCID}
  680.   IDLFLAG_FLCID   = 4;
  681.   {$EXTERNALSYM IDLFLAG_FRETVAL}
  682.   IDLFLAG_FRETVAL = 8;
  683.  
  684.   {$EXTERNALSYM PARAMFLAG_NONE}
  685.   PARAMFLAG_NONE          = $00;
  686.   {$EXTERNALSYM PARAMFLAG_FIN}
  687.   PARAMFLAG_FIN           = $01;
  688.   {$EXTERNALSYM PARAMFLAG_FOUT}
  689.   PARAMFLAG_FOUT          = $02;
  690.   {$EXTERNALSYM PARAMFLAG_FLCID}
  691.   PARAMFLAG_FLCID         = $04;
  692.   {$EXTERNALSYM PARAMFLAG_FRETVAL}
  693.   PARAMFLAG_FRETVAL       = $08;
  694.   {$EXTERNALSYM PARAMFLAG_FOPT    }
  695.   PARAMFLAG_FOPT          = $10;
  696.   {$EXTERNALSYM PARAMFLAG_FHASDEFAULT }
  697.   PARAMFLAG_FHASDEFAULT   = $20;
  698.  
  699. { from OLE2.H }
  700.   {$EXTERNALSYM OLEIVERB_PRIMARY}
  701.   OLEIVERB_PRIMARY          = 0;
  702.   {$EXTERNALSYM OLEIVERB_SHOW}
  703.   OLEIVERB_SHOW             = -1;
  704.   {$EXTERNALSYM OLEIVERB_OPEN}
  705.   OLEIVERB_OPEN             = -2;
  706.   {$EXTERNALSYM OLEIVERB_HIDE}
  707.   OLEIVERB_HIDE             = -3;
  708.   {$EXTERNALSYM OLEIVERB_UIACTIVATE}
  709.   OLEIVERB_UIACTIVATE       = -4;
  710.   {$EXTERNALSYM OLEIVERB_INPLACEACTIVATE}
  711.   OLEIVERB_INPLACEACTIVATE  = -5;
  712.   {$EXTERNALSYM OLEIVERB_DISCARDUNDOSTATE}
  713.   OLEIVERB_DISCARDUNDOSTATE = -6;
  714.  
  715.   {$EXTERNALSYM EMBDHLP_INPROC_HANDLER}
  716.   EMBDHLP_INPROC_HANDLER = $00000000;
  717.   {$EXTERNALSYM EMBDHLP_INPROC_SERVER}
  718.   EMBDHLP_INPROC_SERVER  = $00000001;
  719.   {$EXTERNALSYM EMBDHLP_CREATENOW}
  720.   EMBDHLP_CREATENOW      = $00000000;
  721.   {$EXTERNALSYM EMBDHLP_DELAYCREATE}
  722.   EMBDHLP_DELAYCREATE    = $00010000;
  723.  
  724.   {$EXTERNALSYM OLECREATE_LEAVERUNNING}
  725.   OLECREATE_LEAVERUNNING = $00000001;
  726.  
  727. { from OLEIDL.H }
  728.  
  729. type
  730.   {$EXTERNALSYM BORDERWIDTHS}
  731.   BORDERWIDTHS = TRect;
  732.   PBorderWidths = ^TBorderWidths;
  733.   TBorderWidths = BORDERWIDTHS;
  734.  
  735. const
  736.   {$EXTERNALSYM UPDFCACHE_NODATACACHE}
  737.   UPDFCACHE_NODATACACHE = 1;
  738.   {$EXTERNALSYM UPDFCACHE_ONSAVECACHE}
  739.   UPDFCACHE_ONSAVECACHE = 2;
  740.   {$EXTERNALSYM UPDFCACHE_ONSTOPCACHE}
  741.   UPDFCACHE_ONSTOPCACHE = 4;
  742.   {$EXTERNALSYM UPDFCACHE_NORMALCACHE}
  743.   UPDFCACHE_NORMALCACHE = 8;
  744.   {$EXTERNALSYM UPDFCACHE_IFBLANK}
  745.   UPDFCACHE_IFBLANK     = $10;
  746.   {$EXTERNALSYM UPDFCACHE_ONLYIFBLANK}
  747.   UPDFCACHE_ONLYIFBLANK = DWORD($80000000);
  748.  
  749.   {$EXTERNALSYM UPDFCACHE_IFBLANKORONSAVECACHE}
  750.   UPDFCACHE_IFBLANKORONSAVECACHE = UPDFCACHE_IFBLANK or UPDFCACHE_ONSAVECACHE;
  751.   {$EXTERNALSYM UPDFCACHE_ALL}
  752.   UPDFCACHE_ALL                  = not UPDFCACHE_ONLYIFBLANK;
  753.   {$EXTERNALSYM UPDFCACHE_ALLBUTNODATACACHE}
  754.   UPDFCACHE_ALLBUTNODATACACHE    = UPDFCACHE_ALL and not UPDFCACHE_NODATACACHE;
  755.  
  756.   {$EXTERNALSYM DISCARDCACHE_SAVEIFDIRTY}
  757.   DISCARDCACHE_SAVEIFDIRTY = 0;
  758.   {$EXTERNALSYM DISCARDCACHE_NOSAVE}
  759.   DISCARDCACHE_NOSAVE      = 1;
  760.  
  761.   {$EXTERNALSYM OLEGETMONIKER_ONLYIFTHERE}
  762.   OLEGETMONIKER_ONLYIFTHERE = 1;
  763.   {$EXTERNALSYM OLEGETMONIKER_FORCEASSIGN}
  764.   OLEGETMONIKER_FORCEASSIGN = 2;
  765.   {$EXTERNALSYM OLEGETMONIKER_UNASSIGN}
  766.   OLEGETMONIKER_UNASSIGN    = 3;
  767.   {$EXTERNALSYM OLEGETMONIKER_TEMPFORUSER}
  768.   OLEGETMONIKER_TEMPFORUSER = 4;
  769.  
  770.   {$EXTERNALSYM OLEWHICHMK_CONTAINER}
  771.   OLEWHICHMK_CONTAINER = 1;
  772.   {$EXTERNALSYM OLEWHICHMK_OBJREL}
  773.   OLEWHICHMK_OBJREL    = 2;
  774.   {$EXTERNALSYM OLEWHICHMK_OBJFULL}
  775.   OLEWHICHMK_OBJFULL   = 3;
  776.  
  777.   {$EXTERNALSYM USERCLASSTYPE_FULL}
  778.   USERCLASSTYPE_FULL    = 1;
  779.   {$EXTERNALSYM USERCLASSTYPE_SHORT}
  780.   USERCLASSTYPE_SHORT   = 2;
  781.   {$EXTERNALSYM USERCLASSTYPE_APPNAME}
  782.   USERCLASSTYPE_APPNAME = 3;
  783.  
  784.   {$EXTERNALSYM OLEMISC_RECOMPOSEONRESIZE}
  785.   OLEMISC_RECOMPOSEONRESIZE            = 1;
  786.   {$EXTERNALSYM OLEMISC_ONLYICONIC}
  787.   OLEMISC_ONLYICONIC                   = 2;
  788.   {$EXTERNALSYM OLEMISC_INSERTNOTREPLACE}
  789.   OLEMISC_INSERTNOTREPLACE             = 4;
  790.   {$EXTERNALSYM OLEMISC_STATIC}
  791.   OLEMISC_STATIC                       = 8;
  792.   {$EXTERNALSYM OLEMISC_CANTLINKINSIDE}
  793.   OLEMISC_CANTLINKINSIDE                    = $10;
  794.   {$EXTERNALSYM OLEMISC_CANLINKBYOLE1}
  795.   OLEMISC_CANLINKBYOLE1                = $20;
  796.   {$EXTERNALSYM OLEMISC_ISLINKOBJECT}
  797.   OLEMISC_ISLINKOBJECT                 = $40;
  798.   {$EXTERNALSYM OLEMISC_INSIDEOUT}
  799.   OLEMISC_INSIDEOUT                       = $80;
  800.   {$EXTERNALSYM OLEMISC_ACTIVATEWHENVISIBLE}
  801.   OLEMISC_ACTIVATEWHENVISIBLE            = $100;
  802.   {$EXTERNALSYM OLEMISC_RENDERINGISDEVICEINDEPENDENT}
  803.   OLEMISC_RENDERINGISDEVICEINDEPENDENT  = $200;
  804.   {$EXTERNALSYM OLEMISC_INVISIBLEATRUNTIME}
  805.   OLEMISC_INVISIBLEATRUNTIME             = $400;
  806.   {$EXTERNALSYM OLEMISC_ALWAYSRUN}
  807.   OLEMISC_ALWAYSRUN                       = $800;
  808.   {$EXTERNALSYM OLEMISC_ACTSLIKEBUTTON}
  809.   OLEMISC_ACTSLIKEBUTTON                    = $1000;
  810.   {$EXTERNALSYM OLEMISC_ACTSLIKELABEL}
  811.   OLEMISC_ACTSLIKELABEL                = $2000;
  812.   {$EXTERNALSYM OLEMISC_NOUIACTIVATE}
  813.   OLEMISC_NOUIACTIVATE                 = $4000;
  814.   {$EXTERNALSYM OLEMISC_ALIGNABLE}
  815.   OLEMISC_ALIGNABLE                       = $8000;
  816.   {$EXTERNALSYM OLEMISC_SIMPLEFRAME}
  817.   OLEMISC_SIMPLEFRAME                  = $10000;
  818.   {$EXTERNALSYM OLEMISC_SETCLIENTSITEFIRST}
  819.   OLEMISC_SETCLIENTSITEFIRST           = $20000;
  820.   {$EXTERNALSYM OLEMISC_IMEMODE}
  821.   OLEMISC_IMEMODE                            = $40000;
  822.   {$EXTERNALSYM OLEMISC_IGNOREACTIVATEWHENVISIBLE}
  823.   OLEMISC_IGNOREACTIVATEWHENVISIBLE    = $80000;
  824.   {$EXTERNALSYM OLEMISC_WANTSTOMENUMERGE}
  825.   OLEMISC_WANTSTOMENUMERGE             = $100000;
  826.   {$EXTERNALSYM OLEMISC_SUPPORTSMULTILEVELUNDO}
  827.   OLEMISC_SUPPORTSMULTILEVELUNDO              = $200000;
  828.  
  829.   {$EXTERNALSYM OLECLOSE_SAVEIFDIRTY}
  830.   OLECLOSE_SAVEIFDIRTY = 0;
  831.   {$EXTERNALSYM OLECLOSE_NOSAVE}
  832.   OLECLOSE_NOSAVE      = 1;
  833.   {$EXTERNALSYM OLECLOSE_PROMPTSAVE}
  834.   OLECLOSE_PROMPTSAVE  = 2;
  835.  
  836.   {$EXTERNALSYM OLERENDER_NONE}
  837.   OLERENDER_NONE   = 0;
  838.   {$EXTERNALSYM OLERENDER_DRAW}
  839.   OLERENDER_DRAW   = 1;
  840.   {$EXTERNALSYM OLERENDER_FORMAT}
  841.   OLERENDER_FORMAT = 2;
  842.   {$EXTERNALSYM OLERENDER_ASIS}
  843.   OLERENDER_ASIS   = 3;
  844.  
  845.   {$EXTERNALSYM OLEUPDATE_ALWAYS}
  846.   OLEUPDATE_ALWAYS = 1;
  847.   {$EXTERNALSYM OLEUPDATE_ONCALL}
  848.   OLEUPDATE_ONCALL = 3;
  849.  
  850.   {$EXTERNALSYM OLELINKBIND_EVENIFCLASSDIFF}
  851.   OLELINKBIND_EVENIFCLASSDIFF = 1;
  852.  
  853.   {$EXTERNALSYM BINDSPEED_INDEFINITE}
  854.   BINDSPEED_INDEFINITE = 1;
  855.   {$EXTERNALSYM BINDSPEED_MODERATE}
  856.   BINDSPEED_MODERATE   = 2;
  857.   {$EXTERNALSYM BINDSPEED_IMMEDIATE}
  858.   BINDSPEED_IMMEDIATE  = 3;
  859.  
  860.   {$EXTERNALSYM OLECONTF_EMBEDDINGS}
  861.   OLECONTF_EMBEDDINGS    = 1;
  862.   {$EXTERNALSYM OLECONTF_LINKS}
  863.   OLECONTF_LINKS         = 2;
  864.   {$EXTERNALSYM OLECONTF_OTHERS}
  865.   OLECONTF_OTHERS        = 4;
  866.   {$EXTERNALSYM OLECONTF_ONLYUSER}
  867.   OLECONTF_ONLYUSER      = 8;
  868.   {$EXTERNALSYM OLECONTF_ONLYIFRUNNING}
  869.   OLECONTF_ONLYIFRUNNING = 16;
  870.  
  871.   {$EXTERNALSYM DROPEFFECT_NONE}
  872.   DROPEFFECT_NONE   = 0;
  873.   {$EXTERNALSYM DROPEFFECT_COPY}
  874.   DROPEFFECT_COPY   = 1;
  875.   {$EXTERNALSYM DROPEFFECT_MOVE}
  876.   DROPEFFECT_MOVE   = 2;
  877.   {$EXTERNALSYM DROPEFFECT_LINK}
  878.   DROPEFFECT_LINK   = 4;
  879.   {$EXTERNALSYM DROPEFFECT_SCROLL}
  880.   DROPEFFECT_SCROLL = DWORD($80000000);
  881.  
  882.   {$EXTERNALSYM DD_DEFSCROLLINSET}
  883.   DD_DEFSCROLLINSET    = 11;
  884.   {$EXTERNALSYM DD_DEFSCROLLDELAY}
  885.   DD_DEFSCROLLDELAY    = 50;
  886.   {$EXTERNALSYM DD_DEFSCROLLINTERVAL}
  887.   DD_DEFSCROLLINTERVAL = 50;
  888.   {$EXTERNALSYM DD_DEFDRAGDELAY}
  889.   DD_DEFDRAGDELAY      = 200;
  890.   {$EXTERNALSYM DD_DEFDRAGMINDIST}
  891.   DD_DEFDRAGMINDIST    = 2;
  892.  
  893.   {$EXTERNALSYM OLEVERBATTRIB_NEVERDIRTIES}
  894.   OLEVERBATTRIB_NEVERDIRTIES    = 1;
  895.   {$EXTERNALSYM OLEVERBATTRIB_ONCONTAINERMENU}
  896.   OLEVERBATTRIB_ONCONTAINERMENU = 2;
  897.  
  898. { from OLECTL.H}
  899. { OLE control status codes }
  900.  
  901.   {$EXTERNALSYM CTL_E_ILLEGALFUNCTIONCALL}
  902.   CTL_E_ILLEGALFUNCTIONCALL       = HRESULT($800A0000) + 5;
  903.   {$EXTERNALSYM CTL_E_OVERFLOW}
  904.   CTL_E_OVERFLOW                  = HRESULT($800A0000) + 6;
  905.   {$EXTERNALSYM CTL_E_OUTOFMEMORY}
  906.   CTL_E_OUTOFMEMORY               = HRESULT($800A0000) + 7;
  907.   {$EXTERNALSYM CTL_E_DIVISIONBYZERO}
  908.   CTL_E_DIVISIONBYZERO            = HRESULT($800A0000) + 11;
  909.   {$EXTERNALSYM CTL_E_OUTOFSTRINGSPACE}
  910.   CTL_E_OUTOFSTRINGSPACE          = HRESULT($800A0000) + 14;
  911.   {$EXTERNALSYM CTL_E_OUTOFSTACKSPACE}
  912.   CTL_E_OUTOFSTACKSPACE           = HRESULT($800A0000) + 28;
  913.   {$EXTERNALSYM CTL_E_BADFILENAMEORNUMBER}
  914.   CTL_E_BADFILENAMEORNUMBER       = HRESULT($800A0000) + 52;
  915.   {$EXTERNALSYM CTL_E_FILENOTFOUND}
  916.   CTL_E_FILENOTFOUND              = HRESULT($800A0000) + 53;
  917.   {$EXTERNALSYM CTL_E_BADFILEMODE}
  918.   CTL_E_BADFILEMODE               = HRESULT($800A0000) + 54;
  919.   {$EXTERNALSYM CTL_E_FILEALREADYOPEN}
  920.   CTL_E_FILEALREADYOPEN           = HRESULT($800A0000) + 55;
  921.   {$EXTERNALSYM CTL_E_DEVICEIOERROR}
  922.   CTL_E_DEVICEIOERROR             = HRESULT($800A0000) + 57;
  923.   {$EXTERNALSYM CTL_E_FILEALREADYEXISTS}
  924.   CTL_E_FILEALREADYEXISTS         = HRESULT($800A0000) + 58;
  925.   {$EXTERNALSYM CTL_E_BADRECORDLENGTH}
  926.   CTL_E_BADRECORDLENGTH           = HRESULT($800A0000) + 59;
  927.   {$EXTERNALSYM CTL_E_DISKFULL}
  928.   CTL_E_DISKFULL                  = HRESULT($800A0000) + 61;
  929.   {$EXTERNALSYM CTL_E_BADRECORDNUMBER}
  930.   CTL_E_BADRECORDNUMBER           = HRESULT($800A0000) + 63;
  931.   {$EXTERNALSYM CTL_E_BADFILENAME}
  932.   CTL_E_BADFILENAME               = HRESULT($800A0000) + 64;
  933.   {$EXTERNALSYM CTL_E_TOOMANYFILES}
  934.   CTL_E_TOOMANYFILES              = HRESULT($800A0000) + 67;
  935.   {$EXTERNALSYM CTL_E_DEVICEUNAVAILABLE}
  936.   CTL_E_DEVICEUNAVAILABLE         = HRESULT($800A0000) + 68;
  937.   {$EXTERNALSYM CTL_E_PERMISSIONDENIED}
  938.   CTL_E_PERMISSIONDENIED          = HRESULT($800A0000) + 70;
  939.   {$EXTERNALSYM CTL_E_DISKNOTREADY}
  940.   CTL_E_DISKNOTREADY              = HRESULT($800A0000) + 71;
  941.   {$EXTERNALSYM CTL_E_PATHFILEACCESSERROR}
  942.   CTL_E_PATHFILEACCESSERROR       = HRESULT($800A0000) + 75;
  943.   {$EXTERNALSYM CTL_E_PATHNOTFOUND}
  944.   CTL_E_PATHNOTFOUND              = HRESULT($800A0000) + 76;
  945.   {$EXTERNALSYM CTL_E_INVALIDPATTERNSTRING}
  946.   CTL_E_INVALIDPATTERNSTRING      = HRESULT($800A0000) + 93;
  947.   {$EXTERNALSYM CTL_E_INVALIDUSEOFNULL}
  948.   CTL_E_INVALIDUSEOFNULL          = HRESULT($800A0000) + 94;
  949.   {$EXTERNALSYM CTL_E_INVALIDFILEFORMAT}
  950.   CTL_E_INVALIDFILEFORMAT         = HRESULT($800A0000) + 321;
  951.   {$EXTERNALSYM CTL_E_INVALIDPROPERTYVALUE}
  952.   CTL_E_INVALIDPROPERTYVALUE      = HRESULT($800A0000) + 380;
  953.   {$EXTERNALSYM CTL_E_INVALIDPROPERTYARRAYINDEX}
  954.   CTL_E_INVALIDPROPERTYARRAYINDEX = HRESULT($800A0000) + 381;
  955.   {$EXTERNALSYM CTL_E_SETNOTSUPPORTEDATRUNTIME}
  956.   CTL_E_SETNOTSUPPORTEDATRUNTIME  = HRESULT($800A0000) + 382;
  957.   {$EXTERNALSYM CTL_E_SETNOTSUPPORTED}
  958.   CTL_E_SETNOTSUPPORTED           = HRESULT($800A0000) + 383;
  959.   {$EXTERNALSYM CTL_E_NEEDPROPERTYARRAYINDEX}
  960.   CTL_E_NEEDPROPERTYARRAYINDEX    = HRESULT($800A0000) + 385;
  961.   {$EXTERNALSYM CTL_E_SETNOTPERMITTED}
  962.   CTL_E_SETNOTPERMITTED           = HRESULT($800A0000) + 387;
  963.   {$EXTERNALSYM CTL_E_GETNOTSUPPORTEDATRUNTIME}
  964.   CTL_E_GETNOTSUPPORTEDATRUNTIME  = HRESULT($800A0000) + 393;
  965.   {$EXTERNALSYM CTL_E_GETNOTSUPPORTED}
  966.   CTL_E_GETNOTSUPPORTED           = HRESULT($800A0000) + 394;
  967.   {$EXTERNALSYM CTL_E_PROPERTYNOTFOUND}
  968.   CTL_E_PROPERTYNOTFOUND          = HRESULT($800A0000) + 422;
  969.   {$EXTERNALSYM CTL_E_INVALIDCLIPBOARDFORMAT}
  970.   CTL_E_INVALIDCLIPBOARDFORMAT    = HRESULT($800A0000) + 460;
  971.   {$EXTERNALSYM CTL_E_INVALIDPICTURE}
  972.   CTL_E_INVALIDPICTURE            = HRESULT($800A0000) + 481;
  973.   {$EXTERNALSYM CTL_E_PRINTERERROR}
  974.   CTL_E_PRINTERERROR              = HRESULT($800A0000) + 482;
  975.   {$EXTERNALSYM CTL_E_CANTSAVEFILETOTEMP}
  976.   CTL_E_CANTSAVEFILETOTEMP        = HRESULT($800A0000) + 735;
  977.   {$EXTERNALSYM CTL_E_SEARCHTEXTNOTFOUND}
  978.   CTL_E_SEARCHTEXTNOTFOUND        = HRESULT($800A0000) + 744;
  979.   {$EXTERNALSYM CTL_E_REPLACEMENTSTOOLONG}
  980.   CTL_E_REPLACEMENTSTOOLONG       = HRESULT($800A0000) + 746;
  981.  
  982.   {$EXTERNALSYM CTL_E_CUSTOM_FIRST}
  983.   CTL_E_CUSTOM_FIRST = HRESULT($800A0000) + 600;
  984.  
  985. { IClassFactory2 status codes }
  986.  
  987.   {$EXTERNALSYM CLASS_E_NOTLICENSED}
  988.   CLASS_E_NOTLICENSED = CLASSFACTORY_E_FIRST + 2;
  989.  
  990. { IConnectionPoint status codes }
  991.  
  992.   {$EXTERNALSYM CONNECT_E_FIRST}
  993.   CONNECT_E_FIRST = HRESULT($80040200);
  994.   {$EXTERNALSYM CONNECT_E_LAST}
  995.   CONNECT_E_LAST  = HRESULT($8004020F);
  996.   {$EXTERNALSYM CONNECT_S_FIRST}
  997.   CONNECT_S_FIRST = $00040200;
  998.   {$EXTERNALSYM CONNECT_S_LAST}
  999.   CONNECT_S_LAST  = $0004020F;
  1000.  
  1001.   {$EXTERNALSYM CONNECT_E_NOCONNECTION}
  1002.   CONNECT_E_NOCONNECTION  = CONNECT_E_FIRST + 0;
  1003.   {$EXTERNALSYM CONNECT_E_ADVISELIMIT}
  1004.   CONNECT_E_ADVISELIMIT   = CONNECT_E_FIRST + 1;
  1005.   {$EXTERNALSYM CONNECT_E_CANNOTCONNECT}
  1006.   CONNECT_E_CANNOTCONNECT = CONNECT_E_FIRST + 2;
  1007.   {$EXTERNALSYM CONNECT_E_OVERRIDDEN}
  1008.   CONNECT_E_OVERRIDDEN    = CONNECT_E_FIRST + 3;
  1009.  
  1010. { DllRegisterServer/DllUnregisterServer status codes }
  1011.  
  1012.   {$EXTERNALSYM SELFREG_E_FIRST}
  1013.   SELFREG_E_FIRST = HRESULT($80040200);
  1014.   {$EXTERNALSYM SELFREG_E_LAST}
  1015.   SELFREG_E_LAST  = HRESULT($80040200);
  1016.   {$EXTERNALSYM SELFREG_S_FIRST}
  1017.   SELFREG_S_FIRST = $00040200;
  1018.   {$EXTERNALSYM SELFREG_S_LAST}
  1019.   SELFREG_S_LAST  = $00040200;
  1020.  
  1021.   {$EXTERNALSYM SELFREG_E_TYPELIB}
  1022.   SELFREG_E_TYPELIB = SELFREG_E_FIRST + 0;
  1023.   {$EXTERNALSYM SELFREG_E_CLASS}
  1024.   SELFREG_E_CLASS   = SELFREG_E_FIRST + 1;
  1025.  
  1026. { IPerPropertyBrowsing status codes }
  1027.  
  1028.   {$EXTERNALSYM PERPROP_E_FIRST}
  1029.   PERPROP_E_FIRST = HRESULT($80040200);
  1030.   {$EXTERNALSYM PERPROP_E_LAST}
  1031.   PERPROP_E_LAST  = HRESULT($8004020F);
  1032.   {$EXTERNALSYM PERPROP_S_FIRST}
  1033.   PERPROP_S_FIRST = $00040200;
  1034.   {$EXTERNALSYM PERPROP_S_LAST}
  1035.   PERPROP_S_LAST  = $0004020F;
  1036.  
  1037.   {$EXTERNALSYM PERPROP_E_NOPAGEAVAILABLE}
  1038.   PERPROP_E_NOPAGEAVAILABLE = PERPROP_E_FIRST + 0;
  1039.  
  1040. { Additional OLEIVERB constants }
  1041.  
  1042.   {$EXTERNALSYM OLEIVERB_PROPERTIES}
  1043.   OLEIVERB_PROPERTIES = -7;
  1044.  
  1045. { Additional variant type tags for property sets }
  1046.  
  1047.   {$EXTERNALSYM VT_STREAMED_PROPSET}
  1048.   VT_STREAMED_PROPSET = 73;  { Stream contains a property set }
  1049.   {$EXTERNALSYM VT_STORED_PROPSET}
  1050.   VT_STORED_PROPSET   = 74;  { Storage contains a property set }
  1051.   {$EXTERNALSYM VT_BLOB_PROPSET}
  1052.   VT_BLOB_PROPSET     = 75;  { Blob contains a property set }
  1053.   {$EXTERNALSYM VT_VERBOSE_ENUM}
  1054.   VT_VERBOSE_ENUM     = 76;  { Enum value with text string }
  1055.  
  1056. { Variant type tags that are just aliases for others }
  1057.  
  1058.   {$EXTERNALSYM VT_COLOR}
  1059.   VT_COLOR          = VT_I4;
  1060.   {$EXTERNALSYM VT_XPOS_PIXELS}
  1061.   VT_XPOS_PIXELS    = VT_I4;
  1062.   {$EXTERNALSYM VT_YPOS_PIXELS}
  1063.   VT_YPOS_PIXELS    = VT_I4;
  1064.   {$EXTERNALSYM VT_XSIZE_PIXELS}
  1065.   VT_XSIZE_PIXELS   = VT_I4;
  1066.   {$EXTERNALSYM VT_YSIZE_PIXELS}
  1067.   VT_YSIZE_PIXELS   = VT_I4;
  1068.   {$EXTERNALSYM VT_XPOS_HIMETRIC}
  1069.   VT_XPOS_HIMETRIC  = VT_I4;
  1070.   {$EXTERNALSYM VT_YPOS_HIMETRIC}
  1071.   VT_YPOS_HIMETRIC  = VT_I4;
  1072.   {$EXTERNALSYM VT_XSIZE_HIMETRIC}
  1073.   VT_XSIZE_HIMETRIC = VT_I4;
  1074.   {$EXTERNALSYM VT_YSIZE_HIMETRIC}
  1075.   VT_YSIZE_HIMETRIC = VT_I4;
  1076.   {$EXTERNALSYM VT_TRISTATE}
  1077.   VT_TRISTATE       = VT_I2;
  1078.   {$EXTERNALSYM VT_OPTEXCLUSIVE}
  1079.   VT_OPTEXCLUSIVE   = VT_BOOL;
  1080.   {$EXTERNALSYM VT_FONT}
  1081.   VT_FONT           = VT_DISPATCH;
  1082.   {$EXTERNALSYM VT_PICTURE}
  1083.   VT_PICTURE        = VT_DISPATCH;
  1084.   {$EXTERNALSYM VT_HANDLE}
  1085.   VT_HANDLE         = VT_I4;
  1086.  
  1087. { Reflected window message IDs }
  1088.  
  1089.   {$EXTERNALSYM OCM__BASE}
  1090.   OCM__BASE = WM_USER + $1C00;
  1091.  
  1092.   {$EXTERNALSYM OCM_COMMAND}
  1093.   OCM_COMMAND           = OCM__BASE + WM_COMMAND;
  1094.   {$EXTERNALSYM OCM_CTLCOLORBTN}
  1095.   OCM_CTLCOLORBTN       = OCM__BASE + WM_CTLCOLORBTN;
  1096.   {$EXTERNALSYM OCM_CTLCOLOREDIT}
  1097.   OCM_CTLCOLOREDIT      = OCM__BASE + WM_CTLCOLOREDIT;
  1098.   {$EXTERNALSYM OCM_CTLCOLORDLG}
  1099.   OCM_CTLCOLORDLG       = OCM__BASE + WM_CTLCOLORDLG;
  1100.   {$EXTERNALSYM OCM_CTLCOLORLISTBOX}
  1101.   OCM_CTLCOLORLISTBOX   = OCM__BASE + WM_CTLCOLORLISTBOX;
  1102.   {$EXTERNALSYM OCM_CTLCOLORMSGBOX}
  1103.   OCM_CTLCOLORMSGBOX    = OCM__BASE + WM_CTLCOLORMSGBOX;
  1104.   {$EXTERNALSYM OCM_CTLCOLORSCROLLBAR}
  1105.   OCM_CTLCOLORSCROLLBAR = OCM__BASE + WM_CTLCOLORSCROLLBAR;
  1106.   {$EXTERNALSYM OCM_CTLCOLORSTATIC}
  1107.   OCM_CTLCOLORSTATIC    = OCM__BASE + WM_CTLCOLORSTATIC;
  1108.   {$EXTERNALSYM OCM_DRAWITEM}
  1109.   OCM_DRAWITEM          = OCM__BASE + WM_DRAWITEM;
  1110.   {$EXTERNALSYM OCM_MEASUREITEM}
  1111.   OCM_MEASUREITEM       = OCM__BASE + WM_MEASUREITEM;
  1112.   {$EXTERNALSYM OCM_DELETEITEM}
  1113.   OCM_DELETEITEM        = OCM__BASE + WM_DELETEITEM;
  1114.   {$EXTERNALSYM OCM_VKEYTOITEM}
  1115.   OCM_VKEYTOITEM        = OCM__BASE + WM_VKEYTOITEM;
  1116.   {$EXTERNALSYM OCM_CHARTOITEM}
  1117.   OCM_CHARTOITEM        = OCM__BASE + WM_CHARTOITEM;
  1118.   {$EXTERNALSYM OCM_COMPAREITEM}
  1119.   OCM_COMPAREITEM       = OCM__BASE + WM_COMPAREITEM;
  1120.   {$EXTERNALSYM OCM_HSCROLL}
  1121.   OCM_HSCROLL           = OCM__BASE + WM_HSCROLL;
  1122.   {$EXTERNALSYM OCM_VSCROLL}
  1123.   OCM_VSCROLL           = OCM__BASE + WM_VSCROLL;
  1124.   {$EXTERNALSYM OCM_PARENTNOTIFY}
  1125.   OCM_PARENTNOTIFY      = OCM__BASE + WM_PARENTNOTIFY;
  1126.   {$EXTERNALSYM OCM_NOTIFY}
  1127.   OCM_NOTIFY            = OCM__BASE + WM_NOTIFY;
  1128.  
  1129. { from OCIDL.H }
  1130. { TControlInfo.dwFlags masks }
  1131.  
  1132.   {$EXTERNALSYM CTRLINFO_EATS_RETURN}
  1133.   CTRLINFO_EATS_RETURN = 1;  { Control doesn't send Return to container }
  1134.   {$EXTERNALSYM CTRLINFO_EATS_ESCAPE}
  1135.   CTRLINFO_EATS_ESCAPE = 2;  { Control doesn't send Escape to container }
  1136.  
  1137. { IOleControlSite.TransformCoords flags }
  1138.  
  1139.   {$EXTERNALSYM XFORMCOORDS_POSITION}
  1140.   XFORMCOORDS_POSITION            = 1;
  1141.   {$EXTERNALSYM XFORMCOORDS_SIZE}
  1142.   XFORMCOORDS_SIZE                = 2;
  1143.   {$EXTERNALSYM XFORMCOORDS_HIMETRICTOCONTAINER}
  1144.   XFORMCOORDS_HIMETRICTOCONTAINER = 4;
  1145.   {$EXTERNALSYM XFORMCOORDS_CONTAINERTOHIMETRIC}
  1146.   XFORMCOORDS_CONTAINERTOHIMETRIC = 8;
  1147.  
  1148. { IPropertyPageSite.OnStatusChange flags }
  1149.  
  1150.   {$EXTERNALSYM PROPPAGESTATUS_DIRTY}
  1151.   PROPPAGESTATUS_DIRTY    = 1;  { Values in page have changed }
  1152.   {$EXTERNALSYM PROPPAGESTATUS_VALIDATE}
  1153.   PROPPAGESTATUS_VALIDATE = 2;  { Appropriate time to validate/apply }
  1154.   {$EXTERNALSYM PROPPAGESTATUS_CLEAN}
  1155.   PROPPAGESTATUS_CLEAN    = 4;
  1156.  
  1157. { Picture attributes }
  1158.  
  1159.   {$EXTERNALSYM PICTURE_SCALABLE}
  1160.   PICTURE_SCALABLE    = 1;
  1161.   {$EXTERNALSYM PICTURE_TRANSPARENT}
  1162.   PICTURE_TRANSPARENT = 2;
  1163.  
  1164. { from OLECTL.H }
  1165. { TPictDesc.picType values }
  1166.  
  1167.   {$EXTERNALSYM PICTYPE_UNINITIALIZED}
  1168.   PICTYPE_UNINITIALIZED = -1;
  1169.   {$EXTERNALSYM PICTYPE_NONE}
  1170.   PICTYPE_NONE          = 0;
  1171.   {$EXTERNALSYM PICTYPE_BITMAP}
  1172.   PICTYPE_BITMAP        = 1;
  1173.   {$EXTERNALSYM PICTYPE_METAFILE}
  1174.   PICTYPE_METAFILE      = 2;
  1175.   {$EXTERNALSYM PICTYPE_ICON}
  1176.   PICTYPE_ICON          = 3;
  1177.   {$EXTERNALSYM PICTYPE_ENHMETAFILE}
  1178.   PICTYPE_ENHMETAFILE   = 4;
  1179.  
  1180. { Standard dispatch ID constants }
  1181.  
  1182.   {$EXTERNALSYM DISPID_AUTOSIZE}
  1183.   DISPID_AUTOSIZE      = -500;
  1184.   {$EXTERNALSYM DISPID_BACKCOLOR}
  1185.   DISPID_BACKCOLOR     = -501;
  1186.   {$EXTERNALSYM DISPID_BACKSTYLE}
  1187.   DISPID_BACKSTYLE     = -502;
  1188.   {$EXTERNALSYM DISPID_BORDERCOLOR}
  1189.   DISPID_BORDERCOLOR   = -503;
  1190.   {$EXTERNALSYM DISPID_BORDERSTYLE}
  1191.   DISPID_BORDERSTYLE   = -504;
  1192.   {$EXTERNALSYM DISPID_BORDERWIDTH}
  1193.   DISPID_BORDERWIDTH   = -505;
  1194.   {$EXTERNALSYM DISPID_DRAWMODE}
  1195.   DISPID_DRAWMODE      = -507;
  1196.   {$EXTERNALSYM DISPID_DRAWSTYLE}
  1197.   DISPID_DRAWSTYLE     = -508;
  1198.   {$EXTERNALSYM DISPID_DRAWWIDTH}
  1199.   DISPID_DRAWWIDTH     = -509;
  1200.   {$EXTERNALSYM DISPID_FILLCOLOR}
  1201.   DISPID_FILLCOLOR     = -510;
  1202.   {$EXTERNALSYM DISPID_FILLSTYLE}
  1203.   DISPID_FILLSTYLE     = -511;
  1204.   {$EXTERNALSYM DISPID_FONT}
  1205.   DISPID_FONT          = -512;
  1206.   {$EXTERNALSYM DISPID_FORECOLOR}
  1207.   DISPID_FORECOLOR     = -513;
  1208.   {$EXTERNALSYM DISPID_ENABLED}
  1209.   DISPID_ENABLED       = -514;
  1210.   {$EXTERNALSYM DISPID_HWND}
  1211.   DISPID_HWND          = -515;
  1212.   {$EXTERNALSYM DISPID_TABSTOP}
  1213.   DISPID_TABSTOP       = -516;
  1214.   {$EXTERNALSYM DISPID_TEXT}
  1215.   DISPID_TEXT          = -517;
  1216.   {$EXTERNALSYM DISPID_CAPTION}
  1217.   DISPID_CAPTION       = -518;
  1218.   {$EXTERNALSYM DISPID_BORDERVISIBLE}
  1219.   DISPID_BORDERVISIBLE = -519;
  1220.   {$EXTERNALSYM DISPID_APPEARANCE}
  1221.   DISPID_APPEARANCE    = -520;
  1222.   {$EXTERNALSYM DISPID_MOUSEPOINTER}
  1223.   DISPID_MOUSEPOINTER  = -521;
  1224.   {$EXTERNALSYM DISPID_MOUSEICON}
  1225.   DISPID_MOUSEICON     = -522;
  1226.   {$EXTERNALSYM DISPID_PICTURE}
  1227.   DISPID_PICTURE       = -523;
  1228.   {$EXTERNALSYM DISPID_VALID}
  1229.   DISPID_VALID         = -524;
  1230.   {$EXTERNALSYM DISPID_READYSTATE}
  1231.   DISPID_READYSTATE    = -525;
  1232.  
  1233.   {$EXTERNALSYM DISPID_REFRESH}
  1234.   DISPID_REFRESH  = -550;
  1235.   {$EXTERNALSYM DISPID_DOCLICK}
  1236.   DISPID_DOCLICK  = -551;
  1237.   {$EXTERNALSYM DISPID_ABOUTBOX}
  1238.   DISPID_ABOUTBOX = -552;
  1239.  
  1240.   {$EXTERNALSYM DISPID_CLICK}
  1241.   DISPID_CLICK            = -600;
  1242.   {$EXTERNALSYM DISPID_DBLCLICK}
  1243.   DISPID_DBLCLICK         = -601;
  1244.   {$EXTERNALSYM DISPID_KEYDOWN}
  1245.   DISPID_KEYDOWN          = -602;
  1246.   {$EXTERNALSYM DISPID_KEYPRESS}
  1247.   DISPID_KEYPRESS         = -603;
  1248.   {$EXTERNALSYM DISPID_KEYUP}
  1249.   DISPID_KEYUP            = -604;
  1250.   {$EXTERNALSYM DISPID_MOUSEDOWN}
  1251.   DISPID_MOUSEDOWN        = -605;
  1252.   {$EXTERNALSYM DISPID_MOUSEMOVE}
  1253.   DISPID_MOUSEMOVE        = -606;
  1254.   {$EXTERNALSYM DISPID_MOUSEUP}
  1255.   DISPID_MOUSEUP          = -607;
  1256.   {$EXTERNALSYM DISPID_ERROREVENT}
  1257.   DISPID_ERROREVENT       = -608;
  1258.   {$EXTERNALSYM DISPID_READYSTATECHANGE}
  1259.   DISPID_READYSTATECHANGE = -609;
  1260.  
  1261.   {$EXTERNALSYM DISPID_AMBIENT_BACKCOLOR}
  1262.   DISPID_AMBIENT_BACKCOLOR         = -701;
  1263.   {$EXTERNALSYM DISPID_AMBIENT_DISPLAYNAME}
  1264.   DISPID_AMBIENT_DISPLAYNAME       = -702;
  1265.   {$EXTERNALSYM DISPID_AMBIENT_FONT}
  1266.   DISPID_AMBIENT_FONT              = -703;
  1267.   {$EXTERNALSYM DISPID_AMBIENT_FORECOLOR}
  1268.   DISPID_AMBIENT_FORECOLOR         = -704;
  1269.   {$EXTERNALSYM DISPID_AMBIENT_LOCALEID}
  1270.   DISPID_AMBIENT_LOCALEID          = -705;
  1271.   {$EXTERNALSYM DISPID_AMBIENT_MESSAGEREFLECT}
  1272.   DISPID_AMBIENT_MESSAGEREFLECT    = -706;
  1273.   {$EXTERNALSYM DISPID_AMBIENT_SCALEUNITS}
  1274.   DISPID_AMBIENT_SCALEUNITS        = -707;
  1275.   {$EXTERNALSYM DISPID_AMBIENT_TEXTALIGN}
  1276.   DISPID_AMBIENT_TEXTALIGN         = -708;
  1277.   {$EXTERNALSYM DISPID_AMBIENT_USERMODE}
  1278.   DISPID_AMBIENT_USERMODE          = -709;
  1279.   {$EXTERNALSYM DISPID_AMBIENT_UIDEAD}
  1280.   DISPID_AMBIENT_UIDEAD            = -710;
  1281.   {$EXTERNALSYM DISPID_AMBIENT_SHOWGRABHANDLES}
  1282.   DISPID_AMBIENT_SHOWGRABHANDLES   = -711;
  1283.   {$EXTERNALSYM DISPID_AMBIENT_SHOWHATCHING}
  1284.   DISPID_AMBIENT_SHOWHATCHING      = -712;
  1285.   {$EXTERNALSYM DISPID_AMBIENT_DISPLAYASDEFAULT}
  1286.   DISPID_AMBIENT_DISPLAYASDEFAULT  = -713;
  1287.   {$EXTERNALSYM DISPID_AMBIENT_SUPPORTSMNEMONICS}
  1288.   DISPID_AMBIENT_SUPPORTSMNEMONICS = -714;
  1289.   {$EXTERNALSYM DISPID_AMBIENT_AUTOCLIP}
  1290.   DISPID_AMBIENT_AUTOCLIP          = -715;
  1291.   {$EXTERNALSYM DISPID_AMBIENT_APPEARANCE}
  1292.   DISPID_AMBIENT_APPEARANCE        = -716;
  1293.  
  1294.   {$EXTERNALSYM DISPID_AMBIENT_PALETTE}
  1295.   DISPID_AMBIENT_PALETTE           = -726;
  1296.   {$EXTERNALSYM DISPID_AMBIENT_TRANSFERPRIORITY}
  1297.   DISPID_AMBIENT_TRANSFERPRIORITY  = -728;
  1298.  
  1299.   {$EXTERNALSYM DISPID_Name}
  1300.   DISPID_Name                      = -800;
  1301.   {$EXTERNALSYM DISPID_Delete}
  1302.   DISPID_Delete                    = -801;
  1303.   {$EXTERNALSYM DISPID_Object}
  1304.   DISPID_Object                    = -802;
  1305.   {$EXTERNALSYM DISPID_Parent}
  1306.   DISPID_Parent                    = -803;
  1307.  
  1308.  
  1309. { Dispatch ID constants for fonts }
  1310.  
  1311.   {$EXTERNALSYM DISPID_FONT_NAME}
  1312.   DISPID_FONT_NAME    = 0;
  1313.   {$EXTERNALSYM DISPID_FONT_SIZE}
  1314.   DISPID_FONT_SIZE    = 2;
  1315.   {$EXTERNALSYM DISPID_FONT_BOLD}
  1316.   DISPID_FONT_BOLD    = 3;
  1317.   {$EXTERNALSYM DISPID_FONT_ITALIC}
  1318.   DISPID_FONT_ITALIC  = 4;
  1319.   {$EXTERNALSYM DISPID_FONT_UNDER}
  1320.   DISPID_FONT_UNDER   = 5;
  1321.   {$EXTERNALSYM DISPID_FONT_STRIKE}
  1322.   DISPID_FONT_STRIKE  = 6;
  1323.   {$EXTERNALSYM DISPID_FONT_WEIGHT}
  1324.   DISPID_FONT_WEIGHT  = 7;
  1325.   {$EXTERNALSYM DISPID_FONT_CHARSET}
  1326.   DISPID_FONT_CHARSET = 8;
  1327.  
  1328. { Dispatch ID constants for pictures }
  1329.  
  1330.   {$EXTERNALSYM DISPID_PICT_HANDLE}
  1331.   DISPID_PICT_HANDLE = 0;
  1332.   {$EXTERNALSYM DISPID_PICT_HPAL}
  1333.   DISPID_PICT_HPAL   = 2;
  1334.   {$EXTERNALSYM DISPID_PICT_TYPE}
  1335.   DISPID_PICT_TYPE   = 3;
  1336.   {$EXTERNALSYM DISPID_PICT_WIDTH}
  1337.   DISPID_PICT_WIDTH  = 4;
  1338.   {$EXTERNALSYM DISPID_PICT_HEIGHT}
  1339.   DISPID_PICT_HEIGHT = 5;
  1340.   {$EXTERNALSYM DISPID_PICT_RENDER}
  1341.   DISPID_PICT_RENDER = 6;
  1342.  
  1343.   // Reserved global Property IDs
  1344.   {$EXTERNALSYM PID_DICTIONARY}
  1345.   PID_DICTIONARY     = 0;
  1346.   {$EXTERNALSYM PID_CODEPAGE}
  1347.   PID_CODEPAGE             = $1;
  1348.   {$EXTERNALSYM PID_FIRST_USABLE}
  1349.   PID_FIRST_USABLE     = $2;
  1350.   {$EXTERNALSYM PID_FIRST_NAME_DEFAULT}
  1351.   PID_FIRST_NAME_DEFAULT = $fff;
  1352.   {$EXTERNALSYM PID_LOCALE}
  1353.   PID_LOCALE             = $80000000;
  1354.   {$EXTERNALSYM PID_MODIFY_TIME}
  1355.   PID_MODIFY_TIME     = $80000001;
  1356.   {$EXTERNALSYM PID_SECURITY}
  1357.   PID_SECURITY             = $80000002;
  1358.   {$EXTERNALSYM PID_ILLEGAL}
  1359.   PID_ILLEGAL            = $ffffffff;
  1360.  
  1361.   // Property IDs for the SummaryInformation Property Set
  1362.   {$EXTERNALSYM PIDSI_TITLE}
  1363.   PIDSI_TITLE               = $00000002;  // VT_LPSTR
  1364.   {$EXTERNALSYM PIDSI_SUBJECT}
  1365.   PIDSI_SUBJECT             = $00000003;  // VT_LPSTR
  1366.   {$EXTERNALSYM PIDSI_AUTHOR}
  1367.   PIDSI_AUTHOR              = $00000004;  // VT_LPSTR
  1368.   {$EXTERNALSYM PIDSI_KEYWORDS}
  1369.   PIDSI_KEYWORDS            = $00000005;  // VT_LPSTR
  1370.   {$EXTERNALSYM PIDSI_COMMENTS}
  1371.   PIDSI_COMMENTS            = $00000006;  // VT_LPSTR
  1372.   {$EXTERNALSYM PIDSI_TEMPLATE}
  1373.   PIDSI_TEMPLATE            = $00000007;  // VT_LPSTR
  1374.   {$EXTERNALSYM PIDSI_LASTAUTHOR}
  1375.   PIDSI_LASTAUTHOR          = $00000008;  // VT_LPSTR
  1376.   {$EXTERNALSYM PIDSI_REVNUMBER}
  1377.   PIDSI_REVNUMBER           = $00000009;  // VT_LPSTR
  1378.   {$EXTERNALSYM PIDSI_EDITTIME}
  1379.   PIDSI_EDITTIME            = $0000000a;  // VT_FILETIME (UTC)
  1380.   {$EXTERNALSYM PIDSI_LASTPRINTED}
  1381.   PIDSI_LASTPRINTED         = $0000000b;  // VT_FILETIME (UTC)
  1382.   {$EXTERNALSYM PIDSI_CREATE_DTM}
  1383.   PIDSI_CREATE_DTM          = $0000000c;  // VT_FILETIME (UTC)
  1384.   {$EXTERNALSYM PIDSI_LASTSAVE_DTM}
  1385.   PIDSI_LASTSAVE_DTM        = $0000000d;  // VT_FILETIME (UTC)
  1386.   {$EXTERNALSYM PIDSI_PAGECOUNT}
  1387.   PIDSI_PAGECOUNT           = $0000000e;  // VT_I4
  1388.   {$EXTERNALSYM PIDSI_WORDCOUNT}
  1389.   PIDSI_WORDCOUNT           = $0000000f;  // VT_I4
  1390.   {$EXTERNALSYM PIDSI_CHARCOUNT}
  1391.   PIDSI_CHARCOUNT           = $00000010;  // VT_I4
  1392.   {$EXTERNALSYM PIDSI_THUMBNAIL}
  1393.   PIDSI_THUMBNAIL           = $00000011;  // VT_CF
  1394.   {$EXTERNALSYM PIDSI_APPNAME}
  1395.   PIDSI_APPNAME             = $00000012;  // VT_LPSTR
  1396.   {$EXTERNALSYM PIDSI_DOC_SECURITY}
  1397.   PIDSI_DOC_SECURITY        = $00000013;  // VT_I4
  1398.  
  1399.   {$EXTERNALSYM PRSPEC_INVALID}
  1400.   PRSPEC_INVALID            = $ffffffff;
  1401.   {$EXTERNALSYM PRSPEC_LPWSTR}
  1402.   PRSPEC_LPWSTR             = 0;
  1403.   {$EXTERNALSYM PRSPEC_PROPID}
  1404.   PRSPEC_PROPID             = 1;
  1405.  
  1406. { from WTYPES.H }
  1407. { Result code }
  1408.  
  1409. type
  1410.   PHResult = ^HResult;
  1411.   {$EXTERNALSYM PSCODE}
  1412.   PSCODE = ^Integer;
  1413.   {$EXTERNALSYM SCODE}
  1414.   SCODE = Integer;
  1415.  
  1416. { VT_INT and VT_UINT }
  1417.   {$EXTERNALSYM PSYSINT}
  1418.   PSYSINT = ^SYSINT;
  1419.   {$EXTERNALSYM SYSINT}
  1420.   SYSINT = Integer;
  1421.   {$EXTERNALSYM PSYSUINT}
  1422.   PSYSUINT = ^SYSUINT;
  1423.   {$EXTERNALSYM SYSUINT}
  1424.   SYSUINT = LongWord;
  1425.  
  1426.   PResultList = ^TResultList;
  1427.   TResultList = array[0..65535] of HRESULT;
  1428.  
  1429. { Unknown lists }
  1430.  
  1431.   PUnknownList = ^TUnknownList;
  1432.   TUnknownList = array[0..65535] of IUnknown;
  1433.  
  1434. { OLE character and string types }
  1435.  
  1436.   TOleChar = WideChar;
  1437.   POleStr = PWideChar;
  1438.   PPOleStr = ^POleStr;
  1439.  
  1440.   POleStrList = ^TOleStrList;
  1441.   TOleStrList = array[0..65535] of POleStr;
  1442.  
  1443. { 64-bit large integer }
  1444.  
  1445.   {$EXTERNALSYM Largeint}
  1446.   Largeint = Int64;
  1447.  
  1448. { 64-bit large unsigned integer }
  1449.  
  1450.   {$EXTERNALSYM PLargeuint}
  1451.   PLargeuint = ^Largeuint;
  1452.   {$EXTERNALSYM Largeuint}
  1453.   Largeuint = Int64;
  1454.  
  1455. { Interface ID }
  1456.  
  1457.   PIID = PGUID;
  1458.   TIID = TGUID;
  1459.  
  1460. { Class ID }
  1461.  
  1462.   PCLSID = PGUID;
  1463.   TCLSID = TGUID;
  1464.  
  1465. { Object ID }
  1466.  
  1467.   PObjectID = ^TObjectID;
  1468.   {$EXTERNALSYM _OBJECTID}
  1469.   _OBJECTID = record
  1470.     Lineage: TGUID;
  1471.     Uniquifier: Longint;
  1472.   end;
  1473.   TObjectID = _OBJECTID;
  1474.   {$EXTERNALSYM OBJECTID}
  1475.   OBJECTID = TObjectID;
  1476.  
  1477. { Locale ID }
  1478.  
  1479.   TLCID = DWORD;
  1480.  
  1481. { Format ID }
  1482.  
  1483.   {$EXTERNALSYM FMTID}
  1484.   FMTID = TGUID;
  1485.   PFmtID = ^TFmtID;
  1486.   TFmtID = TGUID;
  1487.  
  1488. { OLE control types }
  1489.  
  1490.   PTextMetricOle = PTextMetricW;
  1491.   TTextMetricOle = TTextMetricW;
  1492.  
  1493.   {$EXTERNALSYM OLE_COLOR}
  1494.   OLE_COLOR = DWORD;
  1495.   TOleColor = OLE_COLOR;
  1496.  
  1497.   PCoServerInfo = ^TCoServerInfo;
  1498.   {$EXTERNALSYM _COSERVERINFO}
  1499.   _COSERVERINFO = record
  1500.     dwReserved1: Longint;
  1501.     pwszName: LPWSTR;
  1502.     pAuthInfo: Pointer;
  1503.     dwReserved2: Longint;
  1504.   end;
  1505.   TCoServerInfo = _COSERVERINFO;
  1506.   {$EXTERNALSYM COSERVERINFO}
  1507.   COSERVERINFO = TCoServerInfo;
  1508.  
  1509.   PMultiQI = ^TMultiQI;
  1510.   {$EXTERNALSYM tagMULTI_QI}
  1511.   tagMULTI_QI = record
  1512.     IID: PIID;
  1513.     Itf: IUnknown;
  1514.     hr: HRESULT;
  1515.   end;
  1516.   TMultiQI = tagMULTI_QI;
  1517.   {$EXTERNALSYM MULTI_QI}
  1518.   MULTI_QI = TMultiQI;
  1519.  
  1520.  
  1521.   PMultiQIArray = ^TMultiQIArray;
  1522.   TMultiQIArray = array[0..65535] of TMultiQI;
  1523.  
  1524. { from OAIDL.H }
  1525.   PSafeArrayBound = ^TSafeArrayBound;
  1526.   {$EXTERNALSYM tagSAFEARRAYBOUND}
  1527.   tagSAFEARRAYBOUND = record
  1528.     cElements: Longint;
  1529.     lLbound: Longint;
  1530.   end;
  1531.   TSafeArrayBound = tagSAFEARRAYBOUND;
  1532.   {$EXTERNALSYM SAFEARRAYBOUND}
  1533.   SAFEARRAYBOUND = TSafeArrayBound;
  1534.  
  1535.   PSafeArray = ^TSafeArray;
  1536.   {$EXTERNALSYM tagSAFEARRAY}
  1537.   tagSAFEARRAY = record
  1538.     cDims: Word;
  1539.     fFeatures: Word;
  1540.     cbElements: Longint;
  1541.     cLocks: Longint;
  1542.     pvData: Pointer;
  1543.     rgsabound: array[0..0] of TSafeArrayBound;
  1544.   end;
  1545.   TSafeArray = tagSAFEARRAY;
  1546.   {$EXTERNALSYM SAFEARRAY}
  1547.   SAFEARRAY = TSafeArray;
  1548.  
  1549.  
  1550.   {$EXTERNALSYM TOleDate}
  1551.   TOleDate = Double;
  1552.   POleDate = ^TOleDate;
  1553.  
  1554.   {$EXTERNALSYM TOleBool}
  1555.   TOleBool = WordBool;
  1556.   POleBool = ^TOleBool;
  1557.  
  1558.   {$EXTERNALSYM TVarType}
  1559.   TVarType = Word;
  1560.  
  1561.   TOleEnum = type Integer;
  1562.  
  1563. { from OLECTL.H }
  1564.   {$EXTERNALSYM OLE_XPOS_PIXELS}
  1565.   OLE_XPOS_PIXELS  = Longint;
  1566.   {$EXTERNALSYM OLE_YPOS_PIXELS}
  1567.   OLE_YPOS_PIXELS  = Longint;
  1568.   {$EXTERNALSYM OLE_XSIZE_PIXELS}
  1569.   OLE_XSIZE_PIXELS = Longint;
  1570.   {$EXTERNALSYM OLE_YSIZE_PIXELS}
  1571.   OLE_YSIZE_PIXELS = Longint;
  1572.  
  1573.   {$EXTERNALSYM OLE_XPOS_HIMETRIC}
  1574.   OLE_XPOS_HIMETRIC  = Longint;
  1575.   {$EXTERNALSYM OLE_YPOS_HIMETRIC}
  1576.   OLE_YPOS_HIMETRIC  = Longint;
  1577.   {$EXTERNALSYM OLE_XSIZE_HIMETRIC}
  1578.   OLE_XSIZE_HIMETRIC = Longint;
  1579.   {$EXTERNALSYM OLE_YSIZE_HIMETRIC}
  1580.   OLE_YSIZE_HIMETRIC = Longint;
  1581.  
  1582.   {$EXTERNALSYM OLE_XPOS_CONTAINER}
  1583.   OLE_XPOS_CONTAINER  = Single;
  1584.   {$EXTERNALSYM OLE_YPOS_CONTAINER}
  1585.   OLE_YPOS_CONTAINER  = Single;
  1586.   {$EXTERNALSYM OLE_XSIZE_CONTAINER}
  1587.   OLE_XSIZE_CONTAINER = Single;
  1588.   {$EXTERNALSYM OLE_YSIZE_CONTAINER}
  1589.   OLE_YSIZE_CONTAINER = Single;
  1590.  
  1591.   {$EXTERNALSYM OLE_TRISTATE}
  1592.   OLE_TRISTATE = SmallInt;
  1593.  
  1594. const
  1595.   {$EXTERNALSYM triUnchecked}
  1596.   triUnchecked = 0;
  1597.   {$EXTERNALSYM triChecked}
  1598.   triChecked   = 1;
  1599.   {$EXTERNALSYM triGray}
  1600.   triGray      = 2;
  1601.  
  1602. type
  1603.   {$EXTERNALSYM OLE_OPTEXCLUSIVE}
  1604.   OLE_OPTEXCLUSIVE = WordBool;
  1605.  
  1606.   {$EXTERNALSYM OLE_CANCELBOOL}
  1607.   OLE_CANCELBOOL = WordBool;
  1608.  
  1609.   {$EXTERNALSYM OLE_ENABLEDEFAULTBOOL}
  1610.   OLE_ENABLEDEFAULTBOOL = WordBool;
  1611.  
  1612.   {$EXTERNALSYM OLE_HANDLE}
  1613.   OLE_HANDLE = LongWord;
  1614.  
  1615.   {$EXTERNALSYM FONTNAME}
  1616.   FONTNAME = WideString;
  1617.  
  1618.   {$EXTERNALSYM FONTSIZE}
  1619.   FONTSIZE = Currency;
  1620.  
  1621.   {$EXTERNALSYM FONTBOLD}
  1622.   FONTBOLD = WordBool;
  1623.  
  1624.   {$EXTERNALSYM FONTITALIC}
  1625.   FONTITALIC = WordBool;
  1626.  
  1627.   {$EXTERNALSYM FONTUNDERSCORE}
  1628.   FONTUNDERSCORE = WordBool;
  1629.  
  1630.   {$EXTERNALSYM FONTSTRIKETHROUGH}
  1631.   FONTSTRIKETHROUGH = WordBool;
  1632.  
  1633.  
  1634. { Registration function types }
  1635.  
  1636.   {$EXTERNALSYM TDLLRegisterServer}
  1637.   TDLLRegisterServer = function: HResult stdcall;
  1638.   {$EXTERNALSYM TDLLUnregisterServer}
  1639.   TDLLUnregisterServer = function: HResult stdcall;
  1640.  
  1641. { from OCIDL.H }
  1642. { TPointF structure }
  1643.  
  1644.   PPointF = ^TPointF;
  1645.   {$EXTERNALSYM tagPOINTF}
  1646.   tagPOINTF = record
  1647.     x: Single;
  1648.     y: Single;
  1649.   end;
  1650.   TPointF = tagPOINTF;
  1651.   {$EXTERNALSYM POINTF}
  1652.   POINTF = TPointF;
  1653.  
  1654.  
  1655. { TControlInfo structure }
  1656.  
  1657.   PControlInfo = ^TControlInfo;
  1658.   {$EXTERNALSYM tagCONTROLINFO}
  1659.   tagCONTROLINFO = record
  1660.     cb: Longint;
  1661.     hAccel: HAccel;
  1662.     cAccel: Word;
  1663.     dwFlags: Longint;
  1664.   end;
  1665.   TControlInfo = tagCONTROLINFO;
  1666.   {$EXTERNALSYM CONTROLINFO}
  1667.   CONTROLINFO = TControlInfo;
  1668.  
  1669.  
  1670. { from OBJIDL.H }
  1671. { Forward declarations }
  1672.  
  1673.   IStream = interface;
  1674.   IRunningObjectTable = interface;
  1675.   IEnumString = interface;
  1676.   IMoniker = interface;
  1677.   IAdviseSink = interface;
  1678.   ITypeInfo = interface;
  1679.   ITypeInfo2 = interface;
  1680.   ITypeComp = interface;
  1681.   ITypeLib = interface;
  1682.   ITypeLib2 = interface;
  1683.   IEnumOLEVERB = interface;
  1684.   IOleInPlaceActiveObject = interface;
  1685.   IOleControl = interface;
  1686.   IOleControlSite = interface;
  1687.   ISimpleFrameSite = interface;
  1688.   IPersistStreamInit = interface;
  1689.   IPersistPropertyBag = interface;
  1690.   IPropertyNotifySink = interface;
  1691.   IProvideClassInfo = interface;
  1692.   IConnectionPointContainer = interface;
  1693.   IEnumConnectionPoints = interface;
  1694.   IConnectionPoint = interface;
  1695.   IEnumConnections = interface;
  1696.   IClassFactory2 = interface;
  1697.   ISpecifyPropertyPages = interface;
  1698.   IPerPropertyBrowsing = interface;
  1699.   IPropertyPageSite = interface;
  1700.   IPropertyPage = interface;
  1701.   IPropertyPage2 = interface;
  1702.   IPropertySetStorage = interface;
  1703.   IPropertyStorage = interface;
  1704.   IEnumSTATPROPSTG = interface;
  1705.   IEnumSTATPROPSETSTG = interface;
  1706.  
  1707. { IClassFactory interface }
  1708.  
  1709.   {$EXTERNALSYM IClassFactory}
  1710.   IClassFactory = interface(IUnknown)
  1711.     ['{00000001-0000-0000-C000-000000000046}']
  1712.     function CreateInstance(const unkOuter: IUnknown; const iid: TIID;
  1713.       out obj): HResult; stdcall;
  1714.     function LockServer(fLock: BOOL): HResult; stdcall;
  1715.   end;
  1716.  
  1717. { IMarshal interface }
  1718.  
  1719.   {$EXTERNALSYM IMarshal}
  1720.   IMarshal = interface(IUnknown)
  1721.     ['{00000003-0000-0000-C000-000000000046}']
  1722.     function GetUnmarshalClass(const iid: TIID; pv: Pointer;
  1723.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  1724.       out cid: TCLSID): HResult; stdcall;
  1725.     function GetMarshalSizeMax(const iid: TIID; pv: Pointer;
  1726.       dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  1727.       out size: Longint): HResult; stdcall;
  1728.     function MarshalInterface(const stm: IStream; const iid: TIID; pv: Pointer;
  1729.       dwDestContext: Longint; pvDestContext: Pointer;
  1730.       mshlflags: Longint): HResult; stdcall;
  1731.     function UnmarshalInterface(const stm: IStream; const iid: TIID;
  1732.       out pv): HResult; stdcall;
  1733.     function ReleaseMarshalData(const stm: IStream): HResult;
  1734.       stdcall;
  1735.     function DisconnectObject(dwReserved: Longint): HResult;
  1736.       stdcall;
  1737.   end;
  1738.  
  1739. { IMalloc interface }
  1740.  
  1741.   {$EXTERNALSYM IMalloc}
  1742.   IMalloc = interface(IUnknown)
  1743.     ['{00000002-0000-0000-C000-000000000046}']
  1744.     function Alloc(cb: Longint): Pointer; stdcall;
  1745.     function Realloc(pv: Pointer; cb: Longint): Pointer; stdcall;
  1746.     procedure Free(pv: Pointer); stdcall;
  1747.     function GetSize(pv: Pointer): Longint; stdcall;
  1748.     function DidAlloc(pv: Pointer): Integer; stdcall;
  1749.     procedure HeapMinimize; stdcall;
  1750.   end;
  1751.  
  1752. { IMallocSpy interface }
  1753.  
  1754.   {$EXTERNALSYM IMallocSpy}
  1755.   IMallocSpy = interface(IUnknown)
  1756.     ['{0000001D-0000-0000-C000-000000000046}']
  1757.     function PreAlloc(cbRequest: Longint): Longint; stdcall;
  1758.     function PostAlloc(pActual: Pointer): Pointer; stdcall;
  1759.     function PreFree(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;
  1760.     procedure PostFree(fSpyed: BOOL); stdcall;
  1761.     function PreRealloc(pRequest: Pointer; cbRequest: Longint;
  1762.       out ppNewRequest: Pointer; fSpyed: BOOL): Longint; stdcall;
  1763.     function PostRealloc(pActual: Pointer; fSpyed: BOOL): Pointer; stdcall;
  1764.     function PreGetSize(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;
  1765.     function PostGetSize(pActual: Pointer; fSpyed: BOOL): Longint; stdcall;
  1766.     function PreDidAlloc(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;
  1767.     function PostDidAlloc(pRequest: Pointer; fSpyed: BOOL; fActual: Integer): Integer; stdcall;
  1768.     procedure PreHeapMinimize; stdcall;
  1769.     procedure PostHeapMinimize; stdcall;
  1770.   end;
  1771.  
  1772. { IStdMarshalInfo interface }
  1773.  
  1774.   {$EXTERNALSYM IStdMarshalInfo}
  1775.   IStdMarshalInfo = interface(IUnknown)
  1776.     ['{00000018-0000-0000-C000-000000000046}']
  1777.     function GetClassForHandler(dwDestContext: Longint; pvDestContext: Pointer;
  1778.       out clsid: TCLSID): HResult; stdcall;
  1779.   end;
  1780.  
  1781. { IExternalConnection interface }
  1782.  
  1783.   {$EXTERNALSYM IExternalConnection}
  1784.   IExternalConnection = interface(IUnknown)
  1785.     ['{00000019-0000-0000-C000-000000000046}']
  1786.     function AddConnection(extconn: Longint; reserved: Longint): Longint;
  1787.       stdcall;
  1788.     function ReleaseConnection(extconn: Longint; reserved: Longint;
  1789.       fLastReleaseCloses: BOOL): Longint; stdcall;
  1790.   end;
  1791.  
  1792. { IWeakRef interface }
  1793.  
  1794.   {$EXTERNALSYM IWeakRef}
  1795.   IWeakRef = interface(IUnknown)
  1796.     ['{A35E20C2-837D-11D0-9E9F-00A02457621F}']
  1797.     function ChangeWeakCount(delta: Longint): Longint; stdcall;
  1798.     function ReleaseKeepAlive(const unkReleased: IUnknown;
  1799.       reserved: Longint): Longint; stdcall;
  1800.   end;
  1801.  
  1802. { IEnumUnknown interface }
  1803.  
  1804.   {$EXTERNALSYM IEnumUnknown}
  1805.   IEnumUnknown = interface(IUnknown)
  1806.     ['{00000100-0000-0000-C000-000000000046}']
  1807.     function Next(celt: Longint; out elt;
  1808.       pceltFetched: PLongint): HResult; stdcall;
  1809.     function Skip(celt: Longint): HResult; stdcall;
  1810.     function Reset: HResult; stdcall;
  1811.     function Clone(out enm: IEnumUnknown): HResult; stdcall;
  1812.   end;
  1813.  
  1814. { IBindCtx interface }
  1815.  
  1816.   PBindOpts = ^TBindOpts;
  1817.   {$EXTERNALSYM tagBIND_OPTS}
  1818.   tagBIND_OPTS = record
  1819.     cbStruct: Longint;
  1820.     grfFlags: Longint;
  1821.     grfMode: Longint;
  1822.     dwTickCountDeadline: Longint;
  1823.   end;
  1824.   TBindOpts = tagBIND_OPTS;
  1825.   {$EXTERNALSYM BIND_OPTS}
  1826.   BIND_OPTS = TBindOpts;
  1827.  
  1828.  
  1829.   {$EXTERNALSYM IBindCtx}
  1830.   IBindCtx = interface(IUnknown)
  1831.     ['{0000000E-0000-0000-C000-000000000046}']
  1832.     function RegisterObjectBound(const unk: IUnknown): HResult; stdcall;
  1833.     function RevokeObjectBound(const unk: IUnknown): HResult; stdcall;
  1834.     function ReleaseBoundObjects: HResult; stdcall;
  1835.     function SetBindOptions(const bindopts: TBindOpts): HResult; stdcall;
  1836.     function GetBindOptions(var bindopts: TBindOpts): HResult; stdcall;
  1837.     function GetRunningObjectTable(out rot: IRunningObjectTable): HResult;
  1838.       stdcall;
  1839.     function RegisterObjectParam(pszKey: POleStr; const unk: IUnknown): HResult;
  1840.       stdcall;
  1841.     function GetObjectParam(pszKey: POleStr; out unk: IUnknown): HResult;
  1842.       stdcall;
  1843.     function EnumObjectParam(out Enum: IEnumString): HResult; stdcall;
  1844.     function RevokeObjectParam(pszKey: POleStr): HResult; stdcall;
  1845.   end;
  1846.  
  1847. { IEnumMoniker interface }
  1848.  
  1849.   {$EXTERNALSYM IEnumMoniker}
  1850.   IEnumMoniker = interface(IUnknown)
  1851.     ['{00000102-0000-0000-C000-000000000046}']
  1852.     function Next(celt: Longint; out elt;
  1853.       pceltFetched: PLongint): HResult; stdcall;
  1854.     function Skip(celt: Longint): HResult; stdcall;
  1855.     function Reset: HResult; stdcall;
  1856.     function Clone(out enm: IEnumMoniker): HResult; stdcall;
  1857.   end;
  1858.  
  1859. { IRunnableObject interface }
  1860.  
  1861.   {$EXTERNALSYM IRunnableObject}
  1862.   IRunnableObject = interface(IUnknown)
  1863.     ['{00000126-0000-0000-C000-000000000046}']
  1864.     function GetRunningClass(out clsid: TCLSID): HResult; stdcall;
  1865.     function Run(const bc: IBindCtx): HResult; stdcall;
  1866.     function IsRunning: BOOL; stdcall;
  1867.     function LockRunning(fLock: BOOL; fLastUnlockCloses: BOOL): HResult;
  1868.       stdcall;
  1869.     function SetContainedObject(fContained: BOOL): HResult; stdcall;
  1870.   end;
  1871.  
  1872. { IRunningObjectTable interface }
  1873.  
  1874.   {$EXTERNALSYM IRunningObjectTable}
  1875.   IRunningObjectTable = interface(IUnknown)
  1876.     ['{00000010-0000-0000-C000-000000000046}']
  1877.     function Register(grfFlags: Longint; const unkObject: IUnknown;
  1878.       const mkObjectName: IMoniker; out dwRegister: Longint): HResult; stdcall;
  1879.     function Revoke(dwRegister: Longint): HResult; stdcall;
  1880.     function IsRunning(const mkObjectName: IMoniker): HResult; stdcall;
  1881.     function GetObject(const mkObjectName: IMoniker;
  1882.       out unkObject: IUnknown): HResult; stdcall;
  1883.     function NoteChangeTime(dwRegister: Longint;
  1884.       const filetime: TFileTime): HResult; stdcall;
  1885.     function GetTimeOfLastChange(const mkObjectName: IMoniker;
  1886.       out filetime: TFileTime): HResult; stdcall;
  1887.     function EnumRunning(out enumMoniker: IEnumMoniker): HResult; stdcall;
  1888.   end;
  1889.  
  1890. { IPersist interface }
  1891.  
  1892.   {$EXTERNALSYM IPersist}
  1893.   IPersist = interface(IUnknown)
  1894.     ['{0000010C-0000-0000-C000-000000000046}']
  1895.     function GetClassID(out classID: TCLSID): HResult; stdcall;
  1896.   end;
  1897.  
  1898. { IPersistStream interface }
  1899.  
  1900.   {$EXTERNALSYM IPersistStream}
  1901.   IPersistStream = interface(IPersist)
  1902.     ['{00000109-0000-0000-C000-000000000046}']
  1903.     function IsDirty: HResult; stdcall;
  1904.     function Load(const stm: IStream): HResult; stdcall;
  1905.     function Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;
  1906.     function GetSizeMax(out cbSize: Largeint): HResult; stdcall;
  1907.   end;
  1908.  
  1909. { IMoniker interface }
  1910.  
  1911.   {$EXTERNALSYM PIMoniker}
  1912.   PIMoniker = ^IMoniker;
  1913.   {$EXTERNALSYM IMoniker}
  1914.   IMoniker = interface(IPersistStream)
  1915.     ['{0000000F-0000-0000-C000-000000000046}']
  1916.     function BindToObject(const bc: IBindCtx; const mkToLeft: IMoniker;
  1917.       const iidResult: TIID; out vResult): HResult; stdcall;
  1918.     function BindToStorage(const bc: IBindCtx; const mkToLeft: IMoniker;
  1919.       const iid: TIID; out vObj): HResult; stdcall;
  1920.     function Reduce(const bc: IBindCtx; dwReduceHowFar: Longint;
  1921.       mkToLeft: PIMoniker; out mkReduced: IMoniker): HResult; stdcall;
  1922.     function ComposeWith(const mkRight: IMoniker; fOnlyIfNotGeneric: BOOL;
  1923.       out mkComposite: IMoniker): HResult; stdcall;
  1924.     function Enum(fForward: BOOL; out enumMoniker: IEnumMoniker): HResult;
  1925.       stdcall;
  1926.     function IsEqual(const mkOtherMoniker: IMoniker): HResult; stdcall;
  1927.     function Hash(out dwHash: Longint): HResult; stdcall;
  1928.     function IsRunning(const bc: IBindCtx; const mkToLeft: IMoniker;
  1929.       const mkNewlyRunning: IMoniker): HResult; stdcall;
  1930.     function GetTimeOfLastChange(const bc: IBindCtx; const mkToLeft: IMoniker;
  1931.       out filetime: TFileTime): HResult; stdcall;
  1932.     function Inverse(out mk: IMoniker): HResult; stdcall;
  1933.     function CommonPrefixWith(const mkOther: IMoniker;
  1934.       out mkPrefix: IMoniker): HResult; stdcall;
  1935.     function RelativePathTo(const mkOther: IMoniker;
  1936.       out mkRelPath: IMoniker): HResult; stdcall;
  1937.     function GetDisplayName(const bc: IBindCtx; const mkToLeft: IMoniker;
  1938.       out pszDisplayName: POleStr): HResult; stdcall;
  1939.     function ParseDisplayName(const bc: IBindCtx; const mkToLeft: IMoniker;
  1940.       pszDisplayName: POleStr; out chEaten: Longint;
  1941.       out mkOut: IMoniker): HResult; stdcall;
  1942.     function IsSystemMoniker(out dwMksys: Longint): HResult; stdcall;
  1943.   end;
  1944.  
  1945. { IEnumString interface }
  1946.  
  1947.   {$EXTERNALSYM IEnumString}
  1948.   IEnumString = interface(IUnknown)
  1949.     ['{00000101-0000-0000-C000-000000000046}']
  1950.     function Next(celt: Longint; out elt;
  1951.       pceltFetched: PLongint): HResult; stdcall;
  1952.     function Skip(celt: Longint): HResult; stdcall;
  1953.     function Reset: HResult; stdcall;
  1954.     function Clone(out enm: IEnumString): HResult; stdcall;
  1955.   end;
  1956.  
  1957. { IStream interface }
  1958.  
  1959.   PStatStg = ^TStatStg;
  1960.   {$EXTERNALSYM tagSTATSTG}
  1961.   tagSTATSTG = record
  1962.     pwcsName: POleStr;
  1963.     dwType: Longint;
  1964.     cbSize: Largeint;
  1965.     mtime: TFileTime;
  1966.     ctime: TFileTime;
  1967.     atime: TFileTime;
  1968.     grfMode: Longint;
  1969.     grfLocksSupported: Longint;
  1970.     clsid: TCLSID;
  1971.     grfStateBits: Longint;
  1972.     reserved: Longint;
  1973.   end;
  1974.   TStatStg = tagSTATSTG;
  1975.   {$EXTERNALSYM STATSTG}
  1976.   STATSTG = TStatStg;
  1977.  
  1978.   {$EXTERNALSYM ISequentialStream}
  1979.   ISequentialStream = interface(IUnknown)
  1980.     ['{0c733a30-2a1c-11ce-ade5-00aa0044773d}']
  1981.     function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult;
  1982.       stdcall;
  1983.     function Write(pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult;
  1984.       stdcall;
  1985.   end;
  1986.  
  1987.   {$EXTERNALSYM IStream}
  1988.   IStream = interface(ISequentialStream)
  1989.     ['{0000000C-0000-0000-C000-000000000046}']
  1990.     function Seek(dlibMove: Largeint; dwOrigin: Longint;
  1991.       out libNewPosition: Largeint): HResult; stdcall;
  1992.     function SetSize(libNewSize: Largeint): HResult; stdcall;
  1993.     function CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint;
  1994.       out cbWritten: Largeint): HResult; stdcall;
  1995.     function Commit(grfCommitFlags: Longint): HResult; stdcall;
  1996.     function Revert: HResult; stdcall;
  1997.     function LockRegion(libOffset: Largeint; cb: Largeint;
  1998.       dwLockType: Longint): HResult; stdcall;
  1999.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  2000.       dwLockType: Longint): HResult; stdcall;
  2001.     function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;
  2002.       stdcall;
  2003.     function Clone(out stm: IStream): HResult; stdcall;
  2004.   end;
  2005.  
  2006. { IEnumStatStg interface }
  2007.  
  2008.   {$EXTERNALSYM IEnumStatStg}
  2009.   IEnumStatStg = interface(IUnknown)
  2010.     ['{0000000D-0000-0000-C000-000000000046}']
  2011.     function Next(celt: Longint; out elt;
  2012.       pceltFetched: PLongint): HResult; stdcall;
  2013.     function Skip(celt: Longint): HResult; stdcall;
  2014.     function Reset: HResult; stdcall;
  2015.     function Clone(out enm: IEnumStatStg): HResult; stdcall;
  2016.   end;
  2017.  
  2018. { IStorage interface }
  2019.  
  2020.   TSNB = ^POleStr;
  2021.  
  2022.   {$EXTERNALSYM IStorage}
  2023.   IStorage = interface(IUnknown)
  2024.     ['{0000000B-0000-0000-C000-000000000046}']
  2025.     function CreateStream(pwcsName: POleStr; grfMode: Longint; reserved1: Longint;
  2026.       reserved2: Longint; out stm: IStream): HResult; stdcall;
  2027.     function OpenStream(pwcsName: POleStr; reserved1: Pointer; grfMode: Longint;
  2028.       reserved2: Longint; out stm: IStream): HResult; stdcall;
  2029.     function CreateStorage(pwcsName: POleStr; grfMode: Longint;
  2030.       dwStgFmt: Longint; reserved2: Longint; out stg: IStorage): HResult;
  2031.       stdcall;
  2032.     function OpenStorage(pwcsName: POleStr; const stgPriority: IStorage;
  2033.       grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  2034.       out stg: IStorage): HResult; stdcall;
  2035.     function CopyTo(ciidExclude: Longint; rgiidExclude: PIID;
  2036.       snbExclude: TSNB; const stgDest: IStorage): HResult; stdcall;
  2037.     function MoveElementTo(pwcsName: POleStr; const stgDest: IStorage;
  2038.       pwcsNewName: POleStr; grfFlags: Longint): HResult; stdcall;
  2039.     function Commit(grfCommitFlags: Longint): HResult; stdcall;
  2040.     function Revert: HResult; stdcall;
  2041.     function EnumElements(reserved1: Longint; reserved2: Pointer; reserved3: Longint;
  2042.       out enm: IEnumStatStg): HResult; stdcall;
  2043.     function DestroyElement(pwcsName: POleStr): HResult; stdcall;
  2044.     function RenameElement(pwcsOldName: POleStr;
  2045.       pwcsNewName: POleStr): HResult; stdcall;
  2046.     function SetElementTimes(pwcsName: POleStr; const ctime: TFileTime;
  2047.       const atime: TFileTime; const mtime: TFileTime): HResult;
  2048.       stdcall;
  2049.     function SetClass(const clsid: TCLSID): HResult; stdcall;
  2050.     function SetStateBits(grfStateBits: Longint; grfMask: Longint): HResult;
  2051.       stdcall;
  2052.     function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;
  2053.       stdcall;
  2054.   end;
  2055.  
  2056. { IPersistFile interface }
  2057.  
  2058.   {$EXTERNALSYM IPersistFile}
  2059.   IPersistFile = interface(IPersist)
  2060.     ['{0000010B-0000-0000-C000-000000000046}']
  2061.     function IsDirty: HResult; stdcall;
  2062.     function Load(pszFileName: POleStr; dwMode: Longint): HResult;
  2063.       stdcall;
  2064.     function Save(pszFileName: POleStr; fRemember: BOOL): HResult;
  2065.       stdcall;
  2066.     function SaveCompleted(pszFileName: POleStr): HResult;
  2067.       stdcall;
  2068.     function GetCurFile(out pszFileName: POleStr): HResult;
  2069.       stdcall;
  2070.   end;
  2071.  
  2072. { IPersistStorage interface }
  2073.  
  2074.   {$EXTERNALSYM IPersistStorage}
  2075.   IPersistStorage = interface(IPersist)
  2076.     ['{0000010A-0000-0000-C000-000000000046}']
  2077.     function IsDirty: HResult; stdcall;
  2078.     function InitNew(const stg: IStorage): HResult; stdcall;
  2079.     function Load(const stg: IStorage): HResult; stdcall;
  2080.     function Save(const stgSave: IStorage; fSameAsLoad: BOOL): HResult;
  2081.       stdcall;
  2082.     function SaveCompleted(const stgNew: IStorage): HResult; stdcall;
  2083.     function HandsOffStorage: HResult; stdcall;
  2084.   end;
  2085.  
  2086. { ILockBytes interface }
  2087.  
  2088.   {$EXTERNALSYM ILockBytes}
  2089.   ILockBytes = interface(IUnknown)
  2090.     ['{0000000A-0000-0000-C000-000000000046}']
  2091.     function ReadAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  2092.       pcbRead: PLongint): HResult; stdcall;
  2093.     function WriteAt(ulOffset: Largeint; pv: Pointer; cb: Longint;
  2094.       pcbWritten: PLongint): HResult; stdcall;
  2095.     function Flush: HResult; stdcall;
  2096.     function SetSize(cb: Largeint): HResult; stdcall;
  2097.     function LockRegion(libOffset: Largeint; cb: Largeint;
  2098.       dwLockType: Longint): HResult; stdcall;
  2099.     function UnlockRegion(libOffset: Largeint; cb: Largeint;
  2100.       dwLockType: Longint): HResult; stdcall;
  2101.     function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;
  2102.       stdcall;
  2103.   end;
  2104.  
  2105. { IEnumFormatEtc interface }
  2106.  
  2107.   PDVTargetDevice = ^TDVTargetDevice;
  2108.   {$EXTERNALSYM tagDVTARGETDEVICE}
  2109.   tagDVTARGETDEVICE = record
  2110.     tdSize: Longint;
  2111.     tdDriverNameOffset: Word;
  2112.     tdDeviceNameOffset: Word;
  2113.     tdPortNameOffset: Word;
  2114.     tdExtDevmodeOffset: Word;
  2115.     tdData: record end;
  2116.   end;
  2117.   TDVTargetDevice = tagDVTARGETDEVICE;
  2118.   {$EXTERNALSYM DVTARGETDEVICE}
  2119.   DVTARGETDEVICE = TDVTargetDevice;
  2120.  
  2121.  
  2122.   {$EXTERNALSYM PClipFormat}
  2123.   PClipFormat = ^TClipFormat;
  2124.   {$EXTERNALSYM TClipFormat}
  2125.   TClipFormat = Word;
  2126.  
  2127.   PFormatEtc = ^TFormatEtc;
  2128.   {$EXTERNALSYM tagFORMATETC}
  2129.   tagFORMATETC = record
  2130.     cfFormat: TClipFormat;
  2131.     ptd: PDVTargetDevice;
  2132.     dwAspect: Longint;
  2133.     lindex: Longint;
  2134.     tymed: Longint;
  2135.   end;
  2136.   TFormatEtc = tagFORMATETC;
  2137.   {$EXTERNALSYM FORMATETC}
  2138.   FORMATETC = TFormatEtc;
  2139.  
  2140.  
  2141.   {$EXTERNALSYM IEnumFORMATETC}
  2142.   IEnumFORMATETC = interface(IUnknown)
  2143.     ['{00000103-0000-0000-C000-000000000046}']
  2144.     function Next(celt: Longint; out elt;
  2145.       pceltFetched: PLongint): HResult; stdcall;
  2146.     function Skip(celt: Longint): HResult; stdcall;
  2147.     function Reset: HResult; stdcall;
  2148.     function Clone(out Enum: IEnumFormatEtc): HResult; stdcall;
  2149.   end;
  2150.  
  2151. { IEnumStatData interface }
  2152.  
  2153.   PStatData = ^TStatData;
  2154.   {$EXTERNALSYM tagSTATDATA}
  2155.   tagSTATDATA = record
  2156.     formatetc: TFormatEtc;
  2157.     advf: Longint;
  2158.     advSink: IAdviseSink;
  2159.     dwConnection: Longint;
  2160.   end;
  2161.   TStatData = tagSTATDATA;
  2162.   {$EXTERNALSYM STATDATA}
  2163.   STATDATA = TStatData;
  2164.  
  2165.  
  2166.   {$EXTERNALSYM IEnumSTATDATA}
  2167.   IEnumSTATDATA = interface(IUnknown)
  2168.     ['{00000105-0000-0000-C000-000000000046}']
  2169.     function Next(celt: Longint; out elt;
  2170.       pceltFetched: PLongint): HResult; stdcall;
  2171.     function Skip(celt: Longint): HResult; stdcall;
  2172.     function Reset: HResult; stdcall;
  2173.     function Clone(out Enum: IEnumStatData): HResult; stdcall;
  2174.   end;
  2175.  
  2176. { IRootStorage interface }
  2177.  
  2178.   {$EXTERNALSYM IRootStorage}
  2179.   IRootStorage = interface(IUnknown)
  2180.     ['{00000012-0000-0000-C000-000000000046}']
  2181.     function SwitchToFile(pszFile: POleStr): HResult; stdcall;
  2182.   end;
  2183.  
  2184. { IAdviseSink interface }
  2185.  
  2186.   PRemStgMedium = ^TRemStgMedium;
  2187.   {$EXTERNALSYM tagRemSTGMEDIUM}
  2188.   tagRemSTGMEDIUM = record
  2189.     tymed: Longint;
  2190.     dwHandleType: Longint;
  2191.     pData: Longint;
  2192.     pUnkForRelease: Longint;
  2193.     cbData: Longint;
  2194.     data: record end;
  2195.   end;
  2196.   TRemStgMedium = tagRemSTGMEDIUM;
  2197.   {$EXTERNALSYM RemSTGMEDIUM}
  2198.   RemSTGMEDIUM = TRemStgMedium;
  2199.  
  2200.  
  2201.   PStgMedium = ^TStgMedium;
  2202.   {$EXTERNALSYM tagSTGMEDIUM}
  2203.   tagSTGMEDIUM = record
  2204.     tymed: Longint;
  2205.     case Integer of
  2206.       0: (hBitmap: HBitmap; unkForRelease: Pointer{IUnknown});
  2207.       1: (hMetaFilePict: THandle);
  2208.       2: (hEnhMetaFile: THandle);
  2209.       3: (hGlobal: HGlobal);
  2210.       4: (lpszFileName: POleStr);
  2211.       5: (stm: Pointer{IStream});
  2212.       6: (stg: Pointer{IStorage});
  2213.   end;
  2214.   TStgMedium = tagSTGMEDIUM;
  2215.   {$EXTERNALSYM STGMEDIUM}
  2216.   STGMEDIUM = TStgMedium;
  2217.  
  2218.  
  2219.   {$EXTERNALSYM IAdviseSink}
  2220.   IAdviseSink = interface(IUnknown)
  2221.     ['{0000010F-0000-0000-C000-000000000046}']
  2222.     procedure OnDataChange(const formatetc: TFormatEtc; const stgmed: TStgMedium);
  2223.       stdcall;
  2224.     procedure OnViewChange(dwAspect: Longint; lindex: Longint);
  2225.       stdcall;
  2226.     procedure OnRename(const mk: IMoniker); stdcall;
  2227.     procedure OnSave; stdcall;
  2228.     procedure OnClose; stdcall;
  2229.   end;
  2230.  
  2231. { IAdviseSink2 interface }
  2232.  
  2233.   {$EXTERNALSYM IAdviseSink2}
  2234.   IAdviseSink2 = interface(IAdviseSink)
  2235.     ['{00000125-0000-0000-C000-000000000046}']
  2236.     procedure OnLinkSrcChange(const mk: IMoniker); stdcall;
  2237.   end;
  2238.  
  2239. { IDataObject interface }
  2240.  
  2241.   {$EXTERNALSYM IDataObject}
  2242.   IDataObject = interface(IUnknown)
  2243.     ['{0000010E-0000-0000-C000-000000000046}']
  2244.     function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium):
  2245.       HResult; stdcall;
  2246.     function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium):
  2247.       HResult; stdcall;
  2248.     function QueryGetData(const formatetc: TFormatEtc): HResult;
  2249.       stdcall;
  2250.     function GetCanonicalFormatEtc(const formatetc: TFormatEtc;
  2251.       out formatetcOut: TFormatEtc): HResult; stdcall;
  2252.     function SetData(const formatetc: TFormatEtc; var medium: TStgMedium;
  2253.       fRelease: BOOL): HResult; stdcall;
  2254.     function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:
  2255.       IEnumFormatEtc): HResult; stdcall;
  2256.     function DAdvise(const formatetc: TFormatEtc; advf: Longint;
  2257.       const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;
  2258.     function DUnadvise(dwConnection: Longint): HResult; stdcall;
  2259.     function EnumDAdvise(out enumAdvise: IEnumStatData): HResult;
  2260.       stdcall;
  2261.   end;
  2262.  
  2263. { IDataAdviseHolder interface }
  2264.  
  2265.   {$EXTERNALSYM IDataAdviseHolder}
  2266.   IDataAdviseHolder = interface(IUnknown)
  2267.     ['{00000110-0000-0000-C000-000000000046}']
  2268.     function Advise(const dataObject: IDataObject; const fetc: TFormatEtc;
  2269.       advf: Longint; const advise: IAdviseSink; out pdwConnection: Longint): HResult;
  2270.       stdcall;
  2271.     function Unadvise(dwConnection: Longint): HResult; stdcall;
  2272.     function EnumAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;
  2273.     function SendOnDataChange(const dataObject: IDataObject; dwReserved: Longint;
  2274.       advf: Longint): HResult; stdcall;
  2275.   end;
  2276.  
  2277. { IMessageFilter interface }
  2278.  
  2279.   PInterfaceInfo = ^TInterfaceInfo;
  2280.   {$EXTERNALSYM tagINTERFACEINFO}
  2281.   tagINTERFACEINFO = record
  2282.     unk: IUnknown;
  2283.     iid: TIID;
  2284.     wMethod: Word;
  2285.   end;
  2286.   TInterfaceInfo = tagINTERFACEINFO;
  2287.   {$EXTERNALSYM INTERFACEINFO}
  2288.   INTERFACEINFO = TInterfaceInfo;
  2289.  
  2290.  
  2291.   {$EXTERNALSYM IMessageFilter}
  2292.   IMessageFilter = interface(IUnknown)
  2293.     ['{00000016-0000-0000-C000-000000000046}']
  2294.     function HandleInComingCall(dwCallType: Longint; htaskCaller: HTask;
  2295.       dwTickCount: Longint; lpInterfaceInfo: PInterfaceInfo): Longint;
  2296.       stdcall;
  2297.     function RetryRejectedCall(htaskCallee: HTask; dwTickCount: Longint;
  2298.       dwRejectType: Longint): Longint; stdcall;
  2299.     function MessagePending(htaskCallee: HTask; dwTickCount: Longint;
  2300.       dwPendingType: Longint): Longint; stdcall;
  2301.   end;
  2302.  
  2303. { IRpcChannelBuffer interface }
  2304.  
  2305.   TRpcOleDataRep = DWORD;
  2306.  
  2307.   PRpcOleMessage = ^TRpcOleMessage;
  2308.   {$EXTERNALSYM tagRPCOLEMESSAGE}
  2309.   tagRPCOLEMESSAGE = record
  2310.     reserved1: Pointer;
  2311.     dataRepresentation: TRpcOleDataRep;
  2312.     Buffer: Pointer;
  2313.     cbBuffer: Longint;
  2314.     iMethod: Longint;
  2315.     reserved2: array[0..4] of Pointer;
  2316.     rpcFlags: Longint;
  2317.   end;
  2318.   TRpcOleMessage = tagRPCOLEMESSAGE;
  2319.   {$EXTERNALSYM RPCOLEMESSAGE}
  2320.   RPCOLEMESSAGE = TRpcOleMessage;
  2321.  
  2322.  
  2323.   {$EXTERNALSYM IRpcChannelBuffer}
  2324.   IRpcChannelBuffer = interface(IUnknown)
  2325.     ['{D5F56B60-593B-101A-B569-08002B2DBF7A}']
  2326.     function GetBuffer(var message: TRpcOleMessage; iid: TIID): HResult;
  2327.       stdcall;
  2328.     function SendReceive(var message: TRpcOleMessage;
  2329.       var status: Longint): HResult; stdcall;
  2330.     function FreeBuffer(var message: TRpcOleMessage): HResult;
  2331.       stdcall;
  2332.     function GetDestCtx(out dwDestContext: Longint;
  2333.       out pvDestContext): HResult; stdcall;
  2334.     function IsConnected: HResult; stdcall;
  2335.   end;
  2336.  
  2337. { IRpcProxyBuffer interface }
  2338.  
  2339.   {$EXTERNALSYM IRpcProxyBuffer}
  2340.   IRpcProxyBuffer = interface(IUnknown)
  2341.     ['{D5F56A34-593B-101A-B569-08002B2DBF7A}']
  2342.     function Connect(const rpcChannelBuffer: IRpcChannelBuffer): HResult;
  2343.       stdcall;
  2344.     procedure Disconnect; stdcall;
  2345.   end;
  2346.  
  2347. { IRpcStubBuffer interface }
  2348.  
  2349.   {$EXTERNALSYM IRpcStubBuffer}
  2350.   IRpcStubBuffer = interface(IUnknown)
  2351.     ['{D5F56AFC-593B-101A-B569-08002B2DBF7A}']
  2352.     function Connect(const unkServer: IUnknown): HResult; stdcall;
  2353.     procedure Disconnect; stdcall;
  2354.     function Invoke(var rpcmsg: TRpcOleMessage; rpcChannelBuffer:
  2355.       IRpcChannelBuffer): HResult; stdcall;
  2356.     function IsIIDSupported(const iid: TIID): Pointer{IRpcStubBuffer};
  2357.       stdcall;
  2358.     function CountRefs: Longint; stdcall;
  2359.     function DebugServerQueryInterface(var pv): HResult;
  2360.       stdcall;
  2361.     procedure DebugServerRelease(pv: Pointer); stdcall;
  2362.   end;
  2363.  
  2364. { IPSFactoryBuffer interface }
  2365.  
  2366.   {$EXTERNALSYM IPSFactoryBuffer}
  2367.   IPSFactoryBuffer = interface(IUnknown)
  2368.     ['{D5F569D0-593B-101A-B569-08002B2DBF7A}']
  2369.     function CreateProxy(const unkOuter: IUnknown; const iid: TIID;
  2370.       out proxy: IRpcProxyBuffer; out pv): HResult; stdcall;
  2371.     function CreateStub(const iid: TIID; const unkServer: IUnknown;
  2372.       out stub: IRpcStubBuffer): HResult; stdcall;
  2373.   end;
  2374.  
  2375.   {$EXTERNALSYM IChannelHook}
  2376.   IChannelHook = interface(IUnknown)
  2377.     ['{1008C4A0-7613-11CF-9AF1-0020AF6E72F4}']
  2378.     procedure ClientGetSize(const uExtent: TGUID; const iid: TIID;
  2379.       out DataSize: Longint); stdcall;
  2380.     procedure ClientFillBuffer(const uExtent: TGUID; const iid: TIID;
  2381.       var DataSize: Longint; var DataBuffer); stdcall;
  2382.     procedure ClientNotify(const uExtent: TGUID; const iid: TIID;
  2383.       DataSize: Longint; var DataBuffer; lDataRep: Longint;
  2384.       hrFault: HResult); stdcall;
  2385.     procedure ServerNotify(const uExtent: TGUID; const iid: TIID;
  2386.       DataSize: Longint; var DataBuffer; lDataRep: Longint); stdcall;
  2387.     procedure ServerGetSize(const uExtent: TGUID; const iid: TIID;
  2388.       hrFault: HResult; out DataSize: Longint); stdcall;
  2389.     procedure ServerFillBuffer(const uExtent: TGUID; const iid: TIID;
  2390.       var DataSize: Longint; var DataBuffer; hrFault: HResult); stdcall;
  2391.   end;
  2392.  
  2393.   {$EXTERNALSYM IFillLockBytes}
  2394.   IFillLockBytes = interface(IUnknown)
  2395.     ['{99CAF010-415E-11CF-8814-00AA00B569F5}']
  2396.     function FillAppend(const pv; cb: Longint;
  2397.       out cbWritten: Longint): HResult; stdcall;
  2398.     function FillAt(Offset: Longint; const pv; cb: Longint;
  2399.       out cbWritten: Longint): HResult; stdcall;
  2400.     function SetFillSize(Offset: Longint): HResult; stdcall;
  2401.     function Terminate(bCanceled: Boolean): HResult; stdcall;
  2402.   end;
  2403.  
  2404. { Automation types }
  2405.  
  2406.   PBStr = ^TBStr;
  2407.   TBStr = POleStr;
  2408.  
  2409.   PBStrList = ^TBStrList;
  2410.   TBStrList = array[0..65535] of TBStr;
  2411.  
  2412.   PComp = ^Comp;
  2413.  
  2414. { from WTYPES.H }
  2415.   PDecimal = ^TDecimal;
  2416.   {$EXTERNALSYM tagDEC}
  2417.   tagDEC = packed record
  2418.     wReserved: Word;
  2419.     case Integer of
  2420.       0: (scale, sign: Byte; Hi32: Longint;
  2421.       case Integer of
  2422.         0: (Lo32, Mid32: Longint);
  2423.         1: (Lo64: LONGLONG));
  2424.       1: (signscale: Word);
  2425.   end;
  2426.   TDecimal = tagDEC;
  2427.   {$EXTERNALSYM DECIMAL}
  2428.   DECIMAL = TDecimal;
  2429.  
  2430.   (* tagBLOB related types cause problem due to two definitions of BLOB in wtypes.h/nspapi.h *)
  2431.   (* Investigating something that will always work even when a BLOB is not a tagBLOB         *)
  2432.   {$EXTERNALSYM PBlob}
  2433.   PBlob = ^TBlob;
  2434.   {$EXTERNALSYM tagBLOB}
  2435.   tagBLOB = record
  2436.     cbSize: Longint;
  2437.     pBlobData: Pointer;
  2438.   end;
  2439.   (* tagBLOB related types cause problem due to two definitions of BLOB in wtypes.h/nspapi.h *)
  2440.   (* Investigating something that will always work even when a BLOB is not a tagBLOB         *)
  2441.   {$EXTERNALSYM TBlob}
  2442.   TBlob = tagBLOB;
  2443.   {$EXTERNALSYM BLOB}
  2444.   BLOB = TBlob;
  2445.  
  2446.   PClipData = ^TClipData;
  2447.   {$EXTERNALSYM tagCLIPDATA}
  2448.   tagCLIPDATA = record
  2449.     cbSize: Longint;
  2450.     ulClipFmt: Longint;
  2451.     pClipData: Pointer;
  2452.   end;
  2453.   TClipData = tagCLIPDATA;
  2454.   {$EXTERNALSYM CLIPDATA}
  2455.   CLIPDATA = TClipData;
  2456.  
  2457. { IPropertyStorage / IPropertySetStorage }
  2458.  
  2459.   PPropVariant = ^TPropVariant;
  2460.  
  2461.   {$EXTERNALSYM tagCAUB}
  2462.   tagCAUB = packed record
  2463.     cElems: ULONG;
  2464.     pElems: PByte;
  2465.   end;
  2466.   {$EXTERNALSYM CAUB}
  2467.   CAUB = tagCAUB;
  2468.   PCAUB = ^TCAUB;
  2469.   TCAUB = tagCAUB;
  2470.                          
  2471.   {$EXTERNALSYM tagCAI}
  2472.   tagCAI = packed record
  2473.     cElems: ULONG;
  2474.     pElems: PShortInt;
  2475.   end;
  2476.   {$EXTERNALSYM CAI}
  2477.   CAI = tagCAI;
  2478.   PCAI = ^TCAI;
  2479.   TCAI = tagCAI;
  2480.  
  2481.   {$EXTERNALSYM tagCAUI}
  2482.   tagCAUI = packed record
  2483.     cElems: ULONG;
  2484.     pElems: PWord;
  2485.   end;
  2486.   {$EXTERNALSYM CAUI}
  2487.   CAUI = tagCAUI;
  2488.   PCAUI = ^TCAUI;
  2489.   TCAUI = tagCAUI;
  2490.  
  2491.   {$EXTERNALSYM tagCAL}
  2492.   tagCAL = packed record
  2493.     cElems: ULONG;
  2494.     pElems: PLongint;
  2495.   end;
  2496.   {$EXTERNALSYM CAL}
  2497.   CAL = tagCAL;
  2498.   PCAL = ^TCAL;
  2499.   TCAL = tagCAL;
  2500.  
  2501.   {$EXTERNALSYM tagCAUL}
  2502.   tagCAUL = packed record
  2503.     cElems: ULONG;
  2504.     pElems: PULONG;
  2505.   end;
  2506.   {$EXTERNALSYM CAUL}
  2507.   CAUL = tagCAUL;
  2508.   PCAUL = ^TCAUL;
  2509.   TCAUL = tagCAUL;
  2510.  
  2511.   {$EXTERNALSYM tagCAFLT}
  2512.   tagCAFLT = packed record
  2513.     cElems: ULONG;
  2514.     pElems: PSingle;
  2515.   end;
  2516.   {$EXTERNALSYM CAFLT}
  2517.   CAFLT = tagCAFLT;
  2518.   PCAFLT = ^TCAFLT;
  2519.   TCAFLT = tagCAFLT;
  2520.  
  2521.   {$EXTERNALSYM tagCADBL}
  2522.   tagCADBL = packed record
  2523.     cElems: ULONG;
  2524.     pElems: PDouble;
  2525.   end;
  2526.   {$EXTERNALSYM CADBL}
  2527.   CADBL = tagCADBL;
  2528.   PCADBL = ^TCADBL;
  2529.   TCADBL = tagCADBL;
  2530.  
  2531.   {$EXTERNALSYM tagCACY}
  2532.   tagCACY = packed record
  2533.     cElems: ULONG;
  2534.     pElems: PCurrency;
  2535.   end;
  2536.   {$EXTERNALSYM CACY}
  2537.   CACY = tagCACY;
  2538.   PCACY = ^TCACY;
  2539.   TCACY = tagCACY;
  2540.  
  2541.   {$EXTERNALSYM tagCADATE}
  2542.   tagCADATE = packed record
  2543.     cElems: ULONG;
  2544.     pElems: POleDate;
  2545.   end;
  2546.   {$EXTERNALSYM CADATE}
  2547.   CADATE = tagCADATE;
  2548.   PCADATE = ^TCADATE;
  2549.   TCADATE = tagCADATE;
  2550.  
  2551.   {$EXTERNALSYM tagCABSTR}
  2552.   tagCABSTR = packed record
  2553.     cElems: ULONG;
  2554.     pElems: PBSTR;
  2555.   end;
  2556.   {$EXTERNALSYM CABSTR}
  2557.   CABSTR = tagCABSTR;
  2558.   PCABSTR = ^TCABSTR;
  2559.   TCABSTR = tagCABSTR;
  2560.  
  2561.   {$EXTERNALSYM tagCABOOL}
  2562.   tagCABOOL = packed record
  2563.     cElems: ULONG;
  2564.     pElems: POleBool;
  2565.   end;
  2566.   {$EXTERNALSYM CABOOL}
  2567.   CABOOL = tagCABOOL;
  2568.   PCABOOL = ^TCABOOL;
  2569.   TCABOOL = tagCABOOL;
  2570.  
  2571.   {$EXTERNALSYM tagCASCODE}
  2572.   tagCASCODE = packed record
  2573.     cElems: ULONG;
  2574.     pElems: PSCODE;
  2575.   end;
  2576.   {$EXTERNALSYM CASCODE}
  2577.   CASCODE = tagCASCODE;
  2578.   PCASCODE = ^TCASCODE;
  2579.   TCASCODE = tagCASCODE;
  2580.  
  2581.   {$EXTERNALSYM tagCAPROPVARIANT}
  2582.   tagCAPROPVARIANT = packed record
  2583.     cElems: ULONG;
  2584.     pElems: PPropVariant;
  2585.   end;
  2586.   {$EXTERNALSYM CAPROPVARIANT}
  2587.   CAPROPVARIANT = tagCAPROPVARIANT;
  2588.   PCAPROPVARIANT = ^TCAPROPVARIANT;
  2589.   TCAPROPVARIANT = tagCAPROPVARIANT;
  2590.  
  2591.   {$EXTERNALSYM tagCAH}
  2592.   tagCAH = packed record
  2593.     cElems: ULONG;
  2594.     pElems: PLargeInteger;
  2595.   end;
  2596.   {$EXTERNALSYM CAH}
  2597.   CAH = tagCAH;
  2598.   PCAH = ^TCAH;
  2599.   TCAH = tagCAH;
  2600.  
  2601.   {$EXTERNALSYM tagCAUH}
  2602.   tagCAUH = packed record
  2603.     cElems: ULONG;
  2604.     pElems: PULargeInteger;
  2605.   end;
  2606.   {$EXTERNALSYM CAUH}
  2607.   CAUH = tagCAUH;
  2608.   PCAUH = ^TCAUH;
  2609.   TCAUH = tagCAUH;
  2610.  
  2611.   {$EXTERNALSYM tagCALPSTR}
  2612.   tagCALPSTR = packed record
  2613.     cElems: ULONG;
  2614.     pElems: PLPSTR;
  2615.   end;
  2616.   {$EXTERNALSYM CALPSTR}
  2617.   CALPSTR = tagCALPSTR;
  2618.   PCALPSTR = ^TCALPSTR;
  2619.   TCALPSTR = tagCALPSTR;
  2620.  
  2621.   {$EXTERNALSYM tagCALPWSTR}
  2622.   tagCALPWSTR = packed record
  2623.     cElems: ULONG;
  2624.     pElems: PLPWSTR;
  2625.   end;
  2626.   {$EXTERNALSYM CALPWSTR}
  2627.   CALPWSTR = tagCALPWSTR;
  2628.   PCALPWSTR = ^TCALPWSTR;
  2629.   TCALPWSTR = tagCALPWSTR;
  2630.  
  2631.   {$EXTERNALSYM tagCAFILETIME}
  2632.   tagCAFILETIME = packed record
  2633.     cElems: ULONG;
  2634.     pElems: PFileTime;
  2635.   end;
  2636.   {$EXTERNALSYM CAFILETIME}
  2637.   CAFILETIME = tagCAFILETIME;
  2638.   PCAFILETIME = ^TCAFILETIME;
  2639.   TCAFILETIME = tagCAFILETIME;
  2640.  
  2641.   {$EXTERNALSYM tagCACLIPDATA}
  2642.   tagCACLIPDATA = packed record
  2643.     cElems: ULONG;
  2644.     pElems: PClipData;
  2645.   end;
  2646.   {$EXTERNALSYM CACLIPDATA}
  2647.   CACLIPDATA = tagCACLIPDATA;
  2648.   PCACLIPDATA = ^TCACLIPDATA;
  2649.   TCACLIPDATA = tagCACLIPDATA;
  2650.  
  2651.   {$EXTERNALSYM tagCACLSID}
  2652.   tagCACLSID = packed record
  2653.     cElems: ULONG;
  2654.     pElems: PCLSID;
  2655.   end;
  2656.   {$EXTERNALSYM CACLSID}
  2657.   CACLSID = tagCACLSID;
  2658.   PCACLSID = ^TCACLSID;
  2659.   TCACLSID = tagCACLSID;
  2660.  
  2661.   {$EXTERNALSYM tagPROPVARIANT}
  2662.   tagPROPVARIANT = packed record
  2663.     vt: TVarType;
  2664.     wReserved1: Word;
  2665.     wReserved2: Word;
  2666.     wReserved3: Word;
  2667.     case Integer of
  2668.       0: (bVal: Byte);
  2669.       1: (iVal: SmallInt);
  2670.       2: (uiVal: Word);
  2671.       3: (boolVal: TOleBool);
  2672.       4: (bool: TOleBool);
  2673.       5: (lVal: Longint);
  2674.       6: (ulVal: Cardinal);
  2675.       7: (fltVal: Single);
  2676.       8: (scode: SCODE);
  2677.       9: (hVal: LARGE_INTEGER);
  2678.       10: (uhVal: ULARGE_INTEGER);
  2679.       11: (dblVal: Double);
  2680.       12: (cyVal: Currency);
  2681.       13: (date: TOleDate);
  2682.       14: (filetime: TFileTime);
  2683.       15: (puuid: PGUID);
  2684.       16: (blob: TBlob);
  2685.       17: (pclipdata: PClipData);
  2686.       18: (pStream: Pointer{IStream});
  2687.       19: (pStorage: Pointer{IStorage});
  2688.       20: (bstrVal: TBStr);
  2689.       21: (pszVal: PAnsiChar);
  2690.       22: (pwszVal: PWideChar);
  2691.       23: (caub: TCAUB);
  2692.       24: (cai: TCAI);
  2693.       25: (caui: TCAUI);
  2694.       26: (cabool: TCABOOL);
  2695.       27: (cal: TCAL);
  2696.       28: (caul: TCAUL);
  2697.       29: (caflt: TCAFLT);
  2698.       30: (cascode: TCASCODE);
  2699.       31: (cah: TCAH);
  2700.       32: (cauh: TCAUH);
  2701.       33: (cadbl: TCADBL);
  2702.       34: (cacy: TCACY);
  2703.       35: (cadate: TCADATE);
  2704.       36: (cafiletime: TCAFILETIME);
  2705.       37: (cauuid: TCACLSID);
  2706.       38: (caclipdata: TCACLIPDATA);
  2707.       39: (cabstr: TCABSTR);
  2708.       40: (calpstr: TCALPSTR);
  2709.       41: (calpwstr: TCALPWSTR );
  2710.       42: (capropvar: TCAPROPVARIANT);
  2711.   end;
  2712.   {$EXTERNALSYM PROPVARIANT}
  2713.   PROPVARIANT = tagPROPVARIANT;
  2714.   TPropVariant = tagPROPVARIANT;
  2715.  
  2716.   {$EXTERNALSYM tagPROPSPEC}
  2717.   tagPROPSPEC = packed record
  2718.     ulKind: ULONG;
  2719.     case Integer of
  2720.       0: (propid: TPropID);
  2721.       1: (lpwstr: POleStr);
  2722.   end;
  2723.   {$EXTERNALSYM PROPSPEC}
  2724.   PROPSPEC = tagPROPSPEC;
  2725.   PPropSpec = ^TPropSpec;
  2726.   TPropSpec = tagPROPSPEC;
  2727.  
  2728.   {$EXTERNALSYM tagSTATPROPSTG}
  2729.   tagSTATPROPSTG = record
  2730.     lpwstrName: POleStr;
  2731.     propid: TPropID;
  2732.     vt: TVarType;
  2733.   end;
  2734.   {$EXTERNALSYM STATPROPSTG}
  2735.   STATPROPSTG = tagSTATPROPSTG;
  2736.   PStatPropStg = ^TStatPropStg;
  2737.   TStatPropStg = tagSTATPROPSTG;
  2738.  
  2739.   {$EXTERNALSYM tagSTATPROPSETSTG}
  2740.   tagSTATPROPSETSTG = packed record
  2741.     fmtid: TFmtID;
  2742.     clsid: TClsID;
  2743.     grfFlags: DWORD;
  2744.     mtime: TFileTime;
  2745.     ctime: TFileTime;
  2746.     atime: TFileTime;
  2747.     dwOSVersion: DWORD;
  2748.   end;
  2749.   {$EXTERNALSYM STATPROPSETSTG}
  2750.   STATPROPSETSTG = tagSTATPROPSETSTG;
  2751.   PStatPropSetStg = ^TStatPropSetStg;
  2752.   TStatPropSetStg = tagSTATPROPSETSTG;
  2753.  
  2754.   {$EXTERNALSYM IPropertyStorage}
  2755.   IPropertyStorage = interface(IUnknown)
  2756.     ['{00000138-0000-0000-C000-000000000046}']
  2757.     function ReadMultiple(cpspec: ULONG; rgpspec : PPropSpec; rgpropvar: PPropVariant): HResult; stdcall;
  2758.     function WriteMultiple(cpspec: ULONG; rgpspec : PPropSpec; rgpropvar: PPropVariant;
  2759.       propidNameFirst: TPropID): HResult; stdcall;
  2760.     function DeleteMultiple(cpspec: ULONG; rgpspec: PPropSpec): HResult; stdcall;
  2761.     function ReadPropertyNames(cpropid: ULONG; rgpropid: PPropID;
  2762.       rglpwstrName: PPOleStr): HResult; stdcall;
  2763.     function WritePropertyNames(cpropid: ULONG; rgpropid: PPropID;
  2764.       rglpwstrName: PPOleStr): HResult; stdcall;
  2765.     function DeletePropertyNames(cpropid: ULONG; rgpropid: PPropID): HResult; stdcall;
  2766.     function Commit(grfCommitFlags: DWORD): HResult; stdcall;
  2767.     function Revert: HResult; stdcall;
  2768.     function Enum(out ppenum: IEnumSTATPROPSTG): HResult; stdcall;
  2769.     function SetTimes(const pctime, patime, pmtime: TFileTime): HResult; stdcall;
  2770.     function SetClass(const clsid: TCLSID): HResult; stdcall;
  2771.     function Stat(pstatpsstg: PStatPropSetStg): HResult; stdcall;
  2772.   end;
  2773.  
  2774.   {$EXTERNALSYM IPropertySetStorage}
  2775.   IPropertySetStorage = interface(IUnknown)
  2776.     ['{0000013A-0000-0000-C000-000000000046}']
  2777.     function Create(const rfmtid: TFmtID; const pclsid: TCLSID; grfFlags,
  2778.       grfMode: DWORD; out ppprstg: IPropertyStorage): HResult; stdcall;
  2779.     function Open(const rfmtid: TFmtID; grfMode: DWORD;
  2780.       out ppprstg: IPropertyStorage): HResult; stdcall;
  2781.     function Delete(const rfmtid: TFmtID): HResult; stdcall;
  2782.     function Enum(out ppenum: IEnumSTATPROPSETSTG): HResult; stdcall;
  2783.   end;
  2784.  
  2785.   {$EXTERNALSYM IEnumSTATPROPSTG}
  2786.   IEnumSTATPROPSTG = interface(IUnknown)
  2787.     ['{00000139-0000-0000-C000-000000000046}']
  2788.     function Next(celt: ULONG; out rgelt; pceltFetched: PULONG): HResult; stdcall;
  2789.     function Skip(celt: ULONG): HResult; stdcall;
  2790.     function Reset: HResult; stdcall;
  2791.     function Clone(out ppenum: IEnumSTATPROPSTG): HResult; stdcall;
  2792.   end;
  2793.  
  2794.   {$EXTERNALSYM IEnumSTATPROPSETSTG}
  2795.   IEnumSTATPROPSETSTG = interface(IUnknown)
  2796.     ['{0000013B-0000-0000-C000-000000000046}']
  2797.     function Next(celt: ULONG; out rgelt; pceltFetched: PULONG): HResult; stdcall;
  2798.     function Skip(celt: ULONG): HResult; stdcall;
  2799.     function Reset: HResult; stdcall;
  2800.     function Clone(out ppenum: IEnumSTATPROPSETSTG): HResult; stdcall;
  2801.   end;
  2802.  
  2803. { from OAIDL.H }
  2804.  
  2805.   PVariantArg = ^TVariantArg;
  2806.   {$EXTERNALSYM tagVARIANT}
  2807.   tagVARIANT = record
  2808.     vt: TVarType;
  2809.     wReserved1: Word;
  2810.     wReserved2: Word;
  2811.     wReserved3: Word;
  2812.     case Integer of
  2813.       VT_UI1:                  (bVal: Byte);
  2814.       VT_I2:                   (iVal: Smallint);
  2815.       VT_I4:                   (lVal: Longint);
  2816.       VT_R4:                   (fltVal: Single);
  2817.       VT_R8:                   (dblVal: Double);
  2818.       VT_BOOL:                 (vbool: TOleBool);
  2819.       VT_ERROR:                (scode: HResult);
  2820.       VT_CY:                   (cyVal: Currency);
  2821.       VT_DATE:                 (date: TOleDate);
  2822.       VT_BSTR:                 (bstrVal: PWideChar{WideString});
  2823.       VT_UNKNOWN:              (unkVal: Pointer{IUnknown});
  2824.       VT_DISPATCH:             (dispVal: Pointer{IDispatch});
  2825.       VT_ARRAY:                (parray: PSafeArray);
  2826.       VT_BYREF or VT_UI1:      (pbVal: ^Byte);
  2827.       VT_BYREF or VT_I2:       (piVal: ^Smallint);
  2828.       VT_BYREF or VT_I4:       (plVal: ^Longint);
  2829.       VT_BYREF or VT_R4:       (pfltVal: ^Single);
  2830.       VT_BYREF or VT_R8:       (pdblVal: ^Double);
  2831.       VT_BYREF or VT_BOOL:     (pbool: ^TOleBool);
  2832.       VT_BYREF or VT_ERROR:    (pscode: ^HResult);
  2833.       VT_BYREF or VT_CY:       (pcyVal: ^Currency);
  2834.       VT_BYREF or VT_DATE:     (pdate: ^TOleDate);
  2835.       VT_BYREF or VT_BSTR:     (pbstrVal: ^WideString);
  2836.       VT_BYREF or VT_UNKNOWN:  (punkVal: ^IUnknown);
  2837.       VT_BYREF or VT_DISPATCH: (pdispVal: ^IDispatch);
  2838.       VT_BYREF or VT_ARRAY:    (pparray: ^PSafeArray);
  2839.       VT_BYREF or VT_VARIANT:  (pvarVal: PVariant);
  2840.       VT_BYREF:                (byRef: Pointer);
  2841.       VT_I1:                   (cVal: Char);
  2842.       VT_UI2:                  (uiVal: Word);
  2843.       VT_UI4:                  (ulVal: LongWord);
  2844.       VT_INT:                  (intVal: Integer);
  2845.       VT_UINT:                 (uintVal: LongWord);
  2846.       VT_BYREF or VT_DECIMAL:  (pdecVal: PDecimal);
  2847.       VT_BYREF or VT_I1:       (pcVal: PChar);
  2848.       VT_BYREF or VT_UI2:      (puiVal: PWord);
  2849.       VT_BYREF or VT_UI4:      (pulVal: PInteger);
  2850.       VT_BYREF or VT_INT:      (pintVal: PInteger);
  2851.       VT_BYREF or VT_UINT:     (puintVal: PLongWord);
  2852.   end;
  2853.   TVariantArg = tagVARIANT;
  2854.  
  2855.  
  2856.   PVariantArgList = ^TVariantArgList;
  2857.   TVariantArgList = array[0..65535] of TVariantArg;
  2858.  
  2859.   TDispID = Longint;
  2860.  
  2861.   PDispIDList = ^TDispIDList;
  2862.   TDispIDList = array[0..65535] of TDispID;
  2863.  
  2864.   TMemberID = TDispID;
  2865.  
  2866.   PMemberIDList = ^TMemberIDList;
  2867.   TMemberIDList = array[0..65535] of TMemberID;
  2868.  
  2869.   HRefType = DWORD;
  2870.  
  2871.   {$EXTERNALSYM tagTYPEKIND}
  2872.   tagTYPEKIND = DWORD;
  2873.   TTypeKind = tagTYPEKIND;
  2874.  
  2875.   PArrayDesc = ^TArrayDesc;
  2876.  
  2877.   PTypeDesc = ^TTypeDesc;
  2878.   {$EXTERNALSYM tagTYPEDESC}
  2879.   tagTYPEDESC = record
  2880.     case Integer of
  2881.       VT_PTR:         (ptdesc: PTypeDesc; vt: TVarType);
  2882.       VT_CARRAY:      (padesc: PArrayDesc);
  2883.       VT_USERDEFINED: (hreftype: HRefType);
  2884.   end;
  2885.   TTypeDesc = tagTYPEDESC;
  2886.   {$EXTERNALSYM TYPEDESC}
  2887.   TYPEDESC = TTypeDesc;
  2888.  
  2889.  
  2890.   {$EXTERNALSYM tagARRAYDESC}
  2891.   tagARRAYDESC = record
  2892.     tdescElem: TTypeDesc;
  2893.     cDims: Word;
  2894.     rgbounds: array[0..0] of TSafeArrayBound;
  2895.   end;
  2896.   TArrayDesc = tagARRAYDESC;
  2897.   {$EXTERNALSYM ARRAYDESC}
  2898.   ARRAYDESC = TArrayDesc;
  2899.  
  2900.  
  2901.   PIDLDesc = ^TIDLDesc;
  2902.   {$EXTERNALSYM tagIDLDESC}
  2903.   tagIDLDESC = record
  2904.     dwReserved: Longint;
  2905.     wIDLFlags: Word;
  2906.   end;
  2907.   TIDLDesc = tagIDLDESC;
  2908.   {$EXTERNALSYM IDLDESC}
  2909.   IDLDESC = TIDLDesc;
  2910.  
  2911.  
  2912.   PParamDescEx = ^TParamDescEx;
  2913.   {$EXTERNALSYM tagPARAMDESCEX}
  2914.   tagPARAMDESCEX = record
  2915.     cBytes: Longint;
  2916.     FourBytePad: Longint;
  2917.     varDefaultValue: TVariantArg;
  2918.   end;
  2919.   TParamDescEx = tagPARAMDESCEX;
  2920.   {$EXTERNALSYM PARAMDESCEX}
  2921.   PARAMDESCEX = TParamDescEx;
  2922.  
  2923.  
  2924.   PParamDesc = ^TParamDesc;
  2925.   {$EXTERNALSYM tagPARAMDESC}
  2926.   tagPARAMDESC = record
  2927.     pparamdescex: PParamDescEx;
  2928.     wParamFlags: Word;
  2929.   end;
  2930.   TParamDesc = tagPARAMDESC;
  2931.   {$EXTERNALSYM PARAMDESC}
  2932.   PARAMDESC = TParamDesc;
  2933.  
  2934.  
  2935.   PElemDesc = ^TElemDesc;
  2936.   {$EXTERNALSYM tagELEMDESC}
  2937.   tagELEMDESC = record
  2938.     tdesc: TTypeDesc;
  2939.     case Integer of
  2940.       0: (idldesc: TIDLDesc);
  2941.       1: (paramdesc: TParamDesc);
  2942.   end;
  2943.   TElemDesc = tagELEMDESC;
  2944.   {$EXTERNALSYM ELEMDESC}
  2945.   ELEMDESC = TElemDesc;
  2946.  
  2947.  
  2948.   PElemDescList = ^TElemDescList;
  2949.   TElemDescList = array[0..65535] of TElemDesc;
  2950.  
  2951.  
  2952.   PTypeAttr = ^TTypeAttr;
  2953.   {$EXTERNALSYM tagTYPEATTR}
  2954.   tagTYPEATTR = record
  2955.     guid: TGUID;
  2956.     lcid: TLCID;
  2957.     dwReserved: Longint;
  2958.     memidConstructor: TMemberID;
  2959.     memidDestructor: TMemberID;
  2960.     lpstrSchema: POleStr;
  2961.     cbSizeInstance: Longint;
  2962.     typekind: TTypeKind;
  2963.     cFuncs: Word;
  2964.     cVars: Word;
  2965.     cImplTypes: Word;
  2966.     cbSizeVft: Word;
  2967.     cbAlignment: Word;
  2968.     wTypeFlags: Word;
  2969.     wMajorVerNum: Word;
  2970.     wMinorVerNum: Word;
  2971.     tdescAlias: TTypeDesc;
  2972.     idldescType: TIDLDesc;
  2973.   end;
  2974.   TTypeAttr = tagTYPEATTR;
  2975.   {$EXTERNALSYM TYPEATTR}
  2976.   TYPEATTR = TTypeAttr;
  2977.  
  2978.  
  2979.   PDispParams = ^TDispParams;
  2980.   {$EXTERNALSYM tagDISPPARAMS}
  2981.   tagDISPPARAMS = record
  2982.     rgvarg: PVariantArgList;
  2983.     rgdispidNamedArgs: PDispIDList;
  2984.     cArgs: Longint;
  2985.     cNamedArgs: Longint;
  2986.   end;
  2987.   TDispParams = tagDISPPARAMS;
  2988.   {$EXTERNALSYM DISPPARAMS}
  2989.   DISPPARAMS = TDispParams;
  2990.  
  2991.  
  2992.   PExcepInfo = ^TExcepInfo;
  2993.  
  2994.   {$EXTERNALSYM TFNDeferredFillIn}
  2995.   TFNDeferredFillIn = function(ExInfo: PExcepInfo): HResult stdcall;
  2996.  
  2997.  
  2998.   {$EXTERNALSYM tagEXCEPINFO}
  2999.   tagEXCEPINFO = record
  3000.     wCode: Word;
  3001.     wReserved: Word;
  3002.     bstrSource: WideString;
  3003.     bstrDescription: WideString;
  3004.     bstrHelpFile: WideString;
  3005.     dwHelpContext: Longint;
  3006.     pvReserved: Pointer;
  3007.     pfnDeferredFillIn: TFNDeferredFillIn;
  3008.     scode: HResult;
  3009.   end;
  3010.   TExcepInfo = tagEXCEPINFO;
  3011.   {$EXTERNALSYM EXCEPINFO}
  3012.   EXCEPINFO = TExcepInfo;
  3013.  
  3014.   {$EXTERNALSYM tagFUNCKIND}
  3015.   tagFUNCKIND = Longint;
  3016.   TFuncKind = tagFUNCKIND;
  3017.  
  3018.   {$EXTERNALSYM tagINVOKEKIND}
  3019.   tagINVOKEKIND = Longint;
  3020.   TInvokeKind = tagINVOKEKIND;
  3021.  
  3022.   {$EXTERNALSYM tagCALLCONV}
  3023.   tagCALLCONV = Longint;
  3024.   TCallConv = tagCALLCONV;
  3025.  
  3026.  
  3027.   PFuncDesc = ^TFuncDesc;
  3028.   {$EXTERNALSYM tagFUNCDESC}
  3029.   tagFUNCDESC = record
  3030.     memid: TMemberID;
  3031.     lprgscode: PResultList;
  3032.     lprgelemdescParam: PElemDescList;
  3033.     funckind: TFuncKind;
  3034.     invkind: TInvokeKind;
  3035.     callconv: TCallConv;
  3036.     cParams: Smallint;
  3037.     cParamsOpt: Smallint;
  3038.     oVft: Smallint;
  3039.     cScodes: Smallint;
  3040.     elemdescFunc: TElemDesc;
  3041.     wFuncFlags: Word;
  3042.   end;
  3043.   TFuncDesc = tagFUNCDESC;
  3044.   {$EXTERNALSYM FUNCDESC}
  3045.   FUNCDESC = TFuncDesc;
  3046.  
  3047.  
  3048.   TVarKind = Longint;
  3049.  
  3050.  
  3051.   PVarDesc = ^TVarDesc;
  3052.   {$EXTERNALSYM tagVARDESC}
  3053.   tagVARDESC = record
  3054.     memid: TMemberID;
  3055.     lpstrSchema: POleStr;
  3056.     case Integer of
  3057.       VAR_PERINSTANCE: (
  3058.         oInst: Longint;
  3059.         elemdescVar: TElemDesc;
  3060.         wVarFlags: Word;
  3061.         varkind: TVarKind);
  3062.       VAR_CONST: (
  3063.         lpvarValue: POleVariant);
  3064.   end;
  3065.   TVarDesc = tagVARDESC;
  3066.   {$EXTERNALSYM VARDESC}
  3067.   VARDESC = TVarDesc;
  3068.  
  3069.  
  3070. { ICreateTypeInfo interface }
  3071.  
  3072.   {$EXTERNALSYM ICreateTypeInfo}
  3073.   ICreateTypeInfo = interface(IUnknown)
  3074.     ['{00020405-0000-0000-C000-000000000046}']
  3075.     function SetGuid(const guid: TGUID): HResult; stdcall;
  3076.     function SetTypeFlags(uTypeFlags: Integer): HResult; stdcall;
  3077.     function SetDocString(pstrDoc: POleStr): HResult; stdcall;
  3078.     function SetHelpContext(dwHelpContext: Longint): HResult; stdcall;
  3079.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult;
  3080.       stdcall;
  3081.     function AddRefTypeInfo(const tinfo: ITypeInfo; out reftype: HRefType): HResult;
  3082.       stdcall;
  3083.     function AddFuncDesc(index: Integer; const funcdesc: TFuncDesc): HResult;
  3084.       stdcall;
  3085.     function AddImplType(index: Integer; reftype: HRefType): HResult;
  3086.       stdcall;
  3087.     function SetImplTypeFlags(index: Integer; impltypeflags: Integer): HResult;
  3088.       stdcall;
  3089.     function SetAlignment(cbAlignment: Word): HResult; stdcall;
  3090.     function SetSchema(lpstrSchema: POleStr): HResult; stdcall;
  3091.     function AddVarDesc(index: Integer; const vardesc: TVarDesc): HResult;
  3092.       stdcall;
  3093.     function SetFuncAndParamNames(index: Integer; rgszNames: POleStrList;
  3094.       cNames: Integer): HResult; stdcall;
  3095.     function SetVarName(index: Integer; szName: POleStr): HResult; stdcall;
  3096.     function SetTypeDescAlias(const descAlias: TTypeDesc): HResult; stdcall;
  3097.     function DefineFuncAsDllEntry(index: Integer; szDllName: POleStr;
  3098.       szProcName: POleStr): HResult; stdcall;
  3099.     function SetFuncDocString(index: Integer; szDocString: POleStr): HResult;
  3100.       stdcall;
  3101.     function SetVarDocString(index: Integer; szDocString: POleStr): HResult;
  3102.       stdcall;
  3103.     function SetFuncHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  3104.       stdcall;
  3105.     function SetVarHelpContext(index: Integer; dwHelpContext: Longint): HResult;
  3106.       stdcall;
  3107.     function SetMops(index: Integer; const bstrMops: WideString): HResult; stdcall;
  3108.     function SetTypeIdldesc(const idldesc: TIDLDesc): HResult; stdcall;
  3109.     function LayOut: HResult; stdcall;
  3110.   end;
  3111.  
  3112. { ICreateTypeInfo2 interface }
  3113.  
  3114.   {$EXTERNALSYM ICreateTypeInfo2}
  3115.   ICreateTypeInfo2 = interface(ICreateTypeInfo)
  3116.     ['{00020412-0000-0000-C000-000000000046}']
  3117.     function DeleteFuncDesc(index: Integer): HResult; stdcall;
  3118.     function DeleteFuncDescByMemId(memid: TMemberID; invKind: TInvokeKind): HResult; stdcall;
  3119.     function DeleteVarDesc(index: Integer): HResult; stdcall;
  3120.     function DeleteVarDescByMemId(memid: TMemberID): HResult; stdcall;
  3121.     function DeleteImplType(index: Integer): HResult; stdcall;
  3122.     function SetCustData(const guid: TGUID; pVarVal: POleVariant): HResult; stdcall;
  3123.     function SetFuncCustData(index: Integer; const guid: TGUID;
  3124.       pVarVal: POleVariant): HResult; stdcall;
  3125.     function SetParamCustData(indexFunc: Integer; indexParam: Integer;
  3126.       const guid: TGUID; pVarVal: POleVariant): HResult; stdcall;
  3127.     function SetVarCustData(index: Integer; const guid: TGUID;
  3128.       pVarVal: POleVariant): HResult; stdcall;
  3129.     function SetImplTypeCustData(index: Integer; const guid: TGUID;
  3130.       pVarVal: POleVariant): HResult; stdcall;
  3131.     function SetHelpStringContext(dwHelpStringContext: Longint): HResult; stdcall;
  3132.     function SetFuncHelpStringContext(index: Integer;
  3133.       dwHelpStringContext: Longint): HResult; stdcall;
  3134.     function SetVarHelpStringContext(index: Integer;
  3135.        dwHelpStringContext: Longint): HResult; stdcall;
  3136.     function Invalidate: HResult; stdcall;
  3137.     function SetName(szName: POleStr): HResult; stdcall;
  3138.   end;
  3139.  
  3140. { ICreateTypeLib interface }
  3141.  
  3142.   {$EXTERNALSYM ICreateTypeLib}
  3143.   ICreateTypeLib = interface(IUnknown)
  3144.     ['{00020406-0000-0000-C000-000000000046}']
  3145.     function CreateTypeInfo(szName: POleStr; tkind: TTypeKind;
  3146.       out ictinfo: ICreateTypeInfo): HResult; stdcall;
  3147.     function SetName(szName: POleStr): HResult; stdcall;
  3148.     function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult; stdcall;
  3149.     function SetGuid(const guid: TGUID): HResult; stdcall;
  3150.     function SetDocString(szDoc: POleStr): HResult; stdcall;
  3151.     function SetHelpFileName(szHelpFileName: POleStr): HResult; stdcall;
  3152.     function SetHelpContext(dwHelpContext: Longint): HResult; stdcall;
  3153.     function SetLcid(lcid: TLCID): HResult; stdcall;
  3154.     function SetLibFlags(uLibFlags: Integer): HResult; stdcall;
  3155.     function SaveAllChanges: HResult; stdcall;
  3156.   end;
  3157.  
  3158.   {$EXTERNALSYM ICreateTypeLib2}
  3159.   ICreateTypeLib2 = interface(ICreateTypeLib)
  3160.     ['{0002040F-0000-0000-C000-000000000046}']
  3161.     function DeleteTypeInfo(szName: PWideChar): HResult; stdcall;
  3162.     function SetCustData(const guid: TGUID; pVarVal: POleVariant): HResult; stdcall;
  3163.     function SetHelpStringContext(dwHelpStringContext: Longint): HResult; stdcall;
  3164.     function SetHelpStringDll(szFileName: PWideChar): HResult; stdcall;
  3165.   end;
  3166.  
  3167. { IEnumVariant interface }
  3168.  
  3169.   {$EXTERNALSYM IEnumVariant}
  3170.   IEnumVariant = interface(IUnknown)
  3171.     ['{00020404-0000-0000-C000-000000000046}']
  3172.     function Next(celt: LongWord; var rgvar : OleVariant;
  3173.       out pceltFetched: LongWord): HResult; stdcall;
  3174.     function Skip(celt: LongWord): HResult; stdcall;
  3175.     function Reset: HResult; stdcall;
  3176.     function Clone(out Enum: IEnumVariant): HResult; stdcall;
  3177.   end;
  3178.  
  3179.   {$EXTERNALSYM IEnumVariant_D4}
  3180.   IEnumVariant_D4 = interface(IUnknown)
  3181.     ['{00020404-0000-0000-C000-000000000046}']
  3182.     function Next(celt: Longint; out elt;
  3183.       pceltFetched: PLongint): HResult; stdcall;
  3184.     function Skip(celt: Longint): HResult; stdcall;
  3185.     function Reset: HResult; stdcall;
  3186.     function Clone(out Enum: IEnumVariant): HResult; stdcall;
  3187.   end;
  3188.  
  3189.   { IEnumVariant_D4 is the IEnumVariant interface as used by Delphi 4, and
  3190.     has been deprecated due to changes in the type library. IEnumVariant
  3191.     has been updated to reflect those changes. }
  3192.  
  3193. { ITypeComp interface }
  3194.  
  3195.   TDescKind = Longint;
  3196.  
  3197.   PBindPtr = ^TBindPtr;
  3198.   {$EXTERNALSYM tagBINDPTR}
  3199.   tagBINDPTR = record
  3200.     case Integer of
  3201.       0: (lpfuncdesc: PFuncDesc);
  3202.       1: (lpvardesc: PVarDesc);
  3203.       2: (lptcomp: Pointer {ITypeComp});
  3204.   end;
  3205.   TBindPtr = tagBINDPTR;
  3206.   {$EXTERNALSYM BINDPTR}
  3207.   BINDPTR = TBindPtr;
  3208.  
  3209.  
  3210.   {$EXTERNALSYM ITypeComp}
  3211.   ITypeComp = interface(IUnknown)
  3212.     ['{00020403-0000-0000-C000-000000000046}']
  3213.     function Bind(szName: POleStr; lHashVal: Longint; wflags: Word;
  3214.       out tinfo: ITypeInfo; out desckind: TDescKind;
  3215.       out bindptr: TBindPtr): HResult; stdcall;
  3216.     function BindType(szName: POleStr; lHashVal: Longint;
  3217.       out tinfo: ITypeInfo; out tcomp: ITypeComp): HResult;
  3218.       stdcall;
  3219.   end;
  3220.  
  3221. { ITypeInfo interface }
  3222.  
  3223.   {$EXTERNALSYM ITypeInfo}
  3224.   ITypeInfo = interface(IUnknown)
  3225.     ['{00020401-0000-0000-C000-000000000046}']
  3226.     function GetTypeAttr(out ptypeattr: PTypeAttr): HResult; stdcall;
  3227.     function GetTypeComp(out tcomp: ITypeComp): HResult; stdcall;
  3228.     function GetFuncDesc(index: Integer; out pfuncdesc: PFuncDesc): HResult;
  3229.       stdcall;
  3230.     function GetVarDesc(index: Integer; out pvardesc: PVarDesc): HResult;
  3231.       stdcall;
  3232.     function GetNames(memid: TMemberID; rgbstrNames: PBStrList;
  3233.       cMaxNames: Integer; out cNames: Integer): HResult; stdcall;
  3234.     function GetRefTypeOfImplType(index: Integer; out reftype: HRefType): HResult;
  3235.       stdcall;
  3236.     function GetImplTypeFlags(index: Integer; out impltypeflags: Integer): HResult;
  3237.       stdcall;
  3238.     function GetIDsOfNames(rgpszNames: POleStrList; cNames: Integer;
  3239.       rgmemid: PMemberIDList): HResult; stdcall;
  3240.     function Invoke(pvInstance: Pointer; memid: TMemberID; flags: Word;
  3241.       var dispParams: TDispParams; varResult: PVariant;
  3242.       excepInfo: PExcepInfo; argErr: PInteger): HResult; stdcall;
  3243.     function GetDocumentation(memid: TMemberID; pbstrName: PWideString;
  3244.       pbstrDocString: PWideString; pdwHelpContext: PLongint;
  3245.       pbstrHelpFile: PWideString): HResult; stdcall;
  3246.     function GetDllEntry(memid: TMemberID; invkind: TInvokeKind;
  3247.       bstrDllName, bstrName: PWideString; wOrdinal: PWord): HResult;
  3248.       stdcall;
  3249.     function GetRefTypeInfo(reftype: HRefType; out tinfo: ITypeInfo): HResult;
  3250.       stdcall;
  3251.     function AddressOfMember(memid: TMemberID; invkind: TInvokeKind;
  3252.       out ppv: Pointer): HResult; stdcall;
  3253.     function CreateInstance(const unkOuter: IUnknown; const iid: TIID;
  3254.       out vObj): HResult; stdcall;
  3255.     function GetMops(memid: TMemberID; out bstrMops: WideString): HResult;
  3256.       stdcall;
  3257.     function GetContainingTypeLib(out tlib: ITypeLib; out pindex: Integer): HResult;
  3258.       stdcall;
  3259.     procedure ReleaseTypeAttr(ptypeattr: PTypeAttr); stdcall;
  3260.     procedure ReleaseFuncDesc(pfuncdesc: PFuncDesc); stdcall;
  3261.     procedure ReleaseVarDesc(pvardesc: PVarDesc); stdcall;
  3262.   end;
  3263.  
  3264. { ITypeLib interface }
  3265.  
  3266.   TSysKind = Longint;
  3267.  
  3268.   PTLibAttr = ^TTLibAttr;
  3269.   {$EXTERNALSYM tagTLIBATTR}
  3270.   tagTLIBATTR = record
  3271.     guid: TGUID;
  3272.     lcid: TLCID;
  3273.     syskind: TSysKind;
  3274.     wMajorVerNum: Word;
  3275.     wMinorVerNum: Word;
  3276.     wLibFlags: Word;
  3277.   end;
  3278.   TTLibAttr = tagTLIBATTR;
  3279.   {$EXTERNALSYM TLIBATTR}
  3280.   TLIBATTR = TTLibAttr;
  3281.  
  3282.  
  3283.   PTypeInfoList = ^TTypeInfoList;
  3284.   TTypeInfoList = array[0..65535] of ITypeInfo;
  3285.  
  3286.   {$EXTERNALSYM ITypeLib}
  3287.   ITypeLib = interface(IUnknown)
  3288.     ['{00020402-0000-0000-C000-000000000046}']
  3289.     function GetTypeInfoCount: Integer; stdcall;
  3290.     function GetTypeInfo(index: Integer; out tinfo: ITypeInfo): HResult; stdcall;
  3291.     function GetTypeInfoType(index: Integer; out tkind: TTypeKind): HResult;
  3292.       stdcall;
  3293.     function GetTypeInfoOfGuid(const guid: TGUID; out tinfo: ITypeInfo): HResult;
  3294.       stdcall;
  3295.     function GetLibAttr(out ptlibattr: PTLibAttr): HResult; stdcall;
  3296.     function GetTypeComp(out tcomp: ITypeComp): HResult; stdcall;
  3297.     function GetDocumentation(index: Integer; pbstrName: PWideString;
  3298.       pbstrDocString: PWideString; pdwHelpContext: PLongint;
  3299.       pbstrHelpFile: PWideString): HResult; stdcall;
  3300.     function IsName(szNameBuf: POleStr; lHashVal: Longint; out fName: BOOL): HResult;
  3301.       stdcall;
  3302.     function FindName(szNameBuf: POleStr; lHashVal: Longint;
  3303.       rgptinfo: PTypeInfoList; rgmemid: PMemberIDList;
  3304.       out pcFound: Word): HResult; stdcall;
  3305.     procedure ReleaseTLibAttr(ptlibattr: PTLibAttr); stdcall;
  3306.   end;
  3307.  
  3308. { ITypeLib2 interface }
  3309.   PCustDataItem = ^TCustDataItem;
  3310.   {$EXTERNALSYM tagCUSTDATAITEM}
  3311.   tagCUSTDATAITEM = record
  3312.     guid: TGUID;
  3313.     varValue: TVariantArg;
  3314.    end;
  3315.   TCustDataItem = tagCUSTDATAITEM;
  3316.   {$EXTERNALSYM CUSTDATAITEM}
  3317.   CUSTDATAITEM = TCustDataItem;
  3318.  
  3319.   PCustDataItemList = ^TCustDataItemList;
  3320.   TCustDataItemList = array[0..65535] of TCustDataItem;
  3321.  
  3322.   PCustData = ^TCustData;
  3323.   {$EXTERNALSYM tagCUSTDATA}
  3324.   tagCUSTDATA = record
  3325.     cCustData: DWORD;
  3326.     prgCustData: PCustDataItemList;
  3327.   end;
  3328.   TCustData = tagCUSTDATA;
  3329.   {$EXTERNALSYM CUSTDATA}
  3330.   CUSTDATA = TCustData;
  3331.  
  3332.   {$EXTERNALSYM ITypeLib2}
  3333.   ITypeLib2 = interface(ITypeLib)
  3334.     ['{00020411-0000-0000-C000-000000000046}']
  3335.     function GetCustData(guid: TGUID;
  3336.       out pVarVal: OleVariant): HResult; stdcall;
  3337.     function GetLibStatistics(pcUniqueNames: PLongInt;
  3338.       out pcchUniqueNames: LongInt): HResult; stdcall;
  3339.     function GetDocumentation2(index: Integer; lcid: TLCID;
  3340.       pbstrHelpString: PWideString; pdwHelpStringContext: PDWORD;
  3341.       pbstrHelpStringDll: PWideString): HResult; stdcall;
  3342.     function GetAllCustData(out pCustData: TCustData): HResult; stdcall;
  3343.   end;
  3344.  
  3345.   {$EXTERNALSYM ITypeInfo2}
  3346.   ITypeInfo2 = interface(ITypeInfo)
  3347.     ['{00020412-0000-0000-C000-000000000046}']
  3348.     function GetTypeKind(out pTypeKind: TTypeKind): HResult; stdcall;
  3349.     function GetTypeFlags(out pTypeFlags: LongInt): HResult; stdcall;
  3350.     function GetFuncIndexOfMemId(memid: TMemberID; invKind: TInvokeKind;
  3351.       out pFuncIndex: UINT): HResult; stdcall;
  3352.     function GetVarIndexOfMemId(memid: TMemberID; out pVarIndex: UINT): HResult; stdcall;
  3353.     function GetCustData(guid: TGUID; out pVarVal: OleVariant): HResult; stdcall;
  3354.     function GetFuncCustData(index: UINT; guid: TGUID;
  3355.       out pVarVal: OleVariant): HResult; stdcall;
  3356.     function GetParamCustData(indexFunc, indexParam: UINT; guid: TGUID;
  3357.       out pVarVal: OleVariant): HResult; stdcall;
  3358.     function GetVarCustData(index: UINT; guid: TGUID;
  3359.       out pVarVal: OleVariant): HResult; stdcall;
  3360.     function GetImplTypeCustData(index: UINT; guid: TGUID;
  3361.       out pVarVal: OleVariant): HResult; stdcall;
  3362.     function GetDocumentation2(memid: TMemberID; lcid: TLCID;
  3363.       pbstrHelpString: PWideString; pdwHelpStringContext: PDWORD;
  3364.       pbstrHelpStringDll: PWideString): HResult; stdcall;
  3365.     function GetAllCustData(out pCustData: TCustData): HResult; stdcall;
  3366.     function GetAllFuncCustData(index: UINT; out pCustData: TCustData): HResult; stdcall;
  3367.     function GetAllParamCustData(indexFunc, indexParam: UINT;
  3368.       out pCustData: TCustData): HResult; stdcall;
  3369.     function GetAllVarCustData(index: UINT; out pCustData: TCustData): HResult; stdcall;
  3370.     function GetAllImplTypeCustData(index: UINT; out pCustData: TCustData): HResult; stdcall;
  3371.   end;
  3372.  
  3373. { IErrorInfo interface }
  3374.  
  3375.   {$EXTERNALSYM IErrorInfo}
  3376.   IErrorInfo = interface(IUnknown)
  3377.     ['{1CF2B120-547D-101B-8E65-08002B2BD119}']
  3378.     function GetGUID(out guid: TGUID): HResult; stdcall;
  3379.     function GetSource(out bstrSource: WideString): HResult; stdcall;
  3380.     function GetDescription(out bstrDescription: WideString): HResult; stdcall;
  3381.     function GetHelpFile(out bstrHelpFile: WideString): HResult; stdcall;
  3382.     function GetHelpContext(out dwHelpContext: Longint): HResult; stdcall;
  3383.   end;
  3384.  
  3385. { ICreateErrorInfo interface }
  3386.  
  3387.   {$EXTERNALSYM ICreateErrorInfo}
  3388.   ICreateErrorInfo = interface(IUnknown)
  3389.     ['{22F03340-547D-101B-8E65-08002B2BD119}']
  3390.     function SetGUID(const guid: TGUID): HResult; stdcall;
  3391.     function SetSource(szSource: POleStr): HResult; stdcall;
  3392.     function SetDescription(szDescription: POleStr): HResult; stdcall;
  3393.     function SetHelpFile(szHelpFile: POleStr): HResult; stdcall;
  3394.     function SetHelpContext(dwHelpContext: Longint): HResult; stdcall;
  3395.   end;
  3396.  
  3397. { ISupportErrorInfo interface }
  3398.  
  3399.   {$EXTERNALSYM ISupportErrorInfo}
  3400.   ISupportErrorInfo = interface(IUnknown)
  3401.     ['{DF0B3D60-548F-101B-8E65-08002B2BD119}']
  3402.     function InterfaceSupportsErrorInfo(const iid: TIID): HResult; stdcall;
  3403.   end;
  3404.  
  3405. { from OLEAUTO.H }
  3406. { IDispatch implementation support }
  3407.  
  3408.   PParamData = ^TParamData;
  3409.   {$EXTERNALSYM tagPARAMDATA}
  3410.   tagPARAMDATA = record
  3411.     szName: POleStr;
  3412.     vt: TVarType;
  3413.   end;
  3414.   TParamData = tagPARAMDATA;
  3415.   {$EXTERNALSYM PARAMDATA}
  3416.   PARAMDATA = TParamData;
  3417.  
  3418.  
  3419.   PParamDataList = ^TParamDataList;
  3420.   TParamDataList = array[0..65535] of TParamData;
  3421.  
  3422.   PMethodData = ^TMethodData;
  3423.   {$EXTERNALSYM tagMETHODDATA}
  3424.   tagMETHODDATA = record
  3425.     szName: POleStr;
  3426.     ppdata: PParamDataList;
  3427.     dispid: TDispID;
  3428.     iMeth: Integer;
  3429.     cc: TCallConv;
  3430.     cArgs: Integer;
  3431.     wFlags: Word;
  3432.     vtReturn: TVarType;
  3433.   end;
  3434.   TMethodData = tagMETHODDATA;
  3435.   {$EXTERNALSYM METHODDATA}
  3436.   METHODDATA = TMethodData;
  3437.  
  3438.  
  3439.   PMethodDataList = ^TMethodDataList;
  3440.   TMethodDataList = array[0..65535] of TMethodData;
  3441.  
  3442.   PInterfaceData = ^TInterfaceData;
  3443.   {$EXTERNALSYM tagINTERFACEDATA}
  3444.   tagINTERFACEDATA = record
  3445.     pmethdata: PMethodDataList;
  3446.     cMembers: Integer;
  3447.   end;
  3448.   TInterfaceData = tagINTERFACEDATA;
  3449.   {$EXTERNALSYM INTERFACEDATA}
  3450.   INTERFACEDATA = TInterfaceData;
  3451.  
  3452.   {$EXTERNALSYM tagREGKIND}
  3453.   tagREGKIND = (REGKIND_DEFAULT, REGKIND_REGISTER, REGKIND_NONE);
  3454.   TRegKind = tagREGKIND;
  3455.  
  3456. { from OLEIDL.H }
  3457. { IOleAdviseHolder interface }
  3458.  
  3459.   {$EXTERNALSYM IOleAdviseHolder}
  3460.   IOleAdviseHolder = interface(IUnknown)
  3461.     ['{00000111-0000-0000-C000-000000000046}']
  3462.     function Advise(const advise: IAdviseSink; out dwConnection: Longint): HResult;
  3463.       stdcall;
  3464.     function Unadvise(dwConnection: Longint): HResult; stdcall;
  3465.     function EnumAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;
  3466.     function SendOnRename(const mk: IMoniker): HResult; stdcall;
  3467.     function SendOnSave: HResult; stdcall;
  3468.     function SendOnClose: HResult; stdcall;
  3469.   end;
  3470.  
  3471. { IOleCache interface }
  3472.  
  3473.   {$EXTERNALSYM IOleCache}
  3474.   IOleCache = interface(IUnknown)
  3475.     ['{0000011E-0000-0000-C000-000000000046}']
  3476.     function Cache(const formatetc: TFormatEtc; advf: Longint;
  3477.       out dwConnection: Longint): HResult; stdcall;
  3478.     function Uncache(dwConnection: Longint): HResult; stdcall;
  3479.     function EnumCache(out enumStatData: IEnumStatData): HResult;
  3480.       stdcall;
  3481.     function InitCache(const dataObject: IDataObject): HResult; stdcall;
  3482.     function SetData(const formatetc: TFormatEtc; const medium: TStgMedium;
  3483.       fRelease: BOOL): HResult; stdcall;
  3484.   end;
  3485.  
  3486. { IOleCache2 interface }
  3487.  
  3488.   {$EXTERNALSYM IOleCache2}
  3489.   IOleCache2 = interface(IOleCache)
  3490.     ['{00000128-0000-0000-C000-000000000046}']
  3491.     function UpdateCache(const dataObject: IDataObject; grfUpdf: Longint;
  3492.       pReserved: Pointer): HResult; stdcall;
  3493.     function DiscardCache(dwDiscardOptions: Longint): HResult; stdcall;
  3494.   end;
  3495.  
  3496. { IOleCacheControl interface }
  3497.  
  3498.   {$EXTERNALSYM IOleCacheControl}
  3499.   IOleCacheControl = interface(IUnknown)
  3500.     ['{00000129-0000-0000-C000-000000000046}']
  3501.     function OnRun(const dataObject: IDataObject): HResult; stdcall;
  3502.     function OnStop: HResult; stdcall;
  3503.   end;
  3504.  
  3505. { IParseDisplayName interface }
  3506.  
  3507.   {$EXTERNALSYM IParseDisplayName}
  3508.   IParseDisplayName = interface(IUnknown)
  3509.     ['{0000011A-0000-0000-C000-000000000046}']
  3510.     function ParseDisplayName(const bc: IBindCtx; pszDisplayName: POleStr;
  3511.       out chEaten: Longint; out mkOut: IMoniker): HResult; stdcall;
  3512.   end;
  3513.  
  3514. { IOleContainer interface }
  3515.  
  3516.   {$EXTERNALSYM IOleContainer}
  3517.   IOleContainer = interface(IParseDisplayName)
  3518.     ['{0000011B-0000-0000-C000-000000000046}']
  3519.     function EnumObjects(grfFlags: Longint; out Enum: IEnumUnknown): HResult;
  3520.       stdcall;
  3521.     function LockContainer(fLock: BOOL): HResult; stdcall;
  3522.   end;
  3523.  
  3524. { IOleClientSite interface }
  3525.  
  3526.   {$EXTERNALSYM IOleClientSite}
  3527.   IOleClientSite = interface(IUnknown)
  3528.     ['{00000118-0000-0000-C000-000000000046}']
  3529.     function SaveObject: HResult; stdcall;
  3530.     function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
  3531.       out mk: IMoniker): HResult; stdcall;
  3532.     function GetContainer(out container: IOleContainer): HResult; stdcall;
  3533.     function ShowObject: HResult; stdcall;
  3534.     function OnShowWindow(fShow: BOOL): HResult; stdcall;
  3535.     function RequestNewObjectLayout: HResult; stdcall;
  3536.   end;
  3537.  
  3538. { IOleObject interface }
  3539.  
  3540.   {$EXTERNALSYM IOleObject}
  3541.   IOleObject = interface(IUnknown)
  3542.     ['{00000112-0000-0000-C000-000000000046}']
  3543.     function SetClientSite(const clientSite: IOleClientSite): HResult;
  3544.       stdcall;
  3545.     function GetClientSite(out clientSite: IOleClientSite): HResult;
  3546.       stdcall;
  3547.     function SetHostNames(szContainerApp: POleStr;
  3548.       szContainerObj: POleStr): HResult; stdcall;
  3549.     function Close(dwSaveOption: Longint): HResult; stdcall;
  3550.     function SetMoniker(dwWhichMoniker: Longint; const mk: IMoniker): HResult;
  3551.       stdcall;
  3552.     function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
  3553.       out mk: IMoniker): HResult; stdcall;
  3554.     function InitFromData(const dataObject: IDataObject; fCreation: BOOL;
  3555.       dwReserved: Longint): HResult; stdcall;
  3556.     function GetClipboardData(dwReserved: Longint;
  3557.       out dataObject: IDataObject): HResult; stdcall;
  3558.     function DoVerb(iVerb: Longint; msg: PMsg; const activeSite: IOleClientSite;
  3559.       lindex: Longint; hwndParent: HWND; const posRect: TRect): HResult;
  3560.       stdcall;
  3561.     function EnumVerbs(out enumOleVerb: IEnumOleVerb): HResult; stdcall;
  3562.     function Update: HResult; stdcall;
  3563.     function IsUpToDate: HResult; stdcall;
  3564.     function GetUserClassID(out clsid: TCLSID): HResult; stdcall;
  3565.     function GetUserType(dwFormOfType: Longint; out pszUserType: POleStr): HResult;
  3566.       stdcall;
  3567.     function SetExtent(dwDrawAspect: Longint; const size: TPoint): HResult;
  3568.       stdcall;
  3569.     function GetExtent(dwDrawAspect: Longint; out size: TPoint): HResult;
  3570.       stdcall;
  3571.     function Advise(const advSink: IAdviseSink; out dwConnection: Longint): HResult;
  3572.       stdcall;
  3573.     function Unadvise(dwConnection: Longint): HResult; stdcall;
  3574.     function EnumAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;
  3575.     function GetMiscStatus(dwAspect: Longint; out dwStatus: Longint): HResult;
  3576.       stdcall;
  3577.     function SetColorScheme(const logpal: TLogPalette): HResult; stdcall;
  3578.   end;
  3579.  
  3580. { OLE types }
  3581.  
  3582.   PObjectDescriptor = ^TObjectDescriptor;
  3583.   {$EXTERNALSYM tagOBJECTDESCRIPTOR}
  3584.   tagOBJECTDESCRIPTOR = record
  3585.     cbSize: Longint;
  3586.     clsid: TCLSID;
  3587.     dwDrawAspect: Longint;
  3588.     size: TPoint;
  3589.     point: TPoint;
  3590.     dwStatus: Longint;
  3591.     dwFullUserTypeName: Longint;
  3592.     dwSrcOfCopy: Longint;
  3593.   end;
  3594.   TObjectDescriptor = tagOBJECTDESCRIPTOR;
  3595.   {$EXTERNALSYM OBJECTDESCRIPTOR}
  3596.   OBJECTDESCRIPTOR = TObjectDescriptor;
  3597.  
  3598.  
  3599.   PLinkSrcDescriptor = PObjectDescriptor;
  3600.   TLinkSrcDescriptor = TObjectDescriptor;
  3601.  
  3602. { IOleWindow interface }
  3603.  
  3604.   {$EXTERNALSYM IOleWindow}
  3605.   IOleWindow = interface(IUnknown)
  3606.     ['{00000114-0000-0000-C000-000000000046}']
  3607.     function GetWindow(out wnd: HWnd): HResult; stdcall;
  3608.     function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
  3609.   end;
  3610.  
  3611. { IOleLink interface }
  3612.  
  3613.   {$EXTERNALSYM IOleLink}
  3614.   IOleLink = interface(IUnknown)
  3615.     ['{0000011D-0000-0000-C000-000000000046}']
  3616.     function SetUpdateOptions(dwUpdateOpt: Longint): HResult;
  3617.       stdcall;
  3618.     function GetUpdateOptions(out dwUpdateOpt: Longint): HResult; stdcall;
  3619.     function SetSourceMoniker(const mk: IMoniker; const clsid: TCLSID): HResult;
  3620.       stdcall;
  3621.     function GetSourceMoniker(out mk: IMoniker): HResult; stdcall;
  3622.     function SetSourceDisplayName(pszDisplayName: POleStr): HResult;
  3623.       stdcall;
  3624.     function GetSourceDisplayName(out pszDisplayName: POleStr): HResult;
  3625.       stdcall;
  3626.     function BindToSource(bindflags: Longint; const bc: IBindCtx): HResult;
  3627.       stdcall;
  3628.     function BindIfRunning: HResult; stdcall;
  3629.     function GetBoundSource(out unk: IUnknown): HResult; stdcall;
  3630.     function UnbindSource: HResult; stdcall;
  3631.     function Update(const bc: IBindCtx): HResult; stdcall;
  3632.   end;
  3633.  
  3634. { IOleItemContainer interface }
  3635.  
  3636.   {$EXTERNALSYM IOleItemContainer}
  3637.   IOleItemContainer = interface(IOleContainer)
  3638.     ['{0000011C-0000-0000-C000-000000000046}']
  3639.     function GetObject(pszItem: POleStr; dwSpeedNeeded: Longint;
  3640.       const bc: IBindCtx; const iid: TIID; out vObject): HResult; stdcall;
  3641.     function GetObjectStorage(pszItem: POleStr; const bc: IBindCtx;
  3642.       const iid: TIID; out vStorage): HResult; stdcall;
  3643.     function IsRunning(pszItem: POleStr): HResult; stdcall;
  3644.   end;
  3645.  
  3646. { IOleInPlaceUIWindow interface }
  3647.  
  3648.   {$EXTERNALSYM IOleInPlaceUIWindow}
  3649.   IOleInPlaceUIWindow = interface(IOleWindow)
  3650.     ['{00000115-0000-0000-C000-000000000046}']
  3651.     function GetBorder(out rectBorder: TRect): HResult; stdcall;
  3652.     function RequestBorderSpace(const borderwidths: TRect): HResult; stdcall;
  3653.     function SetBorderSpace(pborderwidths: PRect): HResult; stdcall;
  3654.     function SetActiveObject(const activeObject: IOleInPlaceActiveObject;
  3655.       pszObjName: POleStr): HResult; stdcall;
  3656.   end;
  3657.  
  3658. { IOleInPlaceActiveObject interface }
  3659.  
  3660.   {$EXTERNALSYM IOleInPlaceActiveObject}
  3661.   IOleInPlaceActiveObject = interface(IOleWindow)
  3662.     ['{00000117-0000-0000-C000-000000000046}']
  3663.     function TranslateAccelerator(var msg: TMsg): HResult; stdcall;
  3664.     function OnFrameWindowActivate(fActivate: BOOL): HResult; stdcall;
  3665.     function OnDocWindowActivate(fActivate: BOOL): HResult; stdcall;
  3666.     function ResizeBorder(const rcBorder: TRect; const uiWindow: IOleInPlaceUIWindow;
  3667.       fFrameWindow: BOOL): HResult; stdcall;
  3668.     function EnableModeless(fEnable: BOOL): HResult; stdcall;
  3669.   end;
  3670.  
  3671. { IOleInPlaceFrame interface }
  3672.  
  3673.   POleInPlaceFrameInfo = ^TOleInPlaceFrameInfo;
  3674.   {$EXTERNALSYM tagOIFI}
  3675.   tagOIFI = record
  3676.     cb: Integer;
  3677.     fMDIApp: BOOL;
  3678.     hwndFrame: HWND;
  3679.     haccel: HAccel;
  3680.     cAccelEntries: Integer;
  3681.   end;
  3682.   TOleInPlaceFrameInfo = tagOIFI;
  3683.   {$EXTERNALSYM OLEINPLACEFRAMEINFO}
  3684.   OLEINPLACEFRAMEINFO = TOleInPlaceFrameInfo;
  3685.  
  3686.   POleMenuGroupWidths = ^TOleMenuGroupWidths;
  3687.   {$EXTERNALSYM tagOleMenuGroupWidths}
  3688.   tagOleMenuGroupWidths = record
  3689.     width: array[0..5] of Longint;
  3690.   end;
  3691.   TOleMenuGroupWidths = tagOleMenuGroupWidths;
  3692.   {$EXTERNALSYM OLEMENUGROUPWIDTHS}
  3693.   OLEMENUGROUPWIDTHS = TOleMenuGroupWidths;
  3694.  
  3695.  
  3696.   {$EXTERNALSYM IOleInPlaceFrame}
  3697.   IOleInPlaceFrame = interface(IOleInPlaceUIWindow)
  3698.     ['{00000116-0000-0000-C000-000000000046}']
  3699.     function InsertMenus(hmenuShared: HMenu;
  3700.       var menuWidths: TOleMenuGroupWidths): HResult; stdcall;
  3701.     function SetMenu(hmenuShared: HMenu; holemenu: HMenu;
  3702.       hwndActiveObject: HWnd): HResult; stdcall;
  3703.     function RemoveMenus(hmenuShared: HMenu): HResult; stdcall;
  3704.     function SetStatusText(pszStatusText: POleStr): HResult; stdcall;
  3705.     function EnableModeless(fEnable: BOOL): HResult; stdcall;
  3706.     function TranslateAccelerator(var msg: TMsg; wID: Word): HResult; stdcall;
  3707.   end;
  3708.  
  3709. { IOleInPlaceObject interface }
  3710.  
  3711.   {$EXTERNALSYM IOleInPlaceObject}
  3712.   IOleInPlaceObject = interface(IOleWindow)
  3713.     ['{00000113-0000-0000-C000-000000000046}']
  3714.     function InPlaceDeactivate: HResult; stdcall;
  3715.     function UIDeactivate: HResult; stdcall;
  3716.     function SetObjectRects(const rcPosRect: TRect;
  3717.       const rcClipRect: TRect): HResult; stdcall;
  3718.     function ReactivateAndUndo: HResult; stdcall;
  3719.   end;
  3720.  
  3721. { IOleInPlaceSite interface }
  3722.  
  3723.   {$EXTERNALSYM IOleInPlaceSite}
  3724.   IOleInPlaceSite = interface(IOleWindow)
  3725.     ['{00000119-0000-0000-C000-000000000046}']
  3726.     function CanInPlaceActivate: HResult; stdcall;
  3727.     function OnInPlaceActivate: HResult; stdcall;
  3728.     function OnUIActivate: HResult; stdcall;
  3729.     function GetWindowContext(out frame: IOleInPlaceFrame;
  3730.       out doc: IOleInPlaceUIWindow; out rcPosRect: TRect;
  3731.       out rcClipRect: TRect; out frameInfo: TOleInPlaceFrameInfo): HResult;
  3732.       stdcall;
  3733.     function Scroll(scrollExtent: TPoint): HResult; stdcall;
  3734.     function OnUIDeactivate(fUndoable: BOOL): HResult; stdcall;
  3735.     function OnInPlaceDeactivate: HResult; stdcall;
  3736.     function DiscardUndoState: HResult; stdcall;
  3737.     function DeactivateAndUndo: HResult; stdcall;
  3738.     function OnPosRectChange(const rcPosRect: TRect): HResult; stdcall;
  3739.   end;
  3740.  
  3741. { IViewObject interface }
  3742.  
  3743.   TContinueFunc = function(dwContinue: Longint): BOOL stdcall;
  3744.  
  3745.   {$EXTERNALSYM IViewObject}
  3746.   IViewObject = interface(IUnknown)
  3747.     ['{0000010D-0000-0000-C000-000000000046}']
  3748.     function Draw(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer;
  3749.       ptd: PDVTargetDevice; hicTargetDev: HDC; hdcDraw: HDC;
  3750.       prcBounds: PRect; prcWBounds: PRect; fnContinue: TContinueFunc;
  3751.       dwContinue: Longint): HResult; stdcall;
  3752.     function GetColorSet(dwDrawAspect: Longint; lindex: Longint;
  3753.       pvAspect: Pointer; ptd: PDVTargetDevice; hicTargetDev: HDC;
  3754.       out colorSet: PLogPalette): HResult; stdcall;
  3755.     function Freeze(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer;
  3756.       out dwFreeze: Longint): HResult; stdcall;
  3757.     function Unfreeze(dwFreeze: Longint): HResult; stdcall;
  3758.     function SetAdvise(aspects: Longint; advf: Longint;
  3759.       const advSink: IAdviseSink): HResult; stdcall;
  3760.     function GetAdvise(pAspects: PLongint; pAdvf: PLongint;
  3761.       out advSink: IAdviseSink): HResult; stdcall;
  3762.   end;
  3763.  
  3764. { IViewObject2 interface }
  3765.  
  3766.   {$EXTERNALSYM IViewObject2}
  3767.   IViewObject2 = interface(IViewObject)
  3768.     ['{00000127-0000-0000-C000-000000000046}']
  3769.     function GetExtent(dwDrawAspect: Longint; lindex: Longint;
  3770.       ptd: PDVTargetDevice; out size: TPoint): HResult; stdcall;
  3771.   end;
  3772.  
  3773. { IDropSource interface }
  3774.  
  3775.   {$EXTERNALSYM IDropSource}
  3776.   IDropSource = interface(IUnknown)
  3777.     ['{00000121-0000-0000-C000-000000000046}']
  3778.     function QueryContinueDrag(fEscapePressed: BOOL;
  3779.       grfKeyState: Longint): HResult; stdcall;
  3780.     function GiveFeedback(dwEffect: Longint): HResult; stdcall;
  3781.   end;
  3782.  
  3783. { IDropTarget interface }
  3784.  
  3785.   {$EXTERNALSYM IDropTarget}
  3786.   IDropTarget = interface(IUnknown)
  3787.     ['{00000122-0000-0000-C000-000000000046}']
  3788.     function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
  3789.       pt: TPoint; var dwEffect: Longint): HResult; stdcall;
  3790.     function DragOver(grfKeyState: Longint; pt: TPoint;
  3791.       var dwEffect: Longint): HResult; stdcall;
  3792.     function DragLeave: HResult; stdcall;
  3793.     function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
  3794.       var dwEffect: Longint): HResult; stdcall;
  3795.   end;
  3796.  
  3797. { IEnumOleVerb interface }
  3798.  
  3799.   POleVerb = ^TOleVerb;
  3800.   {$EXTERNALSYM tagOLEVERB}
  3801.   tagOLEVERB = record
  3802.     lVerb: Longint;
  3803.     lpszVerbName: POleStr;
  3804.     fuFlags: Longint;
  3805.     grfAttribs: Longint;
  3806.   end;
  3807.   TOleVerb = tagOLEVERB;
  3808.   {$EXTERNALSYM OLEVERB}
  3809.   OLEVERB = TOleVerb;
  3810.  
  3811.  
  3812.   {$EXTERNALSYM IEnumOLEVERB}
  3813.   IEnumOLEVERB = interface(IUnknown)
  3814.     ['{00000104-0000-0000-C000-000000000046}']
  3815.     function Next(celt: Longint; out elt;
  3816.       pceltFetched: PLongint): HResult; stdcall;
  3817.     function Skip(celt: Longint): HResult; stdcall;
  3818.     function Reset: HResult; stdcall;
  3819.     function Clone(out enm: IEnumOleVerb): HResult; stdcall;
  3820.   end;
  3821.  
  3822. { IOleControl interface }
  3823.  
  3824.   {$EXTERNALSYM IOleControl}
  3825.   IOleControl = interface
  3826.     ['{B196B288-BAB4-101A-B69C-00AA00341D07}']
  3827.     function GetControlInfo(var ci: TControlInfo): HResult; stdcall;
  3828.     function OnMnemonic(msg: PMsg): HResult; stdcall;
  3829.     function OnAmbientPropertyChange(dispid: TDispID): HResult; stdcall;
  3830.     function FreezeEvents(bFreeze: BOOL): HResult; stdcall;
  3831.   end;
  3832.  
  3833. { IOleControlSite interface }
  3834.  
  3835.   {$EXTERNALSYM IOleControlSite}
  3836.   IOleControlSite = interface
  3837.     ['{B196B289-BAB4-101A-B69C-00AA00341D07}']
  3838.     function OnControlInfoChanged: HResult; stdcall;
  3839.     function LockInPlaceActive(fLock: BOOL): HResult; stdcall;
  3840.     function GetExtendedControl(out disp: IDispatch): HResult; stdcall;
  3841.     function TransformCoords(var ptlHimetric: TPoint; var ptfContainer: TPointF;
  3842.       flags: Longint): HResult; stdcall;
  3843.     function TranslateAccelerator(msg: PMsg; grfModifiers: Longint): HResult;
  3844.        stdcall;
  3845.     function OnFocus(fGotFocus: BOOL): HResult; stdcall;
  3846.     function ShowPropertyFrame: HResult; stdcall;
  3847.   end;
  3848.  
  3849. { ISimpleFrameSite interface }
  3850.  
  3851.   {$EXTERNALSYM ISimpleFrameSite}
  3852.   ISimpleFrameSite = interface
  3853.     ['{742B0E01-14E6-101B-914E-00AA00300CAB}']
  3854.     function PreMessageFilter(wnd: HWnd; msg, wp, lp: Integer;
  3855.       out res: Integer; out Cookie: Longint): HResult;
  3856.       stdcall;
  3857.     function PostMessageFilter(wnd: HWnd; msg, wp, lp: Integer;
  3858.       out res: Integer; Cookie: Longint): HResult;
  3859.       stdcall;
  3860.   end;
  3861.  
  3862. { IObjectWithSite interface }
  3863.  
  3864.   {$EXTERNALSYM IObjectWithSite}
  3865.   IObjectWithSite = interface
  3866.     ['{FC4801A3-2BA9-11CF-A229-00AA003D7352}']
  3867.     function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
  3868.     function GetSite(const riid: TIID; out site: IUnknown):HResult; stdcall;
  3869.   end;
  3870.  
  3871. { IErrorLog interface }
  3872.  
  3873.   {$EXTERNALSYM IErrorLog}
  3874.   IErrorLog = interface
  3875.     ['{3127CA40-446E-11CE-8135-00AA004BB851}']
  3876.     function AddError(pszPropName: POleStr; pExcepInfo: PExcepInfo): HResult; stdcall;
  3877.   end;
  3878.  
  3879. { IPropertyBag interface }
  3880.  
  3881.   {$EXTERNALSYM IPropertyBag}
  3882.   IPropertyBag = interface
  3883.     ['{55272A00-42CB-11CE-8135-00AA004BB851}']
  3884.     function Read(pszPropName: POleStr; var pvar: OleVariant;
  3885.       const pErrorLog: IErrorLog): HResult; stdcall;
  3886.     function Write(pszPropName: POleStr; const pvar: OleVariant): HResult; stdcall;
  3887.   end;
  3888.  
  3889. { IPersistPropertyBag interface }
  3890.  
  3891.   {$EXTERNALSYM IPersistPropertyBag}
  3892.   IPersistPropertyBag = interface(IPersist)
  3893.     ['{37D84F60-42CB-11CE-8135-00AA004BB851}']
  3894.     function InitNew: HResult; stdcall;
  3895.     function Load(const pPropBag: IPropertyBag;
  3896.       const pErrorLog: IErrorLog): HResult; stdcall;
  3897.     function Save(const pPropBag: IPropertyBag; fClearDirty: BOOL;
  3898.       fSaveAllProperties: BOOL): HResult; stdcall;
  3899.   end;
  3900.  
  3901. { IPersistStreamInit interface }
  3902.  
  3903.   {$EXTERNALSYM IPersistStreamInit}
  3904.   IPersistStreamInit = interface(IPersistStream)
  3905.     ['{7FD52380-4E07-101B-AE2D-08002B2EC713}']
  3906.     function InitNew: HResult; stdcall;
  3907.   end;
  3908.  
  3909. { IPropertyNotifySink interface }
  3910.  
  3911.   {$EXTERNALSYM IPropertyNotifySink}
  3912.   IPropertyNotifySink = interface
  3913.     ['{9BFBBC02-EFF1-101A-84ED-00AA00341D07}']
  3914.     function OnChanged(dispid: TDispID): HResult; stdcall;
  3915.     function OnRequestEdit(dispid: TDispID): HResult; stdcall;
  3916.   end;
  3917.  
  3918. { IProvideClassInfo interface }
  3919.  
  3920.   {$EXTERNALSYM IProvideClassInfo}
  3921.   IProvideClassInfo = interface
  3922.     ['{B196B283-BAB4-101A-B69C-00AA00341D07}']
  3923.     function GetClassInfo(out ti: ITypeInfo): HResult; stdcall;
  3924.   end;
  3925.  
  3926. { IConnectionPointContainer interface }
  3927.  
  3928.   {$EXTERNALSYM IConnectionPointContainer}
  3929.   IConnectionPointContainer = interface
  3930.     ['{B196B284-BAB4-101A-B69C-00AA00341D07}']
  3931.     function EnumConnectionPoints(out Enum: IEnumConnectionPoints): HResult;
  3932.       stdcall;
  3933.     function FindConnectionPoint(const iid: TIID;
  3934.       out cp: IConnectionPoint): HResult; stdcall;
  3935.   end;
  3936.  
  3937. { IEnumConnectionPoints interface }
  3938.  
  3939.   {$EXTERNALSYM IEnumConnectionPoints}
  3940.   IEnumConnectionPoints = interface
  3941.     ['{B196B285-BAB4-101A-B69C-00AA00341D07}']
  3942.     function Next(celt: Longint; out elt;
  3943.       pceltFetched: PLongint): HResult; stdcall;
  3944.     function Skip(celt: Longint): HResult; stdcall;
  3945.     function Reset: HResult; stdcall;
  3946.     function Clone(out Enum: IEnumConnectionPoints): HResult;
  3947.       stdcall;
  3948.   end;
  3949.  
  3950. { IConnectionPoint interface }
  3951.  
  3952.   {$EXTERNALSYM IConnectionPoint}
  3953.   IConnectionPoint = interface
  3954.     ['{B196B286-BAB4-101A-B69C-00AA00341D07}']
  3955.     function GetConnectionInterface(out iid: TIID): HResult; stdcall;
  3956.     function GetConnectionPointContainer(out cpc: IConnectionPointContainer): HResult;
  3957.       stdcall;
  3958.     function Advise(const unkSink: IUnknown; out dwCookie: Longint): HResult; stdcall;
  3959.     function Unadvise(dwCookie: Longint): HResult; stdcall;
  3960.     function EnumConnections(out Enum: IEnumConnections): HResult; stdcall;
  3961.   end;
  3962.  
  3963. { from OCIDL.H }
  3964. { TConnectData structure }
  3965.  
  3966.   PConnectData = ^TConnectData;
  3967.   {$EXTERNALSYM tagCONNECTDATA}
  3968.   tagCONNECTDATA = record
  3969.     pUnk: IUnknown;
  3970.     dwCookie: Longint;
  3971.   end;
  3972.   TConnectData = tagCONNECTDATA;
  3973.   {$EXTERNALSYM CONNECTDATA}
  3974.   CONNECTDATA = TConnectData;
  3975.  
  3976.  
  3977. { IEnumConnections interface }
  3978.  
  3979.   {$EXTERNALSYM IEnumConnections}
  3980.   IEnumConnections = interface
  3981.     ['{B196B287-BAB4-101A-B69C-00AA00341D07}']
  3982.     function Next(celt: Longint; out elt;
  3983.       pceltFetched: PLongint): HResult; stdcall;
  3984.     function Skip(celt: Longint): HResult; stdcall;
  3985.     function Reset: HResult; stdcall;
  3986.     function Clone(out Enum: IEnumConnections): HResult; stdcall;
  3987.   end;
  3988.  
  3989. { TLicInfo structure }
  3990.  
  3991.   PLicInfo = ^TLicInfo;
  3992.   {$EXTERNALSYM tagLICINFO}
  3993.   tagLICINFO = record
  3994.     cbLicInfo: Longint;
  3995.     fRuntimeKeyAvail: BOOL;
  3996.     fLicVerified: BOOL;
  3997.   end;
  3998.   TLicInfo = tagLICINFO;
  3999.   {$EXTERNALSYM LICINFO}
  4000.   LICINFO = TLicInfo;
  4001.  
  4002.  
  4003. { IClassFactory2 interface }
  4004.  
  4005.   {$EXTERNALSYM IClassFactory2}
  4006.   IClassFactory2 = interface(IClassFactory)
  4007.     ['{B196B28F-BAB4-101A-B69C-00AA00341D07}']
  4008.     function GetLicInfo(var licInfo: TLicInfo): HResult; stdcall;
  4009.     function RequestLicKey(dwResrved: Longint; out bstrKey: WideString): HResult;
  4010.       stdcall;
  4011.     function CreateInstanceLic(const unkOuter: IUnknown; const unkReserved: IUnknown;
  4012.       const iid: TIID; const bstrKey: WideString; out vObject): HResult; stdcall;
  4013.   end;
  4014.  
  4015. { TCAUUID structure - a counted array of TGUID }
  4016.  
  4017.   PGUIDList = ^TGUIDList;
  4018.   TGUIDList = array[0..65535] of TGUID;
  4019.  
  4020.   PCAGUID = ^TCAGUID;
  4021.   {$EXTERNALSYM tagCAUUID}
  4022.   tagCAUUID = record
  4023.     cElems: Longint;
  4024.     pElems: PGUIDList;
  4025.   end;
  4026.   TCAGUID = tagCAUUID;
  4027.   {$EXTERNALSYM CAUUID}
  4028.   CAUUID = TCAGUID;
  4029.  
  4030.  
  4031. { TCAPOleStr structure - a counted array of POleStr }
  4032.  
  4033.   PCAPOleStr = ^TCAPOleStr; //???
  4034.   {$EXTERNALSYM tagCALPOLESTR}
  4035.   tagCALPOLESTR = record
  4036.     cElems: Longint;
  4037.     pElems: POleStrList;
  4038.   end;
  4039.   {$EXTERNALSYM CALPOLESTR}
  4040.   CALPOLESTR = tagCALPOLESTR;
  4041.   TCAPOleStr = tagCALPOLESTR;
  4042.  
  4043. { TCALongint - a counted array of Longint }
  4044.  
  4045.   PLongintList = ^TLongintList;
  4046.   TLongintList = array[0..65535] of Longint;
  4047.  
  4048.   PCALongint = ^TCALongint; //???
  4049.   {$EXTERNALSYM tagCADWORD}
  4050.   tagCADWORD = record
  4051.     cElems: Longint;
  4052.     pElems: PLongintList;
  4053.   end;
  4054.   {$EXTERNALSYM CADWORD}
  4055.   CADWORD = tagCADWORD;
  4056.   TCALongint = tagCADWORD;
  4057.  
  4058. { from OLECTL.H }
  4059. { TOCPFIParams - parameters for OleCreatePropertyFrameIndirect }
  4060.  
  4061.   POCPFIParams = ^TOCPFIParams;
  4062.   {$EXTERNALSYM tagOCPFIPARAMS}
  4063.   tagOCPFIPARAMS = record
  4064.     cbStructSize: Longint;
  4065.     hWndOwner: HWnd;
  4066.     x: Integer;
  4067.     y: Integer;
  4068.     lpszCaption: POleStr;
  4069.     cObjects: Longint;
  4070.     pObjects: Pointer;
  4071.     cPages: Longint;
  4072.     pPages: Pointer;
  4073.     lcid: TLCID;
  4074.     dispidInitialProperty: TDispID;
  4075.   end;
  4076.   TOCPFIParams = tagOCPFIPARAMS;
  4077.   {$EXTERNALSYM OCPFIPARAMS}
  4078.   OCPFIPARAMS = TOCPFIParams;
  4079.  
  4080.  
  4081. { from OCIDL.H }
  4082. { TPropPageInfo structure - information about a property page }
  4083.  
  4084.   PPropPageInfo = ^TPropPageInfo;
  4085.   {$EXTERNALSYM tagPROPPAGEINFO}
  4086.   tagPROPPAGEINFO = record
  4087.     cb: Longint;
  4088.     pszTitle: POleStr;
  4089.     size: TSize;
  4090.     pszDocString: POleStr;
  4091.     pszHelpFile: POleStr;
  4092.     dwHelpContext: Longint;
  4093.   end;
  4094.   TPropPageInfo = tagPROPPAGEINFO;
  4095.   {$EXTERNALSYM PROPPAGEINFO}
  4096.   PROPPAGEINFO = TPropPageInfo;
  4097.  
  4098.  
  4099. { ISpecifyPropertyPages interface }
  4100.  
  4101.   {$EXTERNALSYM ISpecifyPropertyPages}
  4102.   ISpecifyPropertyPages = interface
  4103.     ['{B196B28B-BAB4-101A-B69C-00AA00341D07}']
  4104.     function GetPages(out pages: TCAGUID): HResult; stdcall;
  4105.   end;
  4106.  
  4107. { IPerPropertyBrowsing interface }
  4108.  
  4109.   {$EXTERNALSYM IPerPropertyBrowsing}
  4110.   IPerPropertyBrowsing = interface
  4111.     ['{376BD3AA-3845-101B-84ED-08002B2EC713}']
  4112.     function GetDisplayString(dispid: TDispID; out bstr: WideString): HResult;
  4113.       stdcall;
  4114.     function MapPropertyToPage(dispid: TDispID; out clsid: TCLSID): HResult;
  4115.       stdcall;
  4116.     function GetPredefinedStrings(dispid: TDispID; out caStringsOut: TCAPOleStr;
  4117.       out caCookiesOut: TCALongint): HResult; stdcall;
  4118.     function GetPredefinedValue(dispid: TDispID; dwCookie: Longint;
  4119.       out varOut: OleVariant): HResult; stdcall;
  4120.   end;
  4121.  
  4122. { IPropertyPageSite interface }
  4123.  
  4124.   {$EXTERNALSYM IPropertyPageSite}
  4125.   IPropertyPageSite = interface
  4126.     ['{B196B28C-BAB4-101A-B69C-00AA00341D07}']
  4127.     function OnStatusChange(flags: Longint): HResult; stdcall;
  4128.     function GetLocaleID(out localeID: TLCID): HResult; stdcall;
  4129.     function GetPageContainer(out unk: IUnknown): HResult; stdcall;
  4130.     function TranslateAccelerator(msg: PMsg): HResult; stdcall;
  4131.   end;
  4132.  
  4133. { IPropertyPage interface }
  4134.  
  4135.   {$EXTERNALSYM IPropertyPage}
  4136.   IPropertyPage = interface
  4137.     ['{B196B28D-BAB4-101A-B69C-00AA00341D07}']
  4138.     function SetPageSite(const pageSite: IPropertyPageSite): HResult; stdcall;
  4139.     function Activate(hwndParent: HWnd; const rc: TRect; bModal: BOOL): HResult;
  4140.       stdcall;
  4141.     function Deactivate: HResult; stdcall;
  4142.     function GetPageInfo(out pageInfo: TPropPageInfo): HResult; stdcall;
  4143.     function SetObjects(cObjects: Longint; pUnkList: PUnknownList): HResult; stdcall;
  4144.     function Show(nCmdShow: Integer): HResult; stdcall;
  4145.     function Move(const rect: TRect): HResult; stdcall;
  4146.     function IsPageDirty: HResult; stdcall;
  4147.     function Apply: HResult; stdcall;
  4148.     function Help(pszHelpDir: POleStr): HResult; stdcall;
  4149.     function TranslateAccelerator(msg: PMsg): HResult; stdcall;
  4150.   end;
  4151.  
  4152. { IPropertyPage2 interface }
  4153.  
  4154.   {$EXTERNALSYM IPropertyPage2}
  4155.   IPropertyPage2 = interface(IPropertyPage)
  4156.     ['{01E44665-24AC-101B-84ED-08002B2EC713}']
  4157.     function EditProperty(dispid: TDispID): HResult; stdcall;
  4158.   end;
  4159.  
  4160. { IFont interface }
  4161.  
  4162.   {$EXTERNALSYM IFont}
  4163.   IFont = interface
  4164.     ['{BEF6E002-A874-101A-8BBA-00AA00300CAB}']
  4165.     function get_Name(out name: WideString): HResult; stdcall;
  4166.     function put_Name(name: WideString): HResult; stdcall;
  4167.     function get_Size(out size: Currency): HResult; stdcall;
  4168.     function put_Size(size: Currency): HResult; stdcall;
  4169.     function get_Bold(out bold: BOOL): HResult; stdcall;
  4170.     function put_Bold(bold: BOOL): HResult; stdcall;
  4171.     function get_Italic(out italic: BOOL): HResult; stdcall;
  4172.     function put_Italic(italic: BOOL): HResult; stdcall;
  4173.     function get_Underline(out underline: BOOL): HResult; stdcall;
  4174.     function put_Underline(underline: BOOL): HResult; stdcall;
  4175.     function get_Strikethrough(out strikethrough: BOOL): HResult; stdcall;
  4176.     function put_Strikethrough(strikethrough: BOOL): HResult; stdcall;
  4177.     function get_Weight(out weight: Smallint): HResult; stdcall;
  4178.     function put_Weight(weight: Smallint): HResult; stdcall;
  4179.     function get_Charset(out charset: Smallint): HResult; stdcall;
  4180.     function put_Charset(charset: Smallint): HResult; stdcall;
  4181.     function get_hFont(out font: HFont): HResult; stdcall;
  4182.     function Clone(out font: IFont): HResult; stdcall;
  4183.     function IsEqual(const fontOther: IFont): HResult; stdcall;
  4184.     function SetRatio(cyLogical, cyHimetric: Longint): HResult; stdcall;
  4185.     function QueryTextMetrics(out tm: TTextMetricOle): HResult; stdcall;
  4186.     function AddRefHfont(font: HFont): HResult; stdcall;
  4187.     function ReleaseHfont(font: HFont): HResult; stdcall;
  4188.   end;
  4189.  
  4190. { Font dispatch interface }
  4191.  
  4192.   {$EXTERNALSYM IFontDisp}
  4193.   IFontDisp = interface(IDispatch)
  4194.     ['{BEF6E003-A874-101A-8BBA-00AA00300CAB}']
  4195.   end;
  4196.  
  4197.   {$EXTERNALSYM Font}
  4198.   Font = IFontDisp;
  4199.  
  4200.   {$EXTERNALSYM PSOleAuthenticationService}
  4201.   PSOleAuthenticationService = ^TSOleAuthenticationService;
  4202.   {$EXTERNALSYM tagSOLE_AUTHENTICATION_SERVICE}
  4203.   tagSOLE_AUTHENTICATION_SERVICE = record
  4204.     dwAuthnSvc: Longint;
  4205.     dwAuthzSvc: Longint;
  4206.     pPrincipalName: POleStr;
  4207.     hr: HResult;
  4208.   end;
  4209.   {$EXTERNALSYM TSOleAuthenticationService}
  4210.   TSOleAuthenticationService = tagSOLE_AUTHENTICATION_SERVICE;
  4211.   {$EXTERNALSYM SOLE_AUTHENTICATION_SERVICE}
  4212.   SOLE_AUTHENTICATION_SERVICE = TSOleAuthenticationService;
  4213.  
  4214.  
  4215. { from OLECTL.H }
  4216. { TFontDesc structure }
  4217.  
  4218.   PFontDesc = ^TFontDesc;
  4219.   {$EXTERNALSYM tagFONTDESC}
  4220.   tagFONTDESC = record
  4221.     cbSizeofstruct: Integer;
  4222.     lpstrName: POleStr;
  4223.     cySize: Currency;
  4224.     sWeight: Smallint;
  4225.     sCharset: Smallint;
  4226.     fItalic: BOOL;
  4227.     fUnderline: BOOL;
  4228.     fStrikethrough: BOOL;
  4229.   end;
  4230.   TFontDesc = tagFONTDESC;
  4231.   {$EXTERNALSYM FONTDESC}
  4232.   FONTDESC = TFontDesc;
  4233.  
  4234.  
  4235. { from OCIDL.H }
  4236. { IPicture interface }
  4237.  
  4238.   {$EXTERNALSYM IPicture}
  4239.   IPicture = interface
  4240.     ['{7BF80980-BF32-101A-8BBB-00AA00300CAB}']
  4241.     function get_Handle(out handle: OLE_HANDLE): HResult;  stdcall;
  4242.     function get_hPal(out handle: OLE_HANDLE): HResult; stdcall;
  4243.     function get_Type(out typ: Smallint): HResult; stdcall;
  4244.     function get_Width(out width: OLE_XSIZE_HIMETRIC): HResult; stdcall;
  4245.     function get_Height(out height: OLE_YSIZE_HIMETRIC): HResult; stdcall;
  4246.     function Render(dc: HDC; x, y, cx, cy: Longint;
  4247.       xSrc: OLE_XPOS_HIMETRIC; ySrc: OLE_YPOS_HIMETRIC;
  4248.       cxSrc: OLE_XSIZE_HIMETRIC; cySrc: OLE_YSIZE_HIMETRIC;
  4249.       const rcWBounds: TRect): HResult; stdcall;
  4250.     function set_hPal(hpal: OLE_HANDLE): HResult; stdcall;
  4251.     function get_CurDC(out dcOut: HDC): HResult; stdcall;
  4252.     function SelectPicture(dcIn: HDC; out hdcOut: HDC;
  4253.       out bmpOut: OLE_HANDLE): HResult; stdcall;
  4254.     function get_KeepOriginalFormat(out fkeep: BOOL): HResult; stdcall;
  4255.     function put_KeepOriginalFormat(fkeep: BOOL): HResult; stdcall;
  4256.     function PictureChanged: HResult; stdcall;
  4257.     function SaveAsFile(const stream: IStream; fSaveMemCopy: BOOL;
  4258.       out cbSize: Longint): HResult; stdcall;
  4259.     function get_Attributes(out dwAttr: Longint): HResult; stdcall;
  4260.   end;
  4261.  
  4262. { Picture dispatch interface }
  4263.  
  4264.   {$EXTERNALSYM IPictureDisp}
  4265.   IPictureDisp = interface(IDispatch)
  4266.     ['{7BF80981-BF32-101A-8BBB-00AA00300CAB}']
  4267.   end;
  4268.  
  4269.   {$EXTERNALSYM Picture}
  4270.   Picture = IPictureDisp;
  4271.  
  4272. { from OLECTL.H }
  4273. { TPictDesc structure }
  4274.  
  4275.   PPictDesc = ^TPictDesc;
  4276.   {$EXTERNALSYM tagPICTDESC}
  4277.   tagPICTDESC = record
  4278.     cbSizeofstruct: Integer;
  4279.     picType: Integer;
  4280.     case Integer of
  4281.       PICTYPE_BITMAP: (
  4282.   hbitmap: THandle;       { Bitmap }
  4283.   hpal: THandle);         { Accompanying palette }
  4284.       PICTYPE_METAFILE: (
  4285.   hMeta: THandle;         { Metafile }
  4286.   xExt, yExt: Integer);   { Extent }
  4287.       PICTYPE_ICON: (
  4288.   hIcon: THandle);        { Icon }
  4289.       PICTYPE_ENHMETAFILE: (
  4290.   hemf: THandle);         { Enhanced Metafile }
  4291.   end;
  4292.   TPictDesc = tagPICTDESC;
  4293.   {$EXTERNALSYM PICTDESC}
  4294.   PICTDESC = TPictDesc;
  4295.  
  4296.  
  4297. { The following ActiveDoc interfaces come from DocObj.idl }
  4298.  
  4299.   {$EXTERNALSYM IOleDocumentView}
  4300.   IOleDocumentView = interface(IUnknown)
  4301.     ['{b722bcc6-4e68-101b-a2bc-00aa00404770}']
  4302.     function SetInPlaceSite(Site: IOleInPlaceSite):HResult; stdcall;
  4303.     function GetInPlaceSite(out Site: IOleInPlaceSite):HResult; stdcall;
  4304.     function GetDocument(out P: IUnknown):HResult; stdcall;
  4305.     function SetRect(const View: TRECT):HResult; stdcall;
  4306.     function GetRect(var View: TRECT):HResult; stdcall;
  4307.     function SetRectComplex(const View, HScroll, VScroll, SizeBox):HResult; stdcall;
  4308.     function Show(fShow: BOOL):HResult; stdcall;
  4309.     function UIActivate(fUIActivate: BOOL):HResult; stdcall;
  4310.     function Open:HResult; stdcall;
  4311.     function CloseView(dwReserved: DWORD):HResult; stdcall;
  4312.     function SaveViewState(pstm: IStream):HResult; stdcall;
  4313.     function ApplyViewState(pstm: IStream):HResult; stdcall;
  4314.     function Clone(NewSite: IOleInPlaceSite; out NewView: IOleDocumentView):HResult; stdcall;
  4315.   end;
  4316.  
  4317.   {$EXTERNALSYM IEnumOleDocumentViews}
  4318.   IEnumOleDocumentViews = interface(IUnknown)
  4319.     ['{b722bcc8-4e68-101b-a2bc-00aa00404770}']
  4320.     function Next(Count: Longint; out View: IOleDocumentView; var Fetched: Longint):HResult; stdcall;
  4321.     function Skip(Count: Longint):HResult; stdcall;
  4322.     function Reset:HResult; stdcall;
  4323.     function Clone(out Enum: IEnumOleDocumentViews):HResult; stdcall;
  4324.   end;
  4325.  
  4326.   {$EXTERNALSYM IOleDocument}
  4327.   IOleDocument = interface(IUnknown)
  4328.     ['{b722bcc5-4e68-101b-a2bc-00aa00404770}']
  4329.     function CreateView(Site: IOleInPlaceSite; Stream: IStream; rsrvd: DWORD;
  4330.       out View: IOleDocumentView):HResult; stdcall;
  4331.     function GetDocMiscStatus(var Status: DWORD):HResult; stdcall;
  4332.     function EnumViews(out Enum: IEnumOleDocumentViews;
  4333.       out View: IOleDocumentView):HResult; stdcall;
  4334.   end;
  4335.  
  4336.   {$EXTERNALSYM IOleDocumentSite}
  4337.   IOleDocumentSite = interface(IUnknown)
  4338.     ['{b722bcc7-4e68-101b-a2bc-00aa00404770}']
  4339.     function ActivateMe(View: IOleDocumentView): HRESULT; stdcall;
  4340.   end;
  4341.  
  4342.   {$EXTERNALSYM IContinueCallback}
  4343.   IContinueCallback = interface(IUnknown)
  4344.     ['{b722bcca-4e68-101b-a2bc-00aa00404770}']
  4345.     function Continue: HResult; stdcall;
  4346.     function ContinuePrinting( nCntPrinted, nCurPage: Longint;
  4347.       PrintStatus: PWideChar): HResult; stdcall;
  4348.   end;
  4349.  
  4350. {!! From servprov.idl: }
  4351.  
  4352.   {$EXTERNALSYM IServiceProvider}
  4353.   IServiceProvider = interface(IUnknown)
  4354.     ['{6d5140c1-7436-11ce-8034-00aa006009fa}']
  4355.     function QueryService(const rsid, iid: TGuid; out Obj): HResult; stdcall;
  4356.   end;
  4357.  
  4358.  
  4359. const
  4360.   {$EXTERNALSYM PRINTFLAG_MAYBOTHERUSER}
  4361.   PRINTFLAG_MAYBOTHERUSER         = 1;
  4362.   {$EXTERNALSYM PRINTFLAG_PROMPTUSER}
  4363.   PRINTFLAG_PROMPTUSER            = 2;
  4364.   {$EXTERNALSYM PRINTFLAG_USERMAYCHANGEPRINTER}
  4365.   PRINTFLAG_USERMAYCHANGEPRINTER  = 4;
  4366.   {$EXTERNALSYM PRINTFLAG_RECOMPOSETODEVICE}
  4367.   PRINTFLAG_RECOMPOSETODEVICE     = 8;
  4368.   {$EXTERNALSYM PRINTFLAG_DONTACTUALLYPRINT}
  4369.   PRINTFLAG_DONTACTUALLYPRINT     = 16;
  4370.   {$EXTERNALSYM PRINTFLAG_FORCEPROPERTIES}
  4371.   PRINTFLAG_FORCEPROPERTIES       = 32;
  4372.   {$EXTERNALSYM PRINTFLAG_PRINTTOFILE}
  4373.   PRINTFLAG_PRINTTOFILE           = 64;
  4374.  
  4375.   {$EXTERNALSYM PAGESET_TOLASTPAGE}
  4376.   PAGESET_TOLASTPAGE              = Cardinal(-1);
  4377.  
  4378. type
  4379.   PPageRange = ^TPageRange; //???
  4380.   {$EXTERNALSYM tagPAGERANGE}
  4381.   tagPAGERANGE = record
  4382.     nFromPage: Longint;
  4383.     nToPage: Longint;
  4384.   end;
  4385.   {$EXTERNALSYM PAGERANGE}
  4386.   PAGERANGE = tagPAGERANGE;
  4387.   TPageRange = tagPAGERANGE;
  4388.  
  4389.   PPageSet = ^TPageSet; //???
  4390.   {$EXTERNALSYM tagPAGESET}
  4391.   tagPAGESET = record
  4392.     cbStruct: Cardinal;
  4393.     fOddPages: BOOL;
  4394.     fEvenPages: BOOL;
  4395.     cPageRange: Cardinal;
  4396.     rgPages: array [0..0] of TPageRange;
  4397.   end;
  4398.   {$EXTERNALSYM PAGESET}
  4399.   PAGESET = tagPAGESET;
  4400.   TPageSet = tagPAGESET;
  4401.  
  4402.   {$EXTERNALSYM IPrint}
  4403.   IPrint = interface(IUnknown)
  4404.     ['{b722bcc9-4e68-101b-a2bc-00aa00404770}']
  4405.     function SetInitialPageNum(nFirstPage: Longint): HResult; stdcall;
  4406.     function GetPageInfo(var pnFirstPage, pcPages: Longint): HResult; stdcall;
  4407.     function Print(grfFlags: DWORD; var td: TDVTARGETDEVICE;
  4408.       PageSet: PPageSet; stgmOptions: PStgMedium; Callback: IContinueCallback;
  4409.       FirstPage: Longint; pcPagesPrinted, pnLastPage: PLongint): HResult; stdcall;
  4410.   end;
  4411.  
  4412. const
  4413.   {$EXTERNALSYM OLECMDIDF_REFRESH_NORMAL}
  4414.   OLECMDIDF_REFRESH_NORMAL     = 0;
  4415.   {$EXTERNALSYM OLECMDIDF_REFRESH_IFEXPIRED}
  4416.   OLECMDIDF_REFRESH_IFEXPIRED  = 1;
  4417.   {$EXTERNALSYM OLECMDIDF_REFRESH_CONTINUE}
  4418.   OLECMDIDF_REFRESH_CONTINUE   = 2;
  4419.   {$EXTERNALSYM OLECMDIDF_REFRESH_COMPLETELY}
  4420.   OLECMDIDF_REFRESH_COMPLETELY = 3;
  4421.  
  4422.   {$EXTERNALSYM OLECMDF_SUPPORTED}
  4423.   OLECMDF_SUPPORTED       = 1;
  4424.   {$EXTERNALSYM OLECMDF_ENABLED}
  4425.   OLECMDF_ENABLED         = 2;
  4426.   {$EXTERNALSYM OLECMDF_LATCHED}
  4427.   OLECMDF_LATCHED         = 4;
  4428.   {$EXTERNALSYM OLECMDF_NINCHED}
  4429.   OLECMDF_NINCHED         = 8;
  4430.  
  4431.   {$EXTERNALSYM OLECMDTEXTF_NONE}
  4432.   OLECMDTEXTF_NONE        = 0;
  4433.   {$EXTERNALSYM OLECMDTEXTF_NAME}
  4434.   OLECMDTEXTF_NAME        = 1;
  4435.   {$EXTERNALSYM OLECMDTEXTF_STATUS}
  4436.   OLECMDTEXTF_STATUS      = 2;
  4437.  
  4438.   {$EXTERNALSYM OLECMDEXECOPT_DODEFAULT}
  4439.   OLECMDEXECOPT_DODEFAULT         = 0;
  4440.   {$EXTERNALSYM OLECMDEXECOPT_PROMPTUSER}
  4441.   OLECMDEXECOPT_PROMPTUSER        = 1;
  4442.   {$EXTERNALSYM OLECMDEXECOPT_DONTPROMPTUSER}
  4443.   OLECMDEXECOPT_DONTPROMPTUSER    = 2;
  4444.   {$EXTERNALSYM OLECMDEXECOPT_SHOWHELP}
  4445.   OLECMDEXECOPT_SHOWHELP          = 3;
  4446.  
  4447.   {$EXTERNALSYM OLECMDID_OPEN}
  4448.   OLECMDID_OPEN                           = 1;
  4449.   {$EXTERNALSYM OLECMDID_NEW}
  4450.   OLECMDID_NEW                            = 2;
  4451.   {$EXTERNALSYM OLECMDID_SAVE}
  4452.   OLECMDID_SAVE                           = 3;
  4453.   {$EXTERNALSYM OLECMDID_SAVEAS}
  4454.   OLECMDID_SAVEAS                         = 4;
  4455.   {$EXTERNALSYM OLECMDID_SAVECOPYAS}
  4456.   OLECMDID_SAVECOPYAS                     = 5;
  4457.   {$EXTERNALSYM OLECMDID_PRINT}
  4458.   OLECMDID_PRINT                          = 6;
  4459.   {$EXTERNALSYM OLECMDID_PRINTPREVIEW}
  4460.   OLECMDID_PRINTPREVIEW                   = 7;
  4461.   {$EXTERNALSYM OLECMDID_PAGESETUP}
  4462.   OLECMDID_PAGESETUP                      = 8;
  4463.   {$EXTERNALSYM OLECMDID_SPELL}
  4464.   OLECMDID_SPELL                          = 9;
  4465.   {$EXTERNALSYM OLECMDID_PROPERTIES}
  4466.   OLECMDID_PROPERTIES                     = 10;
  4467.   {$EXTERNALSYM OLECMDID_CUT}
  4468.   OLECMDID_CUT                            = 11;
  4469.   {$EXTERNALSYM OLECMDID_COPY}
  4470.   OLECMDID_COPY                           = 12;
  4471.   {$EXTERNALSYM OLECMDID_PASTE}
  4472.   OLECMDID_PASTE                          = 13;
  4473.   {$EXTERNALSYM OLECMDID_PASTESPECIAL}
  4474.   OLECMDID_PASTESPECIAL                   = 14;
  4475.   {$EXTERNALSYM OLECMDID_UNDO}
  4476.   OLECMDID_UNDO                           = 15;
  4477.   {$EXTERNALSYM OLECMDID_REDO}
  4478.   OLECMDID_REDO                           = 16;
  4479.   {$EXTERNALSYM OLECMDID_SELECTALL}
  4480.   OLECMDID_SELECTALL                      = 17;
  4481.   {$EXTERNALSYM OLECMDID_CLEARSELECTION}
  4482.   OLECMDID_CLEARSELECTION                 = 18;
  4483.   {$EXTERNALSYM OLECMDID_ZOOM}
  4484.   OLECMDID_ZOOM                           = 19;
  4485.   {$EXTERNALSYM OLECMDID_GETZOOMRANGE}
  4486.   OLECMDID_GETZOOMRANGE                   = 20;
  4487.   {$EXTERNALSYM OLECMDID_UPDATECOMMANDS}
  4488.   OLECMDID_UPDATECOMMANDS                 = 21;
  4489.   {$EXTERNALSYM OLECMDID_REFRESH}
  4490.   OLECMDID_REFRESH                        = 22;
  4491.   {$EXTERNALSYM OLECMDID_STOP}
  4492.   OLECMDID_STOP                           = 23;
  4493.   {$EXTERNALSYM OLECMDID_HIDETOOLBARS}
  4494.   OLECMDID_HIDETOOLBARS                   = 24;
  4495.   {$EXTERNALSYM OLECMDID_SETPROGRESSMAX}
  4496.   OLECMDID_SETPROGRESSMAX                 = 25;
  4497.   {$EXTERNALSYM OLECMDID_SETPROGRESSPOS}
  4498.   OLECMDID_SETPROGRESSPOS                 = 26;
  4499.   {$EXTERNALSYM OLECMDID_SETPROGRESSTEXT}
  4500.   OLECMDID_SETPROGRESSTEXT                = 27;
  4501.   {$EXTERNALSYM OLECMDID_SETTITLE}
  4502.   OLECMDID_SETTITLE                       = 28;
  4503.   {$EXTERNALSYM OLECMDID_SETDOWNLOADSTATE}
  4504.   OLECMDID_SETDOWNLOADSTATE               = 29;
  4505.   {$EXTERNALSYM OLECMDID_STOPDOWNLOAD}
  4506.   OLECMDID_STOPDOWNLOAD                   = 30;
  4507.     // OLECMDID_STOPDOWNLOAD is supported for QueryStatus Only
  4508.  
  4509. // error codes
  4510.   {$EXTERNALSYM OLECMDERR_E_FIRST}
  4511.   OLECMDERR_E_FIRST           = OLE_E_LAST+1;
  4512.   {$EXTERNALSYM OLECMDERR_E_NOTSUPPORTED}
  4513.   OLECMDERR_E_NOTSUPPORTED    = OLECMDERR_E_FIRST;
  4514.   {$EXTERNALSYM OLECMDERR_E_DISABLED}
  4515.   OLECMDERR_E_DISABLED        = OLECMDERR_E_FIRST+1;
  4516.   {$EXTERNALSYM OLECMDERR_E_NOHELP}
  4517.   OLECMDERR_E_NOHELP          = OLECMDERR_E_FIRST+2;
  4518.   {$EXTERNALSYM OLECMDERR_E_CANCELED}
  4519.   OLECMDERR_E_CANCELED        = OLECMDERR_E_FIRST+3;
  4520.   {$EXTERNALSYM OLECMDERR_E_UNKNOWNGROUP}
  4521.   OLECMDERR_E_UNKNOWNGROUP    = OLECMDERR_E_FIRST+4;
  4522.  
  4523.   {$EXTERNALSYM MSOCMDERR_E_FIRST}
  4524.   MSOCMDERR_E_FIRST           = OLECMDERR_E_FIRST;
  4525.   {$EXTERNALSYM MSOCMDERR_E_NOTSUPPORTED}
  4526.   MSOCMDERR_E_NOTSUPPORTED    = OLECMDERR_E_NOTSUPPORTED;
  4527.   {$EXTERNALSYM MSOCMDERR_E_DISABLED}
  4528.   MSOCMDERR_E_DISABLED        = OLECMDERR_E_DISABLED;
  4529.   {$EXTERNALSYM MSOCMDERR_E_NOHELP}
  4530.   MSOCMDERR_E_NOHELP          = OLECMDERR_E_NOHELP;
  4531.   {$EXTERNALSYM MSOCMDERR_E_CANCELED}
  4532.   MSOCMDERR_E_CANCELED        = OLECMDERR_E_CANCELED;
  4533.   {$EXTERNALSYM MSOCMDERR_E_UNKNOWNGROUP}
  4534.   MSOCMDERR_E_UNKNOWNGROUP    = OLECMDERR_E_UNKNOWNGROUP;
  4535.  
  4536. type
  4537.  
  4538.   POleCmd = ^TOleCmd; //???
  4539.   {$EXTERNALSYM _tagOLECMD}
  4540.   _tagOLECMD = record
  4541.     cmdID: Cardinal;
  4542.     cmdf: Longint;
  4543.   end;
  4544.   {$EXTERNALSYM OLECMD}
  4545.   OLECMD = _tagOLECMD;
  4546.   TOleCmd = _tagOLECMD;
  4547.  
  4548.   POleCmdText = ^TOleCmdText; //???
  4549.   {$EXTERNALSYM _tagOLECMDTEXT}
  4550.   _tagOLECMDTEXT = record
  4551.     cmdtextf: Longint;
  4552.     cwActual: Cardinal;
  4553.     cwBuf: Cardinal;         // size in wide chars of the buffer for text
  4554.     rgwz: array [0..0] of WideChar; // Array into which callee writes the text
  4555.   end;
  4556.   {$EXTERNALSYM OLECMDTEXT}
  4557.   OLECMDTEXT = _tagOLECMDTEXT;
  4558.   TOleCmdText = _tagOLECMDTEXT;
  4559.  
  4560.   {$EXTERNALSYM IOleCommandTarget}
  4561.   IOleCommandTarget = interface(IUnknown)
  4562.     ['{b722bccb-4e68-101b-a2bc-00aa00404770}']
  4563.     function QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
  4564.       prgCmds: POleCmd; CmdText: POleCmdText): HResult; stdcall;
  4565.     function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
  4566.       const vaIn: OleVariant; var vaOut: OleVariant): HResult; stdcall;
  4567.   end;
  4568.  
  4569. { from designer.h}
  4570.  
  4571. const
  4572.   {$EXTERNALSYM CATID_Designer:}
  4573.   CATID_Designer: TGUID = '{4EB304D0-7555-11cf-A0C2-00AA0062BE57}';
  4574.  
  4575. type
  4576.   {$EXTERNALSYM IActiveDesigner}
  4577.   IActiveDesigner = interface
  4578.     ['{51AAE3E0-7486-11cf-A0C2-00AA0062BE57}']
  4579.     function GetRuntimeClassID(var clsid: TGUID): HResult; stdcall;
  4580.     function GetRuntimeMiscStatusFlags(var dwMiscFlags: DWORD): HResult; stdcall;
  4581.     function QueryPersistenceInterface(const iid: TGUID): HResult; stdcall;
  4582.     function SaveRuntimeState(const iidItf: TGUID; const iidObj: TGUID; Obj: IUnknown): HResult; stdcall;
  4583.     function GetExtensibilityObject(var ppvObjOut: IDispatch): HResult; stdcall;
  4584.   end;
  4585.  
  4586.  
  4587. { from webdc.h }
  4588. const
  4589.   {$EXTERNALSYM CATID_WebDesigntimeControl}
  4590.   CATID_WebDesigntimeControl: TGUID = '{73cef3dd-ae85-11cf-a406-00aa00c00940}';
  4591.  
  4592. type
  4593.   {$EXTERNALSYM IPersistTextStream}
  4594.   IPersistTextStream = interface(IPersistStreamInit)
  4595.     ['{56223fe3-d397-11cf-a42e-00aa00c00940}']
  4596.   end;
  4597.  
  4598.   {$EXTERNALSYM IProvideRuntimeText}
  4599.   IProvideRuntimeText = interface
  4600.     ['{56223FE1-D397-11cf-A42E-00AA00C00940}']
  4601.     function GetRuntimeText( var strRuntimeText: TBSTR ): HResult; stdcall;
  4602.   end;
  4603.  
  4604. const
  4605. { from CGUID.H }
  4606. { Standard GUIDs }
  4607.  
  4608.   {$EXTERNALSYM GUID_NULL}
  4609.   GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
  4610.   {$EXTERNALSYM GUID_OLE_COLOR}
  4611.   GUID_OLE_COLOR: TGUID = '{66504301-BE0F-101A-8BBB-00AA00300CAB}';
  4612.  
  4613. { Additional GUIDs }
  4614.  
  4615.   {$EXTERNALSYM IID_IRpcChannel}
  4616.   IID_IRpcChannel: TGUID = '{00000004-0000-0000-C000-000000000046}';
  4617.   {$EXTERNALSYM IID_IRpcStub}
  4618.   IID_IRpcStub: TGUID = '{00000005-0000-0000-C000-000000000046}';
  4619.   {$EXTERNALSYM IID_IStubManager}
  4620.   IID_IStubManager: TGUID = '{00000006-0000-0000-C000-000000000046}';
  4621.   {$EXTERNALSYM IID_IRpcProxy}
  4622.   IID_IRpcProxy: TGUID = '{00000007-0000-0000-C000-000000000046}';
  4623.   {$EXTERNALSYM IID_IProxyManager}
  4624.   IID_IProxyManager: TGUID = '{00000008-0000-0000-C000-000000000046}';
  4625.   {$EXTERNALSYM IID_IPSFactory}
  4626.   IID_IPSFactory: TGUID = '{00000009-0000-0000-C000-000000000046}';
  4627.   {$EXTERNALSYM IID_IInternalMoniker}
  4628.   IID_IInternalMoniker: TGUID = '{00000011-0000-0000-C000-000000000046}';
  4629.   {$EXTERNALSYM CLSID_StdMarshal}
  4630.   CLSID_StdMarshal: TGUID = '{00000017-0000-0000-C000-000000000046}';
  4631.   {$EXTERNALSYM IID_IEnumGeneric}
  4632.   IID_IEnumGeneric: TGUID = '{00000106-0000-0000-C000-000000000046}';
  4633.   {$EXTERNALSYM IID_IEnumHolder}
  4634.   IID_IEnumHolder: TGUID = '{00000107-0000-0000-C000-000000000046}';
  4635.   {$EXTERNALSYM IID_IEnumCallback}
  4636.   IID_IEnumCallback: TGUID = '{00000108-0000-0000-C000-000000000046}';
  4637.   {$EXTERNALSYM IID_IOleManager}
  4638.   IID_IOleManager: TGUID = '{0000011F-0000-0000-C000-000000000046}';
  4639.   {$EXTERNALSYM IID_IOlePresObj}
  4640.   IID_IOlePresObj: TGUID = '{00000120-0000-0000-C000-000000000046}';
  4641.   {$EXTERNALSYM IID_IDebug}
  4642.   IID_IDebug: TGUID = '{00000123-0000-0000-C000-000000000046}';
  4643.   {$EXTERNALSYM IID_IDebugStream}
  4644.   IID_IDebugStream: TGUID = '{00000124-0000-0000-C000-000000000046}';
  4645.  
  4646. { Standard class IDs }
  4647.  
  4648.   {$EXTERNALSYM CLSID_CFontPropPage}
  4649.   CLSID_CFontPropPage: TGUID = '{2542f180-3532-1069-a2cd-00aa0034b50b}';
  4650.   {$EXTERNALSYM CLSID_CColorPropPage}
  4651.   CLSID_CColorPropPage: TGUID = '{ddf5a600-b9c0-101a-af1a-00aa0034b50b}';
  4652.   {$EXTERNALSYM CLSID_CPicturePropPage}
  4653.   CLSID_CPicturePropPage: TGUID = '{fc7af71d-fc74-101a-84ed-08002b2ec713}';
  4654.   {$EXTERNALSYM CLSID_PersistPropset}
  4655.   CLSID_PersistPropset: TGUID = '{fb8f0821-0164-101b-84ed-08002b2ec713}';
  4656.   {$EXTERNALSYM CLSID_ConvertVBX}
  4657.   CLSID_ConvertVBX: TGUID = '{fb8f0822-0164-101b-84ed-08002b2ec713}';
  4658.   {$EXTERNALSYM CLSID_StdFont}
  4659.   CLSID_StdFont: TGUID = '{fb8f0823-0164-101b-84ed-08002b2ec713}';
  4660.   {$EXTERNALSYM CLSID_StdPicture}
  4661.   CLSID_StdPicture: TGUID = '{fb8f0824-0164-101b-84ed-08002b2ec713}';
  4662.  
  4663. { from comcat.h }
  4664. { COM Category Manager Interfaces }
  4665. type
  4666.   IEnumGUID = interface;
  4667.   IEnumCATEGORYINFO = interface;
  4668.   ICatRegister = interface;
  4669.   ICatInformation = interface;
  4670.  
  4671.   PCATEGORYINFO = ^TCATEGORYINFO;
  4672.   TCATEGORYINFO = record
  4673.     catid: TGUID;
  4674.     lcid: UINT;
  4675.     szDescription: array[0..127] of WideChar;
  4676.   end;
  4677.  
  4678.   IEnumGUID = interface(IUnknown)
  4679.     ['{0002E000-0000-0000-C000-000000000046}']
  4680.     function Next(celt: UINT; out rgelt: TGUID; out pceltFetched: UINT): HResult; stdcall;
  4681.     function Skip(celt: UINT): HResult; stdcall;
  4682.     function Reset: HResult; stdcall;
  4683.     function Clone(out ppenum: IEnumGUID): HResult; stdcall;
  4684.   end;
  4685.  
  4686.   IEnumCATEGORYINFO = interface(IUnknown)
  4687.     ['{0002E011-0000-0000-C000-000000000046}']
  4688.     function Next(celt: UINT; out rgelt: TCATEGORYINFO; out pceltFetched: UINT): HResult; stdcall;
  4689.     function Skip(celt: UINT): HResult; stdcall;
  4690.     function Reset: HResult; stdcall;
  4691.     function Clone(out ppenum: IEnumCATEGORYINFO): HResult; stdcall;
  4692.   end;
  4693.  
  4694.   ICatRegister = interface(IUnknown)
  4695.     ['{0002E012-0000-0000-C000-000000000046}']
  4696.     function RegisterCategories(cCategories: UINT; rgCategoryInfo: PCATEGORYINFO): HResult; stdcall;
  4697.     function UnRegisterCategories(cCategories: UINT; rgcatid: Pointer): HResult; stdcall;
  4698.     function RegisterClassImplCategories(const rclsid: TGUID; cCategories: UINT; rgcatid: Pointer): HResult; stdcall;
  4699.     function UnRegisterClassImplCategories(const rclsid: TGUID; cCategories: UINT; rgcatid: Pointer): HResult; stdcall;
  4700.     function RegisterClassReqCategories(const rclsid: TGUID; cCategories: UINT; rgcatid: Pointer): HResult; stdcall;
  4701.     function UnRegisterClassReqCategories(const rclsid: TGUID; cCategories: UINT; rgcatid: Pointer): HResult; stdcall;
  4702.   end;
  4703.  
  4704.   ICatInformation = interface(IUnknown)
  4705.     ['{0002E013-0000-0000-C000-000000000046}']
  4706.     function EnumCategories(lcid: UINT; out ppenumCategoryInfo: IEnumCATEGORYINFO): HResult; stdcall;
  4707.     function GetCategoryDesc(const rcatid: TGUID; lcid: UINT; out pszDesc: PWideChar): HResult; stdcall;
  4708.     function EnumClassesOfCategories(cImplemented: UINT; rgcatidImpl: Pointer; cRequired: UINT; rgcatidReq: Pointer; out ppenumClsid: IEnumGUID): HResult; stdcall;
  4709.     function IsClassOfCategories(const rclsid: TGUID; cImplemented: UINT; rgcatidImpl: Pointer; cRequired: UINT; rgcatidReq: Pointer): HResult; stdcall;
  4710.     function EnumImplCategoriesOfClass(var rclsid: TGUID; out ppenumCatid: IEnumGUID): HResult; stdcall;
  4711.     function EnumReqCategoriesOfClass(var rclsid: TGUID; out ppenumCatid: IEnumGUID): HResult; stdcall;
  4712.   end;
  4713.  
  4714.  
  4715. { IBindHost Interface }
  4716.   {$EXTERNALSYM IBindHost}
  4717.   IBindHost = interface(IUnknown)
  4718.     ['{fc4801a1-2ba9-11cf-a229-00aa003d7352}']
  4719.   end;
  4720.  
  4721. { IOleUndoManager Interface }
  4722.   {$EXTERNALSYM IOleUndoManager}
  4723.   IOleUndoManager = interface(IUnknown)
  4724.     ['{d001f200-ef97-11ce-9bc9-00aa00608e01}']
  4725.   end;
  4726.  
  4727. { IQuickActivate Interface }
  4728.  
  4729.   {$EXTERNALSYM tagQACONTAINER}
  4730.   tagQACONTAINER = record
  4731.     cbSize: LongInt;
  4732.     pClientSite: IOleClientSite;
  4733.     pAdviseSink: IAdviseSink;
  4734.     pPropertyNotifySink: IPropertyNotifySink;
  4735.     pUnkEventSink: IUnknown;
  4736.     dwAmbientFlags: LongInt;
  4737.     colorFore: OLE_COLOR;
  4738.     colorBack: OLE_COLOR;
  4739.     pFont: IFont;
  4740.     pUndoMgr: IOleUndoManager;
  4741.     dwAppearance: LongInt;
  4742.     lcid: LongInt;
  4743.     hpal: HPALETTE;
  4744.     pBindHost: IBindHost;
  4745.   end;
  4746.  
  4747.   PQaContainer = ^tagQACONTAINER;
  4748.   TQaContainer =  tagQACONTAINER;
  4749.  
  4750.   {$EXTERNALSYM tagQACONTROL}
  4751.   tagQACONTROL = record
  4752.     cbSize: LongInt;
  4753.     dwMiscStatus: LongInt;
  4754.     dwViewStatus: LongInt;
  4755.     dwEventCookie: LongInt;
  4756.     dwPropNotifyCookie: LongInt;
  4757.     dwPointerActivationPolicy: LongInt;
  4758.   end;
  4759.  
  4760.   PQaControl = ^TQaControl;
  4761.   TQaControl =  tagQACONTROL;
  4762.  
  4763.   {$EXTERNALSYM IQuickActivate}
  4764.   IQuickActivate = interface(IUnknown)
  4765.     ['{cf51ed10-62fe-11cf-bf86-00a0c9034836}']
  4766.     function QuickActivate(var qaCont: tagQACONTAINER; var qaCtrl: tagQACONTROL): HResult; stdcall;
  4767.     function SetContentExtent(const sizel: TPoint): HResult; stdcall;
  4768.     function GetContentExtent(out sizel: TPoint): HResult; stdcall;
  4769.   end;
  4770.  
  4771. const
  4772.   CLSID_StdComponentCategoryMgr: TGUID = '{0002E005-0000-0000-C000-000000000046}';
  4773.  
  4774. { from OBJSAFE.H }
  4775.  
  4776. //+--------------------------------------------------------------------------=
  4777. //
  4778. //  Contents:   IObjectSafety definition
  4779. //
  4780. //
  4781. //  IObjectSafety should be implemented by objects that have interfaces which
  4782. //      support "untrusted" clients (for example, scripts). It allows the owner of
  4783. //      the object to specify which interfaces need to be protected from untrusted
  4784. //      use. Examples of interfaces that might be protected in this way are:
  4785. //
  4786. //      IID_IDispatch           - "Safe for automating with untrusted automation client or script"
  4787. //      IID_IPersist*           - "Safe for initializing with untrusted data"
  4788. //      IID_IActiveScript       - "Safe for running untrusted scripts"
  4789. //
  4790. //---------------------------------------------------------------------------=
  4791.  
  4792. const
  4793.   // Option bit definitions for IObjectSafety:
  4794.   {$EXTERNALSYM INTERFACESAFE_FOR_UNTRUSTED_CALLER}
  4795.   INTERFACESAFE_FOR_UNTRUSTED_CALLER = 1;   // Caller of interface may be untrusted
  4796.   {$EXTERNALSYM INTERFACESAFE_FOR_UNTRUSTED_DATA}
  4797.   INTERFACESAFE_FOR_UNTRUSTED_DATA = 2;     // Data passed into interface may be untrusted
  4798.  
  4799. type
  4800.   {$EXTERNALSYM IObjectSafety}
  4801.   IObjectSafety = interface(IUnknown)
  4802.     ['{CB5BDC81-93C1-11CF-8F20-00805F2CD064}']
  4803.     function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions,
  4804.       pdwEnabledOptions: PDWORD): HResult; stdcall;
  4805.     function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask,
  4806.       dwEnabledOptions: DWORD): HResult; stdcall;
  4807.   end;
  4808.  
  4809. { from OBJBASE.H }
  4810. { HResult manipulation routines }
  4811.  
  4812. {$EXTERNALSYM Succeeded}
  4813. function Succeeded(Res: HResult): Boolean;
  4814. {$EXTERNALSYM Failed}
  4815. function Failed(Res: HResult): Boolean;
  4816. {$EXTERNALSYM ResultCode}
  4817. function ResultCode(Res: HResult): Integer;
  4818. {$EXTERNALSYM ResultFacility}
  4819. function ResultFacility(Res: HResult): Integer;
  4820. {$EXTERNALSYM ResultSeverity}
  4821. function ResultSeverity(Res: HResult): Integer;
  4822. {$EXTERNALSYM MakeResult}
  4823. function MakeResult(Severity, Facility, Code: Integer): HResult;
  4824.  
  4825. { GUID functions }
  4826.  
  4827. {$EXTERNALSYM IsEqualGUID}
  4828. function IsEqualGUID(const guid1, guid2: TGUID): Boolean; stdcall;
  4829. {$EXTERNALSYM IsEqualIID}
  4830. function IsEqualIID(const iid1, iid2: TIID): Boolean; stdcall;
  4831. {$EXTERNALSYM IsEqualCLSID}
  4832. function IsEqualCLSID(const clsid1, clsid2: TCLSID): Boolean; stdcall;
  4833.  
  4834. { Standard object API functions }
  4835.  
  4836. {$EXTERNALSYM CoBuildVersion}
  4837. function CoBuildVersion: Longint; stdcall;
  4838.  
  4839. { Init/Uninit }
  4840.  
  4841. const
  4842.   // flags passed as the coInit parameter to CoInitializeEx.
  4843.   {$EXTERNALSYM COINIT_MULTITHREADED}
  4844.   COINIT_MULTITHREADED      = 0;      // OLE calls objects on any thread.
  4845.   {$EXTERNALSYM COINIT_APARTMENTTHREADED}
  4846.   COINIT_APARTMENTTHREADED  = 2;      // Apartment model
  4847.   {$EXTERNALSYM COINIT_DISABLE_OLE1DDE}
  4848.   COINIT_DISABLE_OLE1DDE    = 4;      // Don't use DDE for Ole1 support.
  4849.   {$EXTERNALSYM COINIT_SPEED_OVER_MEMORY}
  4850.   COINIT_SPEED_OVER_MEMORY  = 8;      // Trade memory for speed.
  4851.  
  4852. {$EXTERNALSYM CoInitialize}
  4853. function CoInitialize(pvReserved: Pointer): HResult; stdcall;
  4854. {$EXTERNALSYM CoUninitialize}
  4855. procedure CoUninitialize; stdcall;
  4856. {$EXTERNALSYM CoGetMalloc}
  4857. function CoGetMalloc(dwMemContext: Longint; out malloc: IMalloc): HResult; stdcall;
  4858. {$EXTERNALSYM CoGetCurrentProcess}
  4859. function CoGetCurrentProcess: Longint; stdcall;
  4860. {$EXTERNALSYM CoRegisterMallocSpy}
  4861. function CoRegisterMallocSpy(mallocSpy: IMallocSpy): HResult; stdcall;
  4862. {$EXTERNALSYM CoRevokeMallocSpy}
  4863. function CoRevokeMallocSpy: HResult stdcall;
  4864. {$EXTERNALSYM CoCreateStandardMalloc}
  4865. function CoCreateStandardMalloc(memctx: Longint; out malloc: IMalloc): HResult; stdcall;
  4866. {$EXTERNALSYM CoInitializeEx}
  4867. function CoInitializeEx(pvReserved: Pointer; coInit: Longint): HResult; stdcall;
  4868.  
  4869. { Register, revoke, and get class objects }
  4870.  
  4871. {$EXTERNALSYM CoGetClassObject}
  4872. function CoGetClassObject(const clsid: TCLSID; dwClsContext: Longint;
  4873.   pvReserved: Pointer; const iid: TIID; out pv): HResult; stdcall;
  4874. {$EXTERNALSYM CoRegisterClassObject}
  4875. function CoRegisterClassObject(const clsid: TCLSID; unk: IUnknown;
  4876.   dwClsContext: Longint; flags: Longint; out dwRegister: Longint): HResult; stdcall;
  4877. {$EXTERNALSYM CoRevokeClassObject}
  4878. function CoRevokeClassObject(dwRegister: Longint): HResult; stdcall;
  4879. {$EXTERNALSYM CoResumeClassObjects}
  4880. function CoResumeClassObjects: HResult; stdcall;
  4881. {$EXTERNALSYM CoSuspendClassObjects}
  4882. function CoSuspendClassObjects: HResult; stdcall;
  4883. {$EXTERNALSYM CoAddRefServerProcess}
  4884. function CoAddRefServerProcess: Longint; stdcall;
  4885. {$EXTERNALSYM CoReleaseServerProcess}
  4886. function CoReleaseServerProcess: Longint; stdcall;
  4887. {$EXTERNALSYM CoGetPSClsid}
  4888. function CoGetPSClsid(const iid: TIID; var pClsid: TCLSID): HResult; stdcall;
  4889. {$EXTERNALSYM CoRegisterPSClsid}
  4890. function CoRegisterPSClsid(const iid: TIID; clsid: TCLSID): HResult; stdcall;
  4891.  
  4892. { Marshaling interface pointers }
  4893.  
  4894. {$EXTERNALSYM CoGetMarshalSizeMax}
  4895. function CoGetMarshalSizeMax(out ulSize: Longint; const iid: TIID;
  4896.   unk: IUnknown; dwDestContext: Longint; pvDestContext: Pointer;
  4897.   mshlflags: Longint): HResult; stdcall;
  4898. {$EXTERNALSYM CoMarshalInterface}
  4899. function CoMarshalInterface(stm: IStream; const iid: TIID; unk: IUnknown;
  4900.   dwDestContext: Longint; pvDestContext: Pointer;
  4901.   mshlflags: Longint): HResult; stdcall;
  4902. {$EXTERNALSYM CoUnmarshalInterface}
  4903. function CoUnmarshalInterface(stm: IStream; const iid: TIID;
  4904.   out pv): HResult; stdcall;
  4905. {$EXTERNALSYM CoMarshalHResult}
  4906. function CoMarshalHResult(stm: IStream; result: HResult): HResult; stdcall;
  4907. {$EXTERNALSYM CoUnmarshalHResult}
  4908. function CoUnmarshalHResult(stm: IStream; out result: HResult): HResult; stdcall;
  4909. {$EXTERNALSYM CoReleaseMarshalData}
  4910. function CoReleaseMarshalData(stm: IStream): HResult; stdcall;
  4911. {$EXTERNALSYM CoDisconnectObject}
  4912. function CoDisconnectObject(unk: IUnknown; dwReserved: Longint): HResult; stdcall;
  4913. {$EXTERNALSYM CoLockObjectExternal}
  4914. function CoLockObjectExternal(unk: IUnknown; fLock: BOOL;
  4915.   fLastUnlockReleases: BOOL): HResult; stdcall;
  4916. {$EXTERNALSYM CoGetStandardMarshal}
  4917. function CoGetStandardMarshal(const iid: TIID; unk: IUnknown;
  4918.   dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;
  4919.   out marshal: IMarshal): HResult; stdcall;
  4920.  
  4921. {$EXTERNALSYM CoIsHandlerConnected}
  4922. function CoIsHandlerConnected(unk: IUnknown): BOOL; stdcall;
  4923. {$EXTERNALSYM CoHasStrongExternalConnections}
  4924. function CoHasStrongExternalConnections(unk: IUnknown): BOOL; stdcall;
  4925.  
  4926. { Apartment model inter-thread interface passing helpers }
  4927.  
  4928. {$EXTERNALSYM CoMarshalInterThreadInterfaceInStream}
  4929. function CoMarshalInterThreadInterfaceInStream(const iid: TIID;
  4930.   unk: IUnknown; out stm: IStream): HResult; stdcall;
  4931. {$EXTERNALSYM CoGetInterfaceAndReleaseStream}
  4932. function CoGetInterfaceAndReleaseStream(stm: IStream; const iid: TIID;
  4933.   out pv): HResult; stdcall;
  4934. {$EXTERNALSYM CoCreateFreeThreadedMarshaler}
  4935. function CoCreateFreeThreadedMarshaler(unkOuter: IUnknown;
  4936.   out unkMarshal: IUnknown): HResult; stdcall;
  4937.  
  4938. { DLL loading helpers; keeps track of ref counts and unloads all on exit }
  4939.  
  4940. {$EXTERNALSYM CoLoadLibrary}
  4941. function CoLoadLibrary(pszLibName: POleStr; bAutoFree: BOOL): THandle; stdcall;
  4942. {$EXTERNALSYM CoFreeLibrary}
  4943. procedure CoFreeLibrary(hInst: THandle); stdcall;
  4944. {$EXTERNALSYM CoFreeAllLibraries}
  4945. procedure CoFreeAllLibraries; stdcall;
  4946. {$EXTERNALSYM CoFreeUnusedLibraries}
  4947. procedure CoFreeUnusedLibraries; stdcall;
  4948.  
  4949. { Call Security. }
  4950.  
  4951. {$EXTERNALSYM CoInitializeSecurity}
  4952. function CoInitializeSecurity(pSecDesc: PSecurityDescriptor; cAuthSvc: Longint;
  4953.   asAuthSvc: PSOleAuthenticationService; pReserved1: Pointer;
  4954.   dwAuthnLevel, dImpLevel: Longint; pReserved2: Pointer; dwCapabilities: Longint;
  4955.   pReserved3: Pointer): HResult; stdcall;
  4956. {$EXTERNALSYM CoGetCallContext}
  4957. function CoGetCallContext(const iid: TIID; pInterface: Pointer): HResult; stdcall;
  4958. {$EXTERNALSYM CoQueryProxyBlanket}
  4959. function CoQueryProxyBlanket(Proxy: IUnknown; pwAuthnSvc, pAuthzSvc: PLongint;
  4960.   pServerPrincName: POleStr; pAuthnLevel, pImpLevel: PLongint;
  4961.   pAuthInfo: Pointer; pCapabilites: PLongint): HResult; stdcall;
  4962. {$EXTERNALSYM CoSetProxyBlanket}
  4963. function CoSetProxyBlanket(Proxy: IUnknown; dwAuthnSvc, dwAuthzSvc: Longint;
  4964.   pServerPrincName: POleStr; dwAuthnLevel, dwImpLevel: Longint;
  4965.   pAuthInfo: Pointer; dwCapabilites: Longint): HResult; stdcall;
  4966. {$EXTERNALSYM CoCopyProxy}
  4967. function CoCopyProxy(Proxy: IUnknown; var pCopy: IUnknown): HResult; stdcall;
  4968. {$EXTERNALSYM CoQueryClientBlanket}
  4969. function CoQueryClientBlanket(pwAuthnSvc, pAuthzSvc: PLongint;
  4970.   pServerPrincName: POleStr; dwAuthnLevel, dwImpLevel: Longint;
  4971.   pPrivs: Pointer; dwCapabilites: Longint): HResult; stdcall;
  4972. {$EXTERNALSYM CoImpersonateClient}
  4973. function CoImpersonateClient: HResult; stdcall;
  4974. {$EXTERNALSYM CoRevertToSelf}
  4975. function CoRevertToSelf: HResult; stdcall;
  4976. {$EXTERNALSYM CoQueryAuthenticationServices}
  4977. function CoQueryAuthenticationServices(pcAuthSvc: PLongint;
  4978.   asAuthSvc: PSOleAuthenticationService): HResult; stdcall;
  4979. {$EXTERNALSYM CoSwitchCallContext}
  4980. function CoSwitchCallContext(NewObject: IUnknown; var pOldObject: IUnknown): HResult; stdcall;
  4981.  
  4982. { Helper for creating instances }
  4983.  
  4984. {$EXTERNALSYM CoCreateInstance}
  4985. function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown;
  4986.   dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;
  4987. {$EXTERNALSYM CoGetInstanceFromFile}
  4988. function CoGetInstanceFromFile(ServerInfo: PCoServerInfo; clsid: PCLSID;
  4989.   punkOuter: IUnknown; dwClsCtx, grfMode: Longint; pwszName: POleStr;
  4990.   dwCount: Longint; rgmqResults: PMultiQIArray): HResult; stdcall;
  4991. {$EXTERNALSYM CoGetInstanceFromIStorage}
  4992. function CoGetInstanceFromIStorage(ServerInfo: PCoServerInfo; clsid: PCLSID;
  4993.   punkOuter: IUnknown; dwClsCtx: Longint; stg: IUnknown;
  4994.   dwCount: Longint; rgmqResults: PMultiQIArray): HResult; stdcall;
  4995. {$EXTERNALSYM CoCreateInstanceEx}
  4996. function CoCreateInstanceEx(const clsid: TCLSID;
  4997.   unkOuter: IUnknown; dwClsCtx: Longint; ServerInfo: PCoServerInfo;
  4998.   dwCount: Longint; rgmqResults: PMultiQIArray): HResult; stdcall;
  4999.  
  5000. { Other helpers }
  5001.  
  5002. {$EXTERNALSYM StringFromCLSID}
  5003. function StringFromCLSID(const clsid: TCLSID; out psz: POleStr): HResult; stdcall;
  5004. {$EXTERNALSYM CLSIDFromString}
  5005. function CLSIDFromString(psz: POleStr; out clsid: TCLSID): HResult; stdcall;
  5006. {$EXTERNALSYM StringFromIID}
  5007. function StringFromIID(const iid: TIID; out psz: POleStr): HResult; stdcall;
  5008. {$EXTERNALSYM IIDFromString}
  5009. function IIDFromString(psz: POleStr; out iid: TIID): HResult; stdcall;
  5010. {$EXTERNALSYM CoIsOle1Class}
  5011. function CoIsOle1Class(const clsid: TCLSID): BOOL; stdcall;
  5012. {$EXTERNALSYM ProgIDFromCLSID}
  5013. function ProgIDFromCLSID(const clsid: TCLSID; out pszProgID: POleStr): HResult; stdcall;
  5014. {$EXTERNALSYM CLSIDFromProgID}
  5015. function CLSIDFromProgID(pszProgID: POleStr; out clsid: TCLSID): HResult; stdcall;
  5016. {$EXTERNALSYM StringFromGUID2}
  5017. function StringFromGUID2(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall;
  5018.  
  5019. {$EXTERNALSYM CoCreateGuid}
  5020. function CoCreateGuid(out guid: TGUID): HResult; stdcall;
  5021.  
  5022. {$EXTERNALSYM CoFileTimeToDosDateTime}
  5023. function CoFileTimeToDosDateTime(const filetime: TFileTime; out dosDate: Word;
  5024.   out dosTime: Word): BOOL; stdcall;
  5025. {$EXTERNALSYM CoDosDateTimeToFileTime}
  5026. function CoDosDateTimeToFileTime(nDosDate: Word; nDosTime: Word;
  5027.   out filetime: TFileTime): BOOL; stdcall;
  5028. {$EXTERNALSYM CoFileTimeNow}
  5029. function CoFileTimeNow(out filetime: TFileTime): HResult; stdcall;
  5030. {$EXTERNALSYM CoRegisterMessageFilter}
  5031. function CoRegisterMessageFilter(messageFilter: IMessageFilter;
  5032.   out pMessageFilter: IMessageFilter): HResult; stdcall;
  5033. {$EXTERNALSYM CoRegisterChannelHook}
  5034. function CoRegisterChannelHook(const ExtensionUuid: TGUID;
  5035.   ChannelHook: IChannelHook): HResult; stdcall;
  5036.  
  5037. { TreatAs APIs }
  5038.  
  5039. {$EXTERNALSYM CoGetTreatAsClass}
  5040. function CoGetTreatAsClass(const clsidOld: TCLSID; out clsidNew: TCLSID): HResult; stdcall;
  5041. {$EXTERNALSYM CoTreatAsClass}
  5042. function CoTreatAsClass(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall;
  5043.  
  5044. { The server DLLs must define their DllGetClassObject and DllCanUnloadNow
  5045.   to match these; the typedefs are located here to ensure all are changed at
  5046.   the same time }
  5047.  
  5048. type
  5049.   {$EXTERNALSYM TDLLGetClassObject}
  5050.   TDLLGetClassObject = function(const clsid: TCLSID; const iid: TIID;
  5051.     out pv): HResult stdcall;
  5052.   {$EXTERNALSYM TDLLCanUnloadNow}
  5053.   TDLLCanUnloadNow = function: HResult stdcall;
  5054.  
  5055. { Default memory allocation }
  5056.  
  5057. {$EXTERNALSYM CoTaskMemAlloc}
  5058. function CoTaskMemAlloc(cb: Longint): Pointer; stdcall;
  5059. {$EXTERNALSYM CoTaskMemRealloc}
  5060. function CoTaskMemRealloc(pv: Pointer; cb: Longint): Pointer; stdcall;
  5061. {$EXTERNALSYM CoTaskMemFree}
  5062. procedure CoTaskMemFree(pv: Pointer); stdcall;
  5063.  
  5064. { DV APIs }
  5065.  
  5066. {$EXTERNALSYM CreateDataAdviseHolder}
  5067. function CreateDataAdviseHolder(out DAHolder: IDataAdviseHolder): HResult; stdcall;
  5068. {$EXTERNALSYM CreateDataCache}
  5069. function CreateDataCache(unkOuter: IUnknown; const clsid: TCLSID;
  5070.   const iid: TIID; out pv): HResult; stdcall;
  5071.  
  5072. { Storage API prototypes }
  5073.  
  5074. {$EXTERNALSYM StgCreateDocfile}
  5075. function StgCreateDocfile(pwcsName: POleStr; grfMode: Longint;
  5076.   reserved: Longint; out stgOpen: IStorage): HResult; stdcall;
  5077. {$EXTERNALSYM StgCreateDocfileOnILockBytes}
  5078. function StgCreateDocfileOnILockBytes(lkbyt: ILockBytes; grfMode: Longint;
  5079.   reserved: Longint; out stgOpen: IStorage): HResult; stdcall;
  5080. {$EXTERNALSYM StgOpenStorage}
  5081. function StgOpenStorage(pwcsName: POleStr; stgPriority: IStorage;
  5082.   grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  5083.   out stgOpen: IStorage): HResult; stdcall;
  5084. {$EXTERNALSYM StgOpenStorageOnILockBytes}
  5085. function StgOpenStorageOnILockBytes(lkbyt: ILockBytes; stgPriority: IStorage;
  5086.   grfMode: Longint; snbExclude: TSNB; reserved: Longint;
  5087.   out stgOpen: IStorage): HResult; stdcall;
  5088. {$EXTERNALSYM StgIsStorageFile}
  5089. function StgIsStorageFile(pwcsName: POleStr): HResult; stdcall;
  5090. {$EXTERNALSYM StgIsStorageILockBytes}
  5091. function StgIsStorageILockBytes(lkbyt: ILockBytes): HResult; stdcall;
  5092. {$EXTERNALSYM StgSetTimes}
  5093. function StgSetTimes(pszName: POleStr; const ctime: TFileTime;
  5094.   const atime: TFileTime; const mtime: TFileTime): HResult; stdcall;
  5095. {$EXTERNALSYM StgOpenAsyncDocfileOnIFillLockBytes}
  5096. function StgOpenAsyncDocfileOnIFillLockBytes(flb: IFillLockBytes;
  5097.   grfMode, asyncFlags: Longint; var stgOpen: IStorage): HResult; stdcall;
  5098. {$EXTERNALSYM StgGetIFillLockBytesOnILockBytes}
  5099. function StgGetIFillLockBytesOnILockBytes(ilb: ILockBytes;
  5100.   var flb: IFillLockBytes): HResult; stdcall;
  5101. {$EXTERNALSYM StgGetIFillLockBytesOnFile}
  5102. function StgGetIFillLockBytesOnFile(pwcsName: POleStr;
  5103.   var flb: IFillLockBytes): HResult; stdcall;
  5104. {$EXTERNALSYM StgOpenLayoutDocfile}
  5105. function StgOpenLayoutDocfile(pwcsDfName: POleStr; grfMode, reserved: Longint;
  5106.   var stgOpen: IStorage): HResult; stdcall;
  5107.  
  5108.  
  5109. { Moniker APIs }
  5110.  
  5111. {$EXTERNALSYM BindMoniker}
  5112. function BindMoniker(mk: IMoniker; grfOpt: Longint; const iidResult: TIID;
  5113.   out pvResult): HResult; stdcall;
  5114. {$EXTERNALSYM CoGetObject}
  5115. function CoGetObject(pszName: PWideString; pBindOptions: PBindOpts;
  5116.   const iid: TIID; ppv: Pointer): HResult; stdcall;
  5117. {$EXTERNALSYM MkParseDisplayName}
  5118. function MkParseDisplayName(bc: IBindCtx; szUserName: POleStr;
  5119.   out chEaten: Longint; out mk: IMoniker): HResult; stdcall;
  5120. {$EXTERNALSYM MonikerRelativePathTo}
  5121. function MonikerRelativePathTo(mkSrc: IMoniker; mkDest: IMoniker;
  5122.   out mkRelPath: IMoniker; dwReserved: BOOL): HResult; stdcall;
  5123. {$EXTERNALSYM MonikerCommonPrefixWith}
  5124. function MonikerCommonPrefixWith(mkThis: IMoniker; mkOther: IMoniker;
  5125.   out mkCommon: IMoniker): HResult; stdcall;
  5126. {$EXTERNALSYM CreateBindCtx}
  5127. function CreateBindCtx(reserved: Longint; out bc: IBindCtx): HResult; stdcall;
  5128. {$EXTERNALSYM CreateGenericComposite}
  5129. function CreateGenericComposite(mkFirst: IMoniker; mkRest: IMoniker;
  5130.   out mkComposite: IMoniker): HResult; stdcall;
  5131. {$EXTERNALSYM GetClassFile}
  5132. function GetClassFile(szFilename: POleStr; out clsid: TCLSID): HResult; stdcall;
  5133. {$EXTERNALSYM CreateFileMoniker}
  5134. function CreateFileMoniker(pszPathName: POleStr; out mk: IMoniker): HResult; stdcall;
  5135. {$EXTERNALSYM CreateItemMoniker}
  5136. function CreateItemMoniker(pszDelim: POleStr; pszItem: POleStr;
  5137.   out mk: IMoniker): HResult; stdcall;
  5138. {$EXTERNALSYM CreateAntiMoniker}
  5139. function CreateAntiMoniker(out mk: IMoniker): HResult; stdcall;
  5140. {$EXTERNALSYM CreatePointerMoniker}
  5141. function CreatePointerMoniker(unk: IUnknown; out mk: IMoniker): HResult; stdcall;
  5142. {$EXTERNALSYM GetRunningObjectTable}
  5143. function GetRunningObjectTable(reserved: Longint;
  5144.   out rot: IRunningObjectTable): HResult; stdcall;
  5145.  
  5146. { from OLEAUTO.H }
  5147. { TBStr API }
  5148.  
  5149. {$EXTERNALSYM SysAllocString}
  5150. function SysAllocString(psz: POleStr): TBStr; stdcall;
  5151. {$EXTERNALSYM SysReAllocString}
  5152. function SysReAllocString(var bstr: TBStr; psz: POleStr): Integer; stdcall;
  5153. {$EXTERNALSYM SysAllocStringLen}
  5154. function SysAllocStringLen(psz: POleStr; len: Integer): TBStr; stdcall;
  5155. {$EXTERNALSYM SysReAllocStringLen}
  5156. function SysReAllocStringLen(var bstr: TBStr; psz: POleStr;
  5157.   len: Integer): Integer; stdcall;
  5158. {$EXTERNALSYM SysFreeString}
  5159. procedure SysFreeString(bstr: TBStr); stdcall;
  5160. {$EXTERNALSYM SysStringLen}
  5161. function SysStringLen(bstr: TBStr): Integer; stdcall;
  5162. {$EXTERNALSYM SysStringByteLen}
  5163. function SysStringByteLen(bstr: TBStr): Integer; stdcall;
  5164. {$EXTERNALSYM SysAllocStringByteLen}
  5165. function SysAllocStringByteLen(psz: PChar; len: Integer): TBStr; stdcall;
  5166.  
  5167. { Time API }
  5168.  
  5169. {$EXTERNALSYM DosDateTimeToVariantTime}
  5170. function DosDateTimeToVariantTime(wDosDate, wDosTime: Word;
  5171.   out vtime: TOleDate): Integer; stdcall;
  5172. {$EXTERNALSYM VariantTimeToDosDateTime}
  5173. function VariantTimeToDosDateTime(vtime: TOleDate; out wDosDate,
  5174.   wDosTime: Word): Integer; stdcall;
  5175. {$EXTERNALSYM SystemTimeToVariantTime}
  5176. function SystemTimeToVariantTime(var SystemTime: TSystemTime;
  5177.   out vtime: TOleDate): Integer; stdcall;
  5178. {$EXTERNALSYM VariantTimeToSystemTime}
  5179. function VariantTimeToSystemTime(vtime: TOleDate;
  5180.   out SystemTime: TSystemTime): Integer; stdcall;
  5181.  
  5182. { SafeArray API }
  5183.  
  5184. {$EXTERNALSYM SafeArrayAllocDescriptor}
  5185. function SafeArrayAllocDescriptor(cDims: Integer; out psaOut: PSafeArray): HResult; stdcall;
  5186. {$EXTERNALSYM SafeArrayAllocData}
  5187. function SafeArrayAllocData(psa: PSafeArray): HResult; stdcall;
  5188. {$EXTERNALSYM SafeArrayCreate}
  5189. function SafeArrayCreate(vt: TVarType; cDims: Integer; const rgsabound): PSafeArray; stdcall;
  5190. {$EXTERNALSYM SafeArrayCreateVector}
  5191. function SafeArrayCreateVector(vt: TVarType; Lbound, cElements: Longint): PSafeArray; stdcall;
  5192. {$EXTERNALSYM SafeArrayCopyData}
  5193. function SafeArrayCopyData(psaSource, psaTarget: PSafeArray): HResult; stdcall;
  5194. {$EXTERNALSYM SafeArrayDestroyDescriptor}
  5195. function SafeArrayDestroyDescriptor(psa: PSafeArray): HResult; stdcall;
  5196. {$EXTERNALSYM SafeArrayDestroyData}
  5197. function SafeArrayDestroyData(psa: PSafeArray): HResult; stdcall;
  5198. {$EXTERNALSYM SafeArrayDestroy}
  5199. function SafeArrayDestroy(psa: PSafeArray): HResult; stdcall;
  5200. {$EXTERNALSYM SafeArrayRedim}
  5201. function SafeArrayRedim(psa: PSafeArray; const saboundNew: TSafeArrayBound): HResult; stdcall;
  5202. {$EXTERNALSYM SafeArrayGetDim}
  5203. function SafeArrayGetDim(psa: PSafeArray): Integer; stdcall;
  5204. {$EXTERNALSYM SafeArrayGetElemsize}
  5205. function SafeArrayGetElemsize(psa: PSafeArray): Integer; stdcall;
  5206. {$EXTERNALSYM SafeArrayGetUBound}
  5207. function SafeArrayGetUBound(psa: PSafeArray; nDim: Integer; out lUbound: Longint): HResult; stdcall;
  5208. {$EXTERNALSYM SafeArrayGetLBound}
  5209. function SafeArrayGetLBound(psa: PSafeArray; nDim: Integer; out lLbound: Longint): HResult; stdcall;
  5210. {$EXTERNALSYM SafeArrayLock}
  5211. function SafeArrayLock(psa: PSafeArray): HResult; stdcall;
  5212. {$EXTERNALSYM SafeArrayUnlock}
  5213. function SafeArrayUnlock(psa: PSafeArray): HResult; stdcall;
  5214. {$EXTERNALSYM SafeArrayAccessData}
  5215. function SafeArrayAccessData(psa: PSafeArray; out pvData: Pointer): HResult; stdcall;
  5216. {$EXTERNALSYM SafeArrayUnaccessData}
  5217. function SafeArrayUnaccessData(psa: PSafeArray): HResult; stdcall;
  5218. {$EXTERNALSYM SafeArrayGetElement}
  5219. function SafeArrayGetElement(psa: PSafeArray; const rgIndices; out pv): HResult; stdcall;
  5220. {$EXTERNALSYM SafeArrayPutElement}
  5221. function SafeArrayPutElement(psa: PSafeArray; const rgIndices; const pv): HResult; stdcall;
  5222. {$EXTERNALSYM SafeArrayCopy}
  5223. function SafeArrayCopy(psa: PSafeArray; out psaOut: PSafeArray): HResult; stdcall;
  5224. {$EXTERNALSYM SafeArrayPtrOfIndex}
  5225. function SafeArrayPtrOfIndex(psa: PSafeArray; var rgIndices; out pvData: Pointer): HResult; stdcall;
  5226.  
  5227. { Variant API }
  5228.  
  5229. {$EXTERNALSYM VariantInit}
  5230. procedure VariantInit(var varg: OleVariant); stdcall;
  5231. {$EXTERNALSYM VariantClear}
  5232. function VariantClear(var varg: OleVariant): HResult; stdcall;
  5233. {$EXTERNALSYM VariantCopy}
  5234. function VariantCopy(var vargDest: OleVariant; const vargSrc: OleVariant): HResult; stdcall;
  5235. {$EXTERNALSYM VariantCopyInd}
  5236. function VariantCopyInd(var varDest: OleVariant; const vargSrc: OleVariant): HResult; stdcall;
  5237. {$EXTERNALSYM VariantChangeType}
  5238. function VariantChangeType(var vargDest: OleVariant; const vargSrc: OleVariant;
  5239.   wFlags: Word; vt: TVarType): HResult; stdcall;
  5240. {$EXTERNALSYM VariantChangeTypeEx}
  5241. function VariantChangeTypeEx(var vargDest: OleVariant; const vargSrc: OleVariant;
  5242.   lcid: TLCID; wFlags: Word; vt: TVarType): HResult; stdcall;
  5243.  
  5244. { Vector <-> Bstr conversion APIs }
  5245.  
  5246. {$EXTERNALSYM VectorFromBstr}
  5247. function VectorFromBstr(bstr: TBStr; out psa: PSafeArray): HResult; stdcall;
  5248. {$EXTERNALSYM BstrFromVector}
  5249. function BstrFromVector(psa: PSafeArray; out bstr: TBStr): HResult; stdcall;
  5250.  
  5251. { VarType coercion API }
  5252.  
  5253. { Note: The routines that convert from a string are defined
  5254.   to take a POleStr rather than a TBStr because no allocation is
  5255.   required, and this makes the routines a bit more generic.
  5256.   They may of course still be passed a TBStr as the strIn param. }
  5257.  
  5258. { Any of the coersion functions that converts either from or to a string
  5259.   takes an additional lcid and dwFlags arguments. The lcid argument allows
  5260.   locale specific parsing to occur.  The dwFlags allow additional function
  5261.   specific condition to occur.  All function that accept the dwFlags argument
  5262.   can include either 0 or LOCALE_NOUSEROVERRIDE flag. In addition, the
  5263.   VarDateFromStr functions also accepts the VAR_TIMEVALUEONLY and
  5264.   VAR_DATEVALUEONLY flags }
  5265.  
  5266. {$EXTERNALSYM VarUI1FromI2}
  5267. function VarUI1FromI2(sIn: Smallint; out bOut: Byte): HResult; stdcall;
  5268. {$EXTERNALSYM VarUI1FromI4}
  5269. function VarUI1FromI4(lIn: Longint; out bOut: Byte): HResult; stdcall;
  5270. {$EXTERNALSYM VarUI1FromR4}
  5271. function VarUI1FromR4(fltIn: Single; out bOut: Byte): HResult; stdcall;
  5272. {$EXTERNALSYM VarUI1FromR8}
  5273. function VarUI1FromR8(dblIn: Double; out bOut: Byte): HResult; stdcall;
  5274. {$EXTERNALSYM VarUI1FromCy}
  5275. function VarUI1FromCy(cyIn: Currency; out bOut: Byte): HResult; stdcall;
  5276. {$EXTERNALSYM VarUI1FromDate}
  5277. function VarUI1FromDate(dateIn: TOleDate; out bOut: Byte): HResult; stdcall;
  5278. {$EXTERNALSYM VarUI1FromStr}
  5279. function VarUI1FromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out bOut: Byte): HResult; stdcall;
  5280. {$EXTERNALSYM VarUI1FromDisp}
  5281. function VarUI1FromDisp(dispIn: IDispatch; lcid: TLCID; out bOut: Byte): HResult; stdcall;
  5282. {$EXTERNALSYM VarUI1FromBool}
  5283. function VarUI1FromBool(boolIn: TOleBool; out bOut: Byte): HResult; stdcall;
  5284. {$EXTERNALSYM VarUI1FromI1}
  5285. function VarUI1FromI1(cIn: Char; out bOut: Byte): HResult; stdcall;
  5286. {$EXTERNALSYM VarUI1FromUI2}
  5287. function VarUI1FromUI2(uiIn: Word; out bOut: Byte): HResult; stdcall;
  5288. {$EXTERNALSYM VarUI1FromUI4}
  5289. function VarUI1FromUI4(ulIn: Longint; out bOut: Byte): HResult; stdcall;
  5290. {$EXTERNALSYM VarUI1FromDec}
  5291. function VarUI1FromDec(pdecIn: PDecimal; out bOut: Byte): HResult; stdcall;
  5292.  
  5293. {$EXTERNALSYM VarI2FromUI1}
  5294. function VarI2FromUI1(bIn: Byte; out sOut: Smallint): HResult; stdcall;
  5295. {$EXTERNALSYM VarI2FromI4}
  5296. function VarI2FromI4(lIn: Longint; out sOut: Smallint): HResult; stdcall;
  5297. {$EXTERNALSYM VarI2FromR4}
  5298. function VarI2FromR4(fltIn: Single; out sOut: Smallint): HResult; stdcall;
  5299. {$EXTERNALSYM VarI2FromR8}
  5300. function VarI2FromR8(dblIn: Double; out sOut: Smallint): HResult; stdcall;
  5301. {$EXTERNALSYM VarI2FromCy}
  5302. function VarI2FromCy(cyIn: Currency; out sOut: Smallint): HResult; stdcall;
  5303. {$EXTERNALSYM VarI2FromDate}
  5304. function VarI2FromDate(dateIn: TOleDate; out sOut: Smallint): HResult; stdcall;
  5305. {$EXTERNALSYM VarI2FromStr}
  5306. function VarI2FromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out sOut: Smallint): HResult; stdcall;
  5307. {$EXTERNALSYM VarI2FromDisp}
  5308. function VarI2FromDisp(dispIn: IDispatch; lcid: TLCID; out sOut: Smallint): HResult; stdcall;
  5309. {$EXTERNALSYM VarI2FromBool}
  5310. function VarI2FromBool(boolIn: TOleBool; out sOut: Smallint): HResult; stdcall;
  5311. {$EXTERNALSYM VarI2FromI1}
  5312. function VarI2FromI1(cIn: Char; out bOut: Smallint): HResult; stdcall;
  5313. {$EXTERNALSYM VarI2FromUI2}
  5314. function VarI2FromUI2(uiIn: Word; out bOut: Smallint): HResult; stdcall;
  5315. {$EXTERNALSYM VarI2FromUI4}
  5316. function VarI2FromUI4(ulIn: Longint; out bOut: Smallint): HResult; stdcall;
  5317. {$EXTERNALSYM VarI2FromDec}
  5318. function VarI2FromDec(pdecIn: PDecimal; out bOut: Smallint): HResult; stdcall;
  5319.  
  5320. {$EXTERNALSYM VarI4FromUI1}
  5321. function VarI4FromUI1(bIn: Byte; out lOut: Longint): HResult; stdcall;
  5322. {$EXTERNALSYM VarI4FromI2}
  5323. function VarI4FromI2(sIn: Smallint; out lOut: Longint): HResult; stdcall;
  5324. {$EXTERNALSYM VarI4FromR4}
  5325. function VarI4FromR4(fltIn: Single; out lOut: Longint): HResult; stdcall;
  5326. {$EXTERNALSYM VarI4FromR8}
  5327. function VarI4FromR8(dblIn: Double; out lOut: Longint): HResult; stdcall;
  5328. {$EXTERNALSYM VarI4FromCy}
  5329. function VarI4FromCy(cyIn: Currency; out lOut: Longint): HResult; stdcall;
  5330. {$EXTERNALSYM VarI4FromDate}
  5331. function VarI4FromDate(dateIn: TOleDate; out lOut: Longint): HResult; stdcall;
  5332. {$EXTERNALSYM VarI4FromStr}
  5333. function VarI4FromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out lOut: Longint): HResult; stdcall;
  5334. {$EXTERNALSYM VarI4FromDisp}
  5335. function VarI4FromDisp(dispIn: IDispatch; lcid: TLCID; out lOut: Longint): HResult; stdcall;
  5336. {$EXTERNALSYM VarI4FromBool}
  5337. function VarI4FromBool(boolIn: TOleBool; out lOut: Longint): HResult; stdcall;
  5338. {$EXTERNALSYM VarI4FromI1}
  5339. function VarI4FromI1(cIn: Char; out bOut: Longint): HResult; stdcall;
  5340. {$EXTERNALSYM VarI4FromUI2}
  5341. function VarI4FromUI2(uiIn: Word; out bOut: Longint): HResult; stdcall;
  5342. {$EXTERNALSYM VarI4FromUI4}
  5343. function VarI4FromUI4(ulIn: Longint; out bOut: Longint): HResult; stdcall;
  5344. {$EXTERNALSYM VarI4FromDec}
  5345. function VarI4FromDec(pdecIn: PDecimal; out bOut: Longint): HResult; stdcall;
  5346. {$EXTERNALSYM VarI4FromInt}
  5347. function VarI4FromInt(intIn: Integer; out bOut: Longint): HResult; stdcall;
  5348.  
  5349. {$EXTERNALSYM VarR4FromUI1}
  5350. function VarR4FromUI1(bIn: Byte; out fltOut: Single): HResult; stdcall;
  5351. {$EXTERNALSYM VarR4FromI2}
  5352. function VarR4FromI2(sIn: Smallint; out fltOut: Single): HResult; stdcall;
  5353. {$EXTERNALSYM VarR4FromI4}
  5354. function VarR4FromI4(lIn: Longint; out fltOut: Single): HResult; stdcall;
  5355. {$EXTERNALSYM VarR4FromR8}
  5356. function VarR4FromR8(dblIn: Double; out fltOut: Single): HResult; stdcall;
  5357. {$EXTERNALSYM VarR4FromCy}
  5358. function VarR4FromCy(cyIn: Currency; out fltOut: Single): HResult; stdcall;
  5359. {$EXTERNALSYM VarR4FromDate}
  5360. function VarR4FromDate(dateIn: TOleDate; out fltOut: Single): HResult; stdcall;
  5361. {$EXTERNALSYM VarR4FromStr}
  5362. function VarR4FromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out fltOut: Single): HResult; stdcall;
  5363. {$EXTERNALSYM VarR4FromDisp}
  5364. function VarR4FromDisp(dispIn: IDispatch; lcid: TLCID; out fltOut: Single): HResult; stdcall;
  5365. {$EXTERNALSYM VarR4FromBool}
  5366. function VarR4FromBool(boolIn: TOleBool; out fltOut: Single): HResult; stdcall;
  5367. {$EXTERNALSYM VarR4FromI1}
  5368. function VarR4FromI1(cIn: Char; out bOut: Single): HResult; stdcall;
  5369. {$EXTERNALSYM VarR4FromUI2}
  5370. function VarR4FromUI2(uiIn: Word; out bOut: Single): HResult; stdcall;
  5371. {$EXTERNALSYM VarR4FromUI4}
  5372. function VarR4FromUI4(ulIn: Longint; out bOut: Single): HResult; stdcall;
  5373. {$EXTERNALSYM VarR4FromDec}
  5374. function VarR4FromDec(pdecIn: PDecimal; out bOut: Single): HResult; stdcall;
  5375.  
  5376. {$EXTERNALSYM VarR8FromUI1}
  5377. function VarR8FromUI1(bIn: Byte; out dblOut: Double): HResult; stdcall;
  5378. {$EXTERNALSYM VarR8FromI2}
  5379. function VarR8FromI2(sIn: Smallint; out dblOut: Double): HResult; stdcall;
  5380. {$EXTERNALSYM VarR8FromI4}
  5381. function VarR8FromI4(lIn: Longint; out dblOut: Double): HResult; stdcall;
  5382. {$EXTERNALSYM VarR8FromR4}
  5383. function VarR8FromR4(fltIn: Single; out dblOut: Double): HResult; stdcall;
  5384. {$EXTERNALSYM VarR8FromCy}
  5385. function VarR8FromCy(cyIn: Currency; out dblOut: Double): HResult; stdcall;
  5386. {$EXTERNALSYM VarR8FromDate}
  5387. function VarR8FromDate(dateIn: TOleDate; out dblOut: Double): HResult; stdcall;
  5388. {$EXTERNALSYM VarR8FromStr}
  5389. function VarR8FromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out dblOut: Double): HResult; stdcall;
  5390. {$EXTERNALSYM VarR8FromDisp}
  5391. function VarR8FromDisp(dispIn: IDispatch; lcid: TLCID; out dblOut: Double): HResult; stdcall;
  5392. {$EXTERNALSYM VarR8FromBool}
  5393. function VarR8FromBool(boolIn: TOleBool; out dblOut: Double): HResult; stdcall;
  5394. {$EXTERNALSYM VarR8FromI1}
  5395. function VarR8FromI1(cIn: Char; out bOut: Double): HResult; stdcall;
  5396. {$EXTERNALSYM VarR8FromUI2}
  5397. function VarR8FromUI2(uiIn: Word; out bOut: Double): HResult; stdcall;
  5398. {$EXTERNALSYM VarR8FromUI4}
  5399. function VarR8FromUI4(ulIn: Longint; out bOut: Double): HResult; stdcall;
  5400. {$EXTERNALSYM VarR8FromDec}
  5401. function VarR8FromDec(pdecIn: PDecimal; out bOut: Double): HResult; stdcall;
  5402.  
  5403. {$EXTERNALSYM VarDateFromUI1}
  5404. function VarDateFromUI1(bIn: Byte; out dateOut: TOleDate): HResult; stdcall;
  5405. {$EXTERNALSYM VarDateFromI2}
  5406. function VarDateFromI2(sIn: Smallint; out dateOut: TOleDate): HResult; stdcall;
  5407. {$EXTERNALSYM VarDateFromI4}
  5408. function VarDateFromI4(lIn: Longint; out dateOut: TOleDate): HResult; stdcall;
  5409. {$EXTERNALSYM VarDateFromR4}
  5410. function VarDateFromR4(fltIn: Single; out dateOut: TOleDate): HResult; stdcall;
  5411. {$EXTERNALSYM VarDateFromR8}
  5412. function VarDateFromR8(dblIn: Double; out dateOut: TOleDate): HResult; stdcall;
  5413. {$EXTERNALSYM VarDateFromCy}
  5414. function VarDateFromCy(cyIn: Currency; out dateOut: TOleDate): HResult; stdcall;
  5415. {$EXTERNALSYM VarDateFromStr}
  5416. function VarDateFromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out dateOut: TOleDate): HResult; stdcall;
  5417. {$EXTERNALSYM VarDateFromDisp}
  5418. function VarDateFromDisp(dispIn: IDispatch; lcid: TLCID; out dateOut: TOleDate): HResult; stdcall;
  5419. {$EXTERNALSYM VarDateFromBool}
  5420. function VarDateFromBool(boolIn: TOleBool; out dateOut: TOleDate): HResult; stdcall;
  5421. {$EXTERNALSYM VarDateFromI1}
  5422. function VarDateFromI1(cIn: Char; out bOut: TOleDate): HResult; stdcall;
  5423. {$EXTERNALSYM VarDateFromUI2}
  5424. function VarDateFromUI2(uiIn: Word; out bOut: TOleDate): HResult; stdcall;
  5425. {$EXTERNALSYM VarDateFromUI4}
  5426. function VarDateFromUI4(ulIn: Longint; out bOut: TOleDate): HResult; stdcall;
  5427. {$EXTERNALSYM VarDateFromDec}
  5428. function VarDateFromDec(pdecIn: PDecimal; out bOut: TOleDate): HResult; stdcall;
  5429.  
  5430. {$EXTERNALSYM VarCyFromUI1}
  5431. function VarCyFromUI1(bIn: Byte; out cyOut: Currency): HResult; stdcall;
  5432. {$EXTERNALSYM VarCyFromI2}
  5433. function VarCyFromI2(sIn: Smallint; out cyOut: Currency): HResult; stdcall;
  5434. {$EXTERNALSYM VarCyFromI4}
  5435. function VarCyFromI4(lIn: Longint; out cyOut: Currency): HResult; stdcall;
  5436. {$EXTERNALSYM VarCyFromR4}
  5437. function VarCyFromR4(fltIn: Single; out cyOut: Currency): HResult; stdcall;
  5438. {$EXTERNALSYM VarCyFromR8}
  5439. function VarCyFromR8(dblIn: Double; out cyOut: Currency): HResult; stdcall;
  5440. {$EXTERNALSYM VarCyFromDate}
  5441. function VarCyFromDate(dateIn: TOleDate; out cyOut: Currency): HResult; stdcall;
  5442. {$EXTERNALSYM VarCyFromStr}
  5443. function VarCyFromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out cyOut: Currency): HResult; stdcall;
  5444. {$EXTERNALSYM VarCyFromDisp}
  5445. function VarCyFromDisp(dispIn: IDispatch; lcid: TLCID; out cyOut: Currency): HResult; stdcall;
  5446. {$EXTERNALSYM VarCyFromBool}
  5447. function VarCyFromBool(boolIn: TOleBool; out cyOut: Currency): HResult; stdcall;
  5448. {$EXTERNALSYM VarCyFromI1}
  5449. function VarCyFromI1(cIn: Char; out bOut: Currency): HResult; stdcall;
  5450. {$EXTERNALSYM VarCyFromUI2}
  5451. function VarCyFromUI2(uiIn: Word; out bOut: Currency): HResult; stdcall;
  5452. {$EXTERNALSYM VarCyFromUI4}
  5453. function VarCyFromUI4(ulIn: Longint; out bOut: Currency): HResult; stdcall;
  5454. {$EXTERNALSYM VarCyFromDec}
  5455. function VarCyFromDec(pdecIn: PDecimal; out bOut: Currency): HResult; stdcall;
  5456.  
  5457. {$EXTERNALSYM VarBStrFromUI1}
  5458. function VarBStrFromUI1(bVal: Byte; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5459. {$EXTERNALSYM VarBStrFromI2}
  5460. function VarBStrFromI2(iVal: Smallint; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5461. {$EXTERNALSYM VarBStrFromI4}
  5462. function VarBStrFromI4(lIn: Longint; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5463. {$EXTERNALSYM VarBStrFromR4}
  5464. function VarBStrFromR4(fltIn: Single; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5465. {$EXTERNALSYM VarBStrFromR8}
  5466. function VarBStrFromR8(dblIn: Double; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5467. {$EXTERNALSYM VarBStrFromCy}
  5468. function VarBStrFromCy(cyIn: Currency; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5469. {$EXTERNALSYM VarBStrFromDate}
  5470. function VarBStrFromDate(dateIn: TOleDate; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5471. {$EXTERNALSYM VarBStrFromDisp}
  5472. function VarBStrFromDisp(dispIn: IDispatch; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5473. {$EXTERNALSYM VarBStrFromBool}
  5474. function VarBStrFromBool(boolIn: TOleBool; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5475. {$EXTERNALSYM VarBStrFromI1}
  5476. function VarBStrFromI1(cIn: Char; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5477. {$EXTERNALSYM VarBStrFromUI2}
  5478. function VarBStrFromUI2(uiIn: Word; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5479. {$EXTERNALSYM VarBStrFromUI4}
  5480. function VarBStrFromUI4(ulIn: Longint; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5481. {$EXTERNALSYM VarBStrFromDec}
  5482. function VarBStrFromDec(pdecIn: PDecimal; lcid: TLCID; dwFlags: Longint; out bstrOut: WideString): HResult; stdcall;
  5483.  
  5484. {$EXTERNALSYM VarBoolFromUI1}
  5485. function VarBoolFromUI1(bIn: Byte; out boolOut: TOleBool): HResult; stdcall;
  5486. {$EXTERNALSYM VarBoolFromI2}
  5487. function VarBoolFromI2(sIn: Smallint; out boolOut: TOleBool): HResult; stdcall;
  5488. {$EXTERNALSYM VarBoolFromI4}
  5489. function VarBoolFromI4(lIn: Longint; out boolOut: TOleBool): HResult; stdcall;
  5490. {$EXTERNALSYM VarBoolFromR4}
  5491. function VarBoolFromR4(fltIn: Single; out boolOut: TOleBool): HResult; stdcall;
  5492. {$EXTERNALSYM VarBoolFromR8}
  5493. function VarBoolFromR8(dblIn: Double; out boolOut: TOleBool): HResult; stdcall;
  5494. {$EXTERNALSYM VarBoolFromDate}
  5495. function VarBoolFromDate(dateIn: TOleDate; out boolOut: TOleBool): HResult; stdcall;
  5496. {$EXTERNALSYM VarBoolFromCy}
  5497. function VarBoolFromCy(cyIn: Currency; out boolOut: TOleBool): HResult; stdcall;
  5498. {$EXTERNALSYM VarBoolFromStr}
  5499. function VarBoolFromStr(const strIn: WideString; lcid: TLCID; dwFlags: Longint; out boolOut: TOleBool): HResult; stdcall;
  5500. {$EXTERNALSYM VarBoolFromDisp}
  5501. function VarBoolFromDisp(dispIn: IDispatch; lcid: TLCID; out boolOut: TOleBool): HResult; stdcall;
  5502. {$EXTERNALSYM VarBoolFromI1}
  5503. function VarBoolFromI1(cIn: Char; out boolOut: TOleBool): HResult; stdcall;
  5504. {$EXTERNALSYM VarBoolFromUI2}
  5505. function VarBoolFromUI2(uiIn: Word; out boolOut: TOleBool): HResult; stdcall;
  5506. {$EXTERNALSYM VarBoolFromUI4}
  5507. function VarBoolFromUI4(ulIn: Longint; out boolOut: TOleBool): HResult; stdcall;
  5508. {$EXTERNALSYM VarBoolFromDec}
  5509. function VarBoolFromDec(pdecIn: PDecimal; out boolOut: TOleBool): HResult; stdcall;
  5510.  
  5511. { TypeInfo API }
  5512.  
  5513. {$EXTERNALSYM LHashValOfNameSys}
  5514. function LHashValOfNameSys(syskind: TSysKind; lcid: TLCID;
  5515.   szName: POleStr): Longint; stdcall;
  5516. {$EXTERNALSYM LHashValOfNameSysA}
  5517. function LHashValOfNameSysA(syskind: TSysKind; lcid: TLCID;
  5518.   szName: PChar): Longint; stdcall;
  5519.  
  5520. {$EXTERNALSYM LHashValOfName}
  5521. function LHashValOfName(lcid: TLCID; szName: POleStr): Longint;
  5522. {$EXTERNALSYM WHashValOfLHashVal}
  5523. function WHashValOfLHashVal(lhashval: Longint): Word;
  5524. {$EXTERNALSYM IsHashValCompatible}
  5525. function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean;
  5526.  
  5527. {$EXTERNALSYM LoadTypeLib}
  5528. function LoadTypeLib(szFile: POleStr; out tlib: ITypeLib): HResult; stdcall;
  5529. {$EXTERNALSYM LoadTypeLibEx}
  5530. function LoadTypeLibEx(szFile: POleStr; regkind: TRegKind; out tlib: ITypeLib): HResult; stdcall;
  5531. {$EXTERNALSYM LoadRegTypeLib}
  5532. function LoadRegTypeLib(const guid: TGUID; wVerMajor, wVerMinor: Word;
  5533.   lcid: TLCID; out tlib: ITypeLib): HResult; stdcall;
  5534. {$EXTERNALSYM QueryPathOfRegTypeLib}
  5535. function QueryPathOfRegTypeLib(const guid: TGUID; wMaj, wMin: Word;
  5536.   lcid: TLCID; out bstrPathName: WideString): HResult; stdcall;
  5537. {$EXTERNALSYM RegisterTypeLib}
  5538. function RegisterTypeLib(tlib: ITypeLib; szFullPath, szHelpDir: POleStr): HResult; stdcall;
  5539. {$EXTERNALSYM UnRegisterTypeLib}
  5540. function UnRegisterTypeLib(const libID: TGUID; wVerMajor, wVerMinor: Word;
  5541.   lcid: TLCID; syskind: TSysKind): HResult; stdcall;
  5542. {$EXTERNALSYM CreateTypeLib}
  5543. function CreateTypeLib(syskind: TSysKind; szFile: POleStr;
  5544.   out ctlib: ICreateTypeLib): HResult; stdcall;
  5545. {$EXTERNALSYM CreateTypeLib2}
  5546. function CreateTypeLib2(syskind: TSysKind; szFile: POleStr;
  5547.   out ctlib: ICreateTypeLib2): HResult; stdcall;
  5548.  
  5549. { IDispatch implementation support }
  5550.  
  5551. {$EXTERNALSYM DispGetParam}
  5552. function DispGetParam(const dispparams: TDispParams; position: Integer;
  5553.   vtTarg: TVarType; var varResult: OleVariant; var puArgErr: Integer): HResult; stdcall;
  5554. {$EXTERNALSYM DispGetIDsOfNames}
  5555. function DispGetIDsOfNames(tinfo: ITypeInfo; rgszNames: POleStrList;
  5556.   cNames: Integer; rgdispid: PDispIDList): HResult; stdcall;
  5557. {$EXTERNALSYM DispInvoke}
  5558. function DispInvoke(This: Pointer; tinfo: ITypeInfo; dispidMember: TDispID;
  5559.   wFlags: Word; var params: TDispParams; varResult: PVariant;
  5560.   excepinfo: PExcepInfo; puArgErr: PInteger): HResult; stdcall;
  5561. {$EXTERNALSYM CreateDispTypeInfo}
  5562. function CreateDispTypeInfo(var idata: TInterfaceData; lcid: TLCID;
  5563.   out tinfo: ITypeInfo): HResult; stdcall;
  5564. {$EXTERNALSYM CreateStdDispatch}
  5565. function CreateStdDispatch(unkOuter: IUnknown; pvThis: Pointer;
  5566.   tinfo: ITypeInfo; out unkStdDisp: IUnknown): HResult; stdcall;
  5567. {$EXTERNALSYM DispCallFunc}
  5568. function DispCallFunc(pvInstance: Pointer; oVft: Longint; cc: TCallConv;
  5569.   vtReturn: TVarType; cActuals: Longint; var rgvt: TVarType; var prgpvarg: OleVariant;
  5570.   var vargResult: OleVariant): HResult; stdcall;
  5571.  
  5572.  
  5573. { Active object registration API }
  5574. const
  5575.   {$EXTERNALSYM ACTIVEOBJECT_STRONG}
  5576.   ACTIVEOBJECT_STRONG = 0;
  5577.   {$EXTERNALSYM ACTIVEOBJECT_WEAK}
  5578.   ACTIVEOBJECT_WEAK = 1;
  5579.  
  5580. {$EXTERNALSYM RegisterActiveObject}
  5581. function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID;
  5582.   dwFlags: Longint; out dwRegister: Longint): HResult; stdcall;
  5583. {$EXTERNALSYM RevokeActiveObject}
  5584. function RevokeActiveObject(dwRegister: Longint; pvReserved: Pointer): HResult; stdcall;
  5585. {$EXTERNALSYM GetActiveObject}
  5586. function GetActiveObject(const clsid: TCLSID; pvReserved: Pointer;
  5587.   out unk: IUnknown): HResult; stdcall;
  5588.  
  5589. { ErrorInfo API }
  5590.  
  5591. {$EXTERNALSYM SetErrorInfo}
  5592. function SetErrorInfo(dwReserved: Longint; errinfo: IErrorInfo): HResult; stdcall;
  5593. {$EXTERNALSYM GetErrorInfo}
  5594. function GetErrorInfo(dwReserved: Longint; out errinfo: IErrorInfo): HResult; stdcall;
  5595. {$EXTERNALSYM CreateErrorInfo}
  5596. function CreateErrorInfo(out errinfo: ICreateErrorInfo): HResult; stdcall;
  5597.  
  5598. { Misc API }
  5599.  
  5600. {$EXTERNALSYM OaBuildVersion}
  5601. function OaBuildVersion: Longint; stdcall;
  5602.  
  5603. procedure ClearCustData(var pCustData: TCustData); stdcall;
  5604. {$EXTERNALSYM ClearCustData}
  5605.  
  5606. { from OLE2.H }
  5607. { OLE API prototypes }
  5608.  
  5609. {$EXTERNALSYM OleBuildVersion}
  5610. function OleBuildVersion: HResult; stdcall;
  5611.  
  5612. { helper functions }
  5613.  
  5614. {$EXTERNALSYM ReadClassStg}
  5615. function ReadClassStg(stg: IStorage; out clsid: TCLSID): HResult; stdcall;
  5616. {$EXTERNALSYM WriteClassStg}
  5617. function WriteClassStg(stg: IStorage; const clsid: TIID): HResult; stdcall;
  5618. {$EXTERNALSYM ReadClassStm}
  5619. function ReadClassStm(stm: IStream; out clsid: TCLSID): HResult; stdcall;
  5620. {$EXTERNALSYM WriteClassStm}
  5621. function WriteClassStm(stm: IStream; const clsid: TIID): HResult; stdcall;
  5622. {$EXTERNALSYM WriteFmtUserTypeStg}
  5623. function WriteFmtUserTypeStg(stg: IStorage; cf: TClipFormat;
  5624.   pszUserType: POleStr): HResult; stdcall;
  5625. {$EXTERNALSYM ReadFmtUserTypeStg}
  5626. function ReadFmtUserTypeStg(stg: IStorage; out cf: TClipFormat;
  5627.   out pszUserType: POleStr): HResult; stdcall;
  5628.  
  5629. { Initialization and termination }
  5630.  
  5631. {$EXTERNALSYM OleInitialize}
  5632. function OleInitialize(pwReserved: Pointer): HResult; stdcall;
  5633. {$EXTERNALSYM OleUninitialize}
  5634. procedure OleUninitialize; stdcall;
  5635.  
  5636. { APIs to query whether (Embedded/Linked) object can be created from
  5637.   the data object }
  5638.  
  5639. {$EXTERNALSYM OleQueryLinkFromData}
  5640. function OleQueryLinkFromData(srcDataObject: IDataObject): HResult; stdcall;
  5641. {$EXTERNALSYM OleQueryCreateFromData}
  5642. function OleQueryCreateFromData(srcDataObject: IDataObject): HResult; stdcall;
  5643.  
  5644. { Object creation APIs }
  5645.  
  5646. {$EXTERNALSYM OleCreate}
  5647. function OleCreate(const clsid: TCLSID; const iid: TIID; renderopt: Longint;
  5648.   formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5649.   stg: IStorage; out vObj): HResult; stdcall;
  5650. {$EXTERNALSYM OleCreateEx}
  5651. function OleCreateEx(const clsid: TCLSID; const iid: TIID;
  5652.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5653.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5654.   stg: IStorage; out vObj): HResult; stdcall;
  5655. {$EXTERNALSYM OleCreateFromData}
  5656. function OleCreateFromData(srcDataObj: IDataObject; const iid: TIID;
  5657.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5658.   stg: IStorage; out vObj): HResult; stdcall;
  5659. {$EXTERNALSYM OleCreateFromDataEx}
  5660. function OleCreateFromDataEx(srcDataObj: IDataObject; const iid: TIID;
  5661.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5662.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5663.   stg: IStorage; out vObj): HResult; stdcall;
  5664. {$EXTERNALSYM OleCreateLinkFromData}
  5665. function OleCreateLinkFromData(srcDataObj: IDataObject; const iid: TIID;
  5666.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5667.   stg: IStorage; out vObj): HResult; stdcall;
  5668. {$EXTERNALSYM OleCreateLinkFromDataEx}
  5669. function OleCreateLinkFromDataEx(srcDataObj: IDataObject; const iid: TIID;
  5670.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5671.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5672.   stg: IStorage; out vObj): HResult; stdcall;
  5673. {$EXTERNALSYM OleCreateStaticFromData}
  5674. function OleCreateStaticFromData(srcDataObj: IDataObject; const iid: TIID;
  5675.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5676.   stg: IStorage; out vObj): HResult; stdcall;
  5677. {$EXTERNALSYM OleCreateLink}
  5678. function OleCreateLink(mkLinkSrc: IMoniker; const iid: TIID;
  5679.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5680.   stg: IStorage; out vObj): HResult; stdcall;
  5681. {$EXTERNALSYM OleCreateLinkEx}
  5682. function OleCreateLinkEx(mkLinkSrc: IMoniker; const iid: TIID;
  5683.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5684.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5685.   stg: IStorage; out vObj): HResult; stdcall;
  5686. {$EXTERNALSYM OleCreateLinkToFile}
  5687. function OleCreateLinkToFile(pszFileName: POleStr; const iid: TIID;
  5688.   renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite;
  5689.   stg: IStorage; out vObj): HResult; stdcall;
  5690. {$EXTERNALSYM OleCreateLinkToFileEx}
  5691. function OleCreateLinkToFileEx(pszFileName: POleStr; const iid: TIID;
  5692.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5693.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5694.   stg: IStorage; out vObj): HResult; stdcall;
  5695. {$EXTERNALSYM OleCreateFromFile}
  5696. function OleCreateFromFile(const clsid: TCLSID; pszFileName: POleStr;
  5697.   const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc;
  5698.   clientSite: IOleClientSite; stg: IStorage; out vObj): HResult; stdcall;
  5699. {$EXTERNALSYM OleCreateFromFileEx}
  5700. function OleCreateFromFileEx(const clsid: TCLSID; pszFileName: POleStr; const iid: TIID;
  5701.   dwFlags, renderopt, cFormats: Longint; rgAdvf: PLongintList; rgFFormatEtc: PFormatEtc;
  5702.   AdviseSink: IAdviseSink; rgdwConnection: PLongintList; clientSite: IOleClientSite;
  5703.   stg: IStorage; out vObj): HResult; stdcall;
  5704. {$EXTERNALSYM OleLoad}
  5705. function OleLoad(stg: IStorage; const iid: TIID; clientSite: IOleClientSite;
  5706.   out vObj): HResult; stdcall;
  5707. {$EXTERNALSYM OleSave}
  5708. function OleSave(ps: IPersistStorage; stg: IStorage; fSameAsLoad: BOOL): HResult; stdcall;
  5709. {$EXTERNALSYM OleLoadFromStream}
  5710. function OleLoadFromStream(stm: IStream; const iidInterface: TIID;
  5711.   out vObj): HResult; stdcall;
  5712. {$EXTERNALSYM OleSaveToStream}
  5713. function OleSaveToStream(pstm: IPersistStream; stm: IStream): HResult; stdcall;
  5714. {$EXTERNALSYM OleSetContainedObject}
  5715. function OleSetContainedObject(unknown: IUnknown; fContained: BOOL): HResult; stdcall;
  5716. {$EXTERNALSYM OleNoteObjectVisible}
  5717. function OleNoteObjectVisible(unknown: IUnknown; fVisible: BOOL): HResult; stdcall;
  5718.  
  5719. { DragDrop APIs }
  5720.  
  5721. {$EXTERNALSYM RegisterDragDrop}
  5722. function RegisterDragDrop(wnd: HWnd; dropTarget: IDropTarget): HResult; stdcall;
  5723. {$EXTERNALSYM RevokeDragDrop}
  5724. function RevokeDragDrop(wnd: HWnd): HResult; stdcall;
  5725. {$EXTERNALSYM DoDragDrop}
  5726. function DoDragDrop(dataObj: IDataObject; dropSource: IDropSource;
  5727.   dwOKEffects: Longint; var dwEffect: Longint): HResult; stdcall;
  5728.  
  5729. { Clipboard APIs }
  5730.  
  5731. {$EXTERNALSYM OleSetClipboard}
  5732. function OleSetClipboard(dataObj: IDataObject): HResult; stdcall;
  5733. {$EXTERNALSYM OleGetClipboard}
  5734. function OleGetClipboard(out dataObj: IDataObject): HResult; stdcall;
  5735. {$EXTERNALSYM OleFlushClipboard}
  5736. function OleFlushClipboard: HResult; stdcall;
  5737. {$EXTERNALSYM OleIsCurrentClipboard}
  5738. function OleIsCurrentClipboard(dataObj: IDataObject): HResult; stdcall;
  5739.  
  5740. { In-place editing APIs }
  5741.  
  5742. {$EXTERNALSYM OleCreateMenuDescriptor}
  5743. function OleCreateMenuDescriptor(hmenuCombined: HMenu;
  5744.   var menuWidths: TOleMenuGroupWidths): HMenu; stdcall;
  5745. {$EXTERNALSYM OleSetMenuDescriptor}
  5746. function OleSetMenuDescriptor(holemenu: HMenu; hwndFrame: HWnd;
  5747.   hwndActiveObject: HWnd; frame: IOleInPlaceFrame;
  5748.   activeObj: IOleInPlaceActiveObject): HResult; stdcall;
  5749. {$EXTERNALSYM OleDestroyMenuDescriptor}
  5750. function OleDestroyMenuDescriptor(holemenu: HMenu): HResult; stdcall;
  5751. {$EXTERNALSYM OleTranslateAccelerator}
  5752. function OleTranslateAccelerator(frame: IOleInPlaceFrame;
  5753.   var frameInfo: TOleInPlaceFrameInfo; msg: PMsg): HResult; stdcall;
  5754.  
  5755. { Helper APIs }
  5756.  
  5757. {$EXTERNALSYM OleDuplicateData}
  5758. function OleDuplicateData(hSrc: THandle; cfFormat: TClipFormat;
  5759.   uiFlags: Integer): THandle; stdcall;
  5760. {$EXTERNALSYM OleDraw}
  5761. function OleDraw(unknown: IUnknown; dwAspect: Longint; hdcDraw: HDC;
  5762.   const rcBounds: TRect): HResult; stdcall;
  5763. {$EXTERNALSYM OleRun}
  5764. function OleRun(unknown: IUnknown): HResult; stdcall;
  5765. {$EXTERNALSYM OleIsRunning}
  5766. function OleIsRunning(obj: IOleObject): BOOL; stdcall;
  5767. {$EXTERNALSYM OleLockRunning}
  5768. function OleLockRunning(unknown: IUnknown; fLock: BOOL;
  5769.   fLastUnlockCloses: BOOL): HResult; stdcall;
  5770. {$EXTERNALSYM ReleaseStgMedium}
  5771. procedure ReleaseStgMedium(var medium: TStgMedium); stdcall;
  5772. {$EXTERNALSYM CreateOleAdviseHolder}
  5773. function CreateOleAdviseHolder(out OAHolder: IOleAdviseHolder): HResult; stdcall;
  5774. {$EXTERNALSYM OleCreateDefaultHandler}
  5775. function OleCreateDefaultHandler(const clsid: TCLSID; unkOuter: IUnknown;
  5776.   const iid: TIID; out vObj): HResult; stdcall;
  5777. {$EXTERNALSYM OleCreateEmbeddingHelper}
  5778. function OleCreateEmbeddingHelper(const clsid: TCLSID; unkOuter: IUnknown;
  5779.   flags: Longint; cf: IClassFactory; const iid: TIID; out vObj): HResult; stdcall;
  5780. {$EXTERNALSYM IsAccelerator}
  5781. function IsAccelerator(accel: HAccel; cAccelEntries: Integer; msg: PMsg;
  5782.   var pwCmd: Word): BOOL; stdcall;
  5783.  
  5784. { Icon extraction helper APIs }
  5785.  
  5786. {$EXTERNALSYM OleGetIconOfFile}
  5787. function OleGetIconOfFile(pszPath: POleStr; fUseFileAsLabel: BOOL): HGlobal; stdcall;
  5788. {$EXTERNALSYM OleGetIconOfClass}
  5789. function OleGetIconOfClass(const clsid: TCLSID; pszLabel: POleStr;
  5790.   fUseTypeAsLabel: BOOL): HGlobal; stdcall;
  5791. {$EXTERNALSYM OleMetafilePictFromIconAndLabel}
  5792. function OleMetafilePictFromIconAndLabel(icon: HIcon; pszLabel: POleStr;
  5793.   pszSourceFile: POleStr; iIconIndex: Integer): HGlobal; stdcall;
  5794.  
  5795. { Registration database helper APIs }
  5796.  
  5797. {$EXTERNALSYM OleRegGetUserType}
  5798. function OleRegGetUserType(const clsid: TCLSID; dwFormOfType: Longint;
  5799.   out pszUserType: POleStr): HResult; stdcall;
  5800. {$EXTERNALSYM OleRegGetMiscStatus}
  5801. function OleRegGetMiscStatus(const clsid: TCLSID; dwAspect: Longint;
  5802.   out dwStatus: Longint): HResult; stdcall;
  5803. {$EXTERNALSYM OleRegEnumFormatEtc}
  5804. function OleRegEnumFormatEtc(const clsid: TCLSID; dwDirection: Longint;
  5805.   out Enum: IEnumFormatEtc): HResult; stdcall;
  5806. {$EXTERNALSYM OleRegEnumVerbs}
  5807. function OleRegEnumVerbs(const clsid: TCLSID;
  5808.   out Enum: IEnumOleVerb): HResult; stdcall;
  5809.  
  5810. { OLE 1.0 conversion APIs }
  5811.  
  5812. {$EXTERNALSYM OleConvertIStorageToOLESTREAM}
  5813. function OleConvertIStorageToOLESTREAM(stg: IStorage;
  5814.   polestm: Pointer): HResult; stdcall;
  5815. {$EXTERNALSYM OleConvertOLESTREAMToIStorage}
  5816. function OleConvertOLESTREAMToIStorage(polestm: Pointer; stg: IStorage;
  5817.   td: PDVTargetDevice): HResult; stdcall;
  5818. {$EXTERNALSYM OleConvertIStorageToOLESTREAMEx}
  5819. function OleConvertIStorageToOLESTREAMEx(stg: IStorage; cfFormat: TClipFormat;
  5820.   lWidth: Longint; lHeight: Longint; dwSize: Longint; var medium: TStgMedium;
  5821.   polestm: Pointer): HResult; stdcall;
  5822. {$EXTERNALSYM OleConvertOLESTREAMToIStorageEx}
  5823. function OleConvertOLESTREAMToIStorageEx(polestm: Pointer; stg: IStorage;
  5824.   var cfFormat: TClipFormat; var lWidth: Longint; var lHeight: Longint;
  5825.   var dwSize: Longint; var medium: TStgMedium): HResult; stdcall;
  5826.  
  5827. { Storage utility APIs }
  5828.  
  5829. {$EXTERNALSYM GetHGlobalFromILockBytes}
  5830. function GetHGlobalFromILockBytes(lkbyt: ILockBytes; out hglob: HGlobal): HResult; stdcall;
  5831. {$EXTERNALSYM CreateILockBytesOnHGlobal}
  5832. function CreateILockBytesOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL;
  5833.   out lkbyt: ILockBytes): HResult; stdcall;
  5834. {$EXTERNALSYM GetHGlobalFromStream}
  5835. function GetHGlobalFromStream(stm: IStream; out hglob: HGlobal): HResult; stdcall;
  5836. {$EXTERNALSYM CreateStreamOnHGlobal}
  5837. function CreateStreamOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL;
  5838.   out stm: IStream): HResult; stdcall;
  5839.  
  5840. { ConvertTo APIs }
  5841.  
  5842. {$EXTERNALSYM OleDoAutoConvert}
  5843. function OleDoAutoConvert(stg: IStorage; out clsidNew: TCLSID): HResult; stdcall;
  5844. {$EXTERNALSYM OleGetAutoConvert}
  5845. function OleGetAutoConvert(const clsidOld: TCLSID; out clsidNew: TCLSID): HResult; stdcall;
  5846. {$EXTERNALSYM OleSetAutoConvert}
  5847. function OleSetAutoConvert(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall;
  5848. {$EXTERNALSYM GetConvertStg}
  5849. function GetConvertStg(stg: IStorage): HResult; stdcall;
  5850. {$EXTERNALSYM SetConvertStg}
  5851. function SetConvertStg(stg: IStorage; fConvert: BOOL): HResult; stdcall;
  5852.  
  5853. { from OLECTL.H }
  5854. { Property frame APIs }
  5855.  
  5856. {$EXTERNALSYM OleCreatePropertyFrame}
  5857. function OleCreatePropertyFrame(hwndOwner: HWnd; x, y: Integer;
  5858.   lpszCaption: POleStr; cObjects: Integer; pObjects: Pointer;
  5859.   cPages: Integer; pPageCLSIDs: Pointer; lcid: TLCID; dwReserved: Longint;
  5860.   pvReserved: Pointer): HResult; stdcall;
  5861. {$EXTERNALSYM OleCreatePropertyFrameIndirect}
  5862. function OleCreatePropertyFrameIndirect(const Params: TOCPFIParams): HResult; stdcall;
  5863.  
  5864. { Standard type APIs }
  5865.  
  5866. {$EXTERNALSYM OleTranslateColor}
  5867. function OleTranslateColor(clr: TOleColor; hpal: HPalette;
  5868.  out colorref: TColorRef): HResult; stdcall;
  5869. {$EXTERNALSYM OleCreateFontIndirect}
  5870. function OleCreateFontIndirect(const FontDesc: TFontDesc; const iid: TIID;
  5871.   out vObject): HResult; stdcall;
  5872. {$EXTERNALSYM OleCreatePictureIndirect}
  5873. function OleCreatePictureIndirect(const PictDesc: TPictDesc; const iid: TIID;
  5874.   fOwn: BOOL; out vObject): HResult; stdcall;
  5875. {$EXTERNALSYM OleLoadPicture}
  5876. function OleLoadPicture(stream: IStream; lSize: Longint; fRunmode: BOOL;
  5877.   const iid: TIID; out vObject): HResult; stdcall;
  5878. {$EXTERNALSYM OleLoadPicturePath}
  5879. function OleLoadPicturePath(szURLorPath: POleStr; unkCaller: IUnknown;
  5880.   dwReserved: Longint; clrReserved: TOleColor; const iid: TIID;
  5881.   ppvRet: Pointer): HResult; stdcall;
  5882. {$EXTERNALSYM OleLoadPictureFile}
  5883. function OleLoadPictureFile(varFileName: OleVariant;
  5884.   var lpdispPicture: IDispatch): HResult; stdcall;
  5885. {$EXTERNALSYM OleSavePictureFile}
  5886. function OleSavePictureFile(dispPicture: IDispatch;
  5887.   bstrFileName: TBStr): HResult; stdcall;
  5888. {$EXTERNALSYM OleIconToCursor}
  5889. function OleIconToCursor(hinstExe: THandle; hIcon: THandle): HCursor; stdcall;
  5890.  
  5891. // Macros for parsing the OS Version of the Property Set Header
  5892. {$EXTERNALSYM PROPSETHDR_OSVER_KIND}
  5893. function PROPSETHDR_OSVER_KIND(dwOSVer: DWORD): Word;
  5894. {$EXTERNALSYM PROPSETHDR_OSVER_MAJOR}
  5895. function PROPSETHDR_OSVER_MAJOR(dwOSVer: DWORD): Byte;
  5896. {$EXTERNALSYM PROPSETHDR_OSVER_MINOR}
  5897. function PROPSETHDR_OSVER_MINOR(dwOSVer: DWORD): Byte;
  5898.  
  5899. const
  5900.   {$EXTERNALSYM PROPSETHDR_OSVERSION_UNKNOWN}
  5901.   PROPSETHDR_OSVERSION_UNKNOWN        = $FFFFFFFF;
  5902.  
  5903. implementation
  5904.  
  5905. const
  5906.   ole32    = 'ole32.dll';
  5907.   oleaut32 = 'oleaut32.dll';
  5908.   olepro32 = 'olepro32.dll';
  5909.  
  5910. { Externals from ole32.dll }
  5911.  
  5912. function IsEqualGUID;                   external ole32 name 'IsEqualGUID';
  5913. function IsEqualIID;                    external ole32 name 'IsEqualGUID';
  5914. function IsEqualCLSID;                  external ole32 name 'IsEqualGUID';
  5915. function CoBuildVersion;                external ole32 name 'CoBuildVersion';
  5916. function CoInitialize;                  external ole32 name 'CoInitialize';
  5917. function CoInitializeEx;                external ole32 name 'CoInitializeEx';
  5918. procedure CoUninitialize;               external ole32 name 'CoUninitialize';
  5919. function CoGetMalloc;                   external ole32 name 'CoGetMalloc';
  5920. function CoGetCurrentProcess;           external ole32 name 'CoGetCurrentProcess';
  5921. function CoRegisterMallocSpy;           external ole32 name 'CoRegisterMallocSpy';
  5922. function CoRevokeMallocSpy;             external ole32 name 'CoRevokeMallocSpy';
  5923. function CoCreateStandardMalloc;        external ole32 name 'CoCreateStandardMalloc';
  5924. function CoGetClassObject;              external ole32 name 'CoGetClassObject';
  5925. function CoRegisterClassObject;         external ole32 name 'CoRegisterClassObject';
  5926. function CoRevokeClassObject;           external ole32 name 'CoRevokeClassObject';
  5927. function CoResumeClassObjects;          external ole32 name 'CoResumeClassObjects';
  5928. function CoSuspendClassObjects;         external ole32 name 'CoSuspendClassObjects';
  5929. function CoAddRefServerProcess;         external ole32 name 'CoAddRefServerProcess';
  5930. function CoReleaseServerProcess;        external ole32 name 'CoReleaseServerProcess';
  5931. function CoGetPSClsid;                  external ole32 name 'CoGetPSClsid';
  5932. function CoRegisterPSClsid;             external ole32 name 'CoRegisterPSClsid';
  5933. function CoGetMarshalSizeMax;           external ole32 name 'CoGetMarshalSizeMax';
  5934. function CoMarshalInterface;            external ole32 name 'CoMarshalInterface';
  5935. function CoUnmarshalInterface;          external ole32 name 'CoUnmarshalInterface';
  5936. function CoMarshalHResult;              external ole32 name 'CoMarshalHResult';
  5937. function CoUnmarshalHResult;            external ole32 name 'CoUnmarshalHResult';
  5938. function CoReleaseMarshalData;          external ole32 name 'CoReleaseMarshalData';
  5939. function CoDisconnectObject;            external ole32 name 'CoDisconnectObject';
  5940. function CoLockObjectExternal;          external ole32 name 'CoLockObjectExternal';
  5941. function CoGetStandardMarshal;          external ole32 name 'CoGetStandardMarshal';
  5942. function CoIsHandlerConnected;          external ole32 name 'CoIsHandlerConnected';
  5943. function CoHasStrongExternalConnections; external ole32 name 'CoHasStrongExternalConnections';
  5944. function CoMarshalInterThreadInterfaceInStream; external ole32 name 'CoMarshalInterThreadInterfaceInStream';
  5945. function CoGetInterfaceAndReleaseStream; external ole32 name 'CoGetInterfaceAndReleaseStream';
  5946. function CoCreateFreeThreadedMarshaler; external ole32 name 'CoCreateFreeThreadedMarshaler';
  5947. function CoLoadLibrary;                 external ole32 name 'CoLoadLibrary';
  5948. procedure CoFreeLibrary;                external ole32 name 'CoFreeLibrary';
  5949. procedure CoFreeAllLibraries;           external ole32 name 'CoFreeAllLibraries';
  5950. procedure CoFreeUnusedLibraries;        external ole32 name 'CoFreeUnusedLibraries';
  5951. function CoInitializeSecurity;          external ole32 name 'CoInitializeSecurity';
  5952. function CoGetCallContext;              external ole32 name 'CoGetCallContext';
  5953. function CoQueryProxyBlanket;           external ole32 name 'CoQueryProxyBlanket';
  5954. function CoSetProxyBlanket;             external ole32 name 'CoSetProxyBlanket';
  5955. function CoCopyProxy;                   external ole32 name 'CoCopyProxy';
  5956. function CoQueryClientBlanket;          external ole32 name 'CoQueryClientBlanket';
  5957. function CoImpersonateClient;           external ole32 name 'CoImpersonateClient';
  5958. function CoRevertToSelf;                external ole32 name 'CoRevertToSelf';
  5959. function CoQueryAuthenticationServices; external ole32 name 'CoQueryAuthenticationServices';
  5960. function CoSwitchCallContext;           external ole32 name 'CoSwitchCallContext';
  5961. function CoCreateInstance;              external ole32 name 'CoCreateInstance';
  5962. function CoGetInstanceFromFile;         external ole32 name 'CoGetInstanceFromFile';
  5963. function CoGetInstanceFromIStorage;     external ole32 name 'CoGetInstanceFromIStorage';
  5964. function CoCreateInstanceEx;            external ole32 name 'CoCreateInstanceEx';
  5965. function StringFromCLSID;               external ole32 name 'StringFromCLSID';
  5966. function CLSIDFromString;               external ole32 name 'CLSIDFromString';
  5967. function StringFromIID;                 external ole32 name 'StringFromIID';
  5968. function IIDFromString;                 external ole32 name 'IIDFromString';
  5969. function CoIsOle1Class;                 external ole32 name 'CoIsOle1Class';
  5970. function ProgIDFromCLSID;               external ole32 name 'ProgIDFromCLSID';
  5971. function CLSIDFromProgID;               external ole32 name 'CLSIDFromProgID';
  5972. function StringFromGUID2;               external ole32 name 'StringFromGUID2';
  5973. function CoCreateGuid;                  external ole32 name 'CoCreateGuid';
  5974. function CoFileTimeToDosDateTime;       external ole32 name 'CoFileTimeToDosDateTime';
  5975. function CoDosDateTimeToFileTime;       external ole32 name 'CoDosDateTimeToFileTime';
  5976. function CoFileTimeNow;                 external ole32 name 'CoFileTimeNow';
  5977. function CoRegisterMessageFilter;       external ole32 name 'CoRegisterMessageFilter';
  5978. function CoRegisterChannelHook;         external ole32 name 'CoRegisterChannelHook';
  5979. function CoGetTreatAsClass;             external ole32 name 'CoGetTreatAsClass';
  5980. function CoTreatAsClass;                external ole32 name 'CoTreatAsClass';
  5981. function CoTaskMemAlloc;                external ole32 name 'CoTaskMemAlloc';
  5982. function CoTaskMemRealloc;              external ole32 name 'CoTaskMemRealloc';
  5983. procedure CoTaskMemFree;                external ole32 name 'CoTaskMemFree';
  5984. function CreateDataAdviseHolder;        external ole32 name 'CreateDataAdviseHolder';
  5985. function CreateDataCache;               external ole32 name 'CreateDataCache';
  5986. function StgCreateDocfile;              external ole32 name 'StgCreateDocfile';
  5987. function StgCreateDocfileOnILockBytes;  external ole32 name 'StgCreateDocfileOnILockBytes';
  5988. function StgOpenStorage;                external ole32 name 'StgOpenStorage';
  5989. function StgOpenStorageOnILockBytes;    external ole32 name 'StgOpenStorageOnILockBytes';
  5990. function StgIsStorageFile;              external ole32 name 'StgIsStorageFile';
  5991. function StgIsStorageILockBytes;        external ole32 name 'StgIsStorageILockBytes';
  5992. function StgSetTimes;                   external ole32 name 'StgSetTimes';
  5993. function StgOpenAsyncDocfileOnIFillLockBytes; external ole32 name 'StgOpenAsyncDocfileOnIFillLockBytes';
  5994. function StgGetIFillLockBytesOnILockBytes; external ole32 name 'StgGetIFillLockBytesOnILockBytes';
  5995. function StgGetIFillLockBytesOnFile;    external ole32 name 'StgGetIFillLockBytesOnFile';
  5996. function StgOpenLayoutDocfile;          external ole32 name 'StgOpenLayoutDocfile';
  5997. function BindMoniker;                   external ole32 name 'BindMoniker';
  5998. function CoGetObject;                   external ole32 name 'CoGetObject';
  5999. function MkParseDisplayName;            external ole32 name 'MkParseDisplayName';
  6000. function MonikerRelativePathTo;         external ole32 name 'MonikerRelativePathTo';
  6001. function MonikerCommonPrefixWith;       external ole32 name 'MonikerCommonPrefixWith';
  6002. function CreateBindCtx;                 external ole32 name 'CreateBindCtx';
  6003. function CreateGenericComposite;        external ole32 name 'CreateGenericComposite';
  6004. function GetClassFile;                  external ole32 name 'GetClassFile';
  6005. function CreateFileMoniker;             external ole32 name 'CreateFileMoniker';
  6006. function CreateItemMoniker;             external ole32 name 'CreateItemMoniker';
  6007. function CreateAntiMoniker;             external ole32 name 'CreateAntiMoniker';
  6008. function CreatePointerMoniker;          external ole32 name 'CreatePointerMoniker';
  6009. function GetRunningObjectTable;         external ole32 name 'GetRunningObjectTable';
  6010. function OleBuildVersion;               external ole32 name 'OleBuildVersion';
  6011. function ReadClassStg;                  external ole32 name 'ReadClassStg';
  6012. function WriteClassStg;                 external ole32 name 'WriteClassStg';
  6013. function ReadClassStm;                  external ole32 name 'ReadClassStm';
  6014. function WriteClassStm;                 external ole32 name 'WriteClassStm';
  6015. function WriteFmtUserTypeStg;           external ole32 name 'WriteFmtUserTypeStg';
  6016. function ReadFmtUserTypeStg;            external ole32 name 'ReadFmtUserTypeStg';
  6017. function OleInitialize;                 external ole32 name 'OleInitialize';
  6018. procedure OleUninitialize;              external ole32 name 'OleUninitialize';
  6019. function OleQueryLinkFromData;          external ole32 name 'OleQueryLinkFromData';
  6020. function OleQueryCreateFromData;        external ole32 name 'OleQueryCreateFromData';
  6021. function OleCreate;                     external ole32 name 'OleCreate';
  6022. function OleCreateEx;                   external ole32 name 'OleCreateEx';
  6023. function OleCreateFromDataEx;           external ole32 name 'OleCreateFromDataEx';
  6024. function OleCreateFromData;             external ole32 name 'OleCreateFromData';
  6025. function OleCreateLinkFromData;         external ole32 name 'OleCreateLinkFromData';
  6026. function OleCreateLinkFromDataEx;       external ole32 name 'OleCreateLinkFromDataEx';
  6027. function OleCreateStaticFromData;       external ole32 name 'OleCreateStaticFromData';
  6028. function OleCreateLink;                 external ole32 name 'OleCreateLink';
  6029. function OleCreateLinkEx;               external ole32 name 'OleCreateLinkEx';
  6030. function OleCreateLinkToFile;           external ole32 name 'OleCreateLinkToFile';
  6031. function OleCreateLinkToFileEx;         external ole32 name 'OleCreateLinkToFileEx';
  6032. function OleCreateFromFile;             external ole32 name 'OleCreateFromFile';
  6033. function OleCreateFromFileEx;           external ole32 name 'OleCreateFromFileEx';
  6034. function OleLoad;                       external ole32 name 'OleLoad';
  6035. function OleSave;                       external ole32 name 'OleSave';
  6036. function OleLoadFromStream;             external ole32 name 'OleLoadFromStream';
  6037. function OleSaveToStream;               external ole32 name 'OleSaveToStream';
  6038. function OleSetContainedObject;         external ole32 name 'OleSetContainedObject';
  6039. function OleNoteObjectVisible;          external ole32 name 'OleNoteObjectVisible';
  6040. function RegisterDragDrop;              external ole32 name 'RegisterDragDrop';
  6041. function RevokeDragDrop;                external ole32 name 'RevokeDragDrop';
  6042. function DoDragDrop;                    external ole32 name 'DoDragDrop';
  6043. function OleSetClipboard;               external ole32 name 'OleSetClipboard';
  6044. function OleGetClipboard;               external ole32 name 'OleGetClipboard';
  6045. function OleFlushClipboard;             external ole32 name 'OleFlushClipboard';
  6046. function OleIsCurrentClipboard;         external ole32 name 'OleIsCurrentClipboard';
  6047. function OleCreateMenuDescriptor;       external ole32 name 'OleCreateMenuDescriptor';
  6048. function OleSetMenuDescriptor;          external ole32 name 'OleSetMenuDescriptor';
  6049. function OleDestroyMenuDescriptor;      external ole32 name 'OleDestroyMenuDescriptor';
  6050. function OleTranslateAccelerator;       external ole32 name 'OleTranslateAccelerator';
  6051. function OleDuplicateData;              external ole32 name 'OleDuplicateData';
  6052. function OleDraw;                       external ole32 name 'OleDraw';
  6053. function OleRun;                        external ole32 name 'OleRun';
  6054. function OleIsRunning;                  external ole32 name 'OleIsRunning';
  6055. function OleLockRunning;                external ole32 name 'OleLockRunning';
  6056. procedure ReleaseStgMedium;             external ole32 name 'ReleaseStgMedium';
  6057. function CreateOleAdviseHolder;         external ole32 name 'CreateOleAdviseHolder';
  6058. function OleCreateDefaultHandler;       external ole32 name 'OleCreateDefaultHandler';
  6059. function OleCreateEmbeddingHelper;      external ole32 name 'OleCreateEmbeddingHelper';
  6060. function IsAccelerator;                 external ole32 name 'IsAccelerator';
  6061. function OleGetIconOfFile;              external ole32 name 'OleGetIconOfFile';
  6062. function OleGetIconOfClass;             external ole32 name 'OleGetIconOfClass';
  6063. function OleMetafilePictFromIconAndLabel; external ole32 name 'OleMetafilePictFromIconAndLabel';
  6064. function OleRegGetUserType;             external ole32 name 'OleRegGetUserType';
  6065. function OleRegGetMiscStatus;           external ole32 name 'OleRegGetMiscStatus';
  6066. function OleRegEnumFormatEtc;           external ole32 name 'OleRegEnumFormatEtc';
  6067. function OleRegEnumVerbs;               external ole32 name 'OleRegEnumVerbs';
  6068. function OleConvertIStorageToOLESTREAM; external ole32 name 'OleConvertIStorageToOLESTREAM';
  6069. function OleConvertOLESTREAMToIStorage; external ole32 name 'OleConvertOLESTREAMToIStorage';
  6070. function OleConvertIStorageToOLESTREAMEx; external ole32 name 'OleConvertIStorageToOLESTREAMEx';
  6071. function OleConvertOLESTREAMToIStorageEx; external ole32 name 'OleConvertOLESTREAMToIStorageEx';
  6072. function GetHGlobalFromILockBytes;      external ole32 name 'GetHGlobalFromILockBytes';
  6073. function CreateILockBytesOnHGlobal;     external ole32 name 'CreateILockBytesOnHGlobal';
  6074. function GetHGlobalFromStream;          external ole32 name 'GetHGlobalFromStream';
  6075. function CreateStreamOnHGlobal;         external ole32 name 'CreateStreamOnHGlobal';
  6076. function OleDoAutoConvert;              external ole32 name 'OleDoAutoConvert';
  6077. function OleGetAutoConvert;             external ole32 name 'OleGetAutoConvert';
  6078. function OleSetAutoConvert;             external ole32 name 'OleSetAutoConvert';
  6079. function GetConvertStg;                 external ole32 name 'GetConvertStg';
  6080. function SetConvertStg;                 external ole32 name 'SetConvertStg';
  6081.  
  6082. { Externals from oleaut32.dll }
  6083.  
  6084. function SysAllocString;                external oleaut32 name 'SysAllocString';
  6085. function SysReAllocString;              external oleaut32 name 'SysReAllocString';
  6086. function SysAllocStringLen;             external oleaut32 name 'SysAllocStringLen';
  6087. function SysReAllocStringLen;           external oleaut32 name 'SysReAllocStringLen';
  6088. procedure SysFreeString;                external oleaut32 name 'SysFreeString';
  6089. function SysStringLen;                  external oleaut32 name 'SysStringLen';
  6090. function SysStringByteLen;              external oleaut32 name 'SysStringByteLen';
  6091. function SysAllocStringByteLen;         external oleaut32 name 'SysAllocStringByteLen';
  6092. function DosDateTimeToVariantTime;      external oleaut32 name 'DosDateTimeToVariantTime';
  6093. function VariantTimeToDosDateTime;      external oleaut32 name 'VariantTimeToDosDateTime';
  6094. function SystemTimeToVariantTime;       external oleaut32 name 'SystemTimeToVariantTime';
  6095. function VariantTimeToSystemTime;       external oleaut32 name 'VariantTimeToSystemTime';
  6096. function SafeArrayAllocDescriptor;      external oleaut32 name 'SafeArrayAllocDescriptor';
  6097. function SafeArrayAllocData;            external oleaut32 name 'SafeArrayAllocData';
  6098. function SafeArrayCreate;               external oleaut32 name 'SafeArrayCreate';
  6099. function SafeArrayCreateVector;         external oleaut32 name 'SafeArrayCreateVector';
  6100. function SafeArrayCopyData;             external oleaut32 name 'SafeArrayCopyData';
  6101. function SafeArrayDestroyDescriptor;    external oleaut32 name 'SafeArrayDestroyDescriptor';
  6102. function SafeArrayDestroyData;          external oleaut32 name 'SafeArrayDestroyData';
  6103. function SafeArrayDestroy;              external oleaut32 name 'SafeArrayDestroy';
  6104. function SafeArrayRedim;                external oleaut32 name 'SafeArrayRedim';
  6105. function SafeArrayGetDim;               external oleaut32 name 'SafeArrayGetDim';
  6106. function SafeArrayGetElemsize;          external oleaut32 name 'SafeArrayGetElemsize';
  6107. function SafeArrayGetUBound;            external oleaut32 name 'SafeArrayGetUBound';
  6108. function SafeArrayGetLBound;            external oleaut32 name 'SafeArrayGetLBound';
  6109. function SafeArrayLock;                 external oleaut32 name 'SafeArrayLock';
  6110. function SafeArrayUnlock;               external oleaut32 name 'SafeArrayUnlock';
  6111. function SafeArrayAccessData;           external oleaut32 name 'SafeArrayAccessData';
  6112. function SafeArrayUnaccessData;         external oleaut32 name 'SafeArrayUnaccessData';
  6113. function SafeArrayGetElement;           external oleaut32 name 'SafeArrayGetElement';
  6114. function SafeArrayPutElement;           external oleaut32 name 'SafeArrayPutElement';
  6115. function SafeArrayCopy;                 external oleaut32 name 'SafeArrayCopy';
  6116. function SafeArrayPtrOfIndex;           external oleaut32 name 'SafeArrayPtrOfIndex';
  6117. procedure VariantInit;                  external oleaut32 name 'VariantInit';
  6118. function VariantClear;                  external oleaut32 name 'VariantClear';
  6119. function VariantCopy;                   external oleaut32 name 'VariantCopy';
  6120. function VariantCopyInd;                external oleaut32 name 'VariantCopyInd';
  6121. function VariantChangeType;             external oleaut32 name 'VariantChangeType';
  6122. function VariantChangeTypeEx;           external oleaut32 name 'VariantChangeTypeEx';
  6123. function VectorFromBstr;                external oleaut32 name 'VectorFromBstr';
  6124. function BstrFromVector;                external oleaut32 name 'BstrFromVector';
  6125. function VarUI1FromI2;                  external oleaut32 name 'VarUI1FromI2';
  6126. function VarUI1FromI4;                  external oleaut32 name 'VarUI1FromI4';
  6127. function VarUI1FromR4;                  external oleaut32 name 'VarUI1FromR4';
  6128. function VarUI1FromR8;                  external oleaut32 name 'VarUI1FromR8';
  6129. function VarUI1FromCy;                  external oleaut32 name 'VarUI1FromCy';
  6130. function VarUI1FromDate;                external oleaut32 name 'VarUI1FromDate';
  6131. function VarUI1FromStr;                 external oleaut32 name 'VarUI1FromStr';
  6132. function VarUI1FromDisp;                external oleaut32 name 'VarUI1FromDisp';
  6133. function VarUI1FromBool;                external oleaut32 name 'VarUI1FromBool';
  6134. function VarUI1FromI1;                  external oleaut32 name 'VarUI1FromI1';
  6135. function VarUI1FromUI2;                 external oleaut32 name 'VarUI1FromUI2';
  6136. function VarUI1FromUI4;                 external oleaut32 name 'VarUI1FromUI4';
  6137. function VarUI1FromDec;                 external oleaut32 name 'VarUI1FromDec';
  6138. function VarI2FromUI1;                  external oleaut32 name 'VarI2FromUI1';
  6139. function VarI2FromI4;                   external oleaut32 name 'VarI2FromI4';
  6140. function VarI2FromR4;                   external oleaut32 name 'VarI2FromR4';
  6141. function VarI2FromR8;                   external oleaut32 name 'VarI2FromR8';
  6142. function VarI2FromCy;                   external oleaut32 name 'VarI2FromCy';
  6143. function VarI2FromDate;                 external oleaut32 name 'VarI2FromDate';
  6144. function VarI2FromStr;                  external oleaut32 name 'VarI2FromStr';
  6145. function VarI2FromDisp;                 external oleaut32 name 'VarI2FromDisp';
  6146. function VarI2FromBool;                 external oleaut32 name 'VarI2FromBool';
  6147. function VarI2FromI1;                   external oleaut32 name 'VarI2FromI1';
  6148. function VarI2FromUI2;                  external oleaut32 name 'VarI2FromUI2';
  6149. function VarI2FromUI4;                  external oleaut32 name 'VarI2FromUI4';
  6150. function VarI2FromDec;                  external oleaut32 name 'VarI2FromDec';
  6151. function VarI4FromUI1;                  external oleaut32 name 'VarI4FromUI1';
  6152. function VarI4FromI2;                   external oleaut32 name 'VarI4FromI2';
  6153. function VarI4FromR4;                   external oleaut32 name 'VarI4FromR4';
  6154. function VarI4FromR8;                   external oleaut32 name 'VarI4FromR8';
  6155. function VarI4FromCy;                   external oleaut32 name 'VarI4FromCy';
  6156. function VarI4FromDate;                 external oleaut32 name 'VarI4FromDate';
  6157. function VarI4FromStr;                  external oleaut32 name 'VarI4FromStr';
  6158. function VarI4FromDisp;                 external oleaut32 name 'VarI4FromDisp';
  6159. function VarI4FromBool;                 external oleaut32 name 'VarI4FromBool';
  6160. function VarI4FromI1;                   external oleaut32 name 'VarI4FromI1';
  6161. function VarI4FromUI2;                  external oleaut32 name 'VarI4FromUI2';
  6162. function VarI4FromUI4;                  external oleaut32 name 'VarI4FromUI4';
  6163. function VarI4FromDec;                  external oleaut32 name 'VarI4FromDec';
  6164. function VarI4FromInt;                  external oleaut32 name 'VarI4FromInt';
  6165. function VarR4FromUI1;                  external oleaut32 name 'VarR4FromUI1';
  6166. function VarR4FromI2;                   external oleaut32 name 'VarR4FromI2';
  6167. function VarR4FromI4;                   external oleaut32 name 'VarR4FromI4';
  6168. function VarR4FromR8;                   external oleaut32 name 'VarR4FromR8';
  6169. function VarR4FromCy;                   external oleaut32 name 'VarR4FromCy';
  6170. function VarR4FromDate;                 external oleaut32 name 'VarR4FromDate';
  6171. function VarR4FromStr;                  external oleaut32 name 'VarR4FromStr';
  6172. function VarR4FromDisp;                 external oleaut32 name 'VarR4FromDisp';
  6173. function VarR4FromBool;                 external oleaut32 name 'VarR4FromBool';
  6174. function VarR4FromI1;                   external oleaut32 name 'VarR4FromI1';
  6175. function VarR4FromUI2;                  external oleaut32 name 'VarR4FromUI2';
  6176. function VarR4FromUI4;                  external oleaut32 name 'VarR4FromUI4';
  6177. function VarR4FromDec;                  external oleaut32 name 'VarR4FromDec';
  6178. function VarR8FromUI1;                  external oleaut32 name 'VarR8FromUI1';
  6179. function VarR8FromI2;                   external oleaut32 name 'VarR8FromI2';
  6180. function VarR8FromI4;                   external oleaut32 name 'VarR8FromI4';
  6181. function VarR8FromR4;                   external oleaut32 name 'VarR8FromR4';
  6182. function VarR8FromCy;                   external oleaut32 name 'VarR8FromCy';
  6183. function VarR8FromDate;                 external oleaut32 name 'VarR8FromDate';
  6184. function VarR8FromStr;                  external oleaut32 name 'VarR8FromStr';
  6185. function VarR8FromDisp;                 external oleaut32 name 'VarR8FromDisp';
  6186. function VarR8FromBool;                 external oleaut32 name 'VarR8FromBool';
  6187. function VarR8FromI1;                   external oleaut32 name 'VarR8FromI1';
  6188. function VarR8FromUI2;                  external oleaut32 name 'VarR8FromUI2';
  6189. function VarR8FromUI4;                  external oleaut32 name 'VarR8FromUI4';
  6190. function VarR8FromDec;                  external oleaut32 name 'VarR8FromDec';
  6191. function VarDateFromUI1;                external oleaut32 name 'VarDateFromUI1';
  6192. function VarDateFromI2;                 external oleaut32 name 'VarDateFromI2';
  6193. function VarDateFromI4;                 external oleaut32 name 'VarDateFromI4';
  6194. function VarDateFromR4;                 external oleaut32 name 'VarDateFromR4';
  6195. function VarDateFromR8;                 external oleaut32 name 'VarDateFromR8';
  6196. function VarDateFromCy;                 external oleaut32 name 'VarDateFromCy';
  6197. function VarDateFromStr;                external oleaut32 name 'VarDateFromStr';
  6198. function VarDateFromDisp;               external oleaut32 name 'VarDateFromDisp';
  6199. function VarDateFromBool;               external oleaut32 name 'VarDateFromBool';
  6200. function VarDateFromI1;                 external oleaut32 name 'VarDateFromI1';
  6201. function VarDateFromUI2;                external oleaut32 name 'VarDateFromUI2';
  6202. function VarDateFromUI4;                external oleaut32 name 'VarDateFromUI4';
  6203. function VarDateFromDec;                external oleaut32 name 'VarDateFromDec';
  6204. function VarCyFromUI1;                  external oleaut32 name 'VarCyFromUI1';
  6205. function VarCyFromI2;                   external oleaut32 name 'VarCyFromI2';
  6206. function VarCyFromI4;                   external oleaut32 name 'VarCyFromI4';
  6207. function VarCyFromR4;                   external oleaut32 name 'VarCyFromR4';
  6208. function VarCyFromR8;                   external oleaut32 name 'VarCyFromR8';
  6209. function VarCyFromDate;                 external oleaut32 name 'VarCyFromDate';
  6210. function VarCyFromStr;                  external oleaut32 name 'VarCyFromStr';
  6211. function VarCyFromDisp;                 external oleaut32 name 'VarCyFromDisp';
  6212. function VarCyFromBool;                 external oleaut32 name 'VarCyFromBool';
  6213. function VarCyFromI1;                   external oleaut32 name 'VarCyFromI1';
  6214. function VarCyFromUI2;                  external oleaut32 name 'VarCyFromUI2';
  6215. function VarCyFromUI4;                  external oleaut32 name 'VarCyFromUI4';
  6216. function VarCyFromDec;                  external oleaut32 name 'VarCyFromDec';
  6217. function VarBStrFromUI1;                external oleaut32 name 'VarBStrFromUI1';
  6218. function VarBStrFromI2;                 external oleaut32 name 'VarBStrFromI2';
  6219. function VarBStrFromI4;                 external oleaut32 name 'VarBStrFromI4';
  6220. function VarBStrFromR4;                 external oleaut32 name 'VarBStrFromR4';
  6221. function VarBStrFromR8;                 external oleaut32 name 'VarBStrFromR8';
  6222. function VarBStrFromCy;                 external oleaut32 name 'VarBStrFromCy';
  6223. function VarBStrFromDate;               external oleaut32 name 'VarBStrFromDate';
  6224. function VarBStrFromDisp;               external oleaut32 name 'VarBStrFromDisp';
  6225. function VarBStrFromBool;               external oleaut32 name 'VarBStrFromBool';
  6226. function VarBstrFromI1;                 external oleaut32 name 'VarBstrFromI1';
  6227. function VarBstrFromUI2;                external oleaut32 name 'VarBstrFromUI2';
  6228. function VarBstrFromUI4;                external oleaut32 name 'VarBstrFromUI4';
  6229. function VarBstrFromDec;                external oleaut32 name 'VarBstrFromDec';
  6230. function VarBoolFromUI1;                external oleaut32 name 'VarBoolFromUI1';
  6231. function VarBoolFromI2;                 external oleaut32 name 'VarBoolFromI2';
  6232. function VarBoolFromI4;                 external oleaut32 name 'VarBoolFromI4';
  6233. function VarBoolFromR4;                 external oleaut32 name 'VarBoolFromR4';
  6234. function VarBoolFromR8;                 external oleaut32 name 'VarBoolFromR8';
  6235. function VarBoolFromDate;               external oleaut32 name 'VarBoolFromDate';
  6236. function VarBoolFromCy;                 external oleaut32 name 'VarBoolFromCy';
  6237. function VarBoolFromStr;                external oleaut32 name 'VarBoolFromStr';
  6238. function VarBoolFromDisp;               external oleaut32 name 'VarBoolFromDisp';
  6239. function VarBoolFromI1;                 external oleaut32 name 'VarBoolFromI1';
  6240. function VarBoolFromUI2;                external oleaut32 name 'VarBoolFromUI2';
  6241. function VarBoolFromUI4;                external oleaut32 name 'VarBoolFromUI4';
  6242. function VarBoolFromDec;                external oleaut32 name 'VarBoolFromDec';
  6243. function LHashValOfNameSys;             external oleaut32 name 'LHashValOfNameSys';
  6244. function LHashValOfNameSysA;            external oleaut32 name 'LHashValOfNameSysA';
  6245. function LoadTypeLib;                   external oleaut32 name 'LoadTypeLib';
  6246. function LoadTypeLibEx;                 external oleaut32 name 'LoadTypeLibEx';
  6247. function LoadRegTypeLib;                external oleaut32 name 'LoadRegTypeLib';
  6248. function QueryPathOfRegTypeLib;         external oleaut32 name 'QueryPathOfRegTypeLib';
  6249. function RegisterTypeLib;               external oleaut32 name 'RegisterTypeLib';
  6250. function UnRegisterTypeLib;             external oleaut32 name 'UnRegisterTypeLib';
  6251. function CreateTypeLib;                 external oleaut32 name 'CreateTypeLib';
  6252. function CreateTypeLib2;                external oleaut32 name 'CreateTypeLib2';
  6253. function DispGetParam;                  external oleaut32 name 'DispGetParam';
  6254. function DispGetIDsOfNames;             external oleaut32 name 'DispGetIDsOfNames';
  6255. function DispInvoke;                    external oleaut32 name 'DispInvoke';
  6256. function CreateDispTypeInfo;            external oleaut32 name 'CreateDispTypeInfo';
  6257. function CreateStdDispatch;             external oleaut32 name 'CreateStdDispatch';
  6258. function DispCallFunc;                  external oleaut32 name 'DispCallFunc';
  6259. function RegisterActiveObject;          external oleaut32 name 'RegisterActiveObject';
  6260. function RevokeActiveObject;            external oleaut32 name 'RevokeActiveObject';
  6261. function GetActiveObject;               external oleaut32 name 'GetActiveObject';
  6262. function SetErrorInfo;                  external oleaut32 name 'SetErrorInfo';
  6263. function GetErrorInfo;                  external oleaut32 name 'GetErrorInfo';
  6264. function CreateErrorInfo;               external oleaut32 name 'CreateErrorInfo';
  6265. function OaBuildVersion;                external oleaut32 name 'OaBuildVersion';
  6266. procedure ClearCustData;                external oleaut32 name 'ClearCustData';
  6267.  
  6268. { Externals from olepro32.dll }
  6269.  
  6270. function OleCreatePropertyFrame;        external olepro32 name 'OleCreatePropertyFrame';
  6271. function OleCreatePropertyFrameIndirect; external olepro32 name 'OleCreatePropertyFrameIndirect';
  6272. function OleTranslateColor;             external olepro32 name 'OleTranslateColor';
  6273. function OleCreateFontIndirect;         external olepro32 name 'OleCreateFontIndirect';
  6274. function OleCreatePictureIndirect;      external olepro32 name 'OleCreatePictureIndirect';
  6275. function OleLoadPicture;                external olepro32 name 'OleLoadPicture';
  6276. function OleLoadPicturePath;            external olepro32 name 'OleLoadPicturePath';
  6277. function OleLoadPictureFile;            external olepro32 name 'OleLoadPictureFile';
  6278. function OleSavePictureFile;            external olepro32 name 'OleSavePictureFile';
  6279. function OleIconToCursor;               external olepro32 name 'OleIconToCursor';
  6280.  
  6281. { Helper functions }
  6282.  
  6283. function Succeeded(Res: HResult): Boolean;
  6284. begin
  6285.   Result := Res and $80000000 = 0;
  6286. end;
  6287.  
  6288. function Failed(Res: HResult): Boolean;
  6289. begin
  6290.   Result := Res and $80000000 <> 0;
  6291. end;
  6292.  
  6293. function ResultCode(Res: HResult): Integer;
  6294. begin
  6295.   Result := Res and $0000FFFF;
  6296. end;
  6297.  
  6298. function ResultFacility(Res: HResult): Integer;
  6299. begin
  6300.   Result := (Res shr 16) and $00001FFF;
  6301. end;
  6302.  
  6303. function ResultSeverity(Res: HResult): Integer;
  6304. begin
  6305.   Result := Res shr 31;
  6306. end;
  6307.  
  6308. function MakeResult(Severity, Facility, Code: Integer): HResult;
  6309. begin
  6310.   Result := (Severity shl 31) or (Facility shl 16) or Code;
  6311. end;
  6312.  
  6313. function LHashValOfName(lcid: TLCID; szName: POleStr): Longint;
  6314. begin
  6315.   Result := LHashValOfNameSys(SYS_WIN32, lcid, szName);
  6316. end;
  6317.  
  6318. function WHashValOfLHashVal(lhashval: Longint): Word;
  6319. begin
  6320.   Result := lhashval and $0000FFFF;
  6321. end;
  6322.  
  6323. function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean;
  6324. begin
  6325.   Result := lhashval1 and $00FF0000 = lhashval2 and $00FF0000;
  6326. end;
  6327.  
  6328. function PROPSETHDR_OSVER_KIND(dwOSVer: DWORD): Word;
  6329. begin
  6330.   Result := HiWord(dwOSVer);
  6331. end;
  6332.  
  6333. function PROPSETHDR_OSVER_MAJOR(dwOSVer: DWORD): Byte;
  6334. begin
  6335.   Result := LoByte(dwOSVer);
  6336. end;
  6337.  
  6338. function PROPSETHDR_OSVER_MINOR(dwOSVer: DWORD): Byte;
  6339. begin
  6340.   Result := HiByte(LoWord(dwOSVer));
  6341. end;
  6342.  
  6343. end.
  6344.