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