Artifact 068170c0bbf5e02db1b9efad377b55d9cb6a9b6d:
- File
src/win32/ole2.d
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
The problem was __gshared. Replacing it with TLS fixed the issue. Remaining problem is that "hack.d"'s CloseHandle hack is not working anymore.
(user: kinaba) [annotate]
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
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 0d 0a 2a 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 20 6f 6c 65 ole
0070: 32 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 2.d
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0090: 20 20 20 2a 0d 0a 2a 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 20 20 2a 0d *.
00e0: 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*
00f0: 20 20 20 20 20 20 20 20 20 57 69 6e 64 6f 77 73 Windows
0100: 20 41 50 49 20 68 65 61 64 65 72 20 6d 6f 64 75 API header modu
0110: 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le
0120: 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 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: 20 20 20 20 2a 0d 0a 2a 20 20 20 20 20 20 20 20 *..*
0180: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 6c 61 Transla
0190: 74 65 64 20 66 72 6f 6d 20 4d 69 6e 47 57 20 57 ted from MinGW W
01a0: 69 6e 64 6f 77 73 20 68 65 61 64 65 72 73 20 20 indows headers
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
01c0: 0d 0a 2a 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 20 20 20 20 20 20 2a 0d 0a 2a 20 20 *..*
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0220: 20 20 20 20 20 50 6c 61 63 65 64 20 69 6e 74 6f Placed into
0230: 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 20 public domain
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0250: 20 20 20 20 20 2a 0d 0a 5c 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 2a 2a 2a 2a 2a 2a 2a 2a ****************
02a0: 2f 0d 0a 6d 6f 64 75 6c 65 20 77 69 6e 33 32 2e /..module win32.
02b0: 6f 6c 65 32 3b 0d 0a 70 72 61 67 6d 61 28 6c 69 ole2;..pragma(li
02c0: 62 2c 20 22 6f 6c 65 33 32 22 29 3b 0d 0a 0d 0a b, "ole32");....
02d0: 70 75 62 6c 69 63 20 69 6d 70 6f 72 74 20 77 69 public import wi
02e0: 6e 33 32 2e 62 61 73 65 74 79 70 73 2c 20 77 69 n32.basetyps, wi
02f0: 6e 33 32 2e 6f 62 6a 62 61 73 65 2c 20 77 69 6e n32.objbase, win
0300: 33 32 2e 6f 6c 65 61 75 74 6f 2c 20 77 69 6e 33 32.oleauto, win3
0310: 32 2e 6f 6c 65 63 74 6c 69 64 2c 0d 0a 20 20 77 2.olectlid,.. w
0320: 69 6e 33 32 2e 6f 6c 65 69 64 6c 2c 20 77 69 6e in32.oleidl, win
0330: 33 32 2e 75 6e 6b 6e 77 6e 2c 20 77 69 6e 33 32 32.unknwn, win32
0340: 2e 77 69 6e 65 72 72 6f 72 2c 20 77 69 6e 33 32 .winerror, win32
0350: 2e 75 75 69 64 3b 0d 0a 70 72 69 76 61 74 65 20 .uuid;..private
0360: 69 6d 70 6f 72 74 20 77 69 6e 33 32 2e 6f 62 6a import win32.obj
0370: 66 77 64 2c 20 77 69 6e 33 32 2e 6f 62 6a 69 64 fwd, win32.objid
0380: 6c 2c 20 77 69 6e 33 32 2e 77 69 6e 64 65 66 2c l, win32.windef,
0390: 20 77 69 6e 33 32 2e 77 74 79 70 65 73 3b 0d 0a win32.wtypes;..
03a0: 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 77 private import w
03b0: 69 6e 33 32 2e 77 69 6e 75 73 65 72 3b 20 2f 2f in32.winuser; //
03c0: 20 66 6f 72 20 4c 50 4d 53 47 0d 0a 0d 0a 63 6f for LPMSG....co
03d0: 6e 73 74 20 45 5f 44 52 41 57 20 3d 20 56 49 45 nst E_DRAW = VIE
03e0: 57 5f 45 5f 44 52 41 57 3b 0d 0a 0d 0a 63 6f 6e W_E_DRAW;....con
03f0: 73 74 20 44 41 54 41 5f 45 5f 46 4f 52 4d 41 54 st DATA_E_FORMAT
0400: 45 54 43 20 3d 20 44 56 5f 45 5f 46 4f 52 4d 41 ETC = DV_E_FORMA
0410: 54 45 54 43 3b 0d 0a 0d 0a 65 6e 75 6d 20 7b 0d TETC;....enum {.
0420: 0a 09 4f 4c 45 49 56 45 52 42 5f 50 52 49 4d 41 ..OLEIVERB_PRIMA
0430: 52 59 20 3d 20 30 2c 0d 0a 09 4f 4c 45 49 56 45 RY = 0,...OLEIVE
0440: 52 42 5f 53 48 4f 57 20 3d 20 2d 31 2c 0d 0a 09 RB_SHOW = -1,...
0450: 4f 4c 45 49 56 45 52 42 5f 4f 50 45 4e 20 3d 20 OLEIVERB_OPEN =
0460: 2d 32 2c 0d 0a 09 4f 4c 45 49 56 45 52 42 5f 48 -2,...OLEIVERB_H
0470: 49 44 45 20 3d 20 2d 33 2c 0d 0a 09 4f 4c 45 49 IDE = -3,...OLEI
0480: 56 45 52 42 5f 55 49 41 43 54 49 56 41 54 45 20 VERB_UIACTIVATE
0490: 3d 20 2d 34 2c 0d 0a 09 4f 4c 45 49 56 45 52 42 = -4,...OLEIVERB
04a0: 5f 49 4e 50 4c 41 43 45 41 43 54 49 56 41 54 45 _INPLACEACTIVATE
04b0: 20 3d 20 2d 35 2c 0d 0a 09 4f 4c 45 49 56 45 52 = -5,...OLEIVER
04c0: 42 5f 44 49 53 43 41 52 44 55 4e 44 4f 53 54 41 B_DISCARDUNDOSTA
04d0: 54 45 20 3d 20 2d 36 0d 0a 7d 0d 0a 0d 0a 63 6f TE = -6..}....co
04e0: 6e 73 74 20 45 4d 42 44 48 4c 50 5f 49 4e 50 52 nst EMBDHLP_INPR
04f0: 4f 43 5f 48 41 4e 44 4c 45 52 20 3d 20 30 78 30 OC_HANDLER = 0x0
0500: 30 30 30 4c 3b 0d 0a 63 6f 6e 73 74 20 45 4d 42 000L;..const EMB
0510: 44 48 4c 50 5f 49 4e 50 52 4f 43 5f 53 45 52 56 DHLP_INPROC_SERV
0520: 45 52 20 20 3d 20 30 78 30 30 30 31 4c 3b 0d 0a ER = 0x0001L;..
0530: 63 6f 6e 73 74 20 45 4d 42 44 48 4c 50 5f 43 52 const EMBDHLP_CR
0540: 45 41 54 45 4e 4f 57 20 20 20 20 20 20 3d 20 30 EATENOW = 0
0550: 78 30 30 30 30 30 30 30 30 4c 3b 0d 0a 63 6f 6e x00000000L;..con
0560: 73 74 20 45 4d 42 44 48 4c 50 5f 44 45 4c 41 59 st EMBDHLP_DELAY
0570: 43 52 45 41 54 45 20 20 20 20 3d 20 30 78 30 30 CREATE = 0x00
0580: 30 31 30 30 30 30 4c 3b 0d 0a 0d 0a 61 6c 69 67 010000L;....alig
0590: 6e 28 38 29 3a 0d 0a 73 74 72 75 63 74 20 4f 4c n(8):..struct OL
05a0: 45 53 54 52 45 41 4d 20 7b 0d 0a 09 4c 50 4f 4c ESTREAM {...LPOL
05b0: 45 53 54 52 45 41 4d 56 54 42 4c 20 6c 70 73 74 ESTREAMVTBL lpst
05c0: 62 6c 3b 0d 0a 7d 0d 0a 61 6c 69 61 73 20 4f 4c bl;..}..alias OL
05d0: 45 53 54 52 45 41 4d 2a 20 4c 50 4f 4c 45 53 54 ESTREAM* LPOLEST
05e0: 52 45 41 4d 3b 0d 0a 0d 0a 65 78 74 65 72 6e 20 REAM;....extern
05f0: 28 57 69 6e 64 6f 77 73 29 20 7b 0d 0a 09 73 74 (Windows) {...st
0600: 72 75 63 74 20 4f 4c 45 53 54 52 45 41 4d 56 54 ruct OLESTREAMVT
0610: 42 4c 20 7b 0d 0a 09 09 44 57 4f 52 44 20 66 75 BL {....DWORD fu
0620: 6e 63 74 69 6f 6e 20 28 4c 50 4f 4c 45 53 54 52 nction (LPOLESTR
0630: 45 41 4d 2c 20 76 6f 69 64 2a 2c 20 44 57 4f 52 EAM, void*, DWOR
0640: 44 29 20 47 65 74 3b 0d 0a 09 09 44 57 4f 52 44 D) Get;....DWORD
0650: 20 66 75 6e 63 74 69 6f 6e 20 28 4c 50 4f 4c 45 function (LPOLE
0660: 53 54 52 45 41 4d 2c 20 63 6f 6e 73 74 28 76 6f STREAM, const(vo
0670: 69 64 29 2a 2c 20 44 57 4f 52 44 29 20 50 75 74 id)*, DWORD) Put
0680: 3b 0d 0a 09 7d 0d 0a 7d 0d 0a 61 6c 69 61 73 20 ;...}..}..alias
0690: 4f 4c 45 53 54 52 45 41 4d 56 54 42 4c 2a 20 4c OLESTREAMVTBL* L
06a0: 50 4f 4c 45 53 54 52 45 41 4d 56 54 42 4c 3b 0d POLESTREAMVTBL;.
06b0: 0a 0d 0a 65 78 74 65 72 6e 20 28 57 69 6e 64 6f ...extern (Windo
06c0: 77 73 29 20 7b 0d 0a 09 48 52 45 53 55 4c 54 20 ws) {...HRESULT
06d0: 43 72 65 61 74 65 44 61 74 61 41 64 76 69 73 65 CreateDataAdvise
06e0: 48 6f 6c 64 65 72 28 4c 50 44 41 54 41 41 44 56 Holder(LPDATAADV
06f0: 49 53 45 48 4f 4c 44 45 52 2a 29 3b 0d 0a 09 44 ISEHOLDER*);...D
0700: 57 4f 52 44 20 4f 6c 65 42 75 69 6c 64 56 65 72 WORD OleBuildVer
0710: 73 69 6f 6e 28 29 3b 0d 0a 09 48 52 45 53 55 4c sion();...HRESUL
0720: 54 20 52 65 61 64 43 6c 61 73 73 53 74 67 28 4c T ReadClassStg(L
0730: 50 53 54 4f 52 41 47 45 2c 20 43 4c 53 49 44 2a PSTORAGE, CLSID*
0740: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 57 72 69 );...HRESULT Wri
0750: 74 65 43 6c 61 73 73 53 74 67 28 4c 50 53 54 4f teClassStg(LPSTO
0760: 52 41 47 45 2c 20 52 45 46 43 4c 53 49 44 29 3b RAGE, REFCLSID);
0770: 0d 0a 09 48 52 45 53 55 4c 54 20 52 65 61 64 43 ...HRESULT ReadC
0780: 6c 61 73 73 53 74 6d 28 4c 50 53 54 52 45 41 4d lassStm(LPSTREAM
0790: 2c 20 43 4c 53 49 44 2a 29 3b 0d 0a 09 48 52 45 , CLSID*);...HRE
07a0: 53 55 4c 54 20 57 72 69 74 65 43 6c 61 73 73 53 SULT WriteClassS
07b0: 74 6d 28 4c 50 53 54 52 45 41 4d 2c 20 52 45 46 tm(LPSTREAM, REF
07c0: 43 4c 53 49 44 29 3b 0d 0a 09 48 52 45 53 55 4c CLSID);...HRESUL
07d0: 54 20 57 72 69 74 65 46 6d 74 55 73 65 72 54 79 T WriteFmtUserTy
07e0: 70 65 53 74 67 28 4c 50 53 54 4f 52 41 47 45 2c peStg(LPSTORAGE,
07f0: 20 43 4c 49 50 46 4f 52 4d 41 54 2c 20 4c 50 4f CLIPFORMAT, LPO
0800: 4c 45 53 54 52 29 3b 0d 0a 09 48 52 45 53 55 4c LESTR);...HRESUL
0810: 54 20 52 65 61 64 46 6d 74 55 73 65 72 54 79 70 T ReadFmtUserTyp
0820: 65 53 74 67 28 4c 50 53 54 4f 52 41 47 45 2c 20 eStg(LPSTORAGE,
0830: 43 4c 49 50 46 4f 52 4d 41 54 2a 2c 20 4c 50 4f CLIPFORMAT*, LPO
0840: 4c 45 53 54 52 2a 29 3b 0d 0a 09 48 52 45 53 55 LESTR*);...HRESU
0850: 4c 54 20 4f 6c 65 49 6e 69 74 69 61 6c 69 7a 65 LT OleInitialize
0860: 28 50 56 4f 49 44 29 3b 0d 0a 09 76 6f 69 64 20 (PVOID);...void
0870: 4f 6c 65 55 6e 69 6e 69 74 69 61 6c 69 7a 65 28 OleUninitialize(
0880: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
0890: 51 75 65 72 79 4c 69 6e 6b 46 72 6f 6d 44 61 74 QueryLinkFromDat
08a0: 61 28 4c 50 44 41 54 41 4f 42 4a 45 43 54 29 3b a(LPDATAOBJECT);
08b0: 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 51 75 ...HRESULT OleQu
08c0: 65 72 79 43 72 65 61 74 65 46 72 6f 6d 44 61 74 eryCreateFromDat
08d0: 61 28 4c 50 44 41 54 41 4f 42 4a 45 43 54 29 3b a(LPDATAOBJECT);
08e0: 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 72 ...HRESULT OleCr
08f0: 65 61 74 65 28 52 45 46 43 4c 53 49 44 2c 20 52 eate(REFCLSID, R
0900: 45 46 49 49 44 2c 20 44 57 4f 52 44 2c 20 4c 50 EFIID, DWORD, LP
0910: 46 4f 52 4d 41 54 45 54 43 2c 20 4c 50 4f 4c 45 FORMATETC, LPOLE
0920: 43 4c 49 45 4e 54 53 49 54 45 2c 20 4c 50 53 54 CLIENTSITE, LPST
0930: 4f 52 41 47 45 2c 20 50 56 4f 49 44 2a 29 3b 0d ORAGE, PVOID*);.
0940: 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 72 65 ..HRESULT OleCre
0950: 61 74 65 46 72 6f 6d 44 61 74 61 28 4c 50 44 41 ateFromData(LPDA
0960: 54 41 4f 42 4a 45 43 54 2c 20 52 45 46 49 49 44 TAOBJECT, REFIID
0970: 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 , DWORD, LPFORMA
0980: 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e TETC, LPOLECLIEN
0990: 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 TSITE, LPSTORAGE
09a0: 2c 20 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 , PVOID*);...HRE
09b0: 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 4c 69 SULT OleCreateLi
09c0: 6e 6b 46 72 6f 6d 44 61 74 61 28 4c 50 44 41 54 nkFromData(LPDAT
09d0: 41 4f 42 4a 45 43 54 2c 20 52 45 46 49 49 44 2c AOBJECT, REFIID,
09e0: 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 54 DWORD, LPFORMAT
09f0: 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e 54 ETC, LPOLECLIENT
0a00: 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 2c SITE, LPSTORAGE,
0a10: 20 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 53 PVOID*);...HRES
0a20: 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 53 74 61 ULT OleCreateSta
0a30: 74 69 63 46 72 6f 6d 44 61 74 61 28 4c 50 44 41 ticFromData(LPDA
0a40: 54 41 4f 42 4a 45 43 54 2c 20 52 45 46 49 49 44 TAOBJECT, REFIID
0a50: 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 , DWORD, LPFORMA
0a60: 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e TETC, LPOLECLIEN
0a70: 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 TSITE, LPSTORAGE
0a80: 2c 20 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 , PVOID*);...HRE
0a90: 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 4c 69 SULT OleCreateLi
0aa0: 6e 6b 28 4c 50 4d 4f 4e 49 4b 45 52 2c 20 52 45 nk(LPMONIKER, RE
0ab0: 46 49 49 44 2c 20 44 57 4f 52 44 2c 20 4c 50 46 FIID, DWORD, LPF
0ac0: 4f 52 4d 41 54 45 54 43 2c 20 4c 50 4f 4c 45 43 ORMATETC, LPOLEC
0ad0: 4c 49 45 4e 54 53 49 54 45 2c 20 4c 50 53 54 4f LIENTSITE, LPSTO
0ae0: 52 41 47 45 2c 20 50 56 4f 49 44 2a 29 3b 0d 0a RAGE, PVOID*);..
0af0: 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 72 65 61 .HRESULT OleCrea
0b00: 74 65 4c 69 6e 6b 54 6f 46 69 6c 65 28 4c 50 43 teLinkToFile(LPC
0b10: 4f 4c 45 53 54 52 2c 20 52 45 46 49 49 44 2c 20 OLESTR, REFIID,
0b20: 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 54 45 DWORD, LPFORMATE
0b30: 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e 54 53 TC, LPOLECLIENTS
0b40: 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 2c 20 ITE, LPSTORAGE,
0b50: 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 53 55 PVOID*);...HRESU
0b60: 4c 54 20 4f 6c 65 43 72 65 61 74 65 46 72 6f 6d LT OleCreateFrom
0b70: 46 69 6c 65 28 52 45 46 43 4c 53 49 44 2c 20 4c File(REFCLSID, L
0b80: 50 43 4f 4c 45 53 54 52 2c 20 52 45 46 49 49 44 PCOLESTR, REFIID
0b90: 2c 20 44 57 4f 52 44 2c 20 4c 50 46 4f 52 4d 41 , DWORD, LPFORMA
0ba0: 54 45 54 43 2c 20 4c 50 4f 4c 45 43 4c 49 45 4e TETC, LPOLECLIEN
0bb0: 54 53 49 54 45 2c 20 4c 50 53 54 4f 52 41 47 45 TSITE, LPSTORAGE
0bc0: 2c 20 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 , PVOID*);...HRE
0bd0: 53 55 4c 54 20 4f 6c 65 4c 6f 61 64 28 4c 50 53 SULT OleLoad(LPS
0be0: 54 4f 52 41 47 45 2c 20 52 45 46 49 49 44 2c 20 TORAGE, REFIID,
0bf0: 4c 50 4f 4c 45 43 4c 49 45 4e 54 53 49 54 45 2c LPOLECLIENTSITE,
0c00: 20 50 56 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 53 PVOID*);...HRES
0c10: 55 4c 54 20 4f 6c 65 53 61 76 65 28 4c 50 50 45 ULT OleSave(LPPE
0c20: 52 53 49 53 54 53 54 4f 52 41 47 45 2c 20 4c 50 RSISTSTORAGE, LP
0c30: 53 54 4f 52 41 47 45 2c 20 42 4f 4f 4c 29 3b 0d STORAGE, BOOL);.
0c40: 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 4c 6f 61 ..HRESULT OleLoa
0c50: 64 46 72 6f 6d 53 74 72 65 61 6d 28 4c 50 53 54 dFromStream(LPST
0c60: 52 45 41 4d 2c 20 52 45 46 49 49 44 2c 20 50 56 REAM, REFIID, PV
0c70: 4f 49 44 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 OID*);...HRESULT
0c80: 20 4f 6c 65 53 61 76 65 54 6f 53 74 72 65 61 6d OleSaveToStream
0c90: 28 4c 50 50 45 52 53 49 53 54 53 54 52 45 41 4d (LPPERSISTSTREAM
0ca0: 2c 20 4c 50 53 54 52 45 41 4d 29 3b 0d 0a 09 48 , LPSTREAM);...H
0cb0: 52 45 53 55 4c 54 20 4f 6c 65 53 65 74 43 6f 6e RESULT OleSetCon
0cc0: 74 61 69 6e 65 64 4f 62 6a 65 63 74 28 4c 50 55 tainedObject(LPU
0cd0: 4e 4b 4e 4f 57 4e 2c 20 42 4f 4f 4c 29 3b 0d 0a NKNOWN, BOOL);..
0ce0: 09 48 52 45 53 55 4c 54 20 4f 6c 65 4e 6f 74 65 .HRESULT OleNote
0cf0: 4f 62 6a 65 63 74 56 69 73 69 62 6c 65 28 4c 50 ObjectVisible(LP
0d00: 55 4e 4b 4e 4f 57 4e 2c 20 42 4f 4f 4c 29 3b 0d UNKNOWN, BOOL);.
0d10: 0a 09 48 52 45 53 55 4c 54 20 52 65 67 69 73 74 ..HRESULT Regist
0d20: 65 72 44 72 61 67 44 72 6f 70 28 48 57 4e 44 2c erDragDrop(HWND,
0d30: 20 4c 50 44 52 4f 50 54 41 52 47 45 54 29 3b 0d LPDROPTARGET);.
0d40: 0a 09 48 52 45 53 55 4c 54 20 52 65 76 6f 6b 65 ..HRESULT Revoke
0d50: 44 72 61 67 44 72 6f 70 28 48 57 4e 44 29 3b 0d DragDrop(HWND);.
0d60: 0a 09 48 52 45 53 55 4c 54 20 44 6f 44 72 61 67 ..HRESULT DoDrag
0d70: 44 72 6f 70 28 4c 50 44 41 54 41 4f 42 4a 45 43 Drop(LPDATAOBJEC
0d80: 54 2c 20 4c 50 44 52 4f 50 53 4f 55 52 43 45 2c T, LPDROPSOURCE,
0d90: 20 44 57 4f 52 44 2c 20 50 44 57 4f 52 44 29 3b DWORD, PDWORD);
0da0: 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 53 65 ...HRESULT OleSe
0db0: 74 43 6c 69 70 62 6f 61 72 64 28 4c 50 44 41 54 tClipboard(LPDAT
0dc0: 41 4f 42 4a 45 43 54 29 3b 0d 0a 09 48 52 45 53 AOBJECT);...HRES
0dd0: 55 4c 54 20 4f 6c 65 47 65 74 43 6c 69 70 62 6f ULT OleGetClipbo
0de0: 61 72 64 28 4c 50 44 41 54 41 4f 42 4a 45 43 54 ard(LPDATAOBJECT
0df0: 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c *);...HRESULT Ol
0e00: 65 46 6c 75 73 68 43 6c 69 70 62 6f 61 72 64 28 eFlushClipboard(
0e10: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
0e20: 49 73 43 75 72 72 65 6e 74 43 6c 69 70 62 6f 61 IsCurrentClipboa
0e30: 72 64 28 4c 50 44 41 54 41 4f 42 4a 45 43 54 29 rd(LPDATAOBJECT)
0e40: 3b 0d 0a 09 48 4f 4c 45 4d 45 4e 55 20 4f 6c 65 ;...HOLEMENU Ole
0e50: 43 72 65 61 74 65 4d 65 6e 75 44 65 73 63 72 69 CreateMenuDescri
0e60: 70 74 6f 72 28 48 4d 45 4e 55 2c 20 4c 50 4f 4c ptor(HMENU, LPOL
0e70: 45 4d 45 4e 55 47 52 4f 55 50 57 49 44 54 48 53 EMENUGROUPWIDTHS
0e80: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
0e90: 53 65 74 4d 65 6e 75 44 65 73 63 72 69 70 74 6f SetMenuDescripto
0ea0: 72 28 48 4f 4c 45 4d 45 4e 55 2c 20 48 57 4e 44 r(HOLEMENU, HWND
0eb0: 2c 20 48 57 4e 44 2c 20 4c 50 4f 4c 45 49 4e 50 , HWND, LPOLEINP
0ec0: 4c 41 43 45 46 52 41 4d 45 2c 20 4c 50 4f 4c 45 LACEFRAME, LPOLE
0ed0: 49 4e 50 4c 41 43 45 41 43 54 49 56 45 4f 42 4a INPLACEACTIVEOBJ
0ee0: 45 43 54 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 ECT);...HRESULT
0ef0: 4f 6c 65 44 65 73 74 72 6f 79 4d 65 6e 75 44 65 OleDestroyMenuDe
0f00: 73 63 72 69 70 74 6f 72 28 48 4f 4c 45 4d 45 4e scriptor(HOLEMEN
0f10: 55 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c U);...HRESULT Ol
0f20: 65 54 72 61 6e 73 6c 61 74 65 41 63 63 65 6c 65 eTranslateAccele
0f30: 72 61 74 6f 72 28 4c 50 4f 4c 45 49 4e 50 4c 41 rator(LPOLEINPLA
0f40: 43 45 46 52 41 4d 45 2c 20 4c 50 4f 4c 45 49 4e CEFRAME, LPOLEIN
0f50: 50 4c 41 43 45 46 52 41 4d 45 49 4e 46 4f 2c 20 PLACEFRAMEINFO,
0f60: 4c 50 4d 53 47 29 3b 0d 0a 09 48 41 4e 44 4c 45 LPMSG);...HANDLE
0f70: 20 4f 6c 65 44 75 70 6c 69 63 61 74 65 44 61 74 OleDuplicateDat
0f80: 61 28 48 41 4e 44 4c 45 2c 20 43 4c 49 50 46 4f a(HANDLE, CLIPFO
0f90: 52 4d 41 54 2c 20 55 49 4e 54 29 3b 0d 0a 09 48 RMAT, UINT);...H
0fa0: 52 45 53 55 4c 54 20 4f 6c 65 44 72 61 77 28 4c RESULT OleDraw(L
0fb0: 50 55 4e 4b 4e 4f 57 4e 2c 20 44 57 4f 52 44 2c PUNKNOWN, DWORD,
0fc0: 20 48 44 43 2c 20 4c 50 43 52 45 43 54 29 3b 0d HDC, LPCRECT);.
0fd0: 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 52 75 6e ..HRESULT OleRun
0fe0: 28 4c 50 55 4e 4b 4e 4f 57 4e 29 3b 0d 0a 09 42 (LPUNKNOWN);...B
0ff0: 4f 4f 4c 20 4f 6c 65 49 73 52 75 6e 6e 69 6e 67 OOL OleIsRunning
1000: 28 4c 50 4f 4c 45 4f 42 4a 45 43 54 29 3b 0d 0a (LPOLEOBJECT);..
1010: 09 48 52 45 53 55 4c 54 20 4f 6c 65 4c 6f 63 6b .HRESULT OleLock
1020: 52 75 6e 6e 69 6e 67 28 4c 50 55 4e 4b 4e 4f 57 Running(LPUNKNOW
1030: 4e 2c 20 42 4f 4f 4c 2c 20 42 4f 4f 4c 29 3b 0d N, BOOL, BOOL);.
1040: 0a 09 76 6f 69 64 20 52 65 6c 65 61 73 65 53 74 ..void ReleaseSt
1050: 67 4d 65 64 69 75 6d 28 4c 50 53 54 47 4d 45 44 gMedium(LPSTGMED
1060: 49 55 4d 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 IUM);...HRESULT
1070: 43 72 65 61 74 65 4f 6c 65 41 64 76 69 73 65 48 CreateOleAdviseH
1080: 6f 6c 64 65 72 28 4c 50 4f 4c 45 41 44 56 49 53 older(LPOLEADVIS
1090: 45 48 4f 4c 44 45 52 2a 29 3b 0d 0a 09 48 52 45 EHOLDER*);...HRE
10a0: 53 55 4c 54 20 4f 6c 65 43 72 65 61 74 65 44 65 SULT OleCreateDe
10b0: 66 61 75 6c 74 48 61 6e 64 6c 65 72 28 52 45 46 faultHandler(REF
10c0: 43 4c 53 49 44 2c 20 4c 50 55 4e 4b 4e 4f 57 4e CLSID, LPUNKNOWN
10d0: 2c 20 52 45 46 49 49 44 2c 20 50 56 4f 49 44 2a , REFIID, PVOID*
10e0: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
10f0: 43 72 65 61 74 65 45 6d 62 65 64 64 69 6e 67 48 CreateEmbeddingH
1100: 65 6c 70 65 72 28 52 45 46 43 4c 53 49 44 2c 20 elper(REFCLSID,
1110: 4c 50 55 4e 4b 4e 4f 57 4e 2c 20 44 57 4f 52 44 LPUNKNOWN, DWORD
1120: 2c 20 4c 50 43 4c 41 53 53 46 41 43 54 4f 52 59 , LPCLASSFACTORY
1130: 2c 20 52 45 46 49 49 44 2c 20 50 56 4f 49 44 2a , REFIID, PVOID*
1140: 29 3b 0d 0a 09 42 4f 4f 4c 20 49 73 41 63 63 65 );...BOOL IsAcce
1150: 6c 65 72 61 74 6f 72 28 48 41 43 43 45 4c 2c 20 lerator(HACCEL,
1160: 69 6e 74 2c 20 4c 50 4d 53 47 2c 20 57 4f 52 44 int, LPMSG, WORD
1170: 2a 29 3b 0d 0a 09 48 47 4c 4f 42 41 4c 20 4f 6c *);...HGLOBAL Ol
1180: 65 47 65 74 49 63 6f 6e 4f 66 46 69 6c 65 28 4c eGetIconOfFile(L
1190: 50 4f 4c 45 53 54 52 2c 20 42 4f 4f 4c 29 3b 0d POLESTR, BOOL);.
11a0: 0a 09 48 47 4c 4f 42 41 4c 20 4f 6c 65 47 65 74 ..HGLOBAL OleGet
11b0: 49 63 6f 6e 4f 66 43 6c 61 73 73 28 52 45 46 43 IconOfClass(REFC
11c0: 4c 53 49 44 2c 20 4c 50 4f 4c 45 53 54 52 2c 20 LSID, LPOLESTR,
11d0: 42 4f 4f 4c 29 3b 0d 0a 09 48 47 4c 4f 42 41 4c BOOL);...HGLOBAL
11e0: 20 4f 6c 65 4d 65 74 61 66 69 6c 65 50 69 63 74 OleMetafilePict
11f0: 46 72 6f 6d 49 63 6f 6e 41 6e 64 4c 61 62 65 6c FromIconAndLabel
1200: 28 48 49 43 4f 4e 2c 20 4c 50 4f 4c 45 53 54 52 (HICON, LPOLESTR
1210: 2c 20 4c 50 4f 4c 45 53 54 52 2c 20 55 49 4e 54 , LPOLESTR, UINT
1220: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
1230: 52 65 67 47 65 74 55 73 65 72 54 79 70 65 28 52 RegGetUserType(R
1240: 45 46 43 4c 53 49 44 2c 20 44 57 4f 52 44 2c 20 EFCLSID, DWORD,
1250: 4c 50 4f 4c 45 53 54 52 2a 29 3b 0d 0a 09 48 52 LPOLESTR*);...HR
1260: 45 53 55 4c 54 20 4f 6c 65 52 65 67 47 65 74 4d ESULT OleRegGetM
1270: 69 73 63 53 74 61 74 75 73 28 52 45 46 43 4c 53 iscStatus(REFCLS
1280: 49 44 2c 20 44 57 4f 52 44 2c 20 44 57 4f 52 44 ID, DWORD, DWORD
1290: 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c *);...HRESULT Ol
12a0: 65 52 65 67 45 6e 75 6d 46 6f 72 6d 61 74 45 74 eRegEnumFormatEt
12b0: 63 20 28 52 45 46 43 4c 53 49 44 2c 20 44 57 4f c (REFCLSID, DWO
12c0: 52 44 2c 20 4c 50 45 4e 55 4d 46 4f 52 4d 41 54 RD, LPENUMFORMAT
12d0: 45 54 43 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 ETC*);...HRESULT
12e0: 20 4f 6c 65 52 65 67 45 6e 75 6d 56 65 72 62 73 OleRegEnumVerbs
12f0: 20 28 52 45 46 43 4c 53 49 44 2c 20 4c 50 45 4e (REFCLSID, LPEN
1300: 55 4d 4f 4c 45 56 45 52 42 2a 29 3b 0d 0a 09 48 UMOLEVERB*);...H
1310: 52 45 53 55 4c 54 20 4f 6c 65 43 6f 6e 76 65 72 RESULT OleConver
1320: 74 4f 4c 45 53 54 52 45 41 4d 54 6f 49 53 74 6f tOLESTREAMToISto
1330: 72 61 67 65 28 4c 50 4f 4c 45 53 54 52 45 41 4d rage(LPOLESTREAM
1340: 2c 20 4c 50 53 54 4f 52 41 47 45 2c 20 63 6f 6e , LPSTORAGE, con
1350: 73 74 28 44 56 54 41 52 47 45 54 44 45 56 49 43 st(DVTARGETDEVIC
1360: 45 29 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 E)*);...HRESULT
1370: 4f 6c 65 43 6f 6e 76 65 72 74 49 53 74 6f 72 61 OleConvertIStora
1380: 67 65 54 6f 4f 4c 45 53 54 52 45 41 4d 28 4c 50 geToOLESTREAM(LP
1390: 53 54 4f 52 41 47 45 2c 20 4c 50 4f 4c 45 53 54 STORAGE, LPOLEST
13a0: 52 45 41 4d 29 3b 0d 0a 09 48 52 45 53 55 4c 54 REAM);...HRESULT
13b0: 20 47 65 74 48 47 6c 6f 62 61 6c 46 72 6f 6d 49 GetHGlobalFromI
13c0: 4c 6f 63 6b 42 79 74 65 73 28 4c 50 4c 4f 43 4b LockBytes(LPLOCK
13d0: 42 59 54 45 53 2c 20 48 47 4c 4f 42 41 4c 2a 29 BYTES, HGLOBAL*)
13e0: 3b 0d 0a 09 48 52 45 53 55 4c 54 20 43 72 65 61 ;...HRESULT Crea
13f0: 74 65 49 4c 6f 63 6b 42 79 74 65 73 4f 6e 48 47 teILockBytesOnHG
1400: 6c 6f 62 61 6c 28 48 47 4c 4f 42 41 4c 2c 20 42 lobal(HGLOBAL, B
1410: 4f 4f 4c 2c 20 4c 50 4c 4f 43 4b 42 59 54 45 53 OOL, LPLOCKBYTES
1420: 2a 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 47 65 *);...HRESULT Ge
1430: 74 48 47 6c 6f 62 61 6c 46 72 6f 6d 53 74 72 65 tHGlobalFromStre
1440: 61 6d 28 4c 50 53 54 52 45 41 4d 2c 20 48 47 4c am(LPSTREAM, HGL
1450: 4f 42 41 4c 2a 29 3b 0d 0a 09 48 52 45 53 55 4c OBAL*);...HRESUL
1460: 54 20 43 72 65 61 74 65 53 74 72 65 61 6d 4f 6e T CreateStreamOn
1470: 48 47 6c 6f 62 61 6c 28 48 47 4c 4f 42 41 4c 2c HGlobal(HGLOBAL,
1480: 20 42 4f 4f 4c 2c 20 4c 50 53 54 52 45 41 4d 2a BOOL, LPSTREAM*
1490: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
14a0: 44 6f 41 75 74 6f 43 6f 6e 76 65 72 74 28 4c 50 DoAutoConvert(LP
14b0: 53 54 4f 52 41 47 45 2c 20 4c 50 43 4c 53 49 44 STORAGE, LPCLSID
14c0: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
14d0: 47 65 74 41 75 74 6f 43 6f 6e 76 65 72 74 28 52 GetAutoConvert(R
14e0: 45 46 43 4c 53 49 44 2c 20 4c 50 43 4c 53 49 44 EFCLSID, LPCLSID
14f0: 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 );...HRESULT Ole
1500: 53 65 74 41 75 74 6f 43 6f 6e 76 65 72 74 28 52 SetAutoConvert(R
1510: 45 46 43 4c 53 49 44 2c 20 52 45 46 43 4c 53 49 EFCLSID, REFCLSI
1520: 44 29 3b 0d 0a 09 48 52 45 53 55 4c 54 20 47 65 D);...HRESULT Ge
1530: 74 43 6f 6e 76 65 72 74 53 74 67 28 4c 50 53 54 tConvertStg(LPST
1540: 4f 52 41 47 45 29 3b 0d 0a 09 48 52 45 53 55 4c ORAGE);...HRESUL
1550: 54 20 53 65 74 43 6f 6e 76 65 72 74 53 74 67 28 T SetConvertStg(
1560: 4c 50 53 54 4f 52 41 47 45 2c 20 42 4f 4f 4c 29 LPSTORAGE, BOOL)
1570: 3b 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 ;...HRESULT OleC
1580: 6f 6e 76 65 72 74 49 53 74 6f 72 61 67 65 54 6f onvertIStorageTo
1590: 4f 4c 45 53 54 52 45 41 4d 45 78 28 4c 50 53 54 OLESTREAMEx(LPST
15a0: 4f 52 41 47 45 2c 20 43 4c 49 50 46 4f 52 4d 41 ORAGE, CLIPFORMA
15b0: 54 2c 20 4c 4f 4e 47 2c 20 4c 4f 4e 47 2c 20 44 T, LONG, LONG, D
15c0: 57 4f 52 44 2c 20 4c 50 53 54 47 4d 45 44 49 55 WORD, LPSTGMEDIU
15d0: 4d 2c 20 4c 50 4f 4c 45 53 54 52 45 41 4d 29 3b M, LPOLESTREAM);
15e0: 0d 0a 09 48 52 45 53 55 4c 54 20 4f 6c 65 43 6f ...HRESULT OleCo
15f0: 6e 76 65 72 74 4f 4c 45 53 54 52 45 41 4d 54 6f nvertOLESTREAMTo
1600: 49 53 74 6f 72 61 67 65 45 78 28 4c 50 4f 4c 45 IStorageEx(LPOLE
1610: 53 54 52 45 41 4d 2c 20 4c 50 53 54 4f 52 41 47 STREAM, LPSTORAG
1620: 45 2c 20 43 4c 49 50 46 4f 52 4d 41 54 2a 2c 20 E, CLIPFORMAT*,
1630: 4c 4f 4e 47 2a 2c 20 4c 4f 4e 47 2a 2c 20 44 57 LONG*, LONG*, DW
1640: 4f 52 44 2a 2c 20 4c 50 53 54 47 4d 45 44 49 55 ORD*, LPSTGMEDIU
1650: 4d 29 3b 0d 0a 7d 0d 0a M);..}..