xref: /reactos/dll/win32/shlwapi/regstream.c (revision 29fa274d)
1 /*
2  * SHLWAPI Registry Stream functions
3  *
4  * Copyright 1999 Juergen Schmied
5  * Copyright 2002 Jon Griffiths
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21 
22 #include <stdarg.h>
23 #include <string.h>
24 
25 #define COBJMACROS
26 
27 #include "winerror.h"
28 #include "windef.h"
29 #include "winbase.h"
30 #include "objbase.h"
31 #include "winreg.h"
32 #include "shlwapi.h"
33 
34 #include "wine/debug.h"
35 
36 WINE_DEFAULT_DEBUG_CHANNEL(shell);
37 
38 typedef struct
39 {
40 	const IStreamVtbl *lpVtbl;
41 	LONG   ref;
42 	HKEY   hKey;
43 	LPBYTE pbBuffer;
44 	DWORD  dwLength;
45 	DWORD  dwPos;
46 	DWORD  dwMode;
47 	union {
48 	    LPSTR keyNameA;
49 	    LPWSTR keyNameW;
50 	}u;
51 	BOOL   bUnicode;
52 } ISHRegStream;
53 
54 /**************************************************************************
55 *  IStream_fnQueryInterface
56 */
57 static HRESULT WINAPI IStream_fnQueryInterface(IStream *iface, REFIID riid, LPVOID *ppvObj)
58 {
59 	ISHRegStream *This = (ISHRegStream *)iface;
60 
61 	TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
62 
63 	*ppvObj = NULL;
64 
65 	if(IsEqualIID(riid, &IID_IUnknown))	/*IUnknown*/
66 	  *ppvObj = This;
67 	else if(IsEqualIID(riid, &IID_IStream))	/*IStream*/
68 	  *ppvObj = This;
69 
70 	if(*ppvObj)
71 	{
72 	  IStream_AddRef((IStream*)*ppvObj);
73 	  TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
74 	  return S_OK;
75 	}
76 	TRACE("-- Interface: E_NOINTERFACE\n");
77 	return E_NOINTERFACE;
78 }
79 
80 /**************************************************************************
81 *  IStream_fnAddRef
82 */
83 static ULONG WINAPI IStream_fnAddRef(IStream *iface)
84 {
85 	ISHRegStream *This = (ISHRegStream *)iface;
86 	ULONG refCount = InterlockedIncrement(&This->ref);
87 
88 	TRACE("(%p)->(ref before=%u)\n",This, refCount - 1);
89 
90 	return refCount;
91 }
92 
93 /**************************************************************************
94 *  IStream_fnRelease
95 */
96 static ULONG WINAPI IStream_fnRelease(IStream *iface)
97 {
98 	ISHRegStream *This = (ISHRegStream *)iface;
99 	ULONG refCount = InterlockedDecrement(&This->ref);
100 
101 	TRACE("(%p)->(ref before=%u)\n",This, refCount + 1);
102 
103 	if (!refCount)
104 	{
105 	  TRACE(" destroying SHReg IStream (%p)\n",This);
106 
107 	  if (This->hKey)
108 	  {
109 	    /* write back data in REG_BINARY */
110 	    if (This->dwMode == STGM_READWRITE || This->dwMode == STGM_WRITE)
111 	    {
112 	      if (This->dwLength)
113 	      {
114 	        if (This->bUnicode)
115 	          RegSetValueExW(This->hKey, This->u.keyNameW, 0, REG_BINARY,
116 	                         (const BYTE *) This->pbBuffer, This->dwLength);
117 	        else
118 	          RegSetValueExA(This->hKey, This->u.keyNameA, 0, REG_BINARY,
119 	                        (const BYTE *) This->pbBuffer, This->dwLength);
120 	      }
121 	      else
122 	      {
123 	        if (This->bUnicode)
124 	          RegDeleteValueW(This->hKey, This->u.keyNameW);
125 	        else
126 	          RegDeleteValueA(This->hKey, This->u.keyNameA);
127 	      }
128 	    }
129 
130 	    RegCloseKey(This->hKey);
131 	  }
132 
133 	  HeapFree(GetProcessHeap(),0,This->u.keyNameA);
134 	  HeapFree(GetProcessHeap(),0,This->pbBuffer);
135 	  HeapFree(GetProcessHeap(),0,This);
136 	  return 0;
137 	}
138 
139 	return refCount;
140 }
141 
142 /**************************************************************************
143  * IStream_fnRead
144  */
145 static HRESULT WINAPI IStream_fnRead (IStream * iface, void* pv, ULONG cb, ULONG* pcbRead)
146 {
147 	ISHRegStream *This = (ISHRegStream *)iface;
148 	DWORD dwBytesToRead;
149 
150 	TRACE("(%p)->(%p,0x%08x,%p)\n",This, pv, cb, pcbRead);
151 
152 	if (This->dwPos >= This->dwLength)
153 	  dwBytesToRead = 0;
154         else
155 	  dwBytesToRead = This->dwLength - This->dwPos;
156 
157 	dwBytesToRead = (cb > dwBytesToRead) ? dwBytesToRead : cb;
158 	if (dwBytesToRead != 0) /* not at end of buffer and we want to read something */
159 	{
160 	  memmove(pv, This->pbBuffer + This->dwPos, dwBytesToRead);
161 	  This->dwPos += dwBytesToRead; /* adjust pointer */
162 	}
163 
164 	if (pcbRead)
165 	  *pcbRead = dwBytesToRead;
166 
167 	return S_OK;
168 }
169 
170 /**************************************************************************
171  * IStream_fnWrite
172  */
173 static HRESULT WINAPI IStream_fnWrite (IStream * iface, const void* pv, ULONG cb, ULONG* pcbWritten)
174 {
175 	ISHRegStream *This = (ISHRegStream *)iface;
176 	DWORD newLen = This->dwPos + cb;
177 
178 	TRACE("(%p, %p, %d, %p)\n",This, pv, cb, pcbWritten);
179 
180 	if (newLen < This->dwPos) /* overflow */
181 	  return STG_E_INSUFFICIENTMEMORY;
182 
183 	if (newLen > This->dwLength)
184 	{
185 	  LPBYTE newBuf = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, This->pbBuffer, newLen);
186 	  if (!newBuf)
187 	    return STG_E_INSUFFICIENTMEMORY;
188 
189 	  This->dwLength = newLen;
190 	  This->pbBuffer = newBuf;
191 	}
192 	memmove(This->pbBuffer + This->dwPos, pv, cb);
193 	This->dwPos += cb; /* adjust pointer */
194 
195 	if (pcbWritten)
196 	  *pcbWritten = cb;
197 
198 	return S_OK;
199 }
200 
201 /**************************************************************************
202  *  IStream_fnSeek
203  */
204 static HRESULT WINAPI IStream_fnSeek (IStream * iface, LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER* plibNewPosition)
205 {
206 	ISHRegStream *This = (ISHRegStream *)iface;
207 	LARGE_INTEGER tmp;
208 	TRACE("(%p, %s, %d %p)\n", This,
209               wine_dbgstr_longlong(dlibMove.QuadPart), dwOrigin, plibNewPosition);
210 
211 	if (dwOrigin == STREAM_SEEK_SET)
212 	  tmp = dlibMove;
213         else if (dwOrigin == STREAM_SEEK_CUR)
214 	  tmp.QuadPart = This->dwPos + dlibMove.QuadPart;
215 	else if (dwOrigin == STREAM_SEEK_END)
216 	  tmp.QuadPart = This->dwLength + dlibMove.QuadPart;
217         else
218 	  return STG_E_INVALIDPARAMETER;
219 
220 	if (tmp.QuadPart < 0)
221 	  return STG_E_INVALIDFUNCTION;
222 
223 	/* we cut off the high part here */
224 	This->dwPos = tmp.u.LowPart;
225 
226 	if (plibNewPosition)
227 	  plibNewPosition->QuadPart = This->dwPos;
228 	return S_OK;
229 }
230 
231 /**************************************************************************
232  * IStream_fnSetSize
233  */
234 static HRESULT WINAPI IStream_fnSetSize (IStream * iface, ULARGE_INTEGER libNewSize)
235 {
236 	ISHRegStream *This = (ISHRegStream *)iface;
237 	DWORD newLen;
238 	LPBYTE newBuf;
239 
240 	TRACE("(%p, %s)\n", This, wine_dbgstr_longlong(libNewSize.QuadPart));
241 
242 	/* we cut off the high part here */
243 	newLen = libNewSize.u.LowPart;
244 	newBuf = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, This->pbBuffer, newLen);
245 	if (!newBuf)
246 	  return STG_E_INSUFFICIENTMEMORY;
247 
248 	This->pbBuffer = newBuf;
249 	This->dwLength = newLen;
250 
251 	return S_OK;
252 }
253 
254 /**************************************************************************
255  * IStream_fnCopyTo
256  */
257 static HRESULT WINAPI IStream_fnCopyTo (IStream * iface, IStream* pstm, ULARGE_INTEGER cb, ULARGE_INTEGER* pcbRead, ULARGE_INTEGER* pcbWritten)
258 {
259 	ISHRegStream *This = (ISHRegStream *)iface;
260 
261 	TRACE("(%p)\n",This);
262 	if (pcbRead)
263 	  pcbRead->QuadPart = 0;
264 	if (pcbWritten)
265 	  pcbWritten->QuadPart = 0;
266 
267 	/* TODO implement */
268 	return E_NOTIMPL;
269 }
270 
271 /**************************************************************************
272  * IStream_fnCommit
273  */
274 static HRESULT WINAPI IStream_fnCommit (IStream * iface, DWORD grfCommitFlags)
275 {
276 	ISHRegStream *This = (ISHRegStream *)iface;
277 
278 	TRACE("(%p)\n",This);
279 
280 	/* commit not supported by this stream */
281 	return E_NOTIMPL;
282 }
283 
284 /**************************************************************************
285  * IStream_fnRevert
286  */
287 static HRESULT WINAPI IStream_fnRevert (IStream * iface)
288 {
289 	ISHRegStream *This = (ISHRegStream *)iface;
290 
291 	TRACE("(%p)\n",This);
292 
293 	/* revert not supported by this stream */
294 	return E_NOTIMPL;
295 }
296 
297 /**************************************************************************
298  * IStream_fnLockUnlockRegion
299  */
300 static HRESULT WINAPI IStream_fnLockUnlockRegion (IStream * iface, ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType)
301 {
302 	ISHRegStream *This = (ISHRegStream *)iface;
303 
304 	TRACE("(%p)\n",This);
305 
306 	/* lock/unlock not supported by this stream */
307 	return E_NOTIMPL;
308 }
309 
310 /*************************************************************************
311  * IStream_fnStat
312  */
313 static HRESULT WINAPI IStream_fnStat (IStream * iface, STATSTG* pstatstg, DWORD grfStatFlag)
314 {
315 	ISHRegStream *This = (ISHRegStream *)iface;
316 
317 	TRACE("(%p, %p, %d)\n",This,pstatstg,grfStatFlag);
318 
319 	pstatstg->pwcsName = NULL;
320 	pstatstg->type = STGTY_STREAM;
321 	pstatstg->cbSize.QuadPart = This->dwLength;
322 	pstatstg->mtime.dwHighDateTime = 0;
323 	pstatstg->mtime.dwLowDateTime = 0;
324 	pstatstg->ctime.dwHighDateTime = 0;
325 	pstatstg->ctime.dwLowDateTime = 0;
326 	pstatstg->atime.dwHighDateTime = 0;
327 	pstatstg->atime.dwLowDateTime = 0;
328 	pstatstg->grfMode = This->dwMode;
329 	pstatstg->grfLocksSupported = 0;
330 	pstatstg->clsid = CLSID_NULL;
331 	pstatstg->grfStateBits = 0;
332 	pstatstg->reserved = 0;
333 
334 	return S_OK;
335 }
336 
337 /*************************************************************************
338  * IStream_fnClone
339  */
340 static HRESULT WINAPI IStream_fnClone (IStream * iface, IStream** ppstm)
341 {
342 	ISHRegStream *This = (ISHRegStream *)iface;
343 
344 	TRACE("(%p)\n",This);
345 	*ppstm = NULL;
346 
347 	/* clone not supported by this stream */
348 	return E_NOTIMPL;
349 }
350 
351 static const IStreamVtbl rstvt =
352 {
353 	IStream_fnQueryInterface,
354 	IStream_fnAddRef,
355 	IStream_fnRelease,
356 	IStream_fnRead,
357 	IStream_fnWrite,
358 	IStream_fnSeek,
359 	IStream_fnSetSize,
360 	IStream_fnCopyTo,
361 	IStream_fnCommit,
362 	IStream_fnRevert,
363 	IStream_fnLockUnlockRegion,
364 	IStream_fnLockUnlockRegion,
365 	IStream_fnStat,
366 	IStream_fnClone
367 };
368 
369 /* Methods overridden by the dummy stream */
370 
371 /**************************************************************************
372  *  IStream_fnAddRefDummy
373  */
374 static ULONG WINAPI IStream_fnAddRefDummy(IStream *iface)
375 {
376 	ISHRegStream *This = (ISHRegStream *)iface;
377 	TRACE("(%p)\n", This);
378 	return 2;
379 }
380 
381 /**************************************************************************
382  *  IStream_fnReleaseDummy
383  */
384 static ULONG WINAPI IStream_fnReleaseDummy(IStream *iface)
385 {
386 	ISHRegStream *This = (ISHRegStream *)iface;
387 	TRACE("(%p)\n", This);
388 	return 1;
389 }
390 
391 /**************************************************************************
392  * IStream_fnReadDummy
393  */
394 static HRESULT WINAPI IStream_fnReadDummy(IStream *iface, LPVOID pv, ULONG cb, ULONG* pcbRead)
395 {
396   if (pcbRead)
397     *pcbRead = 0;
398   return E_NOTIMPL;
399 }
400 
401 static const IStreamVtbl DummyRegStreamVTable =
402 {
403   IStream_fnQueryInterface,
404   IStream_fnAddRefDummy,  /* Overridden */
405   IStream_fnReleaseDummy, /* Overridden */
406   IStream_fnReadDummy,    /* Overridden */
407   IStream_fnWrite,
408   IStream_fnSeek,
409   IStream_fnSetSize,
410   IStream_fnCopyTo,
411   IStream_fnCommit,
412   IStream_fnRevert,
413   IStream_fnLockUnlockRegion,
414   IStream_fnLockUnlockRegion,
415   IStream_fnStat,
416   IStream_fnClone
417 };
418 
419 /* Dummy registry stream object */
420 static ISHRegStream rsDummyRegStream =
421 {
422  &DummyRegStreamVTable,
423  1,
424  NULL,
425  NULL,
426  0,
427  0,
428  STGM_READWRITE,
429  {NULL},
430  FALSE
431 };
432 
433 /**************************************************************************
434  * IStream_Create
435  *
436  * Internal helper: Create and initialise a new registry stream object.
437  */
438 static ISHRegStream *IStream_Create(HKEY hKey, LPBYTE pbBuffer, DWORD dwLength)
439 {
440  ISHRegStream* regStream;
441 
442  regStream = HeapAlloc(GetProcessHeap(), 0, sizeof(ISHRegStream));
443 
444  if (regStream)
445  {
446    regStream->lpVtbl = &rstvt;
447    regStream->ref = 1;
448    regStream->hKey = hKey;
449    regStream->pbBuffer = pbBuffer;
450    regStream->dwLength = dwLength;
451    regStream->dwPos = 0;
452    regStream->dwMode = STGM_READWRITE;
453    regStream->u.keyNameA = NULL;
454    regStream->bUnicode = FALSE;
455  }
456  TRACE ("Returning %p\n", regStream);
457  return regStream;
458 }
459 
460 /*************************************************************************
461  * SHOpenRegStream2A	[SHLWAPI.@]
462  *
463  * Create a stream to read binary registry data.
464  *
465  * PARAMS
466  * hKey      [I] Registry handle
467  * pszSubkey [I] The sub key name
468  * pszValue  [I] The value name under the sub key
469  * dwMode    [I] Unused
470  *
471  * RETURNS
472  * Success: An IStream interface referring to the registry data
473  * Failure: NULL, if the registry key could not be opened or is not binary.
474  */
475 IStream * WINAPI SHOpenRegStream2A(HKEY hKey, LPCSTR pszSubkey,
476                                    LPCSTR pszValue,DWORD dwMode)
477 {
478   ISHRegStream *tmp;
479   HKEY hStrKey = NULL;
480   LPBYTE lpBuff = NULL;
481   DWORD dwLength = 0;
482   LONG ret;
483 
484   TRACE("(%p,%s,%s,0x%08x)\n", hKey, pszSubkey, pszValue, dwMode);
485 
486   if (dwMode == STGM_READ)
487     ret = RegOpenKeyExA(hKey, pszSubkey, 0, KEY_READ, &hStrKey);
488   else /* in write mode we make sure the subkey exits */
489     ret = RegCreateKeyExA(hKey, pszSubkey, 0, NULL, 0, KEY_READ | KEY_WRITE, NULL, &hStrKey, NULL);
490 
491   if (ret == ERROR_SUCCESS)
492   {
493     if (dwMode == STGM_READ || dwMode == STGM_READWRITE)
494     {
495       /* read initial data */
496       ret = RegQueryValueExA(hStrKey, pszValue, 0, 0, 0, &dwLength);
497       if (ret == ERROR_SUCCESS && dwLength)
498       {
499         lpBuff = HeapAlloc(GetProcessHeap(), 0, dwLength);
500         RegQueryValueExA(hStrKey, pszValue, 0, 0, lpBuff, &dwLength);
501       }
502     }
503 
504     if (!dwLength)
505       lpBuff = HeapAlloc(GetProcessHeap(), 0, dwLength);
506 
507     tmp = IStream_Create(hStrKey, lpBuff, dwLength);
508     if(tmp)
509     {
510       if(pszValue)
511       {
512         int len = lstrlenA(pszValue) + 1;
513         tmp->u.keyNameA = HeapAlloc(GetProcessHeap(), 0, len);
514         memcpy(tmp->u.keyNameA, pszValue, len);
515       }
516 
517       tmp->dwMode = dwMode;
518       tmp->bUnicode = FALSE;
519       return (IStream *)tmp;
520     }
521   }
522 
523   HeapFree(GetProcessHeap(), 0, lpBuff);
524   if (hStrKey)
525     RegCloseKey(hStrKey);
526   return NULL;
527 }
528 
529 /*************************************************************************
530  * SHOpenRegStream2W	[SHLWAPI.@]
531  *
532  * See SHOpenRegStream2A.
533  */
534 IStream * WINAPI SHOpenRegStream2W(HKEY hKey, LPCWSTR pszSubkey,
535                                    LPCWSTR pszValue, DWORD dwMode)
536 {
537   ISHRegStream *tmp;
538   HKEY hStrKey = NULL;
539   LPBYTE lpBuff = NULL;
540   DWORD dwLength = 0;
541   LONG ret;
542 
543   TRACE("(%p,%s,%s,0x%08x)\n", hKey, debugstr_w(pszSubkey),
544         debugstr_w(pszValue), dwMode);
545 
546   if (dwMode == STGM_READ)
547     ret = RegOpenKeyExW(hKey, pszSubkey, 0, KEY_READ, &hStrKey);
548   else /* in write mode we make sure the subkey exits */
549     ret = RegCreateKeyExW(hKey, pszSubkey, 0, NULL, 0, KEY_READ | KEY_WRITE, NULL, &hStrKey, NULL);
550 
551   if (ret == ERROR_SUCCESS)
552   {
553     if (dwMode == STGM_READ || dwMode == STGM_READWRITE)
554     {
555       /* read initial data */
556       ret = RegQueryValueExW(hStrKey, pszValue, 0, 0, 0, &dwLength);
557       if (ret == ERROR_SUCCESS && dwLength)
558       {
559         lpBuff = HeapAlloc(GetProcessHeap(), 0, dwLength);
560         RegQueryValueExW(hStrKey, pszValue, 0, 0, lpBuff, &dwLength);
561       }
562     }
563 
564     if (!dwLength)
565       lpBuff = HeapAlloc(GetProcessHeap(), 0, dwLength);
566 
567     tmp = IStream_Create(hStrKey, lpBuff, dwLength);
568     if(tmp)
569     {
570       if(pszValue)
571       {
572         int len = lstrlenW(pszValue) + 1;
573         tmp->u.keyNameW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
574         memcpy(tmp->u.keyNameW, pszValue, len * sizeof(WCHAR));
575       }
576 
577       tmp->dwMode = dwMode;
578       tmp->bUnicode = TRUE;
579       return (IStream *)tmp;
580     }
581   }
582 
583   HeapFree(GetProcessHeap(), 0, lpBuff);
584   if (hStrKey)
585     RegCloseKey(hStrKey);
586   return NULL;
587 }
588 
589 /*************************************************************************
590  * SHOpenRegStreamA     [SHLWAPI.@]
591  *
592  * Create a stream to read binary registry data.
593  *
594  * PARAMS
595  * hKey      [I] Registry handle
596  * pszSubkey [I] The sub key name
597  * pszValue  [I] The value name under the sub key
598  * dwMode    [I] STGM mode for opening the file
599  *
600  * RETURNS
601  * Success: An IStream interface referring to the registry data
602  * Failure: If the registry key could not be opened or is not binary,
603  *          A dummy (empty) IStream object is returned.
604  */
605 IStream * WINAPI SHOpenRegStreamA(HKEY hkey, LPCSTR pszSubkey,
606                                   LPCSTR pszValue, DWORD dwMode)
607 {
608   IStream *iStream;
609 
610   TRACE("(%p,%s,%s,0x%08x)\n", hkey, pszSubkey, pszValue, dwMode);
611 
612   iStream = SHOpenRegStream2A(hkey, pszSubkey, pszValue, dwMode);
613   return iStream ? iStream : (IStream *)&rsDummyRegStream;
614 }
615 
616 /*************************************************************************
617  * SHOpenRegStreamW	[SHLWAPI.@]
618  *
619  * See SHOpenRegStreamA.
620  */
621 IStream * WINAPI SHOpenRegStreamW(HKEY hkey, LPCWSTR pszSubkey,
622                                   LPCWSTR pszValue, DWORD dwMode)
623 {
624   IStream *iStream;
625 
626   TRACE("(%p,%s,%s,0x%08x)\n", hkey, debugstr_w(pszSubkey),
627         debugstr_w(pszValue), dwMode);
628   iStream = SHOpenRegStream2W(hkey, pszSubkey, pszValue, dwMode);
629   return iStream ? iStream : (IStream *)&rsDummyRegStream;
630 }
631 
632 /*************************************************************************
633  * @   [SHLWAPI.12]
634  *
635  * Create an IStream object on a block of memory.
636  *
637  * PARAMS
638  * lpbData   [I] Memory block to create the IStream object on
639  * dwDataLen [I] Length of data block
640  *
641  * RETURNS
642  * Success: A pointer to the IStream object.
643  * Failure: NULL, if any parameters are invalid or an error occurs.
644  *
645  * NOTES
646  *  A copy of the memory pointed to by lpbData is made, and is freed
647  *  when the stream is released.
648  */
649 IStream * WINAPI SHCreateMemStream(const BYTE *lpbData, UINT dwDataLen)
650 {
651   IStream *iStrmRet = NULL;
652   LPBYTE lpbDup;
653 
654   TRACE("(%p,%d)\n", lpbData, dwDataLen);
655 
656   if (!lpbData)
657     dwDataLen = 0;
658 
659   lpbDup = HeapAlloc(GetProcessHeap(), 0, dwDataLen);
660 
661   if (lpbDup)
662   {
663     memcpy(lpbDup, lpbData, dwDataLen);
664     iStrmRet = (IStream *)IStream_Create(NULL, lpbDup, dwDataLen);
665 
666     if (!iStrmRet)
667       HeapFree(GetProcessHeap(), 0, lpbDup);
668   }
669   return iStrmRet;
670 }
671 
672 /*************************************************************************
673  * SHCreateStreamWrapper   [SHLWAPI.@]
674  *
675  * Create an IStream object on a block of memory.
676  *
677  * PARAMS
678  * lpbData    [I] Memory block to create the IStream object on
679  * dwDataLen  [I] Length of data block
680  * dwReserved [I] Reserved, Must be 0.
681  * lppStream  [O] Destination for IStream object
682  *
683  * RETURNS
684  * Success: S_OK. lppStream contains the new IStream object.
685  * Failure: E_INVALIDARG, if any parameters are invalid,
686  *          E_OUTOFMEMORY if memory allocation fails.
687  *
688  * NOTES
689  *  The stream assumes ownership of the memory passed to it.
690  */
691 HRESULT WINAPI SHCreateStreamWrapper(LPBYTE lpbData, DWORD dwDataLen,
692                                      DWORD dwReserved, IStream **lppStream)
693 {
694   IStream* lpStream;
695 
696   if (lppStream)
697     *lppStream = NULL;
698 
699   if(dwReserved || !lppStream)
700     return E_INVALIDARG;
701 
702   lpStream = (IStream *)IStream_Create(NULL, lpbData, dwDataLen);
703 
704   if(!lpStream)
705     return E_OUTOFMEMORY;
706 
707   IStream_QueryInterface(lpStream, &IID_IStream, (void**)lppStream);
708   IStream_Release(lpStream);
709   return S_OK;
710 }
711