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