[SHELL32]
[reactos.git] / reactos / dll / win32 / shell32 / folders / CNetFolder.cpp
1 /*
2 * Network Places (Neighbourhood) folder
3 *
4 * Copyright 1997 Marcus Meissner
5 * Copyright 1998, 1999, 2002 Juergen Schmied
6 * Copyright 2003 Mike McCormack for Codeweavers
7 * Copyright 2009 Andrew Hill
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 */
23
24 #include <precomp.h>
25
26 WINE_DEFAULT_DEBUG_CHANNEL (shell);
27
28 #define HACKY_UNC_PATHS
29
30 #ifdef HACKY_UNC_PATHS
31 LPITEMIDLIST ILCreateFromNetworkPlaceW(LPCWSTR lpNetworkPlace)
32 {
33 int cbData = sizeof(WORD) + sizeof(WCHAR) * (wcslen(lpNetworkPlace)+1);
34 LPITEMIDLIST pidl = (LPITEMIDLIST)SHAlloc(cbData + sizeof(WORD));
35 if (!pidl)
36 return NULL;
37
38 pidl->mkid.cb = cbData;
39 wcscpy((WCHAR*)&pidl->mkid.abID[0], lpNetworkPlace);
40 *(WORD*)((char*)pidl + cbData) = 0;
41
42 return pidl;
43 }
44 #endif
45
46 /***********************************************************************
47 * IShellFolder implementation
48 */
49
50 class CNetFolderEnum :
51 public CEnumIDListBase
52 {
53 public:
54 CNetFolderEnum();
55 ~CNetFolderEnum();
56 HRESULT WINAPI Initialize(HWND hwndOwner, DWORD dwFlags);
57 BOOL CreateMyCompEnumList(DWORD dwFlags);
58 BOOL EnumerateRec(LPNETRESOURCE lpNet);
59
60 BEGIN_COM_MAP(CNetFolderEnum)
61 COM_INTERFACE_ENTRY_IID(IID_IEnumIDList, IEnumIDList)
62 END_COM_MAP()
63 };
64
65 static shvheader NetworkPlacesSFHeader[] = {
66 {IDS_SHV_COLUMN8, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15},
67 {IDS_SHV_COLUMN13, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 10},
68 {IDS_SHV_COLUMN_WORKGROUP, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15},
69 {IDS_SHV_NETWORKLOCATION, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15}
70 };
71
72 #define COLUMN_NAME 0
73 #define COLUMN_CATEGORY 1
74 #define COLUMN_WORKGROUP 2
75 #define COLUMN_NETLOCATION 3
76
77 #define NETWORKPLACESSHELLVIEWCOLUMNS 4
78
79 CNetFolderEnum::CNetFolderEnum()
80 {
81 }
82
83 CNetFolderEnum::~CNetFolderEnum()
84 {
85 }
86
87 HRESULT WINAPI CNetFolderEnum::Initialize(HWND hwndOwner, DWORD dwFlags)
88 {
89 if (CreateMyCompEnumList(dwFlags) == FALSE)
90 return E_FAIL;
91
92 return S_OK;
93 }
94
95 /**************************************************************************
96 * CDrivesFolderEnum::CreateMyCompEnumList()
97 */
98
99 BOOL CNetFolderEnum::EnumerateRec(LPNETRESOURCE lpNet)
100 {
101 BOOL bRet = TRUE;
102 DWORD dRet;
103 HANDLE hEnum;
104 LPNETRESOURCE lpRes;
105 DWORD dSize = 0x1000;
106 DWORD dCount = -1;
107 LPNETRESOURCE lpCur;
108
109 dRet = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, lpNet, &hEnum);
110 if (dRet != WN_SUCCESS)
111 {
112 ERR("WNetOpenEnum() failed: %x\n", dRet);
113 return FALSE;
114 }
115
116 lpRes = (LPNETRESOURCE)CoTaskMemAlloc(dSize);
117 if (!lpRes)
118 {
119 ERR("CoTaskMemAlloc() failed\n");
120 WNetCloseEnum(hEnum);
121 return FALSE;
122 }
123
124 do
125 {
126 dSize = 0x1000;
127 dCount = -1;
128
129 memset(lpRes, 0, dSize);
130 dRet = WNetEnumResource(hEnum, &dCount, lpRes, &dSize);
131 if (dRet == WN_SUCCESS || dRet == WN_MORE_DATA)
132 {
133 lpCur = lpRes;
134 for (; dCount; dCount--)
135 {
136 TRACE("lpRemoteName: %S\n", lpCur->lpRemoteName);
137
138 if ((lpCur->dwUsage & RESOURCEUSAGE_CONTAINER) == RESOURCEUSAGE_CONTAINER)
139 {
140 TRACE("Found provider: %S\n", lpCur->lpProvider);
141 EnumerateRec(lpCur);
142 }
143 else
144 {
145 LPITEMIDLIST pidl;
146
147 #ifdef HACKY_UNC_PATHS
148 pidl = ILCreateFromNetworkPlaceW(lpCur->lpRemoteName);
149 #endif
150 if (pidl != NULL)
151 bRet = AddToEnumList(pidl);
152 else
153 {
154 ERR("ILCreateFromPathW() failed\n");
155 bRet = FALSE;
156 break;
157 }
158 }
159
160 lpCur++;
161 }
162 }
163 } while (dRet != WN_NO_MORE_ENTRIES);
164
165 CoTaskMemFree(lpRes);
166 WNetCloseEnum(hEnum);
167
168 TRACE("Done: %u\n", bRet);
169
170 return bRet;
171 }
172
173 BOOL CNetFolderEnum::CreateMyCompEnumList(DWORD dwFlags)
174 {
175 BOOL bRet = TRUE;
176
177 TRACE("(%p)->(flags=0x%08x)\n", this, dwFlags);
178
179 /* enumerate the folders */
180 if (dwFlags & SHCONTF_FOLDERS)
181 {
182 bRet = EnumerateRec(NULL);
183 }
184
185 return bRet;
186 }
187
188 CNetFolder::CNetFolder()
189 {
190 pidlRoot = NULL;
191 }
192
193 CNetFolder::~CNetFolder()
194 {
195 TRACE("-- destroying IShellFolder(%p)\n", this);
196 SHFree(pidlRoot);
197 }
198
199 HRESULT WINAPI CNetFolder::FinalConstruct()
200 {
201 pidlRoot = _ILCreateGuid(PT_GUID, CLSID_NetworkPlaces); /* my qualified pidl */
202 if (pidlRoot == NULL)
203 return E_OUTOFMEMORY;
204 return S_OK;
205 }
206
207 /**************************************************************************
208 * CNetFolder::ParseDisplayName
209 */
210 HRESULT WINAPI CNetFolder::ParseDisplayName(HWND hwndOwner, LPBC pbcReserved, LPOLESTR lpszDisplayName,
211 DWORD *pchEaten, PIDLIST_RELATIVE *ppidl, DWORD *pdwAttributes)
212 {
213 HRESULT hr = E_UNEXPECTED;
214 #ifdef HACKY_UNC_PATHS
215 /* FIXME: the code below is an ugly hack */
216
217 /* Can we use a CFSFolder on that path? */
218 DWORD attrs = GetFileAttributes(lpszDisplayName);
219 if ((attrs & FILE_ATTRIBUTE_DIRECTORY))
220 {
221 if (pchEaten)
222 *pchEaten = 0; /* strange but like the original */
223
224 /* YES WE CAN */
225
226 /* Create our hacky pidl */
227 LPITEMIDLIST pidl = ILCreateFromNetworkPlaceW(lpszDisplayName);
228
229 *ppidl = pidl;
230 if (pdwAttributes)
231 *pdwAttributes = SFGAO_FILESYSTEM | SFGAO_CANLINK | SFGAO_FOLDER | SFGAO_HASSUBFOLDER | SFGAO_FILESYSANCESTOR;
232 return S_OK;
233 }
234 #endif
235
236 TRACE("(%p)->(HWND=%p,%p,%p=%s,%p,pidl=%p,%p)\n", this,
237 hwndOwner, pbcReserved, lpszDisplayName, debugstr_w (lpszDisplayName),
238 pchEaten, ppidl, pdwAttributes);
239
240 *ppidl = 0;
241 if (pchEaten)
242 *pchEaten = 0; /* strange but like the original */
243
244 TRACE("(%p)->(-- ret=0x%08x)\n", this, hr);
245
246 return hr;
247 }
248
249 /**************************************************************************
250 * CNetFolder::EnumObjects
251 */
252 HRESULT WINAPI CNetFolder::EnumObjects(HWND hwndOwner, DWORD dwFlags, LPENUMIDLIST *ppEnumIDList)
253 {
254 return ShellObjectCreatorInit<CNetFolderEnum>(hwndOwner, dwFlags, IID_IEnumIDList, ppEnumIDList);
255 }
256
257 /**************************************************************************
258 * CNetFolder::BindToObject
259 */
260 HRESULT WINAPI CNetFolder::BindToObject(PCUIDLIST_RELATIVE pidl, LPBC pbcReserved, REFIID riid, LPVOID *ppvOut)
261 {
262 #ifdef HACKY_UNC_PATHS
263 HRESULT hr;
264 CComPtr<IPersistFolder3> ppf3;
265 hr = SHCoCreateInstance(NULL, &CLSID_ShellFSFolder, NULL, IID_PPV_ARG(IPersistFolder3, &ppf3));
266 if (FAILED(hr))
267 return hr;
268
269 PERSIST_FOLDER_TARGET_INFO pfti = {0};
270 pfti.csidl = -1;
271 wcscpy(pfti.szTargetParsingName, (WCHAR*)pidl->mkid.abID);
272
273 PCUIDLIST_RELATIVE pidlChild = ILCloneFirst (pidl);
274
275 hr = ppf3->InitializeEx(NULL, ILCombine(pidlRoot,pidlChild), &pfti);
276 if (FAILED(hr))
277 return hr;
278
279 if (_ILIsPidlSimple (pidl))
280 {
281 return ppf3->QueryInterface(riid, ppvOut);
282 }
283 else
284 {
285 CComPtr<IShellFolder> psf;
286 hr = ppf3->QueryInterface(IID_PPV_ARG(IShellFolder, &psf));
287 if (FAILED(hr))
288 return hr;
289
290 return psf->BindToObject(ILGetNext (pidl), pbcReserved, riid, ppvOut);
291 }
292
293 #else
294 return E_NOTIMPL;
295 #endif
296 }
297
298 /**************************************************************************
299 * CNetFolder::BindToStorage
300 */
301 HRESULT WINAPI CNetFolder::BindToStorage(PCUIDLIST_RELATIVE pidl, LPBC pbcReserved, REFIID riid, LPVOID *ppvOut)
302 {
303 FIXME("(%p)->(pidl=%p,%p,%s,%p) stub\n", this,
304 pidl, pbcReserved, shdebugstr_guid (&riid), ppvOut);
305
306 *ppvOut = NULL;
307 return E_NOTIMPL;
308 }
309
310 /**************************************************************************
311 * CNetFolder::CompareIDs
312 */
313
314 HRESULT WINAPI CNetFolder::CompareIDs(LPARAM lParam, PCUIDLIST_RELATIVE pidl1, PCUIDLIST_RELATIVE pidl2)
315 {
316 return E_NOTIMPL;
317 }
318
319 /**************************************************************************
320 * CNetFolder::CreateViewObject
321 */
322 HRESULT WINAPI CNetFolder::CreateViewObject(HWND hwndOwner, REFIID riid, LPVOID *ppvOut)
323 {
324 CComPtr<IShellView> pShellView;
325 HRESULT hr = E_INVALIDARG;
326
327 TRACE("(%p)->(hwnd=%p,%s,%p)\n", this,
328 hwndOwner, shdebugstr_guid (&riid), ppvOut);
329
330 if (!ppvOut)
331 return hr;
332
333 *ppvOut = NULL;
334
335 if (IsEqualIID(riid, IID_IDropTarget))
336 {
337 WARN("IDropTarget not implemented\n");
338 hr = E_NOTIMPL;
339 }
340 else if (IsEqualIID(riid, IID_IContextMenu))
341 {
342 WARN("IContextMenu not implemented\n");
343 hr = E_NOTIMPL;
344 }
345 else if (IsEqualIID(riid, IID_IShellView))
346 {
347 hr = CDefView_Constructor(this, riid, ppvOut);
348 }
349 TRACE("-- (%p)->(interface=%p)\n", this, ppvOut);
350 return hr;
351 }
352
353 /**************************************************************************
354 * CNetFolder::GetAttributesOf
355 */
356 HRESULT WINAPI CNetFolder::GetAttributesOf(UINT cidl, PCUITEMID_CHILD_ARRAY apidl, DWORD *rgfInOut)
357 {
358 static const DWORD dwNethoodAttributes =
359 SFGAO_STORAGE | SFGAO_HASPROPSHEET | SFGAO_STORAGEANCESTOR |
360 SFGAO_FILESYSANCESTOR | SFGAO_FOLDER | SFGAO_FILESYSTEM | SFGAO_HASSUBFOLDER | SFGAO_CANRENAME | SFGAO_CANDELETE;
361 HRESULT hr = S_OK;
362
363 TRACE("(%p)->(cidl=%d apidl=%p mask=%p (0x%08x))\n", this,
364 cidl, apidl, rgfInOut, rgfInOut ? *rgfInOut : 0);
365
366 if (!rgfInOut)
367 return E_INVALIDARG;
368 if (cidl && !apidl)
369 return E_INVALIDARG;
370
371 if (*rgfInOut == 0)
372 *rgfInOut = ~0;
373
374 if(cidl == 0)
375 *rgfInOut = dwNethoodAttributes;
376 else
377 {
378 /* FIXME: Implement when enumerating items is implemented */
379 #ifdef HACKY_UNC_PATHS
380 *rgfInOut = SFGAO_FILESYSTEM | SFGAO_CANLINK | SFGAO_FOLDER | SFGAO_HASSUBFOLDER | SFGAO_FILESYSANCESTOR;
381 #endif
382 }
383
384 /* make sure SFGAO_VALIDATE is cleared, some apps depend on that */
385 *rgfInOut &= ~SFGAO_VALIDATE;
386
387 TRACE("-- result=0x%08x\n", *rgfInOut);
388 return hr;
389 }
390
391 /**************************************************************************
392 * CNetFolder::GetUIObjectOf
393 *
394 * PARAMETERS
395 * hwndOwner [in] Parent window for any output
396 * cidl [in] array size
397 * apidl [in] simple pidl array
398 * riid [in] Requested Interface
399 * prgfInOut [ ] reserved
400 * ppvObject [out] Resulting Interface
401 *
402 */
403 HRESULT WINAPI CNetFolder::GetUIObjectOf(HWND hwndOwner, UINT cidl, PCUITEMID_CHILD_ARRAY apidl, REFIID riid,
404 UINT * prgfInOut, LPVOID * ppvOut)
405 {
406 LPITEMIDLIST pidl;
407 IUnknown *pObj = NULL;
408 HRESULT hr = E_INVALIDARG;
409
410 TRACE("(%p)->(%p,%u,apidl=%p,%s,%p,%p)\n", this,
411 hwndOwner, cidl, apidl, shdebugstr_guid (&riid), prgfInOut, ppvOut);
412
413 if (!ppvOut)
414 return hr;
415
416 *ppvOut = NULL;
417
418 if (IsEqualIID(riid, IID_IContextMenu) && (cidl >= 1))
419 {
420 IContextMenu * pCm = NULL;
421 hr = CDefFolderMenu_Create2(pidlRoot, hwndOwner, cidl, apidl, static_cast<IShellFolder*>(this), NULL, 0, NULL, &pCm);
422 pObj = pCm;
423 }
424 else if (IsEqualIID(riid, IID_IDataObject) && (cidl >= 1))
425 {
426 IDataObject * pDo = NULL;
427 hr = IDataObject_Constructor (hwndOwner, pidlRoot, apidl, cidl, &pDo);
428 pObj = pDo;
429 }
430 else if (IsEqualIID(riid, IID_IExtractIconA) && (cidl == 1))
431 {
432 pidl = ILCombine (pidlRoot, apidl[0]);
433 pObj = IExtractIconA_Constructor (pidl);
434 SHFree (pidl);
435 hr = S_OK;
436 }
437 else if (IsEqualIID(riid, IID_IExtractIconW) && (cidl == 1))
438 {
439 pidl = ILCombine (pidlRoot, apidl[0]);
440 pObj = IExtractIconW_Constructor (pidl);
441 SHFree (pidl);
442 hr = S_OK;
443 }
444 else if (IsEqualIID(riid, IID_IDropTarget) && (cidl >= 1))
445 {
446 IDropTarget * pDt = NULL;
447 hr = this->QueryInterface(IID_PPV_ARG(IDropTarget, &pDt));
448 pObj = pDt;
449 }
450 else
451 hr = E_NOINTERFACE;
452
453 if (SUCCEEDED(hr) && !pObj)
454 hr = E_OUTOFMEMORY;
455
456 *ppvOut = pObj;
457 TRACE("(%p)->hr=0x%08x\n", this, hr);
458 return hr;
459 }
460
461 /**************************************************************************
462 * CNetFolder::GetDisplayNameOf
463 *
464 */
465 HRESULT WINAPI CNetFolder::GetDisplayNameOf(PCUITEMID_CHILD pidl, DWORD dwFlags, LPSTRRET strRet)
466 {
467 LPWSTR pszName;
468
469 TRACE ("(%p)->(pidl=%p,0x%08lx,%p)\n", this, pidl, dwFlags, strRet);
470 pdump (pidl);
471
472 if (!strRet)
473 return E_INVALIDARG;
474
475 if (!pidl->mkid.cb)
476 {
477 pszName = (LPWSTR)CoTaskMemAlloc(MAX_PATH * sizeof(WCHAR));
478 if (!pszName)
479 return E_OUTOFMEMORY;
480
481 if (LoadStringW(shell32_hInstance, IDS_NETWORKPLACE, pszName, MAX_PATH))
482 {
483 pszName[MAX_PATH-1] = L'\0';
484 strRet->uType = STRRET_WSTR;
485 strRet->pOleStr = pszName;
486 return S_OK;
487 }
488 CoTaskMemFree(pszName);
489 return E_FAIL;
490 }
491 #ifdef HACKY_UNC_PATHS
492 else
493 {
494 LPCWSTR pstr = (LPCWSTR)pidl->mkid.abID;
495 pszName = (LPWSTR)CoTaskMemAlloc(MAX_PATH * sizeof(WCHAR));
496 if (!pszName)
497 return E_OUTOFMEMORY;
498
499 wcscpy(pszName, pstr);
500 strRet->pOleStr = pszName;
501 strRet->uType = STRRET_WSTR;
502 return S_OK;
503 }
504 #endif
505 return E_NOTIMPL;
506 }
507
508 /**************************************************************************
509 * CNetFolder::SetNameOf
510 * Changes the name of a file object or subfolder, possibly changing its item
511 * identifier in the process.
512 *
513 * PARAMETERS
514 * hwndOwner [in] Owner window for output
515 * pidl [in] simple pidl of item to change
516 * lpszName [in] the items new display name
517 * dwFlags [in] SHGNO formatting flags
518 * ppidlOut [out] simple pidl returned
519 */
520 HRESULT WINAPI CNetFolder::SetNameOf(HWND hwndOwner, PCUITEMID_CHILD pidl, /*simple pidl */
521 LPCOLESTR lpName, DWORD dwFlags, PITEMID_CHILD *pPidlOut)
522 {
523 FIXME("(%p)->(%p,pidl=%p,%s,%u,%p)\n", this,
524 hwndOwner, pidl, debugstr_w (lpName), dwFlags, pPidlOut);
525 return E_FAIL;
526 }
527
528 HRESULT WINAPI CNetFolder::GetDefaultSearchGUID(GUID *pguid)
529 {
530 FIXME("(%p)\n", this);
531 return E_NOTIMPL;
532 }
533
534 HRESULT WINAPI CNetFolder::EnumSearches(IEnumExtraSearch ** ppenum)
535 {
536 FIXME("(%p)\n", this);
537 return E_NOTIMPL;
538 }
539
540 HRESULT WINAPI CNetFolder::GetDefaultColumn (DWORD dwRes, ULONG *pSort, ULONG *pDisplay)
541 {
542 TRACE("(%p)\n", this);
543
544 if (pSort)
545 *pSort = 0;
546 if (pDisplay)
547 *pDisplay = 0;
548
549 return S_OK;
550 }
551
552 HRESULT WINAPI CNetFolder::GetDefaultColumnState(UINT iColumn, DWORD *pcsFlags)
553 {
554 TRACE("(%p)\n", this);
555
556 if (!pcsFlags || iColumn >= NETWORKPLACESSHELLVIEWCOLUMNS)
557 return E_INVALIDARG;
558 *pcsFlags = NetworkPlacesSFHeader[iColumn].pcsFlags;
559 return S_OK;
560 }
561
562 HRESULT WINAPI CNetFolder::GetDetailsEx(PCUITEMID_CHILD pidl, const SHCOLUMNID *pscid, VARIANT *pv)
563 {
564 FIXME("(%p)\n", this);
565 return E_NOTIMPL;
566 }
567
568 HRESULT WINAPI CNetFolder::GetDetailsOf(PCUITEMID_CHILD pidl, UINT iColumn, SHELLDETAILS *psd)
569 {
570 WCHAR buffer[MAX_PATH] = {0};
571 HRESULT hr = E_FAIL;
572
573 if (iColumn >= NETWORKPLACESSHELLVIEWCOLUMNS)
574 return E_FAIL;
575
576 psd->fmt = NetworkPlacesSFHeader[iColumn].fmt;
577 psd->cxChar = NetworkPlacesSFHeader[iColumn].cxChar;
578 if (pidl == NULL)
579 {
580 psd->str.uType = STRRET_WSTR;
581 if (LoadStringW(shell32_hInstance, NetworkPlacesSFHeader[iColumn].colnameid, buffer, _countof(buffer)))
582 hr = SHStrDupW(buffer, &psd->str.pOleStr);
583
584 return hr;
585 }
586
587 if (iColumn == COLUMN_NAME)
588 return GetDisplayNameOf(pidl, SHGDN_NORMAL, &psd->str);
589
590 FIXME("(%p)->(%p %i %p)\n", this, pidl, iColumn, psd);
591
592 return E_NOTIMPL;
593 }
594
595 HRESULT WINAPI CNetFolder::MapColumnToSCID(UINT column, SHCOLUMNID *pscid)
596 {
597 FIXME("(%p)\n", this);
598
599 return E_NOTIMPL;
600 }
601
602 /************************************************************************
603 * CNetFolder::GetClassID
604 */
605 HRESULT WINAPI CNetFolder::GetClassID(CLSID *lpClassId)
606 {
607 TRACE("(%p)\n", this);
608
609 if (!lpClassId)
610 return E_POINTER;
611
612 *lpClassId = CLSID_NetworkPlaces;
613
614 return S_OK;
615 }
616
617 /************************************************************************
618 * CNetFolder::Initialize
619 *
620 * NOTES: it makes no sense to change the pidl
621 */
622 HRESULT WINAPI CNetFolder::Initialize(LPCITEMIDLIST pidl)
623 {
624 TRACE("(%p)->(%p)\n", this, pidl);
625
626 return S_OK;
627 }
628
629 /**************************************************************************
630 * CNetFolder::GetCurFolder
631 */
632 HRESULT WINAPI CNetFolder::GetCurFolder(LPITEMIDLIST *pidl)
633 {
634 TRACE("(%p)->(%p)\n", this, pidl);
635
636 if (!pidl)
637 return E_POINTER;
638
639 *pidl = ILClone(pidlRoot);
640
641 return S_OK;
642 }