pdh: Make two tests pass on Vista.
[wine] / dlls / shell32 / shfldr_fs.c
1
2 /*
3  * file system folder
4  *
5  * Copyright 1997             Marcus Meissner
6  * Copyright 1998, 1999, 2002 Juergen Schmied
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21  */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <stdlib.h>
27 #include <string.h>
28 #include <stdarg.h>
29 #include <stdio.h>
30
31 #define COBJMACROS
32 #define NONAMELESSUNION
33 #define NONAMELESSSTRUCT
34
35 #include "winerror.h"
36 #include "windef.h"
37 #include "winbase.h"
38 #include "winreg.h"
39 #include "wingdi.h"
40 #include "winuser.h"
41
42 #include "ole2.h"
43 #include "shlguid.h"
44
45 #include "enumidlist.h"
46 #include "pidl.h"
47 #include "undocshell.h"
48 #include "shell32_main.h"
49 #include "shresdef.h"
50 #include "shlwapi.h"
51 #include "shellfolder.h"
52 #include "wine/debug.h"
53 #include "debughlp.h"
54 #include "shfldr.h"
55
56 WINE_DEFAULT_DEBUG_CHANNEL (shell);
57
58 /***********************************************************************
59 *   IShellFolder implementation
60 */
61
62 typedef struct {
63     const IUnknownVtbl        *lpVtbl;
64     LONG                ref;
65     const IShellFolder2Vtbl   *lpvtblShellFolder;
66     const IPersistFolder3Vtbl *lpvtblPersistFolder3;
67     const IDropTargetVtbl     *lpvtblDropTarget;
68     const ISFHelperVtbl       *lpvtblSFHelper;
69
70     IUnknown *pUnkOuter; /* used for aggregation */
71
72     CLSID *pclsid;
73
74     /* both paths are parsible from the desktop */
75     LPWSTR sPathTarget;     /* complete path to target used for enumeration and ChangeNotify */
76
77     LPITEMIDLIST pidlRoot; /* absolute pidl */
78
79     UINT cfShellIDList;    /* clipboardformat for IDropTarget */
80     BOOL fAcceptFmt;       /* flag for pending Drop */
81 } IGenericSFImpl;
82
83 static const IUnknownVtbl unkvt;
84 static const IShellFolder2Vtbl sfvt;
85 static const IPersistFolder3Vtbl vt_FSFldr_PersistFolder3; /* IPersistFolder3 for a FS_Folder */
86 static const IDropTargetVtbl dtvt;
87 static const ISFHelperVtbl shvt;
88
89 static inline IGenericSFImpl *impl_from_IShellFolder2( IShellFolder2 *iface )
90 {
91     return (IGenericSFImpl *)((char*)iface - FIELD_OFFSET(IGenericSFImpl, lpvtblShellFolder));
92 }
93
94 static inline IGenericSFImpl *impl_from_IPersistFolder3( IPersistFolder3 *iface )
95 {
96     return (IGenericSFImpl *)((char*)iface - FIELD_OFFSET(IGenericSFImpl, lpvtblPersistFolder3));
97 }
98
99 static inline IGenericSFImpl *impl_from_IDropTarget( IDropTarget *iface )
100 {
101     return (IGenericSFImpl *)((char*)iface - FIELD_OFFSET(IGenericSFImpl, lpvtblDropTarget));
102 }
103
104 static inline IGenericSFImpl *impl_from_ISFHelper( ISFHelper *iface )
105 {
106     return (IGenericSFImpl *)((char*)iface - FIELD_OFFSET(IGenericSFImpl, lpvtblSFHelper));
107 }
108
109
110 /*
111   converts This to an interface pointer
112 */
113 #define _IUnknown_(This)        (IUnknown*)&(This->lpVtbl)
114 #define _IShellFolder_(This)    (IShellFolder*)&(This->lpvtblShellFolder)
115 #define _IShellFolder2_(This)   (IShellFolder2*)&(This->lpvtblShellFolder)
116 #define _IPersist_(This)        (IPersist*)&(This->lpvtblPersistFolder3)
117 #define _IPersistFolder_(This)  (IPersistFolder*)&(This->lpvtblPersistFolder3)
118 #define _IPersistFolder2_(This) (IPersistFolder2*)&(This->lpvtblPersistFolder3)
119 #define _IPersistFolder3_(This) (IPersistFolder3*)&(This->lpvtblPersistFolder3)
120 #define _IDropTarget_(This)     (IDropTarget*)&(This->lpvtblDropTarget)
121 #define _ISFHelper_(This)       (ISFHelper*)&(This->lpvtblSFHelper)
122
123 /**************************************************************************
124 * registers clipboardformat once
125 */
126 static void SF_RegisterClipFmt (IGenericSFImpl * This)
127 {
128     TRACE ("(%p)\n", This);
129
130     if (!This->cfShellIDList) {
131         This->cfShellIDList = RegisterClipboardFormatA (CFSTR_SHELLIDLIST);
132     }
133 }
134
135 /**************************************************************************
136 * we need a separate IUnknown to handle aggregation
137 * (inner IUnknown)
138 */
139 static HRESULT WINAPI IUnknown_fnQueryInterface (IUnknown * iface, REFIID riid, LPVOID * ppvObj)
140 {
141     IGenericSFImpl *This = (IGenericSFImpl *)iface;
142
143     TRACE ("(%p)->(%s,%p)\n", This, shdebugstr_guid (riid), ppvObj);
144
145     *ppvObj = NULL;
146
147     if (IsEqualIID (riid, &IID_IUnknown))
148         *ppvObj = _IUnknown_ (This);
149     else if (IsEqualIID (riid, &IID_IShellFolder))
150         *ppvObj = _IShellFolder_ (This);
151     else if (IsEqualIID (riid, &IID_IShellFolder2))
152         *ppvObj = _IShellFolder_ (This);
153     else if (IsEqualIID (riid, &IID_IPersist))
154         *ppvObj = _IPersist_ (This);
155     else if (IsEqualIID (riid, &IID_IPersistFolder))
156         *ppvObj = _IPersistFolder_ (This);
157     else if (IsEqualIID (riid, &IID_IPersistFolder2))
158         *ppvObj = _IPersistFolder2_ (This);
159     else if (IsEqualIID (riid, &IID_IPersistFolder3))
160         *ppvObj = _IPersistFolder3_ (This);
161     else if (IsEqualIID (riid, &IID_ISFHelper))
162         *ppvObj = _ISFHelper_ (This);
163     else if (IsEqualIID (riid, &IID_IDropTarget)) {
164         *ppvObj = _IDropTarget_ (This);
165         SF_RegisterClipFmt (This);
166     }
167
168     if (*ppvObj) {
169         IUnknown_AddRef ((IUnknown *) (*ppvObj));
170         TRACE ("-- Interface = %p\n", *ppvObj);
171         return S_OK;
172     }
173     TRACE ("-- Interface: E_NOINTERFACE\n");
174     return E_NOINTERFACE;
175 }
176
177 static ULONG WINAPI IUnknown_fnAddRef (IUnknown * iface)
178 {
179     IGenericSFImpl *This = (IGenericSFImpl *)iface;
180     ULONG refCount = InterlockedIncrement(&This->ref);
181
182     TRACE ("(%p)->(count=%u)\n", This, refCount - 1);
183
184     return refCount;
185 }
186
187 static ULONG WINAPI IUnknown_fnRelease (IUnknown * iface)
188 {
189     IGenericSFImpl *This = (IGenericSFImpl *)iface;
190     ULONG refCount = InterlockedDecrement(&This->ref);
191
192     TRACE ("(%p)->(count=%u)\n", This, refCount + 1);
193
194     if (!refCount) {
195         TRACE ("-- destroying IShellFolder(%p)\n", This);
196
197         SHFree (This->pidlRoot);
198         SHFree (This->sPathTarget);
199         LocalFree ((HLOCAL) This);
200     }
201     return refCount;
202 }
203
204 static const IUnknownVtbl unkvt =
205 {
206       IUnknown_fnQueryInterface,
207       IUnknown_fnAddRef,
208       IUnknown_fnRelease,
209 };
210
211 static const shvheader GenericSFHeader[] = {
212     {IDS_SHV_COLUMN1, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15},
213     {IDS_SHV_COLUMN2, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 10},
214     {IDS_SHV_COLUMN3, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 10},
215     {IDS_SHV_COLUMN4, SHCOLSTATE_TYPE_DATE | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 12},
216     {IDS_SHV_COLUMN5, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 5}
217 };
218
219 #define GENERICSHELLVIEWCOLUMNS 5
220
221 /**************************************************************************
222 * IFSFolder_Constructor
223 *
224 * NOTES
225 *  creating undocumented ShellFS_Folder as part of an aggregation
226 *  {F3364BA0-65B9-11CE-A9BA-00AA004AE837}
227 *
228 */
229 HRESULT WINAPI
230 IFSFolder_Constructor (IUnknown * pUnkOuter, REFIID riid, LPVOID * ppv)
231 {
232     IGenericSFImpl *sf;
233
234     TRACE ("unkOut=%p %s\n", pUnkOuter, shdebugstr_guid (riid));
235
236     if (pUnkOuter && !IsEqualIID (riid, &IID_IUnknown))
237         return CLASS_E_NOAGGREGATION;
238     sf = (IGenericSFImpl *) LocalAlloc (LMEM_ZEROINIT, sizeof (IGenericSFImpl));
239     if (!sf)
240         return E_OUTOFMEMORY;
241
242     sf->ref = 0;
243     sf->lpVtbl = &unkvt;
244     sf->lpvtblShellFolder = &sfvt;
245     sf->lpvtblPersistFolder3 = &vt_FSFldr_PersistFolder3;
246     sf->lpvtblDropTarget = &dtvt;
247     sf->lpvtblSFHelper = &shvt;
248     sf->pclsid = (CLSID *) & CLSID_ShellFSFolder;
249     sf->pUnkOuter = pUnkOuter ? pUnkOuter : _IUnknown_ (sf);
250
251     if (!SUCCEEDED (IUnknown_QueryInterface (_IUnknown_ (sf), riid, ppv))) {
252         IUnknown_Release (_IUnknown_ (sf));
253         return E_NOINTERFACE;
254     }
255
256     TRACE ("--%p\n", *ppv);
257     return S_OK;
258 }
259
260 /**************************************************************************
261  *  IShellFolder_fnQueryInterface
262  *
263  * PARAMETERS
264  *  REFIID riid       [in ] Requested InterfaceID
265  *  LPVOID* ppvObject [out] Interface* to hold the result
266  */
267 static HRESULT WINAPI
268 IShellFolder_fnQueryInterface (IShellFolder2 * iface, REFIID riid,
269                                LPVOID * ppvObj)
270 {
271     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
272
273     TRACE ("(%p)->(%s,%p)\n", This, shdebugstr_guid (riid), ppvObj);
274
275     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
276 }
277
278 /**************************************************************************
279 *  IShellFolder_AddRef
280 */
281
282 static ULONG WINAPI IShellFolder_fnAddRef (IShellFolder2 * iface)
283 {
284     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
285
286     TRACE ("(%p)->(count=%u)\n", This, This->ref);
287
288     return IUnknown_AddRef (This->pUnkOuter);
289 }
290
291 /**************************************************************************
292  *  IShellFolder_fnRelease
293  */
294 static ULONG WINAPI IShellFolder_fnRelease (IShellFolder2 * iface)
295 {
296     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
297
298     TRACE ("(%p)->(count=%u)\n", This, This->ref);
299
300     return IUnknown_Release (This->pUnkOuter);
301 }
302
303 /**************************************************************************
304  *  SHELL32_CreatePidlFromBindCtx  [internal]
305  *
306  *  If the caller bound File System Bind Data, assume it is the 
307  *   find data for the path.
308  *  This allows binding of paths that don't exist.
309  */
310 LPITEMIDLIST SHELL32_CreatePidlFromBindCtx(IBindCtx *pbc, LPCWSTR path)
311 {
312     static WCHAR szfsbc[] = {
313         'F','i','l','e',' ','S','y','s','t','e','m',' ',
314         'B','i','n','d',' ','D','a','t','a',0 };
315     IFileSystemBindData *fsbd = NULL;
316     LPITEMIDLIST pidl = NULL;
317     IUnknown *param = NULL;
318     WIN32_FIND_DATAW wfd;
319     HRESULT r;
320
321     TRACE("%p %s\n", pbc, debugstr_w(path));
322
323     if (!pbc)
324         return NULL;
325
326     /* see if the caller bound File System Bind Data */
327     r = IBindCtx_GetObjectParam( pbc, (LPOLESTR) szfsbc, &param );
328     if (FAILED(r))
329         return NULL;
330
331     r = IUnknown_QueryInterface( param, &IID_IFileSystemBindData,
332                                  (LPVOID*) &fsbd );
333     if (SUCCEEDED(r))
334     {
335         r = IFileSystemBindData_GetFindData( fsbd, &wfd );
336         if (SUCCEEDED(r))
337         {
338             lstrcpynW( &wfd.cFileName[0], path, MAX_PATH );
339             pidl = _ILCreateFromFindDataW( &wfd );
340         }
341         IFileSystemBindData_Release( fsbd );
342     }
343     
344     return pidl;
345 }
346
347 /**************************************************************************
348 * IShellFolder_ParseDisplayName {SHELL32}
349 *
350 * Parse a display name.
351 *
352 * PARAMS
353 *  hwndOwner       [in]  Parent window for any message's
354 *  pbc             [in]  optional FileSystemBindData context
355 *  lpszDisplayName [in]  Unicode displayname.
356 *  pchEaten        [out] (unicode) characters processed
357 *  ppidl           [out] complex pidl to item
358 *  pdwAttributes   [out] items attributes
359 *
360 * NOTES
361 *  Every folder tries to parse only its own (the leftmost) pidl and creates a
362 *  subfolder to evaluate the remaining parts.
363 *  Now we can parse into namespaces implemented by shell extensions
364 *
365 *  Behaviour on win98: lpszDisplayName=NULL -> crash
366 *                      lpszDisplayName="" -> returns mycoputer-pidl
367 *
368 * FIXME
369 *    pdwAttributes is not set
370 *    pchEaten is not set like in windows
371 */
372 static HRESULT WINAPI
373 IShellFolder_fnParseDisplayName (IShellFolder2 * iface,
374                                  HWND hwndOwner,
375                                  LPBC pbc,
376                                  LPOLESTR lpszDisplayName,
377                                  DWORD * pchEaten, LPITEMIDLIST * ppidl,
378                                  DWORD * pdwAttributes)
379 {
380     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
381
382     HRESULT hr = E_INVALIDARG;
383     LPCWSTR szNext = NULL;
384     WCHAR szElement[MAX_PATH];
385     WCHAR szPath[MAX_PATH];
386     LPITEMIDLIST pidlTemp = NULL;
387     DWORD len;
388
389     TRACE ("(%p)->(HWND=%p,%p,%p=%s,%p,pidl=%p,%p)\n",
390      This, hwndOwner, pbc, lpszDisplayName, debugstr_w (lpszDisplayName),
391      pchEaten, ppidl, pdwAttributes);
392
393     if (!lpszDisplayName || !ppidl)
394         return E_INVALIDARG;
395
396     if (pchEaten)
397         *pchEaten = 0; /* strange but like the original */
398
399     pidlTemp = SHELL32_CreatePidlFromBindCtx(pbc, lpszDisplayName);
400     if (!pidlTemp && *lpszDisplayName)
401     {
402         /* get the next element */
403         szNext = GetNextElementW (lpszDisplayName, szElement, MAX_PATH);
404
405         /* build the full pathname to the element */
406         lstrcpynW(szPath, This->sPathTarget, MAX_PATH - 1);
407         PathAddBackslashW(szPath);
408         len = lstrlenW(szPath);
409         lstrcpynW(szPath + len, szElement, MAX_PATH - len);
410
411         /* get the pidl */
412         hr = _ILCreateFromPathW(szPath, &pidlTemp);
413
414         if (SUCCEEDED(hr)) {
415             if (szNext && *szNext) {
416                 /* try to analyse the next element */
417                 hr = SHELL32_ParseNextElement (iface, hwndOwner, pbc,
418                  &pidlTemp, (LPOLESTR) szNext, pchEaten, pdwAttributes);
419             } else {
420                 /* it's the last element */
421                 if (pdwAttributes && *pdwAttributes) {
422                     hr = SHELL32_GetItemAttributes (_IShellFolder_ (This),
423                      pidlTemp, pdwAttributes);
424                 }
425             }
426         }
427     }
428
429     if (SUCCEEDED(hr))
430         *ppidl = pidlTemp;
431     else
432         *ppidl = NULL;
433
434     TRACE ("(%p)->(-- pidl=%p ret=0x%08x)\n", This, ppidl ? *ppidl : 0, hr);
435
436     return hr;
437 }
438
439 /**************************************************************************
440 * IShellFolder_fnEnumObjects
441 * PARAMETERS
442 *  HWND          hwndOwner,    //[in ] Parent Window
443 *  DWORD         grfFlags,     //[in ] SHCONTF enumeration mask
444 *  LPENUMIDLIST* ppenumIDList  //[out] IEnumIDList interface
445 */
446 static HRESULT WINAPI
447 IShellFolder_fnEnumObjects (IShellFolder2 * iface, HWND hwndOwner,
448                             DWORD dwFlags, LPENUMIDLIST * ppEnumIDList)
449 {
450     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
451
452     TRACE ("(%p)->(HWND=%p flags=0x%08x pplist=%p)\n", This, hwndOwner,
453      dwFlags, ppEnumIDList);
454
455     *ppEnumIDList = IEnumIDList_Constructor();
456     if (*ppEnumIDList)
457         CreateFolderEnumList(*ppEnumIDList, This->sPathTarget, dwFlags);
458
459     TRACE ("-- (%p)->(new ID List: %p)\n", This, *ppEnumIDList);
460
461     return *ppEnumIDList ? S_OK : E_OUTOFMEMORY;
462 }
463
464 /**************************************************************************
465 * IShellFolder_fnBindToObject
466 * PARAMETERS
467 *  LPCITEMIDLIST pidl,       //[in ] relative pidl to open
468 *  LPBC          pbc,        //[in ] optional FileSystemBindData context
469 *  REFIID        riid,       //[in ] Initial Interface
470 *  LPVOID*       ppvObject   //[out] Interface*
471 */
472 static HRESULT WINAPI
473 IShellFolder_fnBindToObject (IShellFolder2 * iface, LPCITEMIDLIST pidl,
474                              LPBC pbc, REFIID riid, LPVOID * ppvOut)
475 {
476     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
477
478     TRACE ("(%p)->(pidl=%p,%p,%s,%p)\n", This, pidl, pbc,
479      shdebugstr_guid (riid), ppvOut);
480
481     return SHELL32_BindToChild (This->pidlRoot, This->sPathTarget, pidl, riid,
482      ppvOut);
483 }
484
485 /**************************************************************************
486 *  IShellFolder_fnBindToStorage
487 * PARAMETERS
488 *  LPCITEMIDLIST pidl,       //[in ] complex pidl to store
489 *  LPBC          pbc,        //[in ] reserved
490 *  REFIID        riid,       //[in ] Initial storage interface
491 *  LPVOID*       ppvObject   //[out] Interface* returned
492 */
493 static HRESULT WINAPI
494 IShellFolder_fnBindToStorage (IShellFolder2 * iface, LPCITEMIDLIST pidl,
495                               LPBC pbcReserved, REFIID riid, LPVOID * ppvOut)
496 {
497     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
498
499     FIXME ("(%p)->(pidl=%p,%p,%s,%p) stub\n", This, pidl, pbcReserved,
500      shdebugstr_guid (riid), ppvOut);
501
502     *ppvOut = NULL;
503     return E_NOTIMPL;
504 }
505
506 /**************************************************************************
507 *  IShellFolder_fnCompareIDs
508 */
509
510 static HRESULT WINAPI
511 IShellFolder_fnCompareIDs (IShellFolder2 * iface, LPARAM lParam,
512                            LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2)
513 {
514     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
515
516     int nReturn;
517
518     TRACE ("(%p)->(0x%08lx,pidl1=%p,pidl2=%p)\n", This, lParam, pidl1, pidl2);
519     nReturn = SHELL32_CompareIDs (_IShellFolder_ (This), lParam, pidl1, pidl2);
520     TRACE ("-- %i\n", nReturn);
521     return nReturn;
522 }
523
524 /**************************************************************************
525 * IShellFolder_fnCreateViewObject
526 */
527 static HRESULT WINAPI
528 IShellFolder_fnCreateViewObject (IShellFolder2 * iface, HWND hwndOwner,
529                                  REFIID riid, LPVOID * ppvOut)
530 {
531     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
532
533     LPSHELLVIEW pShellView;
534     HRESULT hr = E_INVALIDARG;
535
536     TRACE ("(%p)->(hwnd=%p,%s,%p)\n", This, hwndOwner, shdebugstr_guid (riid),
537      ppvOut);
538
539     if (ppvOut) {
540         *ppvOut = NULL;
541
542         if (IsEqualIID (riid, &IID_IDropTarget)) {
543             hr = IShellFolder_QueryInterface (iface, &IID_IDropTarget, ppvOut);
544         } else if (IsEqualIID (riid, &IID_IContextMenu)) {
545             FIXME ("IContextMenu not implemented\n");
546             hr = E_NOTIMPL;
547         } else if (IsEqualIID (riid, &IID_IShellView)) {
548             pShellView = IShellView_Constructor ((IShellFolder *) iface);
549             if (pShellView) {
550                 hr = IShellView_QueryInterface (pShellView, riid, ppvOut);
551                 IShellView_Release (pShellView);
552             }
553         }
554     }
555     TRACE ("-- (%p)->(interface=%p)\n", This, ppvOut);
556     return hr;
557 }
558
559 /**************************************************************************
560 *  IShellFolder_fnGetAttributesOf
561 *
562 * PARAMETERS
563 *  UINT            cidl,     //[in ] num elements in pidl array
564 *  LPCITEMIDLIST*  apidl,    //[in ] simple pidl array
565 *  ULONG*          rgfInOut) //[out] result array
566 *
567 */
568 static HRESULT WINAPI
569 IShellFolder_fnGetAttributesOf (IShellFolder2 * iface, UINT cidl,
570                                 LPCITEMIDLIST * apidl, DWORD * rgfInOut)
571 {
572     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
573
574     HRESULT hr = S_OK;
575
576     TRACE ("(%p)->(cidl=%d apidl=%p mask=%p (0x%08x))\n", This, cidl, apidl,
577      rgfInOut, rgfInOut ? *rgfInOut : 0);
578
579     if (!rgfInOut)
580         return E_INVALIDARG;
581     if (cidl && !apidl)
582         return E_INVALIDARG;
583
584     if (*rgfInOut == 0)
585         *rgfInOut = ~0;
586
587     if(cidl == 0){
588         IShellFolder *psfParent = NULL;
589         LPCITEMIDLIST rpidl = NULL;
590
591         hr = SHBindToParent(This->pidlRoot, &IID_IShellFolder, (LPVOID*)&psfParent, (LPCITEMIDLIST*)&rpidl);
592         if(SUCCEEDED(hr)) {
593             SHELL32_GetItemAttributes (psfParent, rpidl, rgfInOut);
594             IShellFolder_Release(psfParent);
595         }
596     }
597     else {
598         while (cidl > 0 && *apidl) {
599             pdump (*apidl);
600             SHELL32_GetItemAttributes (_IShellFolder_ (This), *apidl, rgfInOut);
601             apidl++;
602             cidl--;
603         }
604     }
605     /* make sure SFGAO_VALIDATE is cleared, some apps depend on that */
606     *rgfInOut &= ~SFGAO_VALIDATE;
607
608     TRACE ("-- result=0x%08x\n", *rgfInOut);
609
610     return hr;
611 }
612
613 /**************************************************************************
614 *  IShellFolder_fnGetUIObjectOf
615 *
616 * PARAMETERS
617 *  HWND           hwndOwner, //[in ] Parent window for any output
618 *  UINT           cidl,      //[in ] array size
619 *  LPCITEMIDLIST* apidl,     //[in ] simple pidl array
620 *  REFIID         riid,      //[in ] Requested Interface
621 *  UINT*          prgfInOut, //[   ] reserved
622 *  LPVOID*        ppvObject) //[out] Resulting Interface
623 *
624 * NOTES
625 *  This function gets asked to return "view objects" for one or more (multiple
626 *  select) items:
627 *  The viewobject typically is an COM object with one of the following
628 *  interfaces:
629 *  IExtractIcon,IDataObject,IContextMenu
630 *  In order to support icon positions in the default Listview your DataObject
631 *  must implement the SetData method (in addition to GetData :) - the shell
632 *  passes a barely documented "Icon positions" structure to SetData when the
633 *  drag starts, and GetData's it if the drop is in another explorer window that
634 *  needs the positions.
635 */
636 static HRESULT WINAPI
637 IShellFolder_fnGetUIObjectOf (IShellFolder2 * iface,
638                               HWND hwndOwner,
639                               UINT cidl, LPCITEMIDLIST * apidl, REFIID riid,
640                               UINT * prgfInOut, LPVOID * ppvOut)
641 {
642     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
643
644     LPITEMIDLIST pidl;
645     IUnknown *pObj = NULL;
646     HRESULT hr = E_INVALIDARG;
647
648     TRACE ("(%p)->(%p,%u,apidl=%p,%s,%p,%p)\n",
649      This, hwndOwner, cidl, apidl, shdebugstr_guid (riid), prgfInOut, ppvOut);
650
651     if (ppvOut) {
652         *ppvOut = NULL;
653
654         if (IsEqualIID (riid, &IID_IContextMenu) && (cidl >= 1)) {
655             pObj = (LPUNKNOWN) ISvItemCm_Constructor ((IShellFolder *) iface,
656              This->pidlRoot, apidl, cidl);
657             hr = S_OK;
658         } else if (IsEqualIID (riid, &IID_IDataObject) && (cidl >= 1)) {
659             pObj = (LPUNKNOWN) IDataObject_Constructor (hwndOwner,
660              This->pidlRoot, apidl, cidl);
661             hr = S_OK;
662         } else if (IsEqualIID (riid, &IID_IExtractIconA) && (cidl == 1)) {
663             pidl = ILCombine (This->pidlRoot, apidl[0]);
664             pObj = (LPUNKNOWN) IExtractIconA_Constructor (pidl);
665             SHFree (pidl);
666             hr = S_OK;
667         } else if (IsEqualIID (riid, &IID_IExtractIconW) && (cidl == 1)) {
668             pidl = ILCombine (This->pidlRoot, apidl[0]);
669             pObj = (LPUNKNOWN) IExtractIconW_Constructor (pidl);
670             SHFree (pidl);
671             hr = S_OK;
672         } else if (IsEqualIID (riid, &IID_IDropTarget) && (cidl >= 1)) {
673             hr = IShellFolder_QueryInterface (iface, &IID_IDropTarget,
674              (LPVOID *) & pObj);
675         } else if ((IsEqualIID(riid,&IID_IShellLinkW) ||
676          IsEqualIID(riid,&IID_IShellLinkA)) && (cidl == 1)) {
677             pidl = ILCombine (This->pidlRoot, apidl[0]);
678             hr = IShellLink_ConstructFromFile(NULL, riid, pidl, (LPVOID*)&pObj);
679             SHFree (pidl);
680         } else {
681             hr = E_NOINTERFACE;
682         }
683
684         if (SUCCEEDED(hr) && !pObj)
685             hr = E_OUTOFMEMORY;
686
687         *ppvOut = pObj;
688     }
689     TRACE ("(%p)->hr=0x%08x\n", This, hr);
690     return hr;
691 }
692
693 static const WCHAR AdvancedW[] = { 'S','O','F','T','W','A','R','E',
694  '\\','M','i','c','r','o','s','o','f','t','\\','W','i','n','d','o','w','s','\\',
695  'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\','E','x','p','l',
696  'o','r','e','r','\\','A','d','v','a','n','c','e','d',0 };
697 static const WCHAR HideFileExtW[] = { 'H','i','d','e','F','i','l','e','E','x',
698  't',0 };
699 static const WCHAR NeverShowExtW[] = { 'N','e','v','e','r','S','h','o','w','E',
700  'x','t',0 };
701
702 /******************************************************************************
703  * SHELL_FS_HideExtension [Internal]
704  *
705  * Query the registry if the filename extension of a given path should be 
706  * hidden.
707  *
708  * PARAMS
709  *  szPath [I] Relative or absolute path of a file
710  *  
711  * RETURNS
712  *  TRUE, if the filename's extension should be hidden
713  *  FALSE, otherwise.
714  */
715 BOOL SHELL_FS_HideExtension(LPCWSTR szPath)
716 {
717     HKEY hKey;
718     DWORD dwData;
719     DWORD dwDataSize = sizeof (DWORD);
720     BOOL doHide = FALSE; /* The default value is FALSE (win98 at least) */
721     
722     if (!RegCreateKeyExW(HKEY_CURRENT_USER, AdvancedW, 0, 0, 0, KEY_ALL_ACCESS, 0, &hKey, 0)) {
723         if (!RegQueryValueExW(hKey, HideFileExtW, 0, 0, (LPBYTE) &dwData, &dwDataSize))
724             doHide = dwData;
725         RegCloseKey (hKey);
726     }
727
728     if (!doHide) {
729         LPWSTR ext = PathFindExtensionW(szPath);
730
731         if (*ext != '\0') {
732             WCHAR classname[MAX_PATH];
733             LONG classlen = sizeof(classname);
734
735             if (!RegQueryValueW(HKEY_CLASSES_ROOT, ext, classname, &classlen))
736                 if (!RegOpenKeyW(HKEY_CLASSES_ROOT, classname, &hKey)) {
737                     if (!RegQueryValueExW(hKey, NeverShowExtW, 0, NULL, NULL, NULL))
738                         doHide = TRUE;
739                     RegCloseKey(hKey);
740                 }
741         }
742     }
743     return doHide;
744 }
745     
746 void SHELL_FS_ProcessDisplayFilename(LPWSTR szPath, DWORD dwFlags)
747 {
748     /*FIXME: MSDN also mentions SHGDN_FOREDITING which is not yet handled. */
749     if (!(dwFlags & SHGDN_FORPARSING) &&
750         ((dwFlags & SHGDN_INFOLDER) || (dwFlags == SHGDN_NORMAL))) {
751         if (SHELL_FS_HideExtension(szPath) && szPath[0] != '.')
752             PathRemoveExtensionW(szPath);
753     }
754 }
755
756 /**************************************************************************
757 *  IShellFolder_fnGetDisplayNameOf
758 *  Retrieves the display name for the specified file object or subfolder
759 *
760 * PARAMETERS
761 *  LPCITEMIDLIST pidl,    //[in ] complex pidl to item
762 *  DWORD         dwFlags, //[in ] SHGNO formatting flags
763 *  LPSTRRET      lpName)  //[out] Returned display name
764 *
765 * FIXME
766 *  if the name is in the pidl the ret value should be a STRRET_OFFSET
767 */
768
769 static HRESULT WINAPI
770 IShellFolder_fnGetDisplayNameOf (IShellFolder2 * iface, LPCITEMIDLIST pidl,
771                                  DWORD dwFlags, LPSTRRET strRet)
772 {
773     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
774     LPWSTR pszPath;
775
776     HRESULT hr = S_OK;
777     int len = 0;
778
779     TRACE ("(%p)->(pidl=%p,0x%08x,%p)\n", This, pidl, dwFlags, strRet);
780     pdump (pidl);
781
782     if (!pidl || !strRet)
783         return E_INVALIDARG;
784
785     pszPath = CoTaskMemAlloc((MAX_PATH +1) * sizeof(WCHAR));
786     if (!pszPath)
787         return E_OUTOFMEMORY;
788
789     if (_ILIsDesktop(pidl)) { /* empty pidl */
790         if ((GET_SHGDN_FOR(dwFlags) & SHGDN_FORPARSING) &&
791             (GET_SHGDN_RELATION(dwFlags) != SHGDN_INFOLDER)) 
792         {
793             if (This->sPathTarget)
794                 lstrcpynW(pszPath, This->sPathTarget, MAX_PATH);
795         } else {
796             /* pidl has to contain exactly one non null SHITEMID */
797             hr = E_INVALIDARG;
798         }
799     } else if (_ILIsPidlSimple(pidl)) {
800         if ((GET_SHGDN_FOR(dwFlags) & SHGDN_FORPARSING) &&
801             (GET_SHGDN_RELATION(dwFlags) != SHGDN_INFOLDER) && 
802             This->sPathTarget) 
803         {
804             lstrcpynW(pszPath, This->sPathTarget, MAX_PATH);
805             PathAddBackslashW(pszPath);
806             len = lstrlenW(pszPath);
807         }
808         _ILSimpleGetTextW(pidl, pszPath + len, MAX_PATH + 1 - len);
809         if (!_ILIsFolder(pidl)) SHELL_FS_ProcessDisplayFilename(pszPath, dwFlags);
810     } else {
811         hr = SHELL32_GetDisplayNameOfChild(iface, pidl, dwFlags, pszPath, MAX_PATH);
812     }
813
814     if (SUCCEEDED(hr)) {
815         /* Win9x always returns ANSI strings, NT always returns Unicode strings */
816         if (GetVersion() & 0x80000000) {
817             strRet->uType = STRRET_CSTR;
818             if (!WideCharToMultiByte(CP_ACP, 0, pszPath, -1, strRet->u.cStr, MAX_PATH,
819                  NULL, NULL))
820                 strRet->u.cStr[0] = '\0';
821             CoTaskMemFree(pszPath);
822         } else {
823             strRet->uType = STRRET_WSTR;
824             strRet->u.pOleStr = pszPath;
825         }
826     } else
827         CoTaskMemFree(pszPath);
828
829     TRACE ("-- (%p)->(%s)\n", This, strRet->uType == STRRET_CSTR ? strRet->u.cStr : debugstr_w(strRet->u.pOleStr));
830     return hr;
831 }
832
833 /**************************************************************************
834 *  IShellFolder_fnSetNameOf
835 *  Changes the name of a file object or subfolder, possibly changing its item
836 *  identifier in the process.
837 *
838 * PARAMETERS
839 *  HWND          hwndOwner,  //[in ] Owner window for output
840 *  LPCITEMIDLIST pidl,       //[in ] simple pidl of item to change
841 *  LPCOLESTR     lpszName,   //[in ] the items new display name
842 *  DWORD         dwFlags,    //[in ] SHGNO formatting flags
843 *  LPITEMIDLIST* ppidlOut)   //[out] simple pidl returned
844 */
845 static HRESULT WINAPI IShellFolder_fnSetNameOf (IShellFolder2 * iface,
846                                                 HWND hwndOwner,
847                                                 LPCITEMIDLIST pidl,
848                                                 LPCOLESTR lpName,
849                                                 DWORD dwFlags,
850                                                 LPITEMIDLIST * pPidlOut)
851 {
852     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
853     WCHAR szSrc[MAX_PATH + 1], szDest[MAX_PATH + 1];
854     LPWSTR ptr;
855     BOOL bIsFolder = _ILIsFolder (ILFindLastID (pidl));
856
857     TRACE ("(%p)->(%p,pidl=%p,%s,%u,%p)\n", This, hwndOwner, pidl,
858      debugstr_w (lpName), dwFlags, pPidlOut);
859
860     /* build source path */
861     lstrcpynW(szSrc, This->sPathTarget, MAX_PATH);
862     ptr = PathAddBackslashW (szSrc);
863     if (ptr)
864         _ILSimpleGetTextW (pidl, ptr, MAX_PATH + 1 - (ptr - szSrc));
865
866     /* build destination path */
867     if (dwFlags == SHGDN_NORMAL || dwFlags & SHGDN_INFOLDER) {
868         lstrcpynW(szDest, This->sPathTarget, MAX_PATH);
869         ptr = PathAddBackslashW (szDest);
870         if (ptr)
871             lstrcpynW(ptr, lpName, MAX_PATH + 1 - (ptr - szDest));
872     } else
873         lstrcpynW(szDest, lpName, MAX_PATH);
874
875     if(!(dwFlags & SHGDN_FORPARSING) && SHELL_FS_HideExtension(szSrc)) {
876         WCHAR *ext = PathFindExtensionW(szSrc);
877         if(*ext != '\0') {
878             INT len = strlenW(szDest);
879             lstrcpynW(szDest + len, ext, MAX_PATH - len);
880         }
881     }
882     
883     TRACE ("src=%s dest=%s\n", debugstr_w(szSrc), debugstr_w(szDest));
884
885     if (MoveFileW (szSrc, szDest)) {
886         HRESULT hr = S_OK;
887
888         if (pPidlOut)
889             hr = _ILCreateFromPathW(szDest, pPidlOut);
890
891         SHChangeNotify (bIsFolder ? SHCNE_RENAMEFOLDER : SHCNE_RENAMEITEM,
892          SHCNF_PATHW, szSrc, szDest);
893
894         return hr;
895     }
896
897     return E_FAIL;
898 }
899
900 static HRESULT WINAPI IShellFolder_fnGetDefaultSearchGUID (IShellFolder2 *iface,
901                                                            GUID * pguid)
902 {
903     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
904     FIXME ("(%p)\n", This);
905     return E_NOTIMPL;
906 }
907 static HRESULT WINAPI IShellFolder_fnEnumSearches (IShellFolder2 * iface,
908                                                    IEnumExtraSearch ** ppenum)
909 {
910     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
911     FIXME ("(%p)\n", This);
912     return E_NOTIMPL;
913 }
914
915 static HRESULT WINAPI
916 IShellFolder_fnGetDefaultColumn (IShellFolder2 * iface, DWORD dwRes,
917                                  ULONG * pSort, ULONG * pDisplay)
918 {
919     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
920
921     TRACE ("(%p)\n", This);
922
923     if (pSort)
924         *pSort = 0;
925     if (pDisplay)
926         *pDisplay = 0;
927
928     return S_OK;
929 }
930
931 static HRESULT WINAPI
932 IShellFolder_fnGetDefaultColumnState (IShellFolder2 * iface, UINT iColumn,
933                                       DWORD * pcsFlags)
934 {
935     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
936
937     TRACE ("(%p)\n", This);
938
939     if (!pcsFlags || iColumn >= GENERICSHELLVIEWCOLUMNS)
940         return E_INVALIDARG;
941
942     *pcsFlags = GenericSFHeader[iColumn].pcsFlags;
943
944     return S_OK;
945 }
946
947 static HRESULT WINAPI
948 IShellFolder_fnGetDetailsEx (IShellFolder2 * iface, LPCITEMIDLIST pidl,
949                              const SHCOLUMNID * pscid, VARIANT * pv)
950 {
951     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
952     FIXME ("(%p)\n", This);
953
954     return E_NOTIMPL;
955 }
956
957 static HRESULT WINAPI
958 IShellFolder_fnGetDetailsOf (IShellFolder2 * iface, LPCITEMIDLIST pidl,
959                              UINT iColumn, SHELLDETAILS * psd)
960 {
961     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
962     HRESULT hr = E_FAIL;
963
964     TRACE ("(%p)->(%p %i %p)\n", This, pidl, iColumn, psd);
965
966     if (!psd || iColumn >= GENERICSHELLVIEWCOLUMNS)
967         return E_INVALIDARG;
968
969     if (!pidl) {
970         /* the header titles */
971         psd->fmt = GenericSFHeader[iColumn].fmt;
972         psd->cxChar = GenericSFHeader[iColumn].cxChar;
973         psd->str.uType = STRRET_CSTR;
974         LoadStringA (shell32_hInstance, GenericSFHeader[iColumn].colnameid,
975          psd->str.u.cStr, MAX_PATH);
976         return S_OK;
977     } else {
978         hr = S_OK;
979         psd->str.uType = STRRET_CSTR;
980         /* the data from the pidl */
981         switch (iColumn) {
982         case 0:                /* name */
983             hr = IShellFolder_GetDisplayNameOf (iface, pidl,
984              SHGDN_NORMAL | SHGDN_INFOLDER, &psd->str);
985             break;
986         case 1:                /* size */
987             _ILGetFileSize (pidl, psd->str.u.cStr, MAX_PATH);
988             break;
989         case 2:                /* type */
990             _ILGetFileType (pidl, psd->str.u.cStr, MAX_PATH);
991             break;
992         case 3:                /* date */
993             _ILGetFileDate (pidl, psd->str.u.cStr, MAX_PATH);
994             break;
995         case 4:                /* attributes */
996             _ILGetFileAttributes (pidl, psd->str.u.cStr, MAX_PATH);
997             break;
998         }
999     }
1000
1001     return hr;
1002 }
1003
1004 static HRESULT WINAPI
1005 IShellFolder_fnMapColumnToSCID (IShellFolder2 * iface, UINT column,
1006                                 SHCOLUMNID * pscid)
1007 {
1008     IGenericSFImpl *This = impl_from_IShellFolder2(iface);
1009     FIXME ("(%p)\n", This);
1010     return E_NOTIMPL;
1011 }
1012
1013 static const IShellFolder2Vtbl sfvt =
1014 {
1015     IShellFolder_fnQueryInterface,
1016     IShellFolder_fnAddRef,
1017     IShellFolder_fnRelease,
1018     IShellFolder_fnParseDisplayName,
1019     IShellFolder_fnEnumObjects,
1020     IShellFolder_fnBindToObject,
1021     IShellFolder_fnBindToStorage,
1022     IShellFolder_fnCompareIDs,
1023     IShellFolder_fnCreateViewObject,
1024     IShellFolder_fnGetAttributesOf,
1025     IShellFolder_fnGetUIObjectOf,
1026     IShellFolder_fnGetDisplayNameOf,
1027     IShellFolder_fnSetNameOf,
1028     /* ShellFolder2 */
1029     IShellFolder_fnGetDefaultSearchGUID,
1030     IShellFolder_fnEnumSearches,
1031     IShellFolder_fnGetDefaultColumn,
1032     IShellFolder_fnGetDefaultColumnState,
1033     IShellFolder_fnGetDetailsEx,
1034     IShellFolder_fnGetDetailsOf,
1035     IShellFolder_fnMapColumnToSCID
1036 };
1037
1038 /****************************************************************************
1039  * ISFHelper for IShellFolder implementation
1040  */
1041
1042 static HRESULT WINAPI
1043 ISFHelper_fnQueryInterface (ISFHelper * iface, REFIID riid, LPVOID * ppvObj)
1044 {
1045     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1046
1047     TRACE ("(%p)->(count=%u)\n", This, This->ref);
1048
1049     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
1050 }
1051
1052 static ULONG WINAPI ISFHelper_fnAddRef (ISFHelper * iface)
1053 {
1054     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1055
1056     TRACE ("(%p)->(count=%u)\n", This, This->ref);
1057
1058     return IUnknown_AddRef (This->pUnkOuter);
1059 }
1060
1061 static ULONG WINAPI ISFHelper_fnRelease (ISFHelper * iface)
1062 {
1063     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1064
1065     TRACE ("(%p)\n", This);
1066
1067     return IUnknown_Release (This->pUnkOuter);
1068 }
1069
1070 /****************************************************************************
1071  * ISFHelper_fnAddFolder
1072  *
1073  * creates a unique folder name
1074  */
1075
1076 static HRESULT WINAPI
1077 ISFHelper_fnGetUniqueName (ISFHelper * iface, LPWSTR pwszName, UINT uLen)
1078 {
1079     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1080     IEnumIDList *penum;
1081     HRESULT hr;
1082     WCHAR wszText[MAX_PATH];
1083     const WCHAR wszNewFolder[] = {'N','e','w',' ','F','o','l','d','e','r',0 };
1084     const WCHAR wszFormat[] = {'%','s',' ','%','d',0 };
1085
1086     TRACE ("(%p)(%p %u)\n", This, pwszName, uLen);
1087
1088     if (uLen < sizeof(wszNewFolder)/sizeof(WCHAR) + 3)
1089         return E_POINTER;
1090
1091     lstrcpynW (pwszName, wszNewFolder, uLen);
1092
1093     hr = IShellFolder_fnEnumObjects (_IShellFolder2_ (This), 0,
1094      SHCONTF_FOLDERS | SHCONTF_NONFOLDERS | SHCONTF_INCLUDEHIDDEN, &penum);
1095     if (penum) {
1096         LPITEMIDLIST pidl;
1097         DWORD dwFetched;
1098         int i = 1;
1099
1100 next:
1101         IEnumIDList_Reset (penum);
1102         while (S_OK == IEnumIDList_Next (penum, 1, &pidl, &dwFetched) &&
1103          dwFetched) {
1104             _ILSimpleGetTextW (pidl, wszText, MAX_PATH);
1105             if (0 == lstrcmpiW (wszText, pwszName)) {
1106                 snprintfW (pwszName, uLen, wszFormat, wszNewFolder, i++);
1107                 if (i > 99) {
1108                     hr = E_FAIL;
1109                     break;
1110                 }
1111                 goto next;
1112             }
1113         }
1114
1115         IEnumIDList_Release (penum);
1116     }
1117     return hr;
1118 }
1119
1120 /****************************************************************************
1121  * ISFHelper_fnAddFolder
1122  *
1123  * adds a new folder.
1124  */
1125
1126 static HRESULT WINAPI
1127 ISFHelper_fnAddFolder (ISFHelper * iface, HWND hwnd, LPCWSTR pwszName,
1128                        LPITEMIDLIST * ppidlOut)
1129 {
1130     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1131     WCHAR wszNewDir[MAX_PATH];
1132     DWORD bRes;
1133     HRESULT hres = E_FAIL;
1134
1135     TRACE ("(%p)(%s %p)\n", This, debugstr_w(pwszName), ppidlOut);
1136
1137     wszNewDir[0] = 0;
1138     if (This->sPathTarget)
1139         lstrcpynW(wszNewDir, This->sPathTarget, MAX_PATH);
1140     PathAppendW(wszNewDir, pwszName);
1141
1142     bRes = CreateDirectoryW (wszNewDir, NULL);
1143     if (bRes) {
1144         SHChangeNotify (SHCNE_MKDIR, SHCNF_PATHW, wszNewDir, NULL);
1145
1146         hres = S_OK;
1147
1148         if (ppidlOut)
1149                 hres = _ILCreateFromPathW(wszNewDir, ppidlOut);
1150     } else {
1151         WCHAR wszText[128 + MAX_PATH];
1152         WCHAR wszTempText[128];
1153         WCHAR wszCaption[256];
1154
1155         /* Cannot Create folder because of permissions */
1156         LoadStringW (shell32_hInstance, IDS_CREATEFOLDER_DENIED, wszTempText,
1157          sizeof (wszTempText));
1158         LoadStringW (shell32_hInstance, IDS_CREATEFOLDER_CAPTION, wszCaption,
1159          sizeof (wszCaption));
1160         sprintfW (wszText, wszTempText, wszNewDir);
1161         MessageBoxW (hwnd, wszText, wszCaption, MB_OK | MB_ICONEXCLAMATION);
1162     }
1163
1164     return hres;
1165 }
1166
1167 /****************************************************************************
1168  * build_paths_list
1169  *
1170  * Builds a list of paths like the one used in SHFileOperation from a table of
1171  * PIDLs relative to the given base folder
1172  */
1173 static WCHAR *build_paths_list(LPCWSTR wszBasePath, int cidl, const LPCITEMIDLIST *pidls)
1174 {
1175     WCHAR *wszPathsList;
1176     WCHAR *wszListPos;
1177     int iPathLen;
1178     int i;
1179     
1180     iPathLen = lstrlenW(wszBasePath);
1181     wszPathsList = HeapAlloc(GetProcessHeap(), 0, MAX_PATH*sizeof(WCHAR)*cidl+1);
1182     wszListPos = wszPathsList;
1183     
1184     for (i = 0; i < cidl; i++) {
1185         if (!_ILIsFolder(pidls[i]) && !_ILIsValue(pidls[i]))
1186             continue;
1187
1188         lstrcpynW(wszListPos, wszBasePath, MAX_PATH);
1189         /* FIXME: abort if path too long */
1190         _ILSimpleGetTextW(pidls[i], wszListPos+iPathLen, MAX_PATH-iPathLen);
1191         wszListPos += lstrlenW(wszListPos)+1;
1192     }
1193     *wszListPos=0;
1194     return wszPathsList;
1195 }
1196
1197 /****************************************************************************
1198  * ISFHelper_fnDeleteItems
1199  *
1200  * deletes items in folder
1201  */
1202 static HRESULT WINAPI
1203 ISFHelper_fnDeleteItems (ISFHelper * iface, UINT cidl, LPCITEMIDLIST * apidl)
1204 {
1205     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1206     UINT i;
1207     SHFILEOPSTRUCTW op;
1208     WCHAR wszPath[MAX_PATH];
1209     WCHAR *wszPathsList;
1210     HRESULT ret;
1211     WCHAR *wszCurrentPath;
1212
1213     TRACE ("(%p)(%u %p)\n", This, cidl, apidl);
1214     if (cidl==0) return S_OK;
1215
1216     if (This->sPathTarget)
1217         lstrcpynW(wszPath, This->sPathTarget, MAX_PATH);
1218     else
1219         wszPath[0] = '\0';
1220     PathAddBackslashW(wszPath);
1221     wszPathsList = build_paths_list(wszPath, cidl, apidl);
1222
1223     ZeroMemory(&op, sizeof(op));
1224     op.hwnd = GetActiveWindow();
1225     op.wFunc = FO_DELETE;
1226     op.pFrom = wszPathsList;
1227     op.fFlags = FOF_ALLOWUNDO;
1228     if (SHFileOperationW(&op))
1229     {
1230         WARN("SHFileOperation failed\n");
1231         ret = E_FAIL;
1232     }
1233     else
1234         ret = S_OK;
1235
1236     /* we currently need to manually send the notifies */
1237     wszCurrentPath = wszPathsList;
1238     for (i = 0; i < cidl; i++)
1239     {
1240         LONG wEventId;
1241
1242         if (_ILIsFolder(apidl[i]))
1243             wEventId = SHCNE_RMDIR;
1244         else if (_ILIsValue(apidl[i]))
1245             wEventId = SHCNE_DELETE;
1246         else
1247             continue;
1248
1249         /* check if file exists */
1250         if (GetFileAttributesW(wszCurrentPath) == INVALID_FILE_ATTRIBUTES)
1251         {
1252             LPITEMIDLIST pidl = ILCombine(This->pidlRoot, apidl[i]);
1253             SHChangeNotify(wEventId, SHCNF_IDLIST, pidl, NULL);
1254             SHFree(pidl);
1255         }
1256
1257         wszCurrentPath += lstrlenW(wszCurrentPath)+1;
1258     }
1259     HeapFree(GetProcessHeap(), 0, wszPathsList);
1260     return ret;
1261 }
1262
1263 /****************************************************************************
1264  * ISFHelper_fnCopyItems
1265  *
1266  * copies items to this folder
1267  */
1268 static HRESULT WINAPI
1269 ISFHelper_fnCopyItems (ISFHelper * iface, IShellFolder * pSFFrom, UINT cidl,
1270                        LPCITEMIDLIST * apidl)
1271 {
1272     UINT i;
1273     IPersistFolder2 *ppf2 = NULL;
1274     char szSrcPath[MAX_PATH],
1275       szDstPath[MAX_PATH];
1276
1277     IGenericSFImpl *This = impl_from_ISFHelper(iface);
1278
1279     TRACE ("(%p)->(%p,%u,%p)\n", This, pSFFrom, cidl, apidl);
1280
1281     IShellFolder_QueryInterface (pSFFrom, &IID_IPersistFolder2,
1282      (LPVOID *) & ppf2);
1283     if (ppf2) {
1284         LPITEMIDLIST pidl;
1285
1286         if (SUCCEEDED (IPersistFolder2_GetCurFolder (ppf2, &pidl))) {
1287             for (i = 0; i < cidl; i++) {
1288                 SHGetPathFromIDListA (pidl, szSrcPath);
1289                 PathAddBackslashA (szSrcPath);
1290                 _ILSimpleGetText (apidl[i], szSrcPath + strlen (szSrcPath),
1291                  MAX_PATH);
1292
1293                 if (!WideCharToMultiByte(CP_ACP, 0, This->sPathTarget, -1, szDstPath, MAX_PATH, NULL, NULL))
1294                     szDstPath[0] = '\0';
1295                 PathAddBackslashA (szDstPath);
1296                 _ILSimpleGetText (apidl[i], szDstPath + strlen (szDstPath),
1297                  MAX_PATH);
1298                 MESSAGE ("would copy %s to %s\n", szSrcPath, szDstPath);
1299             }
1300             SHFree (pidl);
1301         }
1302         IPersistFolder2_Release (ppf2);
1303     }
1304     return S_OK;
1305 }
1306
1307 static const ISFHelperVtbl shvt =
1308 {
1309     ISFHelper_fnQueryInterface,
1310     ISFHelper_fnAddRef,
1311     ISFHelper_fnRelease,
1312     ISFHelper_fnGetUniqueName,
1313     ISFHelper_fnAddFolder,
1314     ISFHelper_fnDeleteItems,
1315     ISFHelper_fnCopyItems
1316 };
1317
1318 /************************************************************************
1319  * IFSFldr_PersistFolder3_QueryInterface
1320  *
1321  */
1322 static HRESULT WINAPI
1323 IFSFldr_PersistFolder3_QueryInterface (IPersistFolder3 * iface, REFIID iid,
1324                                        LPVOID * ppvObj)
1325 {
1326     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1327
1328     TRACE ("(%p)\n", This);
1329
1330     return IUnknown_QueryInterface (This->pUnkOuter, iid, ppvObj);
1331 }
1332
1333 /************************************************************************
1334  * IFSFldr_PersistFolder3_AddRef
1335  *
1336  */
1337 static ULONG WINAPI
1338 IFSFldr_PersistFolder3_AddRef (IPersistFolder3 * iface)
1339 {
1340     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1341
1342     TRACE ("(%p)->(count=%u)\n", This, This->ref);
1343
1344     return IUnknown_AddRef (This->pUnkOuter);
1345 }
1346
1347 /************************************************************************
1348  * IFSFldr_PersistFolder3_Release
1349  *
1350  */
1351 static ULONG WINAPI
1352 IFSFldr_PersistFolder3_Release (IPersistFolder3 * iface)
1353 {
1354     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1355
1356     TRACE ("(%p)->(count=%u)\n", This, This->ref);
1357
1358     return IUnknown_Release (This->pUnkOuter);
1359 }
1360
1361 /************************************************************************
1362  * IFSFldr_PersistFolder3_GetClassID
1363  */
1364 static HRESULT WINAPI
1365 IFSFldr_PersistFolder3_GetClassID (IPersistFolder3 * iface, CLSID * lpClassId)
1366 {
1367     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1368
1369     TRACE ("(%p)\n", This);
1370
1371     if (!lpClassId)
1372         return E_POINTER;
1373     *lpClassId = *This->pclsid;
1374
1375     return S_OK;
1376 }
1377
1378 /************************************************************************
1379  * IFSFldr_PersistFolder3_Initialize
1380  *
1381  * NOTES
1382  *  sPathTarget is not set. Don't know how to handle in a non rooted environment.
1383  */
1384 static HRESULT WINAPI
1385 IFSFldr_PersistFolder3_Initialize (IPersistFolder3 * iface, LPCITEMIDLIST pidl)
1386 {
1387     WCHAR wszTemp[MAX_PATH];
1388
1389     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1390
1391     TRACE ("(%p)->(%p)\n", This, pidl);
1392
1393     SHFree (This->pidlRoot);     /* free the old pidl */
1394     This->pidlRoot = ILClone (pidl); /* set my pidl */
1395
1396     SHFree (This->sPathTarget);
1397     This->sPathTarget = NULL;
1398
1399     /* set my path */
1400     if (SHGetPathFromIDListW (pidl, wszTemp)) {
1401         int len = strlenW(wszTemp);
1402         This->sPathTarget = SHAlloc((len + 1) * sizeof(WCHAR));
1403         if (!This->sPathTarget)
1404             return E_OUTOFMEMORY;
1405         memcpy(This->sPathTarget, wszTemp, (len + 1) * sizeof(WCHAR));
1406     }
1407
1408     TRACE ("--(%p)->(%s)\n", This, debugstr_w(This->sPathTarget));
1409     return S_OK;
1410 }
1411
1412 /**************************************************************************
1413  * IFSFldr_PersistFolder3_GetCurFolder
1414  */
1415 static HRESULT WINAPI
1416 IFSFldr_PersistFolder3_fnGetCurFolder (IPersistFolder3 * iface,
1417                                        LPITEMIDLIST * pidl)
1418 {
1419     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1420
1421     TRACE ("(%p)->(%p)\n", This, pidl);
1422
1423     if (!pidl) return E_POINTER;
1424     *pidl = ILClone (This->pidlRoot);
1425     return S_OK;
1426 }
1427
1428 /**************************************************************************
1429  * IFSFldr_PersistFolder3_InitializeEx
1430  *
1431  * FIXME: error handling
1432  */
1433 static HRESULT WINAPI
1434 IFSFldr_PersistFolder3_InitializeEx (IPersistFolder3 * iface,
1435                                      IBindCtx * pbc, LPCITEMIDLIST pidlRoot,
1436                                      const PERSIST_FOLDER_TARGET_INFO * ppfti)
1437 {
1438     WCHAR wszTemp[MAX_PATH];
1439
1440     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1441
1442     TRACE ("(%p)->(%p,%p,%p)\n", This, pbc, pidlRoot, ppfti);
1443     if (ppfti)
1444         TRACE ("--%p %s %s 0x%08x 0x%08x\n",
1445          ppfti->pidlTargetFolder, debugstr_w (ppfti->szTargetParsingName),
1446          debugstr_w (ppfti->szNetworkProvider), ppfti->dwAttributes,
1447          ppfti->csidl);
1448
1449     pdump (pidlRoot);
1450     if (ppfti && ppfti->pidlTargetFolder)
1451         pdump (ppfti->pidlTargetFolder);
1452
1453     if (This->pidlRoot)
1454         __SHFreeAndNil (&This->pidlRoot);    /* free the old */
1455     if (This->sPathTarget)
1456         __SHFreeAndNil (&This->sPathTarget);
1457
1458     /*
1459      * Root path and pidl
1460      */
1461     This->pidlRoot = ILClone (pidlRoot);
1462
1463     /*
1464      *  the target folder is spezified in csidl OR pidlTargetFolder OR
1465      *  szTargetParsingName
1466      */
1467     if (ppfti) {
1468         if (ppfti->csidl != -1) {
1469             if (SHGetSpecialFolderPathW (0, wszTemp, ppfti->csidl,
1470              ppfti->csidl & CSIDL_FLAG_CREATE)) {
1471                 int len = strlenW(wszTemp);
1472                 This->sPathTarget = SHAlloc((len + 1) * sizeof(WCHAR));
1473                 if (!This->sPathTarget)
1474                     return E_OUTOFMEMORY;
1475                 memcpy(This->sPathTarget, wszTemp, (len + 1) * sizeof(WCHAR));
1476             }
1477         } else if (ppfti->szTargetParsingName[0]) {
1478             int len = strlenW(ppfti->szTargetParsingName);
1479             This->sPathTarget = SHAlloc((len + 1) * sizeof(WCHAR));
1480             if (!This->sPathTarget)
1481                 return E_OUTOFMEMORY;
1482             memcpy(This->sPathTarget, ppfti->szTargetParsingName,
1483                    (len + 1) * sizeof(WCHAR));
1484         } else if (ppfti->pidlTargetFolder) {
1485             if (SHGetPathFromIDListW(ppfti->pidlTargetFolder, wszTemp)) {
1486                 int len = strlenW(wszTemp);
1487                 This->sPathTarget = SHAlloc((len + 1) * sizeof(WCHAR));
1488                 if (!This->sPathTarget)
1489                     return E_OUTOFMEMORY;
1490                 memcpy(This->sPathTarget, wszTemp, (len + 1) * sizeof(WCHAR));
1491             }
1492         }
1493     }
1494
1495     TRACE ("--(%p)->(target=%s)\n", This, debugstr_w(This->sPathTarget));
1496     pdump (This->pidlRoot);
1497     return (This->sPathTarget) ? S_OK : E_FAIL;
1498 }
1499
1500 static HRESULT WINAPI
1501 IFSFldr_PersistFolder3_GetFolderTargetInfo (IPersistFolder3 * iface,
1502                                             PERSIST_FOLDER_TARGET_INFO * ppfti)
1503 {
1504     IGenericSFImpl *This = impl_from_IPersistFolder3(iface);
1505     FIXME ("(%p)->(%p)\n", This, ppfti);
1506     ZeroMemory (ppfti, sizeof (ppfti));
1507     return E_NOTIMPL;
1508 }
1509
1510 static const IPersistFolder3Vtbl vt_FSFldr_PersistFolder3 =
1511 {
1512     IFSFldr_PersistFolder3_QueryInterface,
1513     IFSFldr_PersistFolder3_AddRef,
1514     IFSFldr_PersistFolder3_Release,
1515     IFSFldr_PersistFolder3_GetClassID,
1516     IFSFldr_PersistFolder3_Initialize,
1517     IFSFldr_PersistFolder3_fnGetCurFolder,
1518     IFSFldr_PersistFolder3_InitializeEx,
1519     IFSFldr_PersistFolder3_GetFolderTargetInfo
1520 };
1521
1522 /****************************************************************************
1523  * ISFDropTarget implementation
1524  */
1525 static BOOL
1526 ISFDropTarget_QueryDrop (IDropTarget * iface, DWORD dwKeyState,
1527                          LPDWORD pdwEffect)
1528 {
1529     DWORD dwEffect = *pdwEffect;
1530
1531     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1532
1533     *pdwEffect = DROPEFFECT_NONE;
1534
1535     if (This->fAcceptFmt) { /* Does our interpretation of the keystate ... */
1536         *pdwEffect = KeyStateToDropEffect (dwKeyState);
1537
1538         /* ... matches the desired effect ? */
1539         if (dwEffect & *pdwEffect) {
1540             return TRUE;
1541         }
1542     }
1543     return FALSE;
1544 }
1545
1546 static HRESULT WINAPI
1547 ISFDropTarget_QueryInterface (IDropTarget * iface, REFIID riid, LPVOID * ppvObj)
1548 {
1549     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1550
1551     TRACE ("(%p)\n", This);
1552
1553     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
1554 }
1555
1556 static ULONG WINAPI ISFDropTarget_AddRef (IDropTarget * iface)
1557 {
1558     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1559
1560     TRACE ("(%p)\n", This);
1561
1562     return IUnknown_AddRef (This->pUnkOuter);
1563 }
1564
1565 static ULONG WINAPI ISFDropTarget_Release (IDropTarget * iface)
1566 {
1567     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1568
1569     TRACE ("(%p)\n", This);
1570
1571     return IUnknown_Release (This->pUnkOuter);
1572 }
1573
1574 static HRESULT WINAPI
1575 ISFDropTarget_DragEnter (IDropTarget * iface, IDataObject * pDataObject,
1576                          DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1577 {
1578     FORMATETC fmt;
1579
1580     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1581
1582     TRACE ("(%p)->(DataObject=%p)\n", This, pDataObject);
1583
1584     InitFormatEtc (fmt, This->cfShellIDList, TYMED_HGLOBAL);
1585
1586     This->fAcceptFmt = (S_OK == IDataObject_QueryGetData (pDataObject, &fmt)) ?
1587      TRUE : FALSE;
1588
1589     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1590
1591     return S_OK;
1592 }
1593
1594 static HRESULT WINAPI
1595 ISFDropTarget_DragOver (IDropTarget * iface, DWORD dwKeyState, POINTL pt,
1596                         DWORD * pdwEffect)
1597 {
1598     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1599
1600     TRACE ("(%p)\n", This);
1601
1602     if (!pdwEffect)
1603         return E_INVALIDARG;
1604
1605     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1606
1607     return S_OK;
1608 }
1609
1610 static HRESULT WINAPI ISFDropTarget_DragLeave (IDropTarget * iface)
1611 {
1612     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1613
1614     TRACE ("(%p)\n", This);
1615
1616     This->fAcceptFmt = FALSE;
1617
1618     return S_OK;
1619 }
1620
1621 static HRESULT WINAPI
1622 ISFDropTarget_Drop (IDropTarget * iface, IDataObject * pDataObject,
1623                     DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1624 {
1625     IGenericSFImpl *This = impl_from_IDropTarget(iface);
1626
1627     FIXME ("(%p) object dropped\n", This);
1628
1629     return E_NOTIMPL;
1630 }
1631
1632 static const IDropTargetVtbl dtvt = {
1633     ISFDropTarget_QueryInterface,
1634     ISFDropTarget_AddRef,
1635     ISFDropTarget_Release,
1636     ISFDropTarget_DragEnter,
1637     ISFDropTarget_DragOver,
1638     ISFDropTarget_DragLeave,
1639     ISFDropTarget_Drop
1640 };