git.oblomov.eu Git - wine/blob - 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         hr = _ILCreateFromPathA(szPath, &pidlTemp);
 357
 358         if (SUCCEEDED(hr)) {
 359             if (szNext && *szNext) {
 360                 /* try to analyse the next element */
 361                 hr = SHELL32_ParseNextElement (iface, hwndOwner, pbc, &pidlTemp, (LPOLESTR) szNext, pchEaten, pdwAttributes);
 362             } else {
 363                 /* it's the last element */
 364                 if (pdwAttributes && *pdwAttributes) {
 365                     hr = SHELL32_GetItemAttributes (_IShellFolder_ (This), pidlTemp, pdwAttributes);
 366                 }
 367             }
 368         }
 369     }
 370
 371     if (SUCCEEDED(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         HRESULT hr = S_OK;
 752
 753         if (pPidlOut)
 754             hr = _ILCreateFromPathA(szDest, pPidlOut);
 755
 756         SHChangeNotify (bIsFolder ? SHCNE_RENAMEFOLDER : SHCNE_RENAMEITEM, SHCNF_PATHA, szSrc, szDest);
 757
 758         return hr;
 759     }
 760
 761     return E_FAIL;
 762 }
 763
 764 static HRESULT WINAPI IShellFolder_fnGetDefaultSearchGUID (IShellFolder2 * iface, GUID * pguid)
 765 {
 766     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 767         FIXME ("(%p)\n", This);
 768     return E_NOTIMPL;
 769 }
 770 static HRESULT WINAPI IShellFolder_fnEnumSearches (IShellFolder2 * iface, IEnumExtraSearch ** ppenum)
 771 {
 772     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 773         FIXME ("(%p)\n", This);
 774     return E_NOTIMPL;
 775 }
 776 static HRESULT WINAPI
 777 IShellFolder_fnGetDefaultColumn (IShellFolder2 * iface, DWORD dwRes, ULONG * pSort, ULONG * pDisplay)
 778 {
 779     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 780
 781         TRACE ("(%p)\n", This);
 782
 783     if (pSort)
 784         *pSort = 0;
 785     if (pDisplay)
 786         *pDisplay = 0;
 787
 788     return S_OK;
 789 }
 790 static HRESULT WINAPI IShellFolder_fnGetDefaultColumnState (IShellFolder2 * iface, UINT iColumn, DWORD * pcsFlags)
 791 {
 792     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 793
 794         TRACE ("(%p)\n", This);
 795
 796     if (!pcsFlags || iColumn >= GENERICSHELLVIEWCOLUMNS)
 797         return E_INVALIDARG;
 798
 799     *pcsFlags = GenericSFHeader[iColumn].pcsFlags;
 800
 801     return S_OK;
 802 }
 803 static HRESULT WINAPI
 804 IShellFolder_fnGetDetailsEx (IShellFolder2 * iface, LPCITEMIDLIST pidl, const SHCOLUMNID * pscid, VARIANT * pv)
 805 {
 806     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 807         FIXME ("(%p)\n", This);
 808
 809     return E_NOTIMPL;
 810 }
 811 static HRESULT WINAPI
 812 IShellFolder_fnGetDetailsOf (IShellFolder2 * iface, LPCITEMIDLIST pidl, UINT iColumn, SHELLDETAILS * psd)
 813 {
 814     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 815     HRESULT hr = E_FAIL;
 816
 817     TRACE ("(%p)->(%p %i %p)\n", This, pidl, iColumn, psd);
 818
 819     if (!psd || iColumn >= GENERICSHELLVIEWCOLUMNS)
 820         return E_INVALIDARG;
 821
 822     if (!pidl) {
 823         /* the header titles */
 824         psd->fmt = GenericSFHeader[iColumn].fmt;
 825         psd->cxChar = GenericSFHeader[iColumn].cxChar;
 826         psd->str.uType = STRRET_CSTR;
 827         LoadStringA (shell32_hInstance, GenericSFHeader[iColumn].colnameid, psd->str.u.cStr, MAX_PATH);
 828         return S_OK;
 829     } else {
 830         /* the data from the pidl */
 831         switch (iColumn) {
 832         case 0:         /* name */
 833             hr = IShellFolder_GetDisplayNameOf (iface, pidl, SHGDN_NORMAL | SHGDN_INFOLDER, &psd->str);
 834             break;
 835         case 1:         /* size */
 836             _ILGetFileSize (pidl, psd->str.u.cStr, MAX_PATH);
 837             break;
 838         case 2:         /* type */
 839             _ILGetFileType (pidl, psd->str.u.cStr, MAX_PATH);
 840             break;
 841         case 3:         /* date */
 842             _ILGetFileDate (pidl, psd->str.u.cStr, MAX_PATH);
 843             break;
 844         case 4:         /* attributes */
 845             _ILGetFileAttributes (pidl, psd->str.u.cStr, MAX_PATH);
 846             break;
 847         }
 848         hr = S_OK;
 849         psd->str.uType = STRRET_CSTR;
 850     }
 851
 852     return hr;
 853 }
 854 static HRESULT WINAPI IShellFolder_fnMapColumnToSCID (IShellFolder2 * iface, UINT column, SHCOLUMNID * pscid)
 855 {
 856     _ICOM_THIS_From_IShellFolder2 (IGenericSFImpl, iface)
 857     FIXME ("(%p)\n", This);
 858     return E_NOTIMPL;
 859 }
 860
 861 static ICOM_VTABLE (IShellFolder2) sfvt =
 862 {
 863         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 864         IShellFolder_fnQueryInterface,
 865         IShellFolder_fnAddRef,
 866         IShellFolder_fnRelease,
 867         IShellFolder_fnParseDisplayName,
 868         IShellFolder_fnEnumObjects,
 869         IShellFolder_fnBindToObject,
 870         IShellFolder_fnBindToStorage,
 871         IShellFolder_fnCompareIDs,
 872         IShellFolder_fnCreateViewObject,
 873         IShellFolder_fnGetAttributesOf,
 874         IShellFolder_fnGetUIObjectOf,
 875         IShellFolder_fnGetDisplayNameOf,
 876         IShellFolder_fnSetNameOf,
 877         /* ShellFolder2 */
 878         IShellFolder_fnGetDefaultSearchGUID,
 879         IShellFolder_fnEnumSearches,
 880         IShellFolder_fnGetDefaultColumn,
 881         IShellFolder_fnGetDefaultColumnState,
 882         IShellFolder_fnGetDetailsEx,
 883         IShellFolder_fnGetDetailsOf,
 884         IShellFolder_fnMapColumnToSCID
 885 };
 886
 887 /****************************************************************************
 888  * ISFHelper for IShellFolder implementation
 889  */
 890
 891 static HRESULT WINAPI ISFHelper_fnQueryInterface (ISFHelper * iface, REFIID riid, LPVOID * ppvObj)
 892 {
 893     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 894
 895     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 896
 897     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
 898 }
 899
 900 static ULONG WINAPI ISFHelper_fnAddRef (ISFHelper * iface)
 901 {
 902     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 903
 904     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 905
 906     return IUnknown_AddRef (This->pUnkOuter);
 907 }
 908
 909 static ULONG WINAPI ISFHelper_fnRelease (ISFHelper * iface)
 910 {
 911     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 912
 913     TRACE ("(%p)\n", This);
 914
 915     return IUnknown_Release (This->pUnkOuter);
 916 }
 917
 918 /****************************************************************************
 919  * ISFHelper_fnAddFolder
 920  *
 921  * creates a unique folder name
 922  */
 923
 924 static HRESULT WINAPI ISFHelper_fnGetUniqueName (ISFHelper * iface, LPSTR lpName, UINT uLen)
 925 {
 926     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 927     IEnumIDList *penum;
 928     HRESULT hr;
 929     char szText[MAX_PATH];
 930     char *szNewFolder = "New Folder";
 931
 932     TRACE ("(%p)(%s %u)\n", This, lpName, uLen);
 933
 934     if (uLen < strlen (szNewFolder) + 4)
 935         return E_POINTER;
 936
 937     strcpy (lpName, szNewFolder);
 938
 939     hr = IShellFolder_fnEnumObjects (_IShellFolder2_ (This), 0,
 940                                      SHCONTF_FOLDERS | SHCONTF_NONFOLDERS | SHCONTF_INCLUDEHIDDEN, &penum);
 941     if (penum) {
 942         LPITEMIDLIST pidl;
 943         DWORD dwFetched;
 944         int i = 1;
 945
 946       next:IEnumIDList_Reset (penum);
 947         while (S_OK == IEnumIDList_Next (penum, 1, &pidl, &dwFetched) && dwFetched) {
 948             _ILSimpleGetText (pidl, szText, MAX_PATH);
 949             if (0 == strcasecmp (szText, lpName)) {
 950                 sprintf (lpName, "%s %d", szNewFolder, i++);
 951                 if (i > 99) {
 952                     hr = E_FAIL;
 953                     break;
 954                 }
 955                 goto next;
 956             }
 957         }
 958
 959         IEnumIDList_Release (penum);
 960     }
 961     return hr;
 962 }
 963
 964 /****************************************************************************
 965  * ISFHelper_fnAddFolder
 966  *
 967  * adds a new folder.
 968  */
 969
 970 static HRESULT WINAPI ISFHelper_fnAddFolder (ISFHelper * iface, HWND hwnd, LPCSTR lpName, LPITEMIDLIST * ppidlOut)
 971 {
 972     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 973     char lpstrNewDir[MAX_PATH];
 974     DWORD bRes;
 975     HRESULT hres = E_FAIL;
 976
 977     TRACE ("(%p)(%s %p)\n", This, lpName, ppidlOut);
 978
 979     strcpy (lpstrNewDir, This->sPathTarget);
 980     PathAppendA(lpstrNewDir, lpName);
 981
 982     bRes = CreateDirectoryA (lpstrNewDir, NULL);
 983     if (bRes) {
 984         SHChangeNotify (SHCNE_MKDIR, SHCNF_PATHA, lpstrNewDir, NULL);
 985
 986         hres = S_OK;
 987
 988         if (ppidlOut)
 989             hres = _ILCreateFromPathA(lpstrNewDir, ppidlOut);
 990     } else {
 991         char lpstrText[128 + MAX_PATH];
 992         char lpstrTempText[128];
 993         char lpstrCaption[256];
 994
 995         /* Cannot Create folder because of permissions */
 996         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_DENIED, lpstrTempText, sizeof (lpstrTempText));
 997         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_CAPTION, lpstrCaption, sizeof (lpstrCaption));
 998         sprintf (lpstrText, lpstrTempText, lpstrNewDir);
 999         MessageBoxA (hwnd, lpstrText, lpstrCaption, MB_OK | MB_ICONEXCLAMATION);
1000     }
1001
1002     return hres;
1003 }
1004
1005 /****************************************************************************
1006  * ISFHelper_fnDeleteItems
1007  *
1008  * deletes items in folder
1009  */
1010 static HRESULT WINAPI ISFHelper_fnDeleteItems (ISFHelper * iface, UINT cidl, LPCITEMIDLIST * apidl)
1011 {
1012     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
1013     UINT i;
1014     char szPath[MAX_PATH];
1015     BOOL bConfirm = TRUE;
1016
1017     TRACE ("(%p)(%u %p)\n", This, cidl, apidl);
1018
1019     /* deleting multiple items so give a slightly different warning */
1020     if (cidl != 1) {
1021         char tmp[8];
1022
1023         snprintf (tmp, sizeof (tmp), "%d", cidl);
1024         if (!SHELL_ConfirmDialog(ASK_DELETE_MULTIPLE_ITEM, tmp))
1025             return E_FAIL;
1026         bConfirm = FALSE;
1027     }
1028
1029     for (i = 0; i < cidl; i++) {
1030         strcpy (szPath, This->sPathTarget);
1031         PathAddBackslashA (szPath);
1032         _ILSimpleGetText (apidl[i], szPath + strlen (szPath), MAX_PATH);
1033
1034         if (_ILIsFolder (apidl[i])) {
1035             LPITEMIDLIST pidl;
1036
1037             TRACE ("delete %s\n", szPath);
1038             if (!SHELL_DeleteDirectoryA (szPath, bConfirm)) {
1039                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1040                 return E_FAIL;
1041             }
1042             pidl = ILCombine (This->pidlRoot, apidl[i]);
1043             SHChangeNotify (SHCNE_RMDIR, SHCNF_IDLIST, pidl, NULL);
1044             SHFree (pidl);
1045         } else if (_ILIsValue (apidl[i])) {
1046             LPITEMIDLIST pidl;
1047
1048             TRACE ("delete %s\n", szPath);
1049             if (!SHELL_DeleteFileA (szPath, bConfirm)) {
1050                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1051                 return E_FAIL;
1052             }
1053             pidl = ILCombine (This->pidlRoot, apidl[i]);
1054             SHChangeNotify (SHCNE_DELETE, SHCNF_IDLIST, pidl, NULL);
1055             SHFree (pidl);
1056         }
1057
1058     }
1059     return S_OK;
1060 }
1061
1062 /****************************************************************************
1063  * ISFHelper_fnCopyItems
1064  *
1065  * copies items to this folder
1066  */
1067 static HRESULT WINAPI
1068 ISFHelper_fnCopyItems (ISFHelper * iface, IShellFolder * pSFFrom, UINT cidl, LPCITEMIDLIST * apidl)
1069 {
1070     UINT i;
1071     IPersistFolder2 *ppf2 = NULL;
1072     char szSrcPath[MAX_PATH],
1073       szDstPath[MAX_PATH];
1074
1075     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
1076
1077     TRACE ("(%p)->(%p,%u,%p)\n", This, pSFFrom, cidl, apidl);
1078
1079     IShellFolder_QueryInterface (pSFFrom, &IID_IPersistFolder2, (LPVOID *) & ppf2);
1080     if (ppf2) {
1081         LPITEMIDLIST pidl;
1082
1083         if (SUCCEEDED (IPersistFolder2_GetCurFolder (ppf2, &pidl))) {
1084             for (i = 0; i < cidl; i++) {
1085                 SHGetPathFromIDListA (pidl, szSrcPath);
1086                 PathAddBackslashA (szSrcPath);
1087                 _ILSimpleGetText (apidl[i], szSrcPath + strlen (szSrcPath), MAX_PATH);
1088
1089                 strcpy (szDstPath, This->sPathTarget);
1090                 PathAddBackslashA (szDstPath);
1091                 _ILSimpleGetText (apidl[i], szDstPath + strlen (szDstPath), MAX_PATH);
1092                 MESSAGE ("would copy %s to %s\n", szSrcPath, szDstPath);
1093             }
1094             SHFree (pidl);
1095         }
1096         IPersistFolder2_Release (ppf2);
1097     }
1098     return S_OK;
1099 }
1100
1101 static ICOM_VTABLE (ISFHelper) shvt =
1102 {
1103         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1104         ISFHelper_fnQueryInterface,
1105         ISFHelper_fnAddRef,
1106         ISFHelper_fnRelease,
1107         ISFHelper_fnGetUniqueName,
1108         ISFHelper_fnAddFolder,
1109         ISFHelper_fnDeleteItems,
1110         ISFHelper_fnCopyItems
1111 };
1112
1113 /************************************************************************
1114  *      IFSFldr_PersistFolder3_QueryInterface
1115  *
1116  */
1117 static HRESULT WINAPI IFSFldr_PersistFolder3_QueryInterface (IPersistFolder3 * iface, REFIID iid, LPVOID * ppvObj)
1118 {
1119     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1120
1121     TRACE ("(%p)\n", This);
1122
1123     return IUnknown_QueryInterface (This->pUnkOuter, iid, ppvObj);
1124 }
1125
1126 /************************************************************************
1127  *      IFSFldr_PersistFolder3_AddRef
1128  *
1129  */
1130 static ULONG WINAPI IFSFldr_PersistFolder3_AddRef (IPersistFolder3 * iface)
1131 {
1132     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1133
1134     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1135
1136     return IUnknown_AddRef (This->pUnkOuter);
1137 }
1138
1139 /************************************************************************
1140  *      IFSFldr_PersistFolder3_Release
1141  *
1142  */
1143 static ULONG WINAPI IFSFldr_PersistFolder3_Release (IPersistFolder3 * iface)
1144 {
1145     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1146
1147     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1148
1149     return IUnknown_Release (This->pUnkOuter);
1150 }
1151
1152 /************************************************************************
1153  *      IFSFldr_PersistFolder3_GetClassID
1154  */
1155 static HRESULT WINAPI IFSFldr_PersistFolder3_GetClassID (IPersistFolder3 * iface, CLSID * lpClassId)
1156 {
1157     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1158
1159     TRACE ("(%p)\n", This);
1160
1161     if (!lpClassId)
1162         return E_POINTER;
1163     *lpClassId = *This->pclsid;
1164
1165     return S_OK;
1166 }
1167
1168 /************************************************************************
1169  *      IFSFldr_PersistFolder3_Initialize
1170  *
1171  * NOTES
1172  *  sPathTarget is not set. Don't know how to handle in a non rooted environment.
1173  */
1174 static HRESULT WINAPI IFSFldr_PersistFolder3_Initialize (IPersistFolder3 * iface, LPCITEMIDLIST pidl)
1175 {
1176     char sTemp[MAX_PATH];
1177
1178     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1179
1180     TRACE ("(%p)->(%p)\n", This, pidl);
1181
1182     if (This->pidlRoot)
1183         SHFree (This->pidlRoot);        /* free the old pidl */
1184     This->pidlRoot = ILClone (pidl);    /* set my pidl */
1185
1186     if (This->sPathTarget)
1187         SHFree (This->sPathTarget);
1188
1189     /* set my path */
1190     if (SHGetPathFromIDListA (pidl, sTemp)) {
1191         This->sPathTarget = SHAlloc (strlen (sTemp) + 1);
1192         strcpy (This->sPathTarget, sTemp);
1193     }
1194
1195     TRACE ("--(%p)->(%s)\n", This, This->sPathTarget);
1196     return S_OK;
1197 }
1198
1199 /**************************************************************************
1200  *      IFSFldr_PersistFolder3_GetCurFolder
1201  */
1202 static HRESULT WINAPI IFSFldr_PersistFolder3_fnGetCurFolder (IPersistFolder3 * iface, LPITEMIDLIST * pidl)
1203 {
1204     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1205
1206     TRACE ("(%p)->(%p)\n", This, pidl);
1207
1208     if (!pidl) return E_POINTER;
1209     *pidl = ILClone (This->pidlRoot);
1210     return S_OK;
1211 }
1212
1213 /**************************************************************************
1214  *      IFSFldr_PersistFolder3_InitializeEx
1215  *
1216  * FIXME: errorhandling
1217  */
1218 static HRESULT WINAPI
1219 IFSFldr_PersistFolder3_InitializeEx (IPersistFolder3 * iface,
1220                                      IBindCtx * pbc, LPCITEMIDLIST pidlRoot, const PERSIST_FOLDER_TARGET_INFO * ppfti)
1221 {
1222     char sTemp[MAX_PATH];
1223
1224     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1225
1226     TRACE ("(%p)->(%p,%p,%p)\n", This, pbc, pidlRoot, ppfti);
1227     if (ppfti)
1228         TRACE ("--%p %s %s 0x%08lx 0x%08x\n",
1229                ppfti->pidlTargetFolder, debugstr_w (ppfti->szTargetParsingName),
1230                debugstr_w (ppfti->szNetworkProvider), ppfti->dwAttributes, ppfti->csidl);
1231
1232     pdump (pidlRoot);
1233     if (ppfti && ppfti->pidlTargetFolder)
1234         pdump (ppfti->pidlTargetFolder);
1235
1236     if (This->pidlRoot)
1237         __SHFreeAndNil (&This->pidlRoot);       /* free the old */
1238     if (This->sPathTarget)
1239         __SHFreeAndNil (&This->sPathTarget);
1240
1241     /*
1242      * Root path and pidl
1243      */
1244     This->pidlRoot = ILClone (pidlRoot);
1245
1246     /*
1247      *  the target folder is spezified in csidl OR pidlTargetFolder OR szTargetParsingName
1248      */
1249     if (ppfti) {
1250         if (ppfti->csidl != -1) {
1251             if (SHGetSpecialFolderPathA (0, sTemp, ppfti->csidl, ppfti->csidl & CSIDL_FLAG_CREATE)) {
1252                 __SHCloneStrA (&This->sPathTarget, sTemp);
1253             }
1254         } else if (ppfti->szTargetParsingName[0]) {
1255             __SHCloneStrWtoA (&This->sPathTarget, ppfti->szTargetParsingName);
1256         } else if (ppfti->pidlTargetFolder) {
1257             if (SHGetPathFromIDListA (ppfti->pidlTargetFolder, sTemp)) {
1258                 __SHCloneStrA (&This->sPathTarget, sTemp);
1259             }
1260         }
1261     }
1262
1263     TRACE ("--(%p)->(target=%s)\n", This, debugstr_a (This->sPathTarget));
1264     pdump (This->pidlRoot);
1265     return (This->sPathTarget) ? S_OK : E_FAIL;
1266 }
1267
1268 static HRESULT WINAPI
1269 IFSFldr_PersistFolder3_GetFolderTargetInfo (IPersistFolder3 * iface, PERSIST_FOLDER_TARGET_INFO * ppfti)
1270 {
1271     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1272     FIXME ("(%p)->(%p)\n", This, ppfti);
1273     ZeroMemory (ppfti, sizeof (ppfti));
1274     return E_NOTIMPL;
1275 }
1276
1277 static ICOM_VTABLE (IPersistFolder3) vt_FSFldr_PersistFolder3 =
1278 {
1279         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1280         IFSFldr_PersistFolder3_QueryInterface,
1281         IFSFldr_PersistFolder3_AddRef,
1282         IFSFldr_PersistFolder3_Release,
1283         IFSFldr_PersistFolder3_GetClassID,
1284         IFSFldr_PersistFolder3_Initialize,
1285         IFSFldr_PersistFolder3_fnGetCurFolder,
1286         IFSFldr_PersistFolder3_InitializeEx,
1287         IFSFldr_PersistFolder3_GetFolderTargetInfo
1288 };
1289
1290 /****************************************************************************
1291  * ISFDropTarget implementation
1292  */
1293 static BOOL ISFDropTarget_QueryDrop (IDropTarget * iface, DWORD dwKeyState, LPDWORD pdwEffect)
1294 {
1295     DWORD dwEffect = *pdwEffect;
1296
1297     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1298
1299     *pdwEffect = DROPEFFECT_NONE;
1300
1301     if (This->fAcceptFmt) {     /* Does our interpretation of the keystate ... */
1302         *pdwEffect = KeyStateToDropEffect (dwKeyState);
1303
1304         /* ... matches the desired effect ? */
1305         if (dwEffect & *pdwEffect) {
1306             return TRUE;
1307         }
1308     }
1309     return FALSE;
1310 }
1311
1312 static HRESULT WINAPI ISFDropTarget_QueryInterface (IDropTarget * iface, REFIID riid, LPVOID * ppvObj)
1313 {
1314     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1315
1316     TRACE ("(%p)\n", This);
1317
1318     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
1319 }
1320
1321 static ULONG WINAPI ISFDropTarget_AddRef (IDropTarget * iface)
1322 {
1323     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1324
1325     TRACE ("(%p)\n", This);
1326
1327     return IUnknown_AddRef (This->pUnkOuter);
1328 }
1329
1330 static ULONG WINAPI ISFDropTarget_Release (IDropTarget * iface)
1331 {
1332     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1333
1334     TRACE ("(%p)\n", This);
1335
1336     return IUnknown_Release (This->pUnkOuter);
1337 }
1338
1339 static HRESULT WINAPI
1340 ISFDropTarget_DragEnter (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1341 {
1342     FORMATETC fmt;
1343
1344     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1345
1346     TRACE ("(%p)->(DataObject=%p)\n", This, pDataObject);
1347
1348     InitFormatEtc (fmt, This->cfShellIDList, TYMED_HGLOBAL);
1349
1350     This->fAcceptFmt = (S_OK == IDataObject_QueryGetData (pDataObject, &fmt)) ? TRUE : FALSE;
1351
1352     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1353
1354     return S_OK;
1355 }
1356
1357 static HRESULT WINAPI ISFDropTarget_DragOver (IDropTarget * iface, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1358 {
1359     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1360
1361     TRACE ("(%p)\n", This);
1362
1363     if (!pdwEffect)
1364         return E_INVALIDARG;
1365
1366     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1367
1368     return S_OK;
1369 }
1370
1371 static HRESULT WINAPI ISFDropTarget_DragLeave (IDropTarget * iface)
1372 {
1373     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1374
1375     TRACE ("(%p)\n", This);
1376
1377     This->fAcceptFmt = FALSE;
1378
1379     return S_OK;
1380 }
1381
1382 static HRESULT WINAPI
1383 ISFDropTarget_Drop (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1384 {
1385     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1386
1387     FIXME ("(%p) object dropped\n", This);
1388
1389     return E_NOTIMPL;
1390 }
1391
1392 static struct ICOM_VTABLE (IDropTarget) dtvt = {
1393         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1394         ISFDropTarget_QueryInterface,
1395         ISFDropTarget_AddRef,
1396         ISFDropTarget_Release,
1397         ISFDropTarget_DragEnter,
1398         ISFDropTarget_DragOver,
1399         ISFDropTarget_DragLeave,
1400         ISFDropTarget_Drop
1401 };