0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0040: 2a 2a 2a 2a 2a 2a 2a 2a 5c 0a 2a 20 20 20 20 20 ********\.*
0050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0060: 20 20 20 20 20 20 20 20 20 20 20 20 6f 6c 65 32 ole2
0070: 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .d
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0090: 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 *.*
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 *.*
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00f0: 20 20 20 20 20 20 57 69 6e 64 6f 77 73 20 41 50 Windows AP
0100: 49 20 68 65 61 64 65 72 20 6d 6f 64 75 6c 65 20 I header module
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120: 20 20 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 *.*
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0170: 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 *.*
0180: 20 20 20 20 54 72 61 6e 73 6c 61 74 65 64 20 66 Translated f
0190: 72 6f 6d 20 4d 69 6e 47 57 20 57 69 6e 64 6f 77 rom MinGW Window
01a0: 73 20 68 65 61 64 65 72 73 20 20 20 20 20 20 20 s headers
01b0: 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 20 20 *.*
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0200: 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 *.*
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6c Pl
0220: 61 63 65 64 20 69 6e 74 6f 20 70 75 62 6c 69 63 aced into public
0230: 20 64 6f 6d 61 69 6e 20 20 20 20 20 20 20 20 20 domain
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a *.
0250: 5c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a \***************
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0290: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 6d 6f 64 75 6c 65 ********/.module
02a0: 20 77 69 6e 33 32 2e 6f 6c 65 32 3b 0a 70 72 61 win32.ole2;.pra
02b0: 67 6d 61 28 6c 69 62 2c 20 22 6f 6c 65 33 32 2e gma(lib, "ole32.
02c0: 6c 69 62 22 29 3b 0a 0a 70 75 62 6c 69 63 20 69 lib");..public i
02d0: 6d 70 6f 72 74 20 77 69 6e 33 32 2e 62 61 73 65 mport win32.base
02e0: 74 79 70 73 2c 20 77 69 6e 33 32 2e 6f 62 6a 62 typs, win32.objb
02f0: 61 73 65 2c 20 77 69 6e 33 32 2e 6f 6c 65 61 75 ase, win32.oleau
0300: 74 6f 2c 20 77 69 6e 33 32 2e 6f 6c 65 63 74 6c to, win32.olectl
0310: 69 64 2c 0a 20 20 77 69 6e 33 32 2e 6f 6c 65 69 id,. win32.olei
0320: 64 6c 2c 20 77 69 6e 33 32 2e 75 6e 6b 6e 77 6e dl, win32.unknwn
0330: 2c 20 77 69 6e 33 32 2e 77 69 6e 65 72 72 6f 72 , win32.winerror
0340: 2c 20 77 69 6e 33 32 2e 75 75 69 64 3b 0a 70 72 , win32.uuid;.pr
0350: 69 76 61 74 65 20 69 6d 70 6f 72 74 20 77 69 6e ivate import win
0360: 33 32 2e 6f 62 6a 66 77 64 2c 20 77 69 6e 33 32 32.objfwd, win32
0370: 2e 6f 62 6a 69 64 6c 2c 20 77 69 6e 33 32 2e 77 .objidl, win32.w
0380: 69 6e 64 65 66 2c 20 77 69 6e 33 32 2e 77 74 79 indef, win32.wty
0390: 70 65 73 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 pes;.private imp
03a0: 6f 72 74 20 77 69 6e 33 32 2e 77 69 6e 75 73 65 ort win32.winuse
03b0: 72 3b 20 2f 2f 20 66 6f 72 20 4c 50 4d 53 47 0a r; // for LPMSG.
03c0: 0a 63 6f 6e 73 74 20 45 5f 44 52 41 57 20 3d 20 .const E_DRAW =
03d0: 56 49 45 57 5f 45 5f 44 52 41 57 3b 0a 0a 63 6f VIEW_E_DRAW;..co
03e0: 6e 73 74 20 44 41 54 41 5f 45 5f 46 4f 52 4d 41 nst DATA_E_FORMA
03f0: 54 45 54 43 20 3d 20 44 56 5f 45 5f 46 4f 52 4d TETC = DV_E_FORM
0400: 41 54 45 54 43 3b 0a 0a 65 6e 75 6d 20 7b 0a 09 ATETC;..enum {..
0410: 4f 4c 45 49 56 45 52 42 5f 50 52 49 4d 41 52 59 OLEIVERB_PRIMARY
0420: 20 3d 20 30 2c 0a 09 4f 4c 45 49 56 45 52 42 5f = 0,..OLEIVERB_
0430: 53 48 4f 57 20 3d 20 2d 31 2c 0a 09 4f 4c 45 49 SHOW = -1,..OLEI
0440: 56 45 52 42 5f 4f 50 45 4e 20 3d 20 2d 32 2c 0a VERB_OPEN = -2,.
0450: 09 4f 4c 45 49 56 45 52 42 5f 48 49 44 45 20 3d .OLEIVERB_HIDE =
0460: 20 2d 33 2c 0a 09 4f 4c 45 49 56 45 52 42 5f 55 -3,..OLEIVERB_U
0470: 49 41 43 54 49 56 41 54 45 20 3d 20 2d 34 2c 0a IACTIVATE = -4,.
0480: 09 4f 4c 45 49 56 45 52 42 5f 49 4e 50 4c 41 43 .OLEIVERB_INPLAC
0490: 45 41 43 54 49 56 41 54 45 20 3d 20 2d 35 2c 0a EACTIVATE = -5,.
04a0: 09 4f 4c 45 49 56 45 52 42 5f 44 49 53 43 41 52 .OLEIVERB_DISCAR
04b0: 44 55 4e 44 4f 53 54 41 54 45 20 3d 20 2d 36 0a DUNDOSTATE = -6.
04c0: 7d 0a 0a 63 6f 6e 73 74 20 45 4d 42 44 48 4c 50 }..const EMBDHLP
04d0: 5f 49 4e 50 52 4f 43 5f 48 41 4e 44 4c 45 52 20 _INPROC_HANDLER
04e0: 3d 20 30 78 30 30 30 30 4c 3b 0a 63 6f 6e 73 74 = 0x0000L;.const
04f0: 20 45 4d 42 44 48 4c 50 5f 49 4e 50 52 4f 43 5f EMBDHLP_INPROC_
0500: 53 45 52 56 45 52 20 20 3d 20 30 78 30 30 30 31 SERVER = 0x0001
0510: 4c 3b 0a 63 6f 6e 73 74 20 45 4d 42 44 48 4c 50 L;.const EMBDHLP
0520: 5f 43 52 45 41 54 45 4e 4f 57 20 20 20 20 20 20 _CREATENOW
0530: 3d 20 30 78 30 30 30 30 30 30 30 30 4c 3b 0a 63 = 0x00000000L;.c
0540: 6f 6e 73 74 20 45 4d 42 44 48 4c 50 5f 44 45 4c onst EMBDHLP_DEL
0550: 41 59 43 52 45 41 54 45 20 20 20 20 3d 20 30 78 AYCREATE = 0x
0560: 30 30 30 31 30 30 30 30 4c 3b 0a 0a 61 6c 69 67 00010000L;..alig
0570: 6e 28 38 29 3a 0a 73 74 72 75 63 74 20 4f 4c 45 n(8):.struct OLE
0580: 53 54 52 45 41 4d 20 7b 0a 09 4c 50 4f 4c 45 53 STREAM {..LPOLES
0590: 54 52 45 41 4d 56 54 42 4c 20 6c 70 73 74 62 6c TREAMVTBL lpstbl
05a0: 3b 0a 7d 0a 61 6c 69 61 73 20 4f 4c 45 53 54 52 ;.}.alias OLESTR
05b0: 45 41 4d 2a 20 4c 50 4f 4c 45 53 54 52 45 41 4d EAM* LPOLESTREAM
05c0: 3b 0a 0a 65 78 74 65 72 6e 20 28 57 69 6e 64 6f ;..extern (Windo
05d0: 77 73 29 20 7b 0a 09 73 74 72 75 63 74 20 4f 4c ws) {..struct OL
05e0: 45 53 54 52 45 41 4d 56 54 42 4c 20 7b 0a 09 09 ESTREAMVTBL {...
05f0: 44 57 4f 52 44 20 66 75 6e 63 74 69 6f 6e 20 28 DWORD function (
0600: 4c 50 4f 4c 45 53 54 52 45 41 4d 2c 20 76 6f 69 LPOLESTREAM, voi
0610: 64 2a 2c 20 44 57 4f 52 44 29 20 47 65 74 3b 0a d*, DWORD) Get;.
0620: 09 09 44 57 4f 52 44 20 66 75 6e 63 74 69 6f 6e ..DWORD function
0630: 20 28 4c 50 4f 4c 45 53 54 52 45 41 4d 2c 20 43 (LPOLESTREAM, C
0640: 50 74 72 21 28 76 6f 69 64 29 2c 20 44 57 4f 52 Ptr!(void), DWOR
0650: 44 29 20 50 75 74 3b 0a 09 7d 0a 7d 0a 61 6c 69 D) Put;..}.}.ali
0660: 61 73 20 4f 4c 45 53 54 52 45 41 4d 56 54 42 4c as OLESTREAMVTBL
0670: 2a 20 4c 50 4f 4c 45 53 54 52 45 41 4d 56 54 42 * LPOLESTREAMVTB
0680: 4c 3b 0a 0a 65 78 74 65 72 6e 20 28 57 69 6e 64 L;..extern (Wind
0690: 6f 77 73 29 20 7b 0a 09 48 52 45 53 55 4c 54 20 ows) {..HRESULT
06a0: 43 72 65 61 74 65 44 61 74 61 41 64 76 69 73 65 CreateDataAdvise
06b0: 48 6f 6c 64 65 72 28 4c 50 44 41 54 41 41 44 56 Holder(LPDATAADV
06c0: 49 53 45 48 4f 4c 44 45 52 2a 29 3b 0a 09 44 57 ISEHOLDER*);..DW
06d0: 4f 52 44 20 4f 6c 65 42 75 69 6c 64 56 65 72 73 ORD OleBuildVers
06e0: 69 6f 6e 28 29 3b 0a 09 48 52 45 53 55 4c 54 20 ion();..HRESULT
06f0: 52 65 61 64 43 6c 61 73 73 53 74 67 28 4c 50 53 ReadClassStg(LPS
0700: 54 4f 52 41 47 45 2c 20 43 4c 53 49 44 2a 29 3b TORAGE, CLSID*);
0710: 0a 09 48 52 45 53 55 4c 54 20 57 72 69 74 65 43 ..HRESULT WriteC
0720: 6c 61 73 73 53 74 67 28 4c 50 53 54 4f 52 41 47 lassStg(LPSTORAG
0730: 45 2c 20 52 45 46 43 4c 53 49 44 29 3b 0a 09 48 E, REFCLSID);..H
0740: 52 45 53 55 4c 54 20 52 65 61 64 43 6c 61 73 73 RESULT ReadClass
0750: 53 74 6d 28 4c 50 53 54 52 45 41 4d 2c 20 43 4c Stm(LPSTREAM, CL
0760: 53 49 44 2a 29 3b 0a 09 48 52 45 53 55 4c 54 20 SID*);..HRESULT
0770: 57 72 69 74 65 43 6c 61 73 73 53 74 6d 28 4c 50 WriteClassStm(LP
0780: 53 54 52 45 41 4d 2c 20 52 45 46 43 4c 53 49 44 STREAM, REFCLSID
0790: 29 3b 0a 09 48 52 45 53 55 4c 54 20 57 72 69 74 );..HRESULT Writ
07a0: 65 46 6d 74 55 73 65 72 54 79 70 65 53 74 67 28 eFmtUserTypeStg(
07b0: 4c 50 53 54 4f 52 41 47 45 2c 20 43 4c 49 50 46 LPSTORAGE, CLIPF
07c0: 4f 52 4d 41 54 2c 20 4c 50 4f 4c 45 53 54 52 29 ORMAT, LPOLESTR)
07d0: 3b 0a 09 48 52 45 53 55 4c 54 20 52 65 61 64 46 ;..HRESULT ReadF
07e0: 6d 74 55 73 65 72 54 79 70 65 53 74 67 28 4c 50 mtUserTypeStg(LP
07f0: 53 54 4f 52 41 47 45 2c 20 43 4c 49 50 46 4f 52 STORAGE, CLIPFOR
0800: 4d 41 54 2a 2c 20 4c 50 4f 4c 45 53 54 52 2a 29 MAT*, LPOLESTR*)
0810: 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 49 6e ;..HRESULT OleIn
0820: 69 74 69 61 6c 69 7a 65 28 50 56 4f 49 44 29 3b itialize(PVOID);
0830: 0a 09 76 6f 69 64 20 4f 6c 65 55 6e 69 6e 69 74 ..void OleUninit
0840: 69 61 6c 69 7a 65 28 29 3b 0a 09 48 52 45 53 55 ialize();..HRESU
0850: 4c 54 20 4f 6c 65 51 75 65 72 79 4c 69 6e 6b 46 LT OleQueryLinkF
0860: 72 6f 6d 44 61 74 61 28 4c 50 44 41 54 41 4f 42 romData(LPDATAOB
0870: 4a 45 43 54 29 3b 0a 09 48 52 45 53 55 4c 54 20 JECT);..HRESULT
0880: 4f 6c 65 51 75 65 72 79 43 72 65 61 74 65 46 72 OleQueryCreateFr
0890: 6f 6d 44 61 74 61 28 4c 50 44 41 54 41 4f 42 4a omData(LPDATAOBJ
08a0: 45 43 54 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f ECT);..HRESULT O
08b0: 6c 65 43 72 65 61 74 65 28 52 45 46 43 4c 53 49 leCreate(REFCLSI
08c0: 44 2c 20 52 45 46 49 49 44 2c 20 44 57 4f 52 44 D, REFIID, DWORD
08d0: 2c 20 4c 50 46 4f 52 4d 41 54 45 54 43 2c 20 4c , LPFORMATETC, L
08e0: 50 4f 4c 45 43 4c 49 45 4e 54 53 49 54 45 2c 20 POLECLIENTSITE,
08f0: 4c 50 53 54 4f 52 41 47 45 2c 20 50 56 4f 49 44 LPSTORAGE, PVOID
0900: 2a 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 *);..HRESULT Ole
0910: 43 72 65 61 74 65 46 72 6f 6d 44 61 74 61 28 4c CreateFromData(L
0920: 50 44 41 54 41 4f 42 4a 45 43 54 2c 20 52 45 46 PDATAOBJECT, REF
0930: 49 49 44 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f IID, DWORD, LPFO
0940: 52 4d 41 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c RMATETC, LPOLECL
0950: 49 45 4e 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 IENTSITE, LPSTOR
0960: 41 47 45 2c 20 50 56 4f 49 44 2a 29 3b 0a 09 48 AGE, PVOID*);..H
0970: 52 45 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 RESULT OleCreate
0980: 4c 69 6e 6b 46 72 6f 6d 44 61 74 61 28 4c 50 44 LinkFromData(LPD
0990: 41 54 41 4f 42 4a 45 43 54 2c 20 52 45 46 49 49 ATAOBJECT, REFII
09a0: 44 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d D, DWORD, LPFORM
09b0: 41 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 ATETC, LPOLECLIE
09c0: 4e 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 NTSITE, LPSTORAG
09d0: 45 2c 20 50 56 4f 49 44 2a 29 3b 0a 09 48 52 45 E, PVOID*);..HRE
09e0: 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 53 74 SULT OleCreateSt
09f0: 61 74 69 63 46 72 6f 6d 44 61 74 61 28 4c 50 44 aticFromData(LPD
0a00: 41 54 41 4f 42 4a 45 43 54 2c 20 52 45 46 49 49 ATAOBJECT, REFII
0a10: 44 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d D, DWORD, LPFORM
0a20: 41 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 ATETC, LPOLECLIE
0a30: 4e 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 NTSITE, LPSTORAG
0a40: 45 2c 20 50 56 4f 49 44 2a 29 3b 0a 09 48 52 45 E, PVOID*);..HRE
0a50: 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 4c 69 SULT OleCreateLi
0a60: 6e 6b 28 4c 50 4d 4f 4e 49 4b 45 52 2c 20 52 45 nk(LPMONIKER, RE
0a70: 46 49 49 44 2c 20 44 57 4f 52 44 2c 20 4c 50 46 FIID, DWORD, LPF
0a80: 4f 52 4d 41 54 45 54 43 2c 20 4c 50 4f 4c 45 43 ORMATETC, LPOLEC
0a90: 4c 49 45 4e 54 53 49 54 45 2c 20 4c 50 53 54 4f LIENTSITE, LPSTO
0aa0: 52 41 47 45 2c 20 50 56 4f 49 44 2a 29 3b 0a 09 RAGE, PVOID*);..
0ab0: 48 52 45 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 HRESULT OleCreat
0ac0: 65 4c 69 6e 6b 54 6f 46 69 6c 65 28 4c 50 43 4f eLinkToFile(LPCO
0ad0: 4c 45 53 54 52 2c 20 52 45 46 49 49 44 2c 20 44 LESTR, REFIID, D
0ae0: 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 54 45 54 WORD, LPFORMATET
0af0: 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e 54 53 49 C, LPOLECLIENTSI
0b00: 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 2c 20 50 TE, LPSTORAGE, P
0b10: 56 4f 49 44 2a 29 3b 0a 09 48 52 45 53 55 4c 54 VOID*);..HRESULT
0b20: 20 4f 6c 65 43 72 65 61 74 65 46 72 6f 6d 46 69 OleCreateFromFi
0b30: 6c 65 28 52 45 46 43 4c 53 49 44 2c 20 4c 50 43 le(REFCLSID, LPC
0b40: 4f 4c 45 53 54 52 2c 20 52 45 46 49 49 44 2c 20 OLESTR, REFIID,
0b50: 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 54 45 DWORD, LPFORMATE
0b60: 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e 54 53 TC, LPOLECLIENTS
0b70: 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 2c 20 ITE, LPSTORAGE,
0b80: 50 56 4f 49 44 2a 29 3b 0a 09 48 52 45 53 55 4c PVOID*);..HRESUL
0b90: 54 20 4f 6c 65 4c 6f 61 64 28 4c 50 53 54 4f 52 T OleLoad(LPSTOR
0ba0: 41 47 45 2c 20 52 45 46 49 49 44 2c 20 4c 50 4f AGE, REFIID, LPO
0bb0: 4c 45 43 4c 49 45 4e 54 53 49 54 45 2c 20 50 56 LECLIENTSITE, PV
0bc0: 4f 49 44 2a 29 3b 0a 09 48 52 45 53 55 4c 54 20 OID*);..HRESULT
0bd0: 4f 6c 65 53 61 76 65 28 4c 50 50 45 52 53 49 53 OleSave(LPPERSIS
0be0: 54 53 54 4f 52 41 47 45 2c 20 4c 50 53 54 4f 52 TSTORAGE, LPSTOR
0bf0: 41 47 45 2c 20 42 4f 4f 4c 29 3b 0a 09 48 52 45 AGE, BOOL);..HRE
0c00: 53 55 4c 54 20 4f 6c 65 4c 6f 61 64 46 72 6f 6d SULT OleLoadFrom
0c10: 53 74 72 65 61 6d 28 4c 50 53 54 52 45 41 4d 2c Stream(LPSTREAM,
0c20: 20 52 45 46 49 49 44 2c 20 50 56 4f 49 44 2a 29 REFIID, PVOID*)
0c30: 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 53 61 ;..HRESULT OleSa
0c40: 76 65 54 6f 53 74 72 65 61 6d 28 4c 50 50 45 52 veToStream(LPPER
0c50: 53 49 53 54 53 54 52 45 41 4d 2c 20 4c 50 53 54 SISTSTREAM, LPST
0c60: 52 45 41 4d 29 3b 0a 09 48 52 45 53 55 4c 54 20 REAM);..HRESULT
0c70: 4f 6c 65 53 65 74 43 6f 6e 74 61 69 6e 65 64 4f OleSetContainedO
0c80: 62 6a 65 63 74 28 4c 50 55 4e 4b 4e 4f 57 4e 2c bject(LPUNKNOWN,
0c90: 20 42 4f 4f 4c 29 3b 0a 09 48 52 45 53 55 4c 54 BOOL);..HRESULT
0ca0: 20 4f 6c 65 4e 6f 74 65 4f 62 6a 65 63 74 56 69 OleNoteObjectVi
0cb0: 73 69 62 6c 65 28 4c 50 55 4e 4b 4e 4f 57 4e 2c sible(LPUNKNOWN,
0cc0: 20 42 4f 4f 4c 29 3b 0a 09 48 52 45 53 55 4c 54 BOOL);..HRESULT
0cd0: 20 52 65 67 69 73 74 65 72 44 72 61 67 44 72 6f RegisterDragDro
0ce0: 70 28 48 57 4e 44 2c 20 4c 50 44 52 4f 50 54 41 p(HWND, LPDROPTA
0cf0: 52 47 45 54 29 3b 0a 09 48 52 45 53 55 4c 54 20 RGET);..HRESULT
0d00: 52 65 76 6f 6b 65 44 72 61 67 44 72 6f 70 28 48 RevokeDragDrop(H
0d10: 57 4e 44 29 3b 0a 09 48 52 45 53 55 4c 54 20 44 WND);..HRESULT D
0d20: 6f 44 72 61 67 44 72 6f 70 28 4c 50 44 41 54 41 oDragDrop(LPDATA
0d30: 4f 42 4a 45 43 54 2c 20 4c 50 44 52 4f 50 53 4f OBJECT, LPDROPSO
0d40: 55 52 43 45 2c 20 44 57 4f 52 44 2c 20 50 44 57 URCE, DWORD, PDW
0d50: 4f 52 44 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f ORD);..HRESULT O
0d60: 6c 65 53 65 74 43 6c 69 70 62 6f 61 72 64 28 4c leSetClipboard(L
0d70: 50 44 41 54 41 4f 42 4a 45 43 54 29 3b 0a 09 48 PDATAOBJECT);..H
0d80: 52 45 53 55 4c 54 20 4f 6c 65 47 65 74 43 6c 69 RESULT OleGetCli
0d90: 70 62 6f 61 72 64 28 4c 50 44 41 54 41 4f 42 4a pboard(LPDATAOBJ
0da0: 45 43 54 2a 29 3b 0a 09 48 52 45 53 55 4c 54 20 ECT*);..HRESULT
0db0: 4f 6c 65 46 6c 75 73 68 43 6c 69 70 62 6f 61 72 OleFlushClipboar
0dc0: 64 28 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c d();..HRESULT Ol
0dd0: 65 49 73 43 75 72 72 65 6e 74 43 6c 69 70 62 6f eIsCurrentClipbo
0de0: 61 72 64 28 4c 50 44 41 54 41 4f 42 4a 45 43 54 ard(LPDATAOBJECT
0df0: 29 3b 0a 09 48 4f 4c 45 4d 45 4e 55 20 4f 6c 65 );..HOLEMENU Ole
0e00: 43 72 65 61 74 65 4d 65 6e 75 44 65 73 63 72 69 CreateMenuDescri
0e10: 70 74 6f 72 28 48 4d 45 4e 55 2c 20 4c 50 4f 4c ptor(HMENU, LPOL
0e20: 45 4d 45 4e 55 47 52 4f 55 50 57 49 44 54 48 53 EMENUGROUPWIDTHS
0e30: 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 53 );..HRESULT OleS
0e40: 65 74 4d 65 6e 75 44 65 73 63 72 69 70 74 6f 72 etMenuDescriptor
0e50: 28 48 4f 4c 45 4d 45 4e 55 2c 20 48 57 4e 44 2c (HOLEMENU, HWND,
0e60: 20 48 57 4e 44 2c 20 4c 50 4f 4c 45 49 4e 50 4c HWND, LPOLEINPL
0e70: 41 43 45 46 52 41 4d 45 2c 20 4c 50 4f 4c 45 49 ACEFRAME, LPOLEI
0e80: 4e 50 4c 41 43 45 41 43 54 49 56 45 4f 42 4a 45 NPLACEACTIVEOBJE
0e90: 43 54 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c CT);..HRESULT Ol
0ea0: 65 44 65 73 74 72 6f 79 4d 65 6e 75 44 65 73 63 eDestroyMenuDesc
0eb0: 72 69 70 74 6f 72 28 48 4f 4c 45 4d 45 4e 55 29 riptor(HOLEMENU)
0ec0: 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 54 72 ;..HRESULT OleTr
0ed0: 61 6e 73 6c 61 74 65 41 63 63 65 6c 65 72 61 74 anslateAccelerat
0ee0: 6f 72 28 4c 50 4f 4c 45 49 4e 50 4c 41 43 45 46 or(LPOLEINPLACEF
0ef0: 52 41 4d 45 2c 20 4c 50 4f 4c 45 49 4e 50 4c 41 RAME, LPOLEINPLA
0f00: 43 45 46 52 41 4d 45 49 4e 46 4f 2c 20 4c 50 4d CEFRAMEINFO, LPM
0f10: 53 47 29 3b 0a 09 48 41 4e 44 4c 45 20 4f 6c 65 SG);..HANDLE Ole
0f20: 44 75 70 6c 69 63 61 74 65 44 61 74 61 28 48 41 DuplicateData(HA
0f30: 4e 44 4c 45 2c 20 43 4c 49 50 46 4f 52 4d 41 54 NDLE, CLIPFORMAT
0f40: 2c 20 55 49 4e 54 29 3b 0a 09 48 52 45 53 55 4c , UINT);..HRESUL
0f50: 54 20 4f 6c 65 44 72 61 77 28 4c 50 55 4e 4b 4e T OleDraw(LPUNKN
0f60: 4f 57 4e 2c 20 44 57 4f 52 44 2c 20 48 44 43 2c OWN, DWORD, HDC,
0f70: 20 4c 50 43 52 45 43 54 29 3b 0a 09 48 52 45 53 LPCRECT);..HRES
0f80: 55 4c 54 20 4f 6c 65 52 75 6e 28 4c 50 55 4e 4b ULT OleRun(LPUNK
0f90: 4e 4f 57 4e 29 3b 0a 09 42 4f 4f 4c 20 4f 6c 65 NOWN);..BOOL Ole
0fa0: 49 73 52 75 6e 6e 69 6e 67 28 4c 50 4f 4c 45 4f IsRunning(LPOLEO
0fb0: 42 4a 45 43 54 29 3b 0a 09 48 52 45 53 55 4c 54 BJECT);..HRESULT
0fc0: 20 4f 6c 65 4c 6f 63 6b 52 75 6e 6e 69 6e 67 28 OleLockRunning(
0fd0: 4c 50 55 4e 4b 4e 4f 57 4e 2c 20 42 4f 4f 4c 2c LPUNKNOWN, BOOL,
0fe0: 20 42 4f 4f 4c 29 3b 0a 09 76 6f 69 64 20 52 65 BOOL);..void Re
0ff0: 6c 65 61 73 65 53 74 67 4d 65 64 69 75 6d 28 4c leaseStgMedium(L
1000: 50 53 54 47 4d 45 44 49 55 4d 29 3b 0a 09 48 52 PSTGMEDIUM);..HR
1010: 45 53 55 4c 54 20 43 72 65 61 74 65 4f 6c 65 41 ESULT CreateOleA
1020: 64 76 69 73 65 48 6f 6c 64 65 72 28 4c 50 4f 4c dviseHolder(LPOL
1030: 45 41 44 56 49 53 45 48 4f 4c 44 45 52 2a 29 3b EADVISEHOLDER*);
1040: 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 72 65 ..HRESULT OleCre
1050: 61 74 65 44 65 66 61 75 6c 74 48 61 6e 64 6c 65 ateDefaultHandle
1060: 72 28 52 45 46 43 4c 53 49 44 2c 20 4c 50 55 4e r(REFCLSID, LPUN
1070: 4b 4e 4f 57 4e 2c 20 52 45 46 49 49 44 2c 20 50 KNOWN, REFIID, P
1080: 56 4f 49 44 2a 29 3b 0a 09 48 52 45 53 55 4c 54 VOID*);..HRESULT
1090: 20 4f 6c 65 43 72 65 61 74 65 45 6d 62 65 64 64 OleCreateEmbedd
10a0: 69 6e 67 48 65 6c 70 65 72 28 52 45 46 43 4c 53 ingHelper(REFCLS
10b0: 49 44 2c 20 4c 50 55 4e 4b 4e 4f 57 4e 2c 20 44 ID, LPUNKNOWN, D
10c0: 57 4f 52 44 2c 20 4c 50 43 4c 41 53 53 46 41 43 WORD, LPCLASSFAC
10d0: 54 4f 52 59 2c 20 52 45 46 49 49 44 2c 20 50 56 TORY, REFIID, PV
10e0: 4f 49 44 2a 29 3b 0a 09 42 4f 4f 4c 20 49 73 41 OID*);..BOOL IsA
10f0: 63 63 65 6c 65 72 61 74 6f 72 28 48 41 43 43 45 ccelerator(HACCE
1100: 4c 2c 20 69 6e 74 2c 20 4c 50 4d 53 47 2c 20 57 L, int, LPMSG, W
1110: 4f 52 44 2a 29 3b 0a 09 48 47 4c 4f 42 41 4c 20 ORD*);..HGLOBAL
1120: 4f 6c 65 47 65 74 49 63 6f 6e 4f 66 46 69 6c 65 OleGetIconOfFile
1130: 28 4c 50 4f 4c 45 53 54 52 2c 20 42 4f 4f 4c 29 (LPOLESTR, BOOL)
1140: 3b 0a 09 48 47 4c 4f 42 41 4c 20 4f 6c 65 47 65 ;..HGLOBAL OleGe
1150: 74 49 63 6f 6e 4f 66 43 6c 61 73 73 28 52 45 46 tIconOfClass(REF
1160: 43 4c 53 49 44 2c 20 4c 50 4f 4c 45 53 54 52 2c CLSID, LPOLESTR,
1170: 20 42 4f 4f 4c 29 3b 0a 09 48 47 4c 4f 42 41 4c BOOL);..HGLOBAL
1180: 20 4f 6c 65 4d 65 74 61 66 69 6c 65 50 69 63 74 OleMetafilePict
1190: 46 72 6f 6d 49 63 6f 6e 41 6e 64 4c 61 62 65 6c FromIconAndLabel
11a0: 28 48 49 43 4f 4e 2c 20 4c 50 4f 4c 45 53 54 52 (HICON, LPOLESTR
11b0: 2c 20 4c 50 4f 4c 45 53 54 52 2c 20 55 49 4e 54 , LPOLESTR, UINT
11c0: 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 52 );..HRESULT OleR
11d0: 65 67 47 65 74 55 73 65 72 54 79 70 65 28 52 45 egGetUserType(RE
11e0: 46 43 4c 53 49 44 2c 20 44 57 4f 52 44 2c 20 4c FCLSID, DWORD, L
11f0: 50 4f 4c 45 53 54 52 2a 29 3b 0a 09 48 52 45 53 POLESTR*);..HRES
1200: 55 4c 54 20 4f 6c 65 52 65 67 47 65 74 4d 69 73 ULT OleRegGetMis
1210: 63 53 74 61 74 75 73 28 52 45 46 43 4c 53 49 44 cStatus(REFCLSID
1220: 2c 20 44 57 4f 52 44 2c 20 44 57 4f 52 44 2a 29 , DWORD, DWORD*)
1230: 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 52 65 ;..HRESULT OleRe
1240: 67 45 6e 75 6d 46 6f 72 6d 61 74 45 74 63 20 28 gEnumFormatEtc (
1250: 52 45 46 43 4c 53 49 44 2c 20 44 57 4f 52 44 2c REFCLSID, DWORD,
1260: 20 4c 50 45 4e 55 4d 46 4f 52 4d 41 54 45 54 43 LPENUMFORMATETC
1270: 2a 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 *);..HRESULT Ole
1280: 52 65 67 45 6e 75 6d 56 65 72 62 73 20 28 52 45 RegEnumVerbs (RE
1290: 46 43 4c 53 49 44 2c 20 4c 50 45 4e 55 4d 4f 4c FCLSID, LPENUMOL
12a0: 45 56 45 52 42 2a 29 3b 0a 09 48 52 45 53 55 4c EVERB*);..HRESUL
12b0: 54 20 4f 6c 65 43 6f 6e 76 65 72 74 4f 4c 45 53 T OleConvertOLES
12c0: 54 52 45 41 4d 54 6f 49 53 74 6f 72 61 67 65 28 TREAMToIStorage(
12d0: 4c 50 4f 4c 45 53 54 52 45 41 4d 2c 20 4c 50 53 LPOLESTREAM, LPS
12e0: 54 4f 52 41 47 45 2c 20 43 50 74 72 21 28 44 56 TORAGE, CPtr!(DV
12f0: 54 41 52 47 45 54 44 45 56 49 43 45 29 29 3b 0a TARGETDEVICE));.
1300: 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 6f 6e 76 .HRESULT OleConv
1310: 65 72 74 49 53 74 6f 72 61 67 65 54 6f 4f 4c 45 ertIStorageToOLE
1320: 53 54 52 45 41 4d 28 4c 50 53 54 4f 52 41 47 45 STREAM(LPSTORAGE
1330: 2c 20 4c 50 4f 4c 45 53 54 52 45 41 4d 29 3b 0a , LPOLESTREAM);.
1340: 09 48 52 45 53 55 4c 54 20 47 65 74 48 47 6c 6f .HRESULT GetHGlo
1350: 62 61 6c 46 72 6f 6d 49 4c 6f 63 6b 42 79 74 65 balFromILockByte
1360: 73 28 4c 50 4c 4f 43 4b 42 59 54 45 53 2c 20 48 s(LPLOCKBYTES, H
1370: 47 4c 4f 42 41 4c 2a 29 3b 0a 09 48 52 45 53 55 GLOBAL*);..HRESU
1380: 4c 54 20 43 72 65 61 74 65 49 4c 6f 63 6b 42 79 LT CreateILockBy
1390: 74 65 73 4f 6e 48 47 6c 6f 62 61 6c 28 48 47 4c tesOnHGlobal(HGL
13a0: 4f 42 41 4c 2c 20 42 4f 4f 4c 2c 20 4c 50 4c 4f OBAL, BOOL, LPLO
13b0: 43 4b 42 59 54 45 53 2a 29 3b 0a 09 48 52 45 53 CKBYTES*);..HRES
13c0: 55 4c 54 20 47 65 74 48 47 6c 6f 62 61 6c 46 72 ULT GetHGlobalFr
13d0: 6f 6d 53 74 72 65 61 6d 28 4c 50 53 54 52 45 41 omStream(LPSTREA
13e0: 4d 2c 20 48 47 4c 4f 42 41 4c 2a 29 3b 0a 09 48 M, HGLOBAL*);..H
13f0: 52 45 53 55 4c 54 20 43 72 65 61 74 65 53 74 72 RESULT CreateStr
1400: 65 61 6d 4f 6e 48 47 6c 6f 62 61 6c 28 48 47 4c eamOnHGlobal(HGL
1410: 4f 42 41 4c 2c 20 42 4f 4f 4c 2c 20 4c 50 53 54 OBAL, BOOL, LPST
1420: 52 45 41 4d 2a 29 3b 0a 09 48 52 45 53 55 4c 54 REAM*);..HRESULT
1430: 20 4f 6c 65 44 6f 41 75 74 6f 43 6f 6e 76 65 72 OleDoAutoConver
1440: 74 28 4c 50 53 54 4f 52 41 47 45 2c 20 4c 50 43 t(LPSTORAGE, LPC
1450: 4c 53 49 44 29 3b 0a 09 48 52 45 53 55 4c 54 20 LSID);..HRESULT
1460: 4f 6c 65 47 65 74 41 75 74 6f 43 6f 6e 76 65 72 OleGetAutoConver
1470: 74 28 52 45 46 43 4c 53 49 44 2c 20 4c 50 43 4c t(REFCLSID, LPCL
1480: 53 49 44 29 3b 0a 09 48 52 45 53 55 4c 54 20 4f SID);..HRESULT O
1490: 6c 65 53 65 74 41 75 74 6f 43 6f 6e 76 65 72 74 leSetAutoConvert
14a0: 28 52 45 46 43 4c 53 49 44 2c 20 52 45 46 43 4c (REFCLSID, REFCL
14b0: 53 49 44 29 3b 0a 09 48 52 45 53 55 4c 54 20 47 SID);..HRESULT G
14c0: 65 74 43 6f 6e 76 65 72 74 53 74 67 28 4c 50 53 etConvertStg(LPS
14d0: 54 4f 52 41 47 45 29 3b 0a 09 48 52 45 53 55 4c TORAGE);..HRESUL
14e0: 54 20 53 65 74 43 6f 6e 76 65 72 74 53 74 67 28 T SetConvertStg(
14f0: 4c 50 53 54 4f 52 41 47 45 2c 20 42 4f 4f 4c 29 LPSTORAGE, BOOL)
1500: 3b 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 6f ;..HRESULT OleCo
1510: 6e 76 65 72 74 49 53 74 6f 72 61 67 65 54 6f 4f nvertIStorageToO
1520: 4c 45 53 54 52 45 41 4d 45 78 28 4c 50 53 54 4f LESTREAMEx(LPSTO
1530: 52 41 47 45 2c 20 43 4c 49 50 46 4f 52 4d 41 54 RAGE, CLIPFORMAT
1540: 2c 20 4c 4f 4e 47 2c 20 4c 4f 4e 47 2c 20 44 57 , LONG, LONG, DW
1550: 4f 52 44 2c 20 4c 50 53 54 47 4d 45 44 49 55 4d ORD, LPSTGMEDIUM
1560: 2c 20 4c 50 4f 4c 45 53 54 52 45 41 4d 29 3b 0a , LPOLESTREAM);.
1570: 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 6f 6e 76 .HRESULT OleConv
1580: 65 72 74 4f 4c 45 53 54 52 45 41 4d 54 6f 49 53 ertOLESTREAMToIS
1590: 74 6f 72 61 67 65 45 78 28 4c 50 4f 4c 45 53 54 torageEx(LPOLEST
15a0: 52 45 41 4d 2c 20 4c 50 53 54 4f 52 41 47 45 2c REAM, LPSTORAGE,
15b0: 20 43 4c 49 50 46 4f 52 4d 41 54 2a 2c 20 4c 4f CLIPFORMAT*, LO
15c0: 4e 47 2a 2c 20 4c 4f 4e 47 2a 2c 20 44 57 4f 52 NG*, LONG*, DWOR
15d0: 44 2a 2c 20 4c 50 53 54 47 4d 45 44 49 55 4d 29 D*, LPSTGMEDIUM)
15e0: 3b 0a 7d 0a ;.}.