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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  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 NONAMELESSUNION
  32 #define NONAMELESSSTRUCT
  33 #include "winerror.h"
  34 #include "windef.h"
  35 #include "winbase.h"
  36 #include "winreg.h"
  37 #include "wingdi.h"
  38 #include "winuser.h"
  39
  40 #include "ole2.h"
  41 #include "shlguid.h"
  42
  43 #include "enumidlist.h"
  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     ICOM_VFIELD (IUnknown);
  62     DWORD ref;
  63     ICOM_VTABLE (IShellFolder2) * lpvtblShellFolder;
  64     ICOM_VTABLE (IPersistFolder3) * lpvtblPersistFolder3;
  65     ICOM_VTABLE (IDropTarget) * lpvtblDropTarget;
  66     ICOM_VTABLE (ISFHelper) * lpvtblSFHelper;
  67
  68     IUnknown *pUnkOuter;        /* used for aggregation */
  69
  70     CLSID *pclsid;
  71
  72     /* both paths are parsible from the desktop */
  73     LPSTR sPathTarget;          /* complete path to target used for enumeration and ChangeNotify */
  74
  75     LPITEMIDLIST pidlRoot;      /* absolute pidl */
  76
  77     int dwAttributes;           /* attributes returned by GetAttributesOf FIXME: use it */
  78
  79     UINT cfShellIDList;         /* clipboardformat for IDropTarget */
  80     BOOL fAcceptFmt;            /* flag for pending Drop */
  81 } IGenericSFImpl;
  82
  83 static struct ICOM_VTABLE (IUnknown) unkvt;
  84 static struct ICOM_VTABLE (IShellFolder2) sfvt;
  85 static struct ICOM_VTABLE (IPersistFolder3) vt_FSFldr_PersistFolder3;   /* IPersistFolder3 for a FS_Folder */
  86 static struct ICOM_VTABLE (IDropTarget) dtvt;
  87 static struct ICOM_VTABLE (ISFHelper) shvt;
  88
  89 #define _IShellFolder2_Offset ((int)(&(((IGenericSFImpl*)0)->lpvtblShellFolder)))
  90 #define _ICOM_THIS_From_IShellFolder2(class, name) class* This = (class*)(((char*)name)-_IShellFolder2_Offset);
  91
  92 #define _IPersistFolder2_Offset ((int)(&(((IGenericSFImpl*)0)->lpvtblPersistFolder3)))
  93 #define _ICOM_THIS_From_IPersistFolder2(class, name) class* This = (class*)(((char*)name)-_IPersistFolder2_Offset);
  94
  95 #define _IPersistFolder3_Offset ((int)(&(((IGenericSFImpl*)0)->lpvtblPersistFolder3)))
  96 #define _ICOM_THIS_From_IPersistFolder3(class, name) class* This = (class*)(((char*)name)-_IPersistFolder3_Offset);
  97
  98 #define _IDropTarget_Offset ((int)(&(((IGenericSFImpl*)0)->lpvtblDropTarget)))
  99 #define _ICOM_THIS_From_IDropTarget(class, name) class* This = (class*)(((char*)name)-_IDropTarget_Offset);
 100
 101 #define _ISFHelper_Offset ((int)(&(((IGenericSFImpl*)0)->lpvtblSFHelper)))
 102 #define _ICOM_THIS_From_ISFHelper(class, name) class* This = (class*)(((char*)name)-_ISFHelper_Offset);
 103
 104 /*
 105   converts This to a interface pointer
 106 */
 107 #define _IUnknown_(This)        (IUnknown*)&(This->lpVtbl)
 108 #define _IShellFolder_(This)    (IShellFolder*)&(This->lpvtblShellFolder)
 109 #define _IShellFolder2_(This)   (IShellFolder2*)&(This->lpvtblShellFolder)
 110 #define _IPersist_(This)        (IPersist*)&(This->lpvtblPersistFolder3)
 111 #define _IPersistFolder_(This)  (IPersistFolder*)&(This->lpvtblPersistFolder3)
 112 #define _IPersistFolder2_(This) (IPersistFolder2*)&(This->lpvtblPersistFolder3)
 113 #define _IPersistFolder3_(This) (IPersistFolder3*)&(This->lpvtblPersistFolder3)
 114 #define _IDropTarget_(This)     (IDropTarget*)&(This->lpvtblDropTarget)
 115 #define _ISFHelper_(This)       (ISFHelper*)&(This->lpvtblSFHelper)
 116
 117 /**************************************************************************
 118 *       registers clipboardformat once
 119 */
 120 static void SF_RegisterClipFmt (IGenericSFImpl * This)
 121 {
 122     TRACE ("(%p)\n", This);
 123
 124     if (!This->cfShellIDList) {
 125         This->cfShellIDList = RegisterClipboardFormatA (CFSTR_SHELLIDLIST);
 126     }
 127 }
 128
 129 /**************************************************************************
 130 *       we need a separate IUnknown to handle aggregation
 131 *       (inner IUnknown)
 132 */
 133 static HRESULT WINAPI IUnknown_fnQueryInterface (IUnknown * iface, REFIID riid, LPVOID * ppvObj)
 134 {
 135     ICOM_THIS (IGenericSFImpl, iface);
 136
 137     TRACE ("(%p)->(%s,%p)\n", This, shdebugstr_guid (riid), ppvObj);
 138
 139     *ppvObj = NULL;
 140
 141     if (IsEqualIID (riid, &IID_IUnknown))
 142         *ppvObj = _IUnknown_ (This);
 143     else if (IsEqualIID (riid, &IID_IShellFolder))
 144         *ppvObj = _IShellFolder_ (This);
 145     else if (IsEqualIID (riid, &IID_IShellFolder2))
 146         *ppvObj = _IShellFolder_ (This);
 147     else if (IsEqualIID (riid, &IID_IPersist))
 148         *ppvObj = _IPersist_ (This);
 149     else if (IsEqualIID (riid, &IID_IPersistFolder))
 150         *ppvObj = _IPersistFolder_ (This);
 151     else if (IsEqualIID (riid, &IID_IPersistFolder2))
 152         *ppvObj = _IPersistFolder2_ (This);
 153     else if (IsEqualIID (riid, &IID_IPersistFolder3))
 154         *ppvObj = _IPersistFolder3_ (This);
 155     else if (IsEqualIID (riid, &IID_ISFHelper))
 156         *ppvObj = _ISFHelper_ (This);
 157     else if (IsEqualIID (riid, &IID_IDropTarget)) {
 158         *ppvObj = _IDropTarget_ (This);
 159         SF_RegisterClipFmt (This);
 160     }
 161
 162     if (*ppvObj) {
 163         IUnknown_AddRef ((IUnknown *) (*ppvObj));
 164         TRACE ("-- Interface = %p\n", *ppvObj);
 165         return S_OK;
 166     }
 167     TRACE ("-- Interface: E_NOINTERFACE\n");
 168     return E_NOINTERFACE;
 169 }
 170
 171 static ULONG WINAPI IUnknown_fnAddRef (IUnknown * iface)
 172 {
 173     ICOM_THIS (IGenericSFImpl, iface);
 174
 175     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 176
 177     return ++(This->ref);
 178 }
 179
 180 static ULONG WINAPI IUnknown_fnRelease (IUnknown * iface)
 181 {
 182     ICOM_THIS (IGenericSFImpl, iface);
 183
 184     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 185
 186     if (!--(This->ref)) {
 187         TRACE ("-- destroying IShellFolder(%p)\n", This);
 188
 189         if (This->pidlRoot)
 190             SHFree (This->pidlRoot);
 191         if (This->sPathTarget)
 192             SHFree (This->sPathTarget);
 193         LocalFree ((HLOCAL) This);
 194         return 0;
 195     }
 196     return This->ref;
 197 }
 198
 199 static ICOM_VTABLE (IUnknown) unkvt =
 200 {
 201     ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE IUnknown_fnQueryInterface,
 202       IUnknown_fnAddRef,
 203       IUnknown_fnRelease,
 204 };
 205
 206 static shvheader GenericSFHeader[] = {
 207     {IDS_SHV_COLUMN1, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15},
 208     {IDS_SHV_COLUMN2, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 10},
 209     {IDS_SHV_COLUMN3, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 10},
 210     {IDS_SHV_COLUMN4, SHCOLSTATE_TYPE_DATE | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 12},
 211     {IDS_SHV_COLUMN5, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 5}
 212 };
 213
 214 #define GENERICSHELLVIEWCOLUMNS 5
 215
 216 /**************************************************************************
 217 *       IFSFolder_Constructor
 218 *
 219 * NOTES
 220 *  creating undocumented ShellFS_Folder as part of an aggregation
 221 *  {F3364BA0-65B9-11CE-A9BA-00AA004AE837}
 222 *
 223 */
 224 HRESULT WINAPI IFSFolder_Constructor (IUnknown * pUnkOuter, REFIID riid, LPVOID * ppv)
 225 {
 226     IGenericSFImpl *sf;
 227
 228     TRACE ("unkOut=%p %s\n", pUnkOuter, shdebugstr_guid (riid));
 229
 230     if (pUnkOuter && !IsEqualIID (riid, &IID_IUnknown))
 231         return CLASS_E_NOAGGREGATION;
 232     sf = (IGenericSFImpl *) LocalAlloc (GMEM_ZEROINIT, sizeof (IGenericSFImpl));
 233     if (!sf)
 234         return E_OUTOFMEMORY;
 235
 236     sf->ref = 0;
 237     sf->lpVtbl = &unkvt;
 238     sf->lpvtblShellFolder = &sfvt;
 239     sf->lpvtblPersistFolder3 = &vt_FSFldr_PersistFolder3;
 240     sf->lpvtblDropTarget = &dtvt;
 241     sf->lpvtblSFHelper = &shvt;
 242     sf->pclsid = (CLSID *) & CLSID_ShellFSFolder;
 243     sf->pUnkOuter = pUnkOuter ? pUnkOuter : _IUnknown_ (sf);
 244
 245     if (!SUCCEEDED (IUnknown_QueryInterface (_IUnknown_ (sf), riid, ppv))) {
 246         IUnknown_Release (_IUnknown_ (sf));
 247         return E_NOINTERFACE;
 248     }
 249
 250     TRACE ("--%p\n", *ppv);
 251     return S_OK;
 252 }
 253
 254 /**************************************************************************
 255  *  IShellFolder_fnQueryInterface
 256  *
 257  * PARAMETERS
 258  *  REFIID riid         [in ] Requested InterfaceID
 259  *  LPVOID* ppvObject   [out] Interface* to hold the result
 260  */
 261 static HRESULT WINAPI IShellFolder_fnQueryInterface (IShellFolder2 * iface, REFIID riid, LPVOID * ppvObj)
 262 {
 263     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 264
 265         TRACE ("(%p)->(%s,%p)\n", This, shdebugstr_guid (riid), ppvObj);
 266
 267     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
 268 }
 269
 270 /**************************************************************************
 271 *  IShellFolder_AddRef
 272 */
 273
 274 static ULONG WINAPI IShellFolder_fnAddRef (IShellFolder2 * iface)
 275 {
 276     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 277
 278     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 279
 280     return IUnknown_AddRef (This->pUnkOuter);
 281 }
 282
 283 /**************************************************************************
 284  *  IShellFolder_fnRelease
 285  */
 286 static ULONG WINAPI IShellFolder_fnRelease (IShellFolder2 * iface)
 287 {
 288     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 289
 290     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 291
 292     return IUnknown_Release (This->pUnkOuter);
 293 }
 294
 295 /**************************************************************************
 296 * IShellFolder_ParseDisplayName {SHELL32}
 297 *
 298 * Parse a display name.
 299 *
 300 * PARAMS
 301 *  hwndOwner       [in]  Parent window for any message's
 302 *  pbc             [in]  optional FileSystemBindData context
 303 *  lpszDisplayName [in]  Unicode displayname.
 304 *  pchEaten        [out] (unicode) characters processed
 305 *  ppidl           [out] complex pidl to item
 306 *  pdwAttributes   [out] items attributes
 307 *
 308 * NOTES
 309 *  Every folder tries to parse only its own (the leftmost) pidl and creates a
 310 *  subfolder to evaluate the remaining parts.
 311 *  Now we can parse into namespaces implemented by shell extensions
 312 *
 313 *  Behaviour on win98:  lpszDisplayName=NULL -> crash
 314 *                       lpszDisplayName="" -> returns mycoputer-pidl
 315 *
 316 * FIXME
 317 *    pdwAttributes is not set
 318 *    pchEaten is not set like in windows
 319 */
 320 static HRESULT WINAPI
 321 IShellFolder_fnParseDisplayName (IShellFolder2 * iface,
 322                                  HWND hwndOwner,
 323                                  LPBC pbc,
 324                                  LPOLESTR lpszDisplayName,
 325                                  DWORD * pchEaten, LPITEMIDLIST * ppidl, DWORD * pdwAttributes)
 326 {
 327     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 328
 329     HRESULT hr = E_INVALIDARG;
 330     LPCWSTR szNext = NULL;
 331     WCHAR szElement[MAX_PATH];
 332     CHAR szPath[MAX_PATH];
 333     LPITEMIDLIST pidlTemp = NULL;
 334     DWORD len;
 335
 336     TRACE ("(%p)->(HWND=%p,%p,%p=%s,%p,pidl=%p,%p)\n",
 337            This, hwndOwner, pbc, lpszDisplayName, debugstr_w (lpszDisplayName), pchEaten, ppidl, pdwAttributes);
 338
 339     if (!lpszDisplayName || !ppidl)
 340         return E_INVALIDARG;
 341
 342     if (pchEaten)
 343         *pchEaten = 0;          /* strange but like the original */
 344
 345     if (*lpszDisplayName) {
 346         /* get the next element */
 347         szNext = GetNextElementW (lpszDisplayName, szElement, MAX_PATH);
 348
 349         /* build the full pathname to the element */
 350         lstrcpyA(szPath, This->sPathTarget);
 351         PathAddBackslashA(szPath);
 352         len = lstrlenA(szPath);
 353         WideCharToMultiByte(CP_ACP, 0, szElement, -1, szPath + len, MAX_PATH - len, NULL, NULL);
 354
 355         /* get the pidl */
 356         pidlTemp = _ILCreateFromPathA(szPath);
 357         if (pidlTemp) {
 358             if (szNext && *szNext) {
 359                 /* try to analyse the next element */
 360                 hr = SHELL32_ParseNextElement (iface, hwndOwner, pbc, &pidlTemp, (LPOLESTR) szNext, pchEaten, pdwAttributes);
 361             } else {
 362                 /* it's the last element */
 363                 if (pdwAttributes && *pdwAttributes) {
 364                     SHELL32_GetItemAttributes (_IShellFolder_ (This), pidlTemp, pdwAttributes);
 365                 }
 366                 hr = S_OK;
 367             }
 368         }
 369     }
 370
 371     if (!hr)
 372         *ppidl = pidlTemp;
 373     else
 374         *ppidl = NULL;
 375
 376     TRACE ("(%p)->(-- pidl=%p ret=0x%08lx)\n", This, ppidl ? *ppidl : 0, hr);
 377
 378     return hr;
 379 }
 380
 381 /**************************************************************************
 382 *               IShellFolder_fnEnumObjects
 383 * PARAMETERS
 384 *  HWND          hwndOwner,    //[in ] Parent Window
 385 *  DWORD         grfFlags,     //[in ] SHCONTF enumeration mask
 386 *  LPENUMIDLIST* ppenumIDList  //[out] IEnumIDList interface
 387 */
 388 static HRESULT WINAPI
 389 IShellFolder_fnEnumObjects (IShellFolder2 * iface, HWND hwndOwner, DWORD dwFlags, LPENUMIDLIST * ppEnumIDList)
 390 {
 391     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 392
 393     TRACE ("(%p)->(HWND=%p flags=0x%08lx pplist=%p)\n", This, hwndOwner, dwFlags, ppEnumIDList);
 394
 395     *ppEnumIDList = IEnumIDList_Constructor();
 396     if (*ppEnumIDList)
 397         CreateFolderEnumList(*ppEnumIDList, This->sPathTarget, dwFlags);
 398
 399     TRACE ("-- (%p)->(new ID List: %p)\n", This, *ppEnumIDList);
 400
 401     return *ppEnumIDList ? S_OK : E_OUTOFMEMORY;
 402 }
 403
 404 /**************************************************************************
 405 *               IShellFolder_fnBindToObject
 406 * PARAMETERS
 407 *  LPCITEMIDLIST pidl,       //[in ] relative pidl to open
 408 *  LPBC          pbc,        //[in ] optional FileSystemBindData context
 409 *  REFIID        riid,       //[in ] Initial Interface
 410 *  LPVOID*       ppvObject   //[out] Interface*
 411 */
 412 static HRESULT WINAPI
 413 IShellFolder_fnBindToObject (IShellFolder2 * iface, LPCITEMIDLIST pidl, LPBC pbc, REFIID riid, LPVOID * ppvOut)
 414 {
 415     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 416
 417     TRACE ("(%p)->(pidl=%p,%p,%s,%p)\n", This, pidl, pbc, shdebugstr_guid (riid), ppvOut);
 418
 419     return SHELL32_BindToChild (This->pidlRoot, This->sPathTarget, pidl, riid, ppvOut);
 420 }
 421
 422 /**************************************************************************
 423 *  IShellFolder_fnBindToStorage
 424 * PARAMETERS
 425 *  LPCITEMIDLIST pidl,       //[in ] complex pidl to store
 426 *  LPBC          pbc,        //[in ] reserved
 427 *  REFIID        riid,       //[in ] Initial storage interface
 428 *  LPVOID*       ppvObject   //[out] Interface* returned
 429 */
 430 static HRESULT WINAPI
 431 IShellFolder_fnBindToStorage (IShellFolder2 * iface, LPCITEMIDLIST pidl, LPBC pbcReserved, REFIID riid, LPVOID * ppvOut)
 432 {
 433     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 434
 435     FIXME ("(%p)->(pidl=%p,%p,%s,%p) stub\n", This, pidl, pbcReserved, shdebugstr_guid (riid), ppvOut);
 436
 437     *ppvOut = NULL;
 438     return E_NOTIMPL;
 439 }
 440
 441 /**************************************************************************
 442 *  IShellFolder_fnCompareIDs
 443 */
 444
 445 static HRESULT WINAPI
 446 IShellFolder_fnCompareIDs (IShellFolder2 * iface, LPARAM lParam, LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2)
 447 {
 448     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 449
 450     int nReturn;
 451
 452     TRACE ("(%p)->(0x%08lx,pidl1=%p,pidl2=%p)\n", This, lParam, pidl1, pidl2);
 453     nReturn = SHELL32_CompareIDs (_IShellFolder_ (This), lParam, pidl1, pidl2);
 454     TRACE ("-- %i\n", nReturn);
 455     return nReturn;
 456 }
 457
 458 /**************************************************************************
 459 *       IShellFolder_fnCreateViewObject
 460 */
 461 static HRESULT WINAPI
 462 IShellFolder_fnCreateViewObject (IShellFolder2 * iface, HWND hwndOwner, REFIID riid, LPVOID * ppvOut)
 463 {
 464     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 465
 466     LPSHELLVIEW pShellView;
 467     HRESULT hr = E_INVALIDARG;
 468
 469     TRACE ("(%p)->(hwnd=%p,%s,%p)\n", This, hwndOwner, shdebugstr_guid (riid), ppvOut);
 470
 471     if (ppvOut) {
 472         *ppvOut = NULL;
 473
 474         if (IsEqualIID (riid, &IID_IDropTarget)) {
 475             hr = IShellFolder_QueryInterface (iface, &IID_IDropTarget, ppvOut);
 476         } else if (IsEqualIID (riid, &IID_IContextMenu)) {
 477             FIXME ("IContextMenu not implemented\n");
 478             hr = E_NOTIMPL;
 479         } else if (IsEqualIID (riid, &IID_IShellView)) {
 480             pShellView = IShellView_Constructor ((IShellFolder *) iface);
 481             if (pShellView) {
 482                 hr = IShellView_QueryInterface (pShellView, riid, ppvOut);
 483                 IShellView_Release (pShellView);
 484             }
 485         }
 486     }
 487     TRACE ("-- (%p)->(interface=%p)\n", This, ppvOut);
 488     return hr;
 489 }
 490
 491 /**************************************************************************
 492 *  IShellFolder_fnGetAttributesOf
 493 *
 494 * PARAMETERS
 495 *  UINT            cidl,     //[in ] num elements in pidl array
 496 *  LPCITEMIDLIST*  apidl,    //[in ] simple pidl array
 497 *  ULONG*          rgfInOut) //[out] result array
 498 *
 499 */
 500 static HRESULT WINAPI
 501 IShellFolder_fnGetAttributesOf (IShellFolder2 * iface, UINT cidl, LPCITEMIDLIST * apidl, DWORD * rgfInOut)
 502 {
 503     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 504
 505     HRESULT hr = S_OK;
 506
 507     TRACE ("(%p)->(cidl=%d apidl=%p mask=0x%08lx)\n", This, cidl, apidl, *rgfInOut);
 508
 509     if ((!cidl) || (!apidl) || (!rgfInOut))
 510         return E_INVALIDARG;
 511
 512     if (*rgfInOut == 0)
 513         *rgfInOut = ~0;
 514
 515     while (cidl > 0 && *apidl) {
 516         pdump (*apidl);
 517         SHELL32_GetItemAttributes (_IShellFolder_ (This), *apidl, rgfInOut);
 518         apidl++;
 519         cidl--;
 520     }
 521
 522     TRACE ("-- result=0x%08lx\n", *rgfInOut);
 523
 524     return hr;
 525 }
 526
 527 /**************************************************************************
 528 *  IShellFolder_fnGetUIObjectOf
 529 *
 530 * PARAMETERS
 531 *  HWND           hwndOwner, //[in ] Parent window for any output
 532 *  UINT           cidl,      //[in ] array size
 533 *  LPCITEMIDLIST* apidl,     //[in ] simple pidl array
 534 *  REFIID         riid,      //[in ] Requested Interface
 535 *  UINT*          prgfInOut, //[   ] reserved
 536 *  LPVOID*        ppvObject) //[out] Resulting Interface
 537 *
 538 * NOTES
 539 *  This function gets asked to return "view objects" for one or more (multiple select)
 540 *  items:
 541 *  The viewobject typically is an COM object with one of the following interfaces:
 542 *  IExtractIcon,IDataObject,IContextMenu
 543 *  In order to support icon positions in the default Listview your DataObject
 544 *  must implement the SetData method (in addition to GetData :) - the shell passes
 545 *  a barely documented "Icon positions" structure to SetData when the drag starts,
 546 *  and GetData's it if the drop is in another explorer window that needs the positions.
 547 */
 548 static HRESULT WINAPI
 549 IShellFolder_fnGetUIObjectOf (IShellFolder2 * iface,
 550                               HWND hwndOwner,
 551                               UINT cidl, LPCITEMIDLIST * apidl, REFIID riid, UINT * prgfInOut, LPVOID * ppvOut)
 552 {
 553     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 554
 555     LPITEMIDLIST pidl;
 556     IUnknown *pObj = NULL;
 557     HRESULT hr = E_INVALIDARG;
 558
 559     TRACE ("(%p)->(%p,%u,apidl=%p,%s,%p,%p)\n",
 560            This, hwndOwner, cidl, apidl, shdebugstr_guid (riid), prgfInOut, ppvOut);
 561
 562     if (ppvOut) {
 563         *ppvOut = NULL;
 564
 565         if (IsEqualIID (riid, &IID_IContextMenu) && (cidl >= 1)) {
 566             pObj = (LPUNKNOWN) ISvItemCm_Constructor ((IShellFolder *) iface, This->pidlRoot, apidl, cidl);
 567             hr = S_OK;
 568         } else if (IsEqualIID (riid, &IID_IDataObject) && (cidl >= 1)) {
 569             pObj = (LPUNKNOWN) IDataObject_Constructor (hwndOwner, This->pidlRoot, apidl, cidl);
 570             hr = S_OK;
 571         } else if (IsEqualIID (riid, &IID_IExtractIconA) && (cidl == 1)) {
 572             pidl = ILCombine (This->pidlRoot, apidl[0]);
 573             pObj = (LPUNKNOWN) IExtractIconA_Constructor (pidl);
 574             SHFree (pidl);
 575             hr = S_OK;
 576         } else if (IsEqualIID (riid, &IID_IExtractIconW) && (cidl == 1)) {
 577             pidl = ILCombine (This->pidlRoot, apidl[0]);
 578             pObj = (LPUNKNOWN) IExtractIconW_Constructor (pidl);
 579             SHFree (pidl);
 580             hr = S_OK;
 581         } else if (IsEqualIID (riid, &IID_IDropTarget) && (cidl >= 1)) {
 582             hr = IShellFolder_QueryInterface (iface, &IID_IDropTarget, (LPVOID *) & pObj);
 583         } else if ((IsEqualIID(riid,&IID_IShellLinkW) || IsEqualIID(riid,&IID_IShellLinkA))
 584                                 && (cidl == 1)) {
 585             pidl = ILCombine (This->pidlRoot, apidl[0]);
 586             hr = IShellLink_ConstructFromFile(NULL, riid, pidl, (LPVOID*)&pObj);
 587             SHFree (pidl);
 588         } else {
 589             hr = E_NOINTERFACE;
 590         }
 591
 592         if (SUCCEEDED(hr) && !pObj)
 593             hr = E_OUTOFMEMORY;
 594
 595         *ppvOut = pObj;
 596     }
 597     TRACE ("(%p)->hr=0x%08lx\n", This, hr);
 598     return hr;
 599 }
 600
 601 void SHELL_FS_ProcessDisplayFilename(LPSTR szPath, DWORD dwFlags)
 602 {
 603     /*FIXME: MSDN also mentions SHGDN_FOREDITING which is not yet handled. */
 604     if (!(dwFlags & SHGDN_FORPARSING) &&
 605         ((dwFlags & SHGDN_INFOLDER) || (dwFlags == SHGDN_NORMAL))) {
 606         HKEY hKey;
 607         DWORD dwData;
 608         DWORD dwDataSize = sizeof (DWORD);
 609         BOOL doHide = FALSE;    /* The default value is FALSE (win98 at least) */
 610
 611         if (!RegCreateKeyExA (HKEY_CURRENT_USER,
 612                               "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced",
 613                               0, 0, 0, KEY_ALL_ACCESS, 0, &hKey, 0)) {
 614             if (!RegQueryValueExA (hKey, "HideFileExt", 0, 0, (LPBYTE) & dwData, &dwDataSize))
 615                 doHide = dwData;
 616
 617             RegCloseKey (hKey);
 618         }
 619
 620         if (!doHide) {
 621             LPSTR ext = PathFindExtensionA(szPath);
 622
 623             if (ext) {
 624                 HKEY hkey;
 625                 char classname[MAX_PATH];
 626                 LONG classlen = MAX_PATH;
 627
 628                 if (!RegQueryValueA(HKEY_CLASSES_ROOT, ext, classname, &classlen))
 629                     if (!RegOpenKeyA(HKEY_CLASSES_ROOT, classname, &hkey)) {
 630                         if (!RegQueryValueExA(hkey, "NeverShowExt", 0, NULL, NULL, NULL))
 631                             doHide = TRUE;
 632
 633                         RegCloseKey(hkey);
 634                     }
 635             }
 636         }
 637
 638         if (doHide && szPath[0] != '.')
 639             PathRemoveExtensionA (szPath);
 640     }
 641 }
 642
 643 /**************************************************************************
 644 *  IShellFolder_fnGetDisplayNameOf
 645 *  Retrieves the display name for the specified file object or subfolder
 646 *
 647 * PARAMETERS
 648 *  LPCITEMIDLIST pidl,    //[in ] complex pidl to item
 649 *  DWORD         dwFlags, //[in ] SHGNO formatting flags
 650 *  LPSTRRET      lpName)  //[out] Returned display name
 651 *
 652 * FIXME
 653 *  if the name is in the pidl the ret value should be a STRRET_OFFSET
 654 */
 655
 656 static HRESULT WINAPI
 657 IShellFolder_fnGetDisplayNameOf (IShellFolder2 * iface, LPCITEMIDLIST pidl, DWORD dwFlags, LPSTRRET strRet)
 658 {
 659     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 660
 661     CHAR szPath[MAX_PATH];
 662     int len = 0;
 663     BOOL bSimplePidl;
 664
 665     *szPath = '\0';
 666
 667     TRACE ("(%p)->(pidl=%p,0x%08lx,%p)\n", This, pidl, dwFlags, strRet);
 668     pdump (pidl);
 669
 670     if (!pidl || !strRet)
 671         return E_INVALIDARG;
 672
 673     bSimplePidl = _ILIsPidlSimple (pidl);
 674
 675     /* take names of special folders only if its only this folder */
 676     if (_ILIsSpecialFolder (pidl)) {
 677         if (bSimplePidl) {
 678             _ILSimpleGetText (pidl, szPath, MAX_PATH);  /* append my own path */
 679         } else {
 680             FIXME ("special pidl\n");
 681         }
 682     } else {
 683         if (!(dwFlags & SHGDN_INFOLDER) && (dwFlags & SHGDN_FORPARSING) && This->sPathTarget) {
 684             lstrcpyA (szPath, This->sPathTarget);       /* get path to root */
 685             PathAddBackslashA (szPath);
 686             len = lstrlenA (szPath);
 687         }
 688         _ILSimpleGetText (pidl, szPath + len, MAX_PATH - len);  /* append my own path */
 689
 690         if (!_ILIsFolder(pidl))
 691             SHELL_FS_ProcessDisplayFilename(szPath, dwFlags);
 692     }
 693
 694     if ((dwFlags & SHGDN_FORPARSING) && !bSimplePidl) { /* go deeper if needed */
 695         PathAddBackslashA (szPath);
 696         len = lstrlenA (szPath);
 697
 698         if (!SUCCEEDED
 699             (SHELL32_GetDisplayNameOfChild (iface, pidl, dwFlags | SHGDN_INFOLDER, szPath + len, MAX_PATH - len)))
 700             return E_OUTOFMEMORY;
 701     }
 702     strRet->uType = STRRET_CSTR;
 703     lstrcpynA (strRet->u.cStr, szPath, MAX_PATH);
 704
 705     TRACE ("-- (%p)->(%s)\n", This, szPath);
 706     return S_OK;
 707 }
 708
 709 /**************************************************************************
 710 *  IShellFolder_fnSetNameOf
 711 *  Changes the name of a file object or subfolder, possibly changing its item
 712 *  identifier in the process.
 713 *
 714 * PARAMETERS
 715 *  HWND          hwndOwner,  //[in ] Owner window for output
 716 *  LPCITEMIDLIST pidl,       //[in ] simple pidl of item to change
 717 *  LPCOLESTR     lpszName,   //[in ] the items new display name
 718 *  DWORD         dwFlags,    //[in ] SHGNO formatting flags
 719 *  LPITEMIDLIST* ppidlOut)   //[out] simple pidl returned
 720 */
 721 static HRESULT WINAPI IShellFolder_fnSetNameOf (IShellFolder2 * iface, HWND hwndOwner, LPCITEMIDLIST pidl,      /*simple pidl */
 722                                                 LPCOLESTR lpName, DWORD dwFlags, LPITEMIDLIST * pPidlOut)
 723 {
 724     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 725     char szSrc[MAX_PATH],
 726       szDest[MAX_PATH];
 727     int len;
 728     BOOL bIsFolder = _ILIsFolder (ILFindLastID (pidl));
 729
 730     TRACE ("(%p)->(%p,pidl=%p,%s,%lu,%p)\n", This, hwndOwner, pidl, debugstr_w (lpName), dwFlags, pPidlOut);
 731
 732     /* build source path */
 733     if (dwFlags & SHGDN_INFOLDER) {
 734         strcpy (szSrc, This->sPathTarget);
 735         PathAddBackslashA (szSrc);
 736         len = strlen (szSrc);
 737         _ILSimpleGetText (pidl, szSrc + len, MAX_PATH - len);
 738     } else {
 739         /* FIXME: Can this work with a simple PIDL? */
 740         SHGetPathFromIDListA (pidl, szSrc);
 741     }
 742
 743     /* build destination path */
 744     strcpy (szDest, This->sPathTarget);
 745     PathAddBackslashA (szDest);
 746     len = strlen (szDest);
 747     WideCharToMultiByte (CP_ACP, 0, lpName, -1, szDest + len, MAX_PATH - len, NULL, NULL);
 748     szDest[MAX_PATH - 1] = 0;
 749     TRACE ("src=%s dest=%s\n", szSrc, szDest);
 750     if (MoveFileA (szSrc, szDest)) {
 751         if (pPidlOut)
 752             *pPidlOut = _ILCreateFromPathA(szDest);
 753         SHChangeNotify (bIsFolder ? SHCNE_RENAMEFOLDER : SHCNE_RENAMEITEM, SHCNF_PATHA, szSrc, szDest);
 754         return S_OK;
 755     }
 756     return E_FAIL;
 757 }
 758
 759 static HRESULT WINAPI IShellFolder_fnGetDefaultSearchGUID (IShellFolder2 * iface, GUID * pguid)
 760 {
 761     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 762         FIXME ("(%p)\n", This);
 763     return E_NOTIMPL;
 764 }
 765 static HRESULT WINAPI IShellFolder_fnEnumSearches (IShellFolder2 * iface, IEnumExtraSearch ** ppenum)
 766 {
 767     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 768         FIXME ("(%p)\n", This);
 769     return E_NOTIMPL;
 770 }
 771 static HRESULT WINAPI
 772 IShellFolder_fnGetDefaultColumn (IShellFolder2 * iface, DWORD dwRes, ULONG * pSort, ULONG * pDisplay)
 773 {
 774     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 775
 776         TRACE ("(%p)\n", This);
 777
 778     if (pSort)
 779         *pSort = 0;
 780     if (pDisplay)
 781         *pDisplay = 0;
 782
 783     return S_OK;
 784 }
 785 static HRESULT WINAPI IShellFolder_fnGetDefaultColumnState (IShellFolder2 * iface, UINT iColumn, DWORD * pcsFlags)
 786 {
 787     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 788
 789         TRACE ("(%p)\n", This);
 790
 791     if (!pcsFlags || iColumn >= GENERICSHELLVIEWCOLUMNS)
 792         return E_INVALIDARG;
 793
 794     *pcsFlags = GenericSFHeader[iColumn].pcsFlags;
 795
 796     return S_OK;
 797 }
 798 static HRESULT WINAPI
 799 IShellFolder_fnGetDetailsEx (IShellFolder2 * iface, LPCITEMIDLIST pidl, const SHCOLUMNID * pscid, VARIANT * pv)
 800 {
 801     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 802         FIXME ("(%p)\n", This);
 803
 804     return E_NOTIMPL;
 805 }
 806 static HRESULT WINAPI
 807 IShellFolder_fnGetDetailsOf (IShellFolder2 * iface, LPCITEMIDLIST pidl, UINT iColumn, SHELLDETAILS * psd)
 808 {
 809     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 810     HRESULT hr = E_FAIL;
 811
 812     TRACE ("(%p)->(%p %i %p)\n", This, pidl, iColumn, psd);
 813
 814     if (!psd || iColumn >= GENERICSHELLVIEWCOLUMNS)
 815         return E_INVALIDARG;
 816
 817     if (!pidl) {
 818         /* the header titles */
 819         psd->fmt = GenericSFHeader[iColumn].fmt;
 820         psd->cxChar = GenericSFHeader[iColumn].cxChar;
 821         psd->str.uType = STRRET_CSTR;
 822         LoadStringA (shell32_hInstance, GenericSFHeader[iColumn].colnameid, psd->str.u.cStr, MAX_PATH);
 823         return S_OK;
 824     } else {
 825         /* the data from the pidl */
 826         switch (iColumn) {
 827         case 0:         /* name */
 828             hr = IShellFolder_GetDisplayNameOf (iface, pidl, SHGDN_NORMAL | SHGDN_INFOLDER, &psd->str);
 829             break;
 830         case 1:         /* size */
 831             _ILGetFileSize (pidl, psd->str.u.cStr, MAX_PATH);
 832             break;
 833         case 2:         /* type */
 834             _ILGetFileType (pidl, psd->str.u.cStr, MAX_PATH);
 835             break;
 836         case 3:         /* date */
 837             _ILGetFileDate (pidl, psd->str.u.cStr, MAX_PATH);
 838             break;
 839         case 4:         /* attributes */
 840             _ILGetFileAttributes (pidl, psd->str.u.cStr, MAX_PATH);
 841             break;
 842         }
 843         hr = S_OK;
 844         psd->str.uType = STRRET_CSTR;
 845     }
 846
 847     return hr;
 848 }
 849 static HRESULT WINAPI IShellFolder_fnMapColumnToSCID (IShellFolder2 * iface, UINT column, SHCOLUMNID * pscid)
 850 {
 851     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 852     FIXME ("(%p)\n", This);
 853     return E_NOTIMPL;
 854 }
 855
 856 static ICOM_VTABLE (IShellFolder2) sfvt =
 857 {
 858         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 859         IShellFolder_fnQueryInterface,
 860         IShellFolder_fnAddRef,
 861         IShellFolder_fnRelease,
 862         IShellFolder_fnParseDisplayName,
 863         IShellFolder_fnEnumObjects,
 864         IShellFolder_fnBindToObject,
 865         IShellFolder_fnBindToStorage,
 866         IShellFolder_fnCompareIDs,
 867         IShellFolder_fnCreateViewObject,
 868         IShellFolder_fnGetAttributesOf,
 869         IShellFolder_fnGetUIObjectOf,
 870         IShellFolder_fnGetDisplayNameOf,
 871         IShellFolder_fnSetNameOf,
 872         /* ShellFolder2 */
 873         IShellFolder_fnGetDefaultSearchGUID,
 874         IShellFolder_fnEnumSearches,
 875         IShellFolder_fnGetDefaultColumn,
 876         IShellFolder_fnGetDefaultColumnState,
 877         IShellFolder_fnGetDetailsEx,
 878         IShellFolder_fnGetDetailsOf,
 879         IShellFolder_fnMapColumnToSCID
 880 };
 881
 882 /****************************************************************************
 883  * ISFHelper for IShellFolder implementation
 884  */
 885
 886 static HRESULT WINAPI ISFHelper_fnQueryInterface (ISFHelper * iface, REFIID riid, LPVOID * ppvObj)
 887 {
 888     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 889
 890     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 891
 892     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
 893 }
 894
 895 static ULONG WINAPI ISFHelper_fnAddRef (ISFHelper * iface)
 896 {
 897     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 898
 899     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 900
 901     return IUnknown_AddRef (This->pUnkOuter);
 902 }
 903
 904 static ULONG WINAPI ISFHelper_fnRelease (ISFHelper * iface)
 905 {
 906     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 907
 908     TRACE ("(%p)\n", This);
 909
 910     return IUnknown_Release (This->pUnkOuter);
 911 }
 912
 913 /****************************************************************************
 914  * ISFHelper_fnAddFolder
 915  *
 916  * creates a unique folder name
 917  */
 918
 919 static HRESULT WINAPI ISFHelper_fnGetUniqueName (ISFHelper * iface, LPSTR lpName, UINT uLen)
 920 {
 921     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 922     IEnumIDList *penum;
 923     HRESULT hr;
 924     char szText[MAX_PATH];
 925     char *szNewFolder = "New Folder";
 926
 927     TRACE ("(%p)(%s %u)\n", This, lpName, uLen);
 928
 929     if (uLen < strlen (szNewFolder) + 4)
 930         return E_POINTER;
 931
 932     strcpy (lpName, szNewFolder);
 933
 934     hr = IShellFolder_fnEnumObjects (_IShellFolder2_ (This), 0,
 935                                      SHCONTF_FOLDERS | SHCONTF_NONFOLDERS | SHCONTF_INCLUDEHIDDEN, &penum);
 936     if (penum) {
 937         LPITEMIDLIST pidl;
 938         DWORD dwFetched;
 939         int i = 1;
 940
 941       next:IEnumIDList_Reset (penum);
 942         while (S_OK == IEnumIDList_Next (penum, 1, &pidl, &dwFetched) && dwFetched) {
 943             _ILSimpleGetText (pidl, szText, MAX_PATH);
 944             if (0 == strcasecmp (szText, lpName)) {
 945                 sprintf (lpName, "%s %d", szNewFolder, i++);
 946                 if (i > 99) {
 947                     hr = E_FAIL;
 948                     break;
 949                 }
 950                 goto next;
 951             }
 952         }
 953
 954         IEnumIDList_Release (penum);
 955     }
 956     return hr;
 957 }
 958
 959 /****************************************************************************
 960  * ISFHelper_fnAddFolder
 961  *
 962  * adds a new folder.
 963  */
 964
 965 static HRESULT WINAPI ISFHelper_fnAddFolder (ISFHelper * iface, HWND hwnd, LPCSTR lpName, LPITEMIDLIST * ppidlOut)
 966 {
 967     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 968     char lpstrNewDir[MAX_PATH];
 969     DWORD bRes;
 970     HRESULT hres = E_FAIL;
 971
 972     TRACE ("(%p)(%s %p)\n", This, lpName, ppidlOut);
 973
 974     strcpy (lpstrNewDir, This->sPathTarget);
 975     PathAppendA(lpstrNewDir, lpName);
 976
 977     bRes = CreateDirectoryA (lpstrNewDir, NULL);
 978     if (bRes) {
 979         SHChangeNotify (SHCNE_MKDIR, SHCNF_PATHA, lpstrNewDir, NULL);
 980         if (ppidlOut)
 981             *ppidlOut = _ILCreateFromPathA(lpstrNewDir);
 982         hres = S_OK;
 983     } else {
 984         char lpstrText[128 + MAX_PATH];
 985         char lpstrTempText[128];
 986         char lpstrCaption[256];
 987
 988         /* Cannot Create folder because of permissions */
 989         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_DENIED, lpstrTempText, sizeof (lpstrTempText));
 990         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_CAPTION, lpstrCaption, sizeof (lpstrCaption));
 991         sprintf (lpstrText, lpstrTempText, lpstrNewDir);
 992         MessageBoxA (hwnd, lpstrText, lpstrCaption, MB_OK | MB_ICONEXCLAMATION);
 993     }
 994
 995     return hres;
 996 }
 997
 998 /****************************************************************************
 999  * ISFHelper_fnDeleteItems
1000  *
1001  * deletes items in folder
1002  */
1003 static HRESULT WINAPI ISFHelper_fnDeleteItems (ISFHelper * iface, UINT cidl, LPCITEMIDLIST * apidl)
1004 {
1005     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
1006     UINT i;
1007     char szPath[MAX_PATH];
1008     BOOL bConfirm = TRUE;
1009
1010     TRACE ("(%p)(%u %p)\n", This, cidl, apidl);
1011
1012     /* deleting multiple items so give a slightly different warning */
1013     if (cidl != 1) {
1014         char tmp[8];
1015
1016         snprintf (tmp, sizeof (tmp), "%d", cidl);
1017         if (!SHELL_ConfirmDialog(ASK_DELETE_MULTIPLE_ITEM, tmp))
1018             return E_FAIL;
1019         bConfirm = FALSE;
1020     }
1021
1022     for (i = 0; i < cidl; i++) {
1023         strcpy (szPath, This->sPathTarget);
1024         PathAddBackslashA (szPath);
1025         _ILSimpleGetText (apidl[i], szPath + strlen (szPath), MAX_PATH);
1026
1027         if (_ILIsFolder (apidl[i])) {
1028             LPITEMIDLIST pidl;
1029
1030             TRACE ("delete %s\n", szPath);
1031             if (!SHELL_DeleteDirectoryA (szPath, bConfirm)) {
1032                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1033                 return E_FAIL;
1034             }
1035             pidl = ILCombine (This->pidlRoot, apidl[i]);
1036             SHChangeNotify (SHCNE_RMDIR, SHCNF_IDLIST, pidl, NULL);
1037             SHFree (pidl);
1038         } else if (_ILIsValue (apidl[i])) {
1039             LPITEMIDLIST pidl;
1040
1041             TRACE ("delete %s\n", szPath);
1042             if (!SHELL_DeleteFileA (szPath, bConfirm)) {
1043                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1044                 return E_FAIL;
1045             }
1046             pidl = ILCombine (This->pidlRoot, apidl[i]);
1047             SHChangeNotify (SHCNE_DELETE, SHCNF_IDLIST, pidl, NULL);
1048             SHFree (pidl);
1049         }
1050
1051     }
1052     return S_OK;
1053 }
1054
1055 /****************************************************************************
1056  * ISFHelper_fnCopyItems
1057  *
1058  * copies items to this folder
1059  */
1060 static HRESULT WINAPI
1061 ISFHelper_fnCopyItems (ISFHelper * iface, IShellFolder * pSFFrom, UINT cidl, LPCITEMIDLIST * apidl)
1062 {
1063     UINT i;
1064     IPersistFolder2 *ppf2 = NULL;
1065     char szSrcPath[MAX_PATH],
1066       szDstPath[MAX_PATH];
1067
1068     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
1069
1070     TRACE ("(%p)->(%p,%u,%p)\n", This, pSFFrom, cidl, apidl);
1071
1072     IShellFolder_QueryInterface (pSFFrom, &IID_IPersistFolder2, (LPVOID *) & ppf2);
1073     if (ppf2) {
1074         LPITEMIDLIST pidl;
1075
1076         if (SUCCEEDED (IPersistFolder2_GetCurFolder (ppf2, &pidl))) {
1077             for (i = 0; i < cidl; i++) {
1078                 SHGetPathFromIDListA (pidl, szSrcPath);
1079                 PathAddBackslashA (szSrcPath);
1080                 _ILSimpleGetText (apidl[i], szSrcPath + strlen (szSrcPath), MAX_PATH);
1081
1082                 strcpy (szDstPath, This->sPathTarget);
1083                 PathAddBackslashA (szDstPath);
1084                 _ILSimpleGetText (apidl[i], szDstPath + strlen (szDstPath), MAX_PATH);
1085                 MESSAGE ("would copy %s to %s\n", szSrcPath, szDstPath);
1086             }
1087             SHFree (pidl);
1088         }
1089         IPersistFolder2_Release (ppf2);
1090     }
1091     return S_OK;
1092 }
1093
1094 static ICOM_VTABLE (ISFHelper) shvt =
1095 {
1096         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1097         ISFHelper_fnQueryInterface,
1098         ISFHelper_fnAddRef,
1099         ISFHelper_fnRelease,
1100         ISFHelper_fnGetUniqueName,
1101         ISFHelper_fnAddFolder,
1102         ISFHelper_fnDeleteItems,
1103         ISFHelper_fnCopyItems
1104 };
1105
1106 /************************************************************************
1107  *      IFSFldr_PersistFolder3_QueryInterface
1108  *
1109  */
1110 static HRESULT WINAPI IFSFldr_PersistFolder3_QueryInterface (IPersistFolder3 * iface, REFIID iid, LPVOID * ppvObj)
1111 {
1112     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1113
1114     TRACE ("(%p)\n", This);
1115
1116     return IUnknown_QueryInterface (This->pUnkOuter, iid, ppvObj);
1117 }
1118
1119 /************************************************************************
1120  *      IFSFldr_PersistFolder3_AddRef
1121  *
1122  */
1123 static ULONG WINAPI IFSFldr_PersistFolder3_AddRef (IPersistFolder3 * iface)
1124 {
1125     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1126
1127     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1128
1129     return IUnknown_AddRef (This->pUnkOuter);
1130 }
1131
1132 /************************************************************************
1133  *      IFSFldr_PersistFolder3_Release
1134  *
1135  */
1136 static ULONG WINAPI IFSFldr_PersistFolder3_Release (IPersistFolder3 * iface)
1137 {
1138     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1139
1140     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1141
1142     return IUnknown_Release (This->pUnkOuter);
1143 }
1144
1145 /************************************************************************
1146  *      IFSFldr_PersistFolder3_GetClassID
1147  */
1148 static HRESULT WINAPI IFSFldr_PersistFolder3_GetClassID (IPersistFolder3 * iface, CLSID * lpClassId)
1149 {
1150     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1151
1152     TRACE ("(%p)\n", This);
1153
1154     if (!lpClassId)
1155         return E_POINTER;
1156     *lpClassId = *This->pclsid;
1157
1158     return S_OK;
1159 }
1160
1161 /************************************************************************
1162  *      IFSFldr_PersistFolder3_Initialize
1163  *
1164  * NOTES
1165  *  sPathTarget is not set. Don't know how to handle in a non rooted environment.
1166  */
1167 static HRESULT WINAPI IFSFldr_PersistFolder3_Initialize (IPersistFolder3 * iface, LPCITEMIDLIST pidl)
1168 {
1169     char sTemp[MAX_PATH];
1170
1171     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1172
1173     TRACE ("(%p)->(%p)\n", This, pidl);
1174
1175     if (This->pidlRoot)
1176         SHFree (This->pidlRoot);        /* free the old pidl */
1177     This->pidlRoot = ILClone (pidl);    /* set my pidl */
1178
1179     if (This->sPathTarget)
1180         SHFree (This->sPathTarget);
1181
1182     /* set my path */
1183     if (SHGetPathFromIDListA (pidl, sTemp)) {
1184         This->sPathTarget = SHAlloc (strlen (sTemp) + 1);
1185         strcpy (This->sPathTarget, sTemp);
1186     }
1187
1188     TRACE ("--(%p)->(%s)\n", This, This->sPathTarget);
1189     return S_OK;
1190 }
1191
1192 /**************************************************************************
1193  *      IFSFldr_PersistFolder3_GetCurFolder
1194  */
1195 static HRESULT WINAPI IFSFldr_PersistFolder3_fnGetCurFolder (IPersistFolder3 * iface, LPITEMIDLIST * pidl)
1196 {
1197     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1198
1199     TRACE ("(%p)->(%p)\n", This, pidl);
1200
1201     if (!pidl) return E_POINTER;
1202     *pidl = ILClone (This->pidlRoot);
1203     return S_OK;
1204 }
1205
1206 /**************************************************************************
1207  *      IFSFldr_PersistFolder3_InitializeEx
1208  *
1209  * FIXME: errorhandling
1210  */
1211 static HRESULT WINAPI
1212 IFSFldr_PersistFolder3_InitializeEx (IPersistFolder3 * iface,
1213                                      IBindCtx * pbc, LPCITEMIDLIST pidlRoot, const PERSIST_FOLDER_TARGET_INFO * ppfti)
1214 {
1215     char sTemp[MAX_PATH];
1216
1217     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1218
1219     TRACE ("(%p)->(%p,%p,%p)\n", This, pbc, pidlRoot, ppfti);
1220     if (ppfti)
1221         TRACE ("--%p %s %s 0x%08lx 0x%08x\n",
1222                ppfti->pidlTargetFolder, debugstr_w (ppfti->szTargetParsingName),
1223                debugstr_w (ppfti->szNetworkProvider), ppfti->dwAttributes, ppfti->csidl);
1224
1225     pdump (pidlRoot);
1226     if (ppfti && ppfti->pidlTargetFolder)
1227         pdump (ppfti->pidlTargetFolder);
1228
1229     if (This->pidlRoot)
1230         __SHFreeAndNil (&This->pidlRoot);       /* free the old */
1231     if (This->sPathTarget)
1232         __SHFreeAndNil (&This->sPathTarget);
1233
1234     /*
1235      * Root path and pidl
1236      */
1237     This->pidlRoot = ILClone (pidlRoot);
1238
1239     /*
1240      *  the target folder is spezified in csidl OR pidlTargetFolder OR szTargetParsingName
1241      */
1242     if (ppfti) {
1243         if (ppfti->csidl != -1) {
1244             if (SHGetSpecialFolderPathA (0, sTemp, ppfti->csidl, ppfti->csidl & CSIDL_FLAG_CREATE)) {
1245                 __SHCloneStrA (&This->sPathTarget, sTemp);
1246             }
1247         } else if (ppfti->szTargetParsingName[0]) {
1248             __SHCloneStrWtoA (&This->sPathTarget, ppfti->szTargetParsingName);
1249         } else if (ppfti->pidlTargetFolder) {
1250             if (SHGetPathFromIDListA (ppfti->pidlTargetFolder, sTemp)) {
1251                 __SHCloneStrA (&This->sPathTarget, sTemp);
1252             }
1253         }
1254     }
1255
1256     TRACE ("--(%p)->(target=%s)\n", This, debugstr_a (This->sPathTarget));
1257     pdump (This->pidlRoot);
1258     return (This->sPathTarget) ? S_OK : E_FAIL;
1259 }
1260
1261 static HRESULT WINAPI
1262 IFSFldr_PersistFolder3_GetFolderTargetInfo (IPersistFolder3 * iface, PERSIST_FOLDER_TARGET_INFO * ppfti)
1263 {
1264     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1265     FIXME ("(%p)->(%p)\n", This, ppfti);
1266     ZeroMemory (ppfti, sizeof (ppfti));
1267     return E_NOTIMPL;
1268 }
1269
1270 static ICOM_VTABLE (IPersistFolder3) vt_FSFldr_PersistFolder3 =
1271 {
1272         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1273         IFSFldr_PersistFolder3_QueryInterface,
1274         IFSFldr_PersistFolder3_AddRef,
1275         IFSFldr_PersistFolder3_Release,
1276         IFSFldr_PersistFolder3_GetClassID,
1277         IFSFldr_PersistFolder3_Initialize,
1278         IFSFldr_PersistFolder3_fnGetCurFolder,
1279         IFSFldr_PersistFolder3_InitializeEx,
1280         IFSFldr_PersistFolder3_GetFolderTargetInfo
1281 };
1282
1283 /****************************************************************************
1284  * ISFDropTarget implementation
1285  */
1286 static BOOL ISFDropTarget_QueryDrop (IDropTarget * iface, DWORD dwKeyState, LPDWORD pdwEffect)
1287 {
1288     DWORD dwEffect = *pdwEffect;
1289
1290     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1291
1292     *pdwEffect = DROPEFFECT_NONE;
1293
1294     if (This->fAcceptFmt) {     /* Does our interpretation of the keystate ... */
1295         *pdwEffect = KeyStateToDropEffect (dwKeyState);
1296
1297         /* ... matches the desired effect ? */
1298         if (dwEffect & *pdwEffect) {
1299             return TRUE;
1300         }
1301     }
1302     return FALSE;
1303 }
1304
1305 static HRESULT WINAPI ISFDropTarget_QueryInterface (IDropTarget * iface, REFIID riid, LPVOID * ppvObj)
1306 {
1307     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1308
1309     TRACE ("(%p)\n", This);
1310
1311     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
1312 }
1313
1314 static ULONG WINAPI ISFDropTarget_AddRef (IDropTarget * iface)
1315 {
1316     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1317
1318     TRACE ("(%p)\n", This);
1319
1320     return IUnknown_AddRef (This->pUnkOuter);
1321 }
1322
1323 static ULONG WINAPI ISFDropTarget_Release (IDropTarget * iface)
1324 {
1325     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1326
1327     TRACE ("(%p)\n", This);
1328
1329     return IUnknown_Release (This->pUnkOuter);
1330 }
1331
1332 static HRESULT WINAPI
1333 ISFDropTarget_DragEnter (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1334 {
1335     FORMATETC fmt;
1336
1337     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1338
1339     TRACE ("(%p)->(DataObject=%p)\n", This, pDataObject);
1340
1341     InitFormatEtc (fmt, This->cfShellIDList, TYMED_HGLOBAL);
1342
1343     This->fAcceptFmt = (S_OK == IDataObject_QueryGetData (pDataObject, &fmt)) ? TRUE : FALSE;
1344
1345     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1346
1347     return S_OK;
1348 }
1349
1350 static HRESULT WINAPI ISFDropTarget_DragOver (IDropTarget * iface, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1351 {
1352     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1353
1354     TRACE ("(%p)\n", This);
1355
1356     if (!pdwEffect)
1357         return E_INVALIDARG;
1358
1359     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1360
1361     return S_OK;
1362 }
1363
1364 static HRESULT WINAPI ISFDropTarget_DragLeave (IDropTarget * iface)
1365 {
1366     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1367
1368     TRACE ("(%p)\n", This);
1369
1370     This->fAcceptFmt = FALSE;
1371
1372     return S_OK;
1373 }
1374
1375 static HRESULT WINAPI
1376 ISFDropTarget_Drop (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1377 {
1378     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1379
1380     FIXME ("(%p) object dropped\n", This);
1381
1382     return E_NOTIMPL;
1383 }
1384
1385 static struct ICOM_VTABLE (IDropTarget) dtvt = {
1386         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1387         ISFDropTarget_QueryInterface,
1388         ISFDropTarget_AddRef,
1389         ISFDropTarget_Release,
1390         ISFDropTarget_DragEnter,
1391         ISFDropTarget_DragOver,
1392         ISFDropTarget_DragLeave,
1393         ISFDropTarget_Drop
1394 };