mmole2.pas

一套及时通讯的原码

{*******************************************************}
{                                                       }
{       Delphi Runtime Library                          }
{       OLE 2 Interface Unit                            }
{                                                       }
{       Copyright (c) 1996,98 Borland International     }
{                                                       }
{*******************************************************}

unit MMOLE2;

{$I COMPILER.INC}

interface

// For CBuilder v1.0 backward compatiblity, OLE2.HPP must include ole2.h
{$IFDEF BCB} {$HPPEMIT '#include <ole2.h>'} {$ENDIF}

uses Windows;

const
  {$IFDEF BCB} {$EXTERNALSYM MEMCTX_TASK} {$ENDIF}
  MEMCTX_TASK    = 1;
  {$IFDEF BCB} {$EXTERNALSYM MEMCTX_SHARED} {$ENDIF}
  MEMCTX_SHARED    = 2;
  {$IFDEF BCB} {$EXTERNALSYM MEMCTX_MACSYSTEM} {$ENDIF}
  MEMCTX_MACSYSTEM = 3;
  {$IFDEF BCB} {$EXTERNALSYM MEMCTX_UNKNOWN} {$ENDIF}
  MEMCTX_UNKNOWN   = -1;
  {$IFDEF BCB} {$EXTERNALSYM MEMCTX_SAME} {$ENDIF}
  MEMCTX_SAME    = -2;

  {$IFDEF BCB} {$EXTERNALSYM ROTFLAGS_REGISTRATIONKEEPSALIVE} {$ENDIF}
  ROTFLAGS_REGISTRATIONKEEPSALIVE = 1;

  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_SERVER} {$ENDIF}
  CLSCTX_INPROC_SERVER   = 1;
  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_HANDLER} {$ENDIF}
  CLSCTX_INPROC_HANDLER  = 2;
  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_LOCAL_SERVER} {$ENDIF}
  CLSCTX_LOCAL_SERVER  = 4;
  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC_SERVER16} {$ENDIF}
  CLSCTX_INPROC_SERVER16 = 8;

  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_ALL} {$ENDIF}
  CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or
                  CLSCTX_LOCAL_SERVER;
  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_INPROC} {$ENDIF}
  CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER;
  {$IFDEF BCB} {$EXTERNALSYM CLSCTX_SERVER} {$ENDIF}
  CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER;

  {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_NORMAL} {$ENDIF}
  MSHLFLAGS_NORMAL  = 0;
  {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_TABLESTRONG} {$ENDIF}
  MSHLFLAGS_TABLESTRONG = 1;
  {$IFDEF BCB} {$EXTERNALSYM MSHLFLAGS_TABLEWEAK} {$ENDIF}
  MSHLFLAGS_TABLEWEAK = 2;

  {$IFDEF BCB} {$EXTERNALSYM MSHCTX_LOCAL} {$ENDIF}
  MSHCTX_LOCAL            = 0;
  {$IFDEF BCB} {$EXTERNALSYM MSHCTX_NOSHAREDMEM} {$ENDIF}
  MSHCTX_NOSHAREDMEM    = 1;
  {$IFDEF BCB} {$EXTERNALSYM MSHCTX_DIFFERENTMACHINE} {$ENDIF}
  MSHCTX_DIFFERENTMACHINE = 2;
  {$IFDEF BCB} {$EXTERNALSYM MSHCTX_INPROC} {$ENDIF}
  MSHCTX_INPROC           = 3;

  {$IFDEF BCB} {$EXTERNALSYM DVASPECT_CONTENT} {$ENDIF}
  DVASPECT_CONTENT   = 1;
  {$IFDEF BCB} {$EXTERNALSYM DVASPECT_THUMBNAIL} {$ENDIF}
  DVASPECT_THUMBNAIL = 2;
  {$IFDEF BCB} {$EXTERNALSYM DVASPECT_ICON} {$ENDIF}
  DVASPECT_ICON      = 4;
  {$IFDEF BCB} {$EXTERNALSYM DVASPECT_DOCPRINT} {$ENDIF}
  DVASPECT_DOCPRINT  = 8;

  {$IFDEF BCB} {$EXTERNALSYM STGC_DEFAULT} {$ENDIF}
  STGC_DEFAULT                            = 0;
  {$IFDEF BCB} {$EXTERNALSYM STGC_OVERWRITE} {$ENDIF}
  STGC_OVERWRITE                    = 1;
  {$IFDEF BCB} {$EXTERNALSYM STGC_ONLYIFCURRENT} {$ENDIF}
  STGC_ONLYIFCURRENT                    = 2;
  {$IFDEF BCB} {$EXTERNALSYM STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE} {$ENDIF}
  STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;

  {$IFDEF BCB} {$EXTERNALSYM STGMOVE_MOVE} {$ENDIF}
  STGMOVE_MOVE = 0;
  {$IFDEF BCB} {$EXTERNALSYM STGMOVE_COPY} {$ENDIF}
  STGMOVE_COPY = 1;

  {$IFDEF BCB} {$EXTERNALSYM STATFLAG_DEFAULT} {$ENDIF}
  STATFLAG_DEFAULT = 0;
  {$IFDEF BCB} {$EXTERNALSYM STATFLAG_NONAME} {$ENDIF}
  STATFLAG_NONAME  = 1;

  {$IFDEF BCB} {$EXTERNALSYM BIND_MAYBOTHERUSER} {$ENDIF}
  BIND_MAYBOTHERUSER   = 1;
  {$IFDEF BCB} {$EXTERNALSYM BIND_JUSTTESTEXISTENCE} {$ENDIF}
  BIND_JUSTTESTEXISTENCE = 2;

  {$IFDEF BCB} {$EXTERNALSYM MKSYS_NONE} {$ENDIF}
  MKSYS_NONE           = 0;
  {$IFDEF BCB} {$EXTERNALSYM MKSYS_GENERICCOMPOSITE} {$ENDIF}
  MKSYS_GENERICCOMPOSITE = 1;
  {$IFDEF BCB} {$EXTERNALSYM MKSYS_FILEMONIKER} {$ENDIF}
  MKSYS_FILEMONIKER  = 2;
  {$IFDEF BCB} {$EXTERNALSYM MKSYS_ANTIMONIKER} {$ENDIF}
  MKSYS_ANTIMONIKER  = 3;
  {$IFDEF BCB} {$EXTERNALSYM MKSYS_ITEMMONIKER} {$ENDIF}
  MKSYS_ITEMMONIKER  = 4;
  {$IFDEF BCB} {$EXTERNALSYM MKSYS_POINTERMONIKER} {$ENDIF}
  MKSYS_POINTERMONIKER   = 5;

  {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_ONE} {$ENDIF}
  MKRREDUCE_ONE         = 3 shl 16;
  {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_TOUSER} {$ENDIF}
  MKRREDUCE_TOUSER  = 2 shl 16;
  {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_THROUGHUSER} {$ENDIF}
  MKRREDUCE_THROUGHUSER = 1 shl 16;
  {$IFDEF BCB} {$EXTERNALSYM MKRREDUCE_ALL} {$ENDIF}
  MKRREDUCE_ALL         = 0;

  {$IFDEF BCB} {$EXTERNALSYM STGTY_STORAGE} {$ENDIF}
  STGTY_STORAGE   = 1;
  {$IFDEF BCB} {$EXTERNALSYM STGTY_STREAM} {$ENDIF}
  STGTY_STREAM    = 2;
  {$IFDEF BCB} {$EXTERNALSYM STGTY_LOCKBYTES} {$ENDIF}
  STGTY_LOCKBYTES = 3;
  {$IFDEF BCB} {$EXTERNALSYM STGTY_PROPERTY} {$ENDIF}
  STGTY_PROPERTY  = 4;

  {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_SET} {$ENDIF}
  STREAM_SEEK_SET = 0;
  {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_CUR} {$ENDIF}
  STREAM_SEEK_CUR = 1;
  {$IFDEF BCB} {$EXTERNALSYM STREAM_SEEK_END} {$ENDIF}
  STREAM_SEEK_END = 2;

  {$IFDEF BCB} {$EXTERNALSYM LOCK_WRITE} {$ENDIF}
  LOCK_WRITE   = 1;
  {$IFDEF BCB} {$EXTERNALSYM LOCK_EXCLUSIVE} {$ENDIF}
  LOCK_EXCLUSIVE = 2;
  {$IFDEF BCB} {$EXTERNALSYM LOCK_ONLYONCE} {$ENDIF}
  LOCK_ONLYONCE  = 4;

  {$IFDEF BCB} {$EXTERNALSYM ADVF_NODATA} {$ENDIF}
  ADVF_NODATA          = 1;
  {$IFDEF BCB} {$EXTERNALSYM ADVF_PRIMEFIRST} {$ENDIF}
  ADVF_PRIMEFIRST  = 2;
  {$IFDEF BCB} {$EXTERNALSYM ADVF_ONLYONCE} {$ENDIF}
  ADVF_ONLYONCE          = 4;
  {$IFDEF BCB} {$EXTERNALSYM ADVF_DATAONSTOP} {$ENDIF}
  ADVF_DATAONSTOP  = 64;
  {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_NOHANDLER} {$ENDIF}
  ADVFCACHE_NOHANDLER  = 8;
  {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_FORCEBUILTIN} {$ENDIF}
  ADVFCACHE_FORCEBUILTIN = 16;
  {$IFDEF BCB} {$EXTERNALSYM ADVFCACHE_ONSAVE} {$ENDIF}
  ADVFCACHE_ONSAVE   = 32;

  {$IFDEF BCB} {$EXTERNALSYM TYMED_HGLOBAL} {$ENDIF}
  TYMED_HGLOBAL  = 1;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_FILE} {$ENDIF}
  TYMED_FILE     = 2;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_ISTREAM} {$ENDIF}
  TYMED_ISTREAM  = 4;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_ISTORAGE} {$ENDIF}
  TYMED_ISTORAGE = 8;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_GDI} {$ENDIF}
  TYMED_GDI  = 16;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_MFPICT} {$ENDIF}
  TYMED_MFPICT   = 32;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_ENHMF} {$ENDIF}
  TYMED_ENHMF  = 64;
  {$IFDEF BCB} {$EXTERNALSYM TYMED_NULL} {$ENDIF}
  TYMED_NULL   = 0;

  {$IFDEF BCB} {$EXTERNALSYM DATADIR_GET} {$ENDIF}
  DATADIR_GET = 1;
  {$IFDEF BCB} {$EXTERNALSYM DATADIR_SET} {$ENDIF}
  DATADIR_SET = 2;

  {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_TOPLEVEL} {$ENDIF}
  CALLTYPE_TOPLEVEL         = 1;
  {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_NESTED} {$ENDIF}
  CALLTYPE_NESTED         = 2;
  {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_ASYNC} {$ENDIF}
  CALLTYPE_ASYNC          = 3;
  {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_TOPLEVEL_CALLPENDING} {$ENDIF}
  CALLTYPE_TOPLEVEL_CALLPENDING = 4;
  {$IFDEF BCB} {$EXTERNALSYM CALLTYPE_ASYNC_CALLPENDING} {$ENDIF}
  CALLTYPE_ASYNC_CALLPENDING  = 5;

  {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_ISHANDLED} {$ENDIF}
  SERVERCALL_ISHANDLED  = 0;
  {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_REJECTED} {$ENDIF}
  SERVERCALL_REJECTED = 1;
  {$IFDEF BCB} {$EXTERNALSYM SERVERCALL_RETRYLATER} {$ENDIF}
  SERVERCALL_RETRYLATER = 2;

  {$IFDEF BCB} {$EXTERNALSYM PENDINGTYPE_TOPLEVEL} {$ENDIF}
  PENDINGTYPE_TOPLEVEL = 1;
  {$IFDEF BCB} {$EXTERNALSYM PENDINGTYPE_NESTED} {$ENDIF}
  PENDINGTYPE_NESTED   = 2;

  {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_CANCELCALL} {$ENDIF}
  PENDINGMSG_CANCELCALL     = 0;
  {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_WAITNOPROCESS} {$ENDIF}
  PENDINGMSG_WAITNOPROCESS  = 1;
  {$IFDEF BCB} {$EXTERNALSYM PENDINGMSG_WAITDEFPROCESS} {$ENDIF}
  PENDINGMSG_WAITDEFPROCESS = 2;

  {$IFDEF BCB} {$EXTERNALSYM REGCLS_SINGLEUSE} {$ENDIF}
  REGCLS_SINGLEUSE      = 0;
  {$IFDEF BCB} {$EXTERNALSYM REGCLS_MULTIPLEUSE} {$ENDIF}
  REGCLS_MULTIPLEUSE    = 1;
  {$IFDEF BCB} {$EXTERNALSYM REGCLS_MULTI_SEPARATE} {$ENDIF}
  REGCLS_MULTI_SEPARATE = 2;

  {$IFDEF BCB} {$EXTERNALSYM MARSHALINTERFACE_MIN} {$ENDIF}
  MARSHALINTERFACE_MIN = 500;

  {$IFDEF BCB} {$EXTERNALSYM CWCSTORAGENAME} {$ENDIF}
  CWCSTORAGENAME = 32;

  {$IFDEF BCB} {$EXTERNALSYM STGM_DIRECT} {$ENDIF}
  STGM_DIRECT           = $00000000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_TRANSACTED} {$ENDIF}
  STGM_TRANSACTED       = $00010000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_SIMPLE} {$ENDIF}
  STGM_SIMPLE           = $08000000;

  {$IFDEF BCB} {$EXTERNALSYM STGM_READ} {$ENDIF}
  STGM_READ             = $00000000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_WRITE} {$ENDIF}
  STGM_WRITE            = $00000001;
  {$IFDEF BCB} {$EXTERNALSYM STGM_READWRITE} {$ENDIF}
  STGM_READWRITE        = $00000002;

  {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_NONE} {$ENDIF}
  STGM_SHARE_DENY_NONE  = $00000040;
  {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_READ} {$ENDIF}
  STGM_SHARE_DENY_READ  = $00000030;
  {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_DENY_WRITE} {$ENDIF}
  STGM_SHARE_DENY_WRITE = $00000020;
  {$IFDEF BCB} {$EXTERNALSYM STGM_SHARE_EXCLUSIVE} {$ENDIF}
  STGM_SHARE_EXCLUSIVE  = $00000010;

  {$IFDEF BCB} {$EXTERNALSYM STGM_PRIORITY} {$ENDIF}
  STGM_PRIORITY         = $00040000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_DELETEONRELEASE} {$ENDIF}
  STGM_DELETEONRELEASE  = $04000000;

  {$IFDEF BCB} {$EXTERNALSYM STGM_CREATE} {$ENDIF}
  STGM_CREATE           = $00001000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_CONVERT} {$ENDIF}
  STGM_CONVERT          = $00020000;
  {$IFDEF BCB} {$EXTERNALSYM STGM_FAILIFTHERE} {$ENDIF}
  STGM_FAILIFTHERE      = $00000000;

  {$IFDEF BCB} {$EXTERNALSYM FADF_AUTO} {$ENDIF}
  FADF_AUTO      = $0001;  { array is allocated on the stack }
  {$IFDEF BCB} {$EXTERNALSYM FADF_STATIC} {$ENDIF}
  FADF_STATIC    = $0002;  { array is staticly allocated }
  {$IFDEF BCB} {$EXTERNALSYM FADF_EMBEDDED} {$ENDIF}
  FADF_EMBEDDED  = $0004;  { array is embedded in a structure }
  {$IFDEF BCB} {$EXTERNALSYM FADF_FIXEDSIZE} {$ENDIF}
  FADF_FIXEDSIZE = $0010;  { array may not be resized or reallocated }
  {$IFDEF BCB} {$EXTERNALSYM FADF_BSTR} {$ENDIF}
  FADF_BSTR      = $0100;  { an array of BSTRs }
  {$IFDEF BCB} {$EXTERNALSYM FADF_UNKNOWN} {$ENDIF}
  FADF_UNKNOWN   = $0200;  { an array of IUnknown }
  {$IFDEF BCB} {$EXTERNALSYM FADF_DISPATCH} {$ENDIF}
  FADF_DISPATCH  = $0400;  { an array of IDispatch }
  {$IFDEF BCB} {$EXTERNALSYM FADF_VARIANT} {$ENDIF}
  FADF_VARIANT   = $0800;  { an array of VARIANTs }
  {$IFDEF BCB} {$EXTERNALSYM FADF_RESERVED} {$ENDIF}
  FADF_RESERVED  = $F0E8;  { bits reserved for future use }

{ VARENUM usage key,

    [V] - may appear in a VARIANT
    [T] - may appear in a TYPEDESC
    [P] - may appear in an OLE property set
    [S] - may appear in a Safe Array }

  {$IFDEF BCB} {$EXTERNALSYM VT_EMPTY} {$ENDIF}
  VT_EMPTY           = 0;   { [V]   [P]  nothing                     }
  {$IFDEF BCB} {$EXTERNALSYM VT_NULL} {$ENDIF}
  VT_NULL            = 1;   { [V]        SQL style Null              }
  {$IFDEF BCB} {$EXTERNALSYM VT_I2} {$ENDIF}
  VT_I2              = 2;   { [V][T][P]  2 byte signed int           }
  {$IFDEF BCB} {$EXTERNALSYM VT_I4} {$ENDIF}
  VT_I4              = 3;   { [V][T][P]  4 byte signed int           }
  {$IFDEF BCB} {$EXTERNALSYM VT_R4} {$ENDIF}
  VT_R4              = 4;   { [V][T][P]  4 byte real                 }
  {$IFDEF BCB} {$EXTERNALSYM VT_R8} {$ENDIF}
  VT_R8              = 5;   { [V][T][P]  8 byte real                 }
  {$IFDEF BCB} {$EXTERNALSYM VT_CY} {$ENDIF}
  VT_CY              = 6;   { [V][T][P]  currency                    }
  {$IFDEF BCB} {$EXTERNALSYM VT_DATE} {$ENDIF}
  VT_DATE            = 7;   { [V][T][P]  date                        }
  {$IFDEF BCB} {$EXTERNALSYM VT_BSTR} {$ENDIF}
  VT_BSTR            = 8;   { [V][T][P]  binary string               }
  {$IFDEF BCB} {$EXTERNALSYM VT_DISPATCH} {$ENDIF}
  VT_DISPATCH        = 9;   { [V][T]     IDispatch FAR*              }
  {$IFDEF BCB} {$EXTERNALSYM VT_ERROR} {$ENDIF}
  VT_ERROR           = 10;  { [V][T]     SCODE                       }
  {$IFDEF BCB} {$EXTERNALSYM VT_BOOL} {$ENDIF}
  VT_BOOL            = 11;  { [V][T][P]  True=-1, False=0            }
  {$IFDEF BCB} {$EXTERNALSYM VT_VARIANT} {$ENDIF}
  VT_VARIANT         = 12;  { [V][T][P]  VARIANT FAR*                }
  {$IFDEF BCB} {$EXTERNALSYM VT_UNKNOWN} {$ENDIF}
  VT_UNKNOWN         = 13;  { [V][T]     IUnknown FAR*               }

  {$IFDEF BCB} {$EXTERNALSYM VT_I1} {$ENDIF}
  VT_I1              = 16;  {    [T]     signed char                 }
  {$IFDEF BCB} {$EXTERNALSYM VT_UI1} {$ENDIF}
  VT_UI1             = 17;  {    [T]     unsigned char               }
  {$IFDEF BCB} {$EXTERNALSYM VT_UI2} {$ENDIF}
  VT_UI2             = 18;  {    [T]     unsigned short              }
  {$IFDEF BCB} {$EXTERNALSYM VT_UI4} {$ENDIF}
  VT_UI4             = 19;  {    [T]     unsigned short              }
  {$IFDEF BCB} {$EXTERNALSYM VT_I8} {$ENDIF}
  VT_I8              = 20;  {    [T][P]  signed 64-bit int           }
  {$IFDEF BCB} {$EXTERNALSYM VT_UI8} {$ENDIF}
  VT_UI8             = 21;  {    [T]     unsigned 64-bit int         }
  {$IFDEF BCB} {$EXTERNALSYM VT_INT} {$ENDIF}
  VT_INT             = 22;  {    [T]     signed machine int          }
  {$IFDEF BCB} {$EXTERNALSYM VT_UINT} {$ENDIF}
  VT_UINT            = 23;  {    [T]     unsigned machine int        }
  {$IFDEF BCB} {$EXTERNALSYM VT_VOID} {$ENDIF}
  VT_VOID            = 24;  {    [T]     C style void                }
  {$IFDEF BCB} {$EXTERNALSYM VT_HRESULT} {$ENDIF}