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     IUnknownVtbl        *lpVtbl;
  62     DWORD                ref;
  63     IShellFolder2Vtbl   *lpvtblShellFolder;
  64     IPersistFolder3Vtbl *lpvtblPersistFolder3;
  65     IDropTargetVtbl     *lpvtblDropTarget;
  66     ISFHelperVtbl       *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 IUnknownVtbl unkvt;
  84 static struct IShellFolder2Vtbl sfvt;
  85 static struct IPersistFolder3Vtbl vt_FSFldr_PersistFolder3;     /* IPersistFolder3 for a FS_Folder */
  86 static struct IDropTargetVtbl dtvt;
  87 static struct ISFHelperVtbl 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     IGenericSFImpl *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     IGenericSFImpl *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     IGenericSFImpl *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 IUnknownVtbl unkvt =
 200 {
 201       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 IShellFolder2Vtbl sfvt =
 862 {
 863         IShellFolder_fnQueryInterface,
 864         IShellFolder_fnAddRef,
 865         IShellFolder_fnRelease,
 866         IShellFolder_fnParseDisplayName,
 867         IShellFolder_fnEnumObjects,
 868         IShellFolder_fnBindToObject,
 869         IShellFolder_fnBindToStorage,
 870         IShellFolder_fnCompareIDs,
 871         IShellFolder_fnCreateViewObject,
 872         IShellFolder_fnGetAttributesOf,
 873         IShellFolder_fnGetUIObjectOf,
 874         IShellFolder_fnGetDisplayNameOf,
 875         IShellFolder_fnSetNameOf,
 876         /* ShellFolder2 */
 877         IShellFolder_fnGetDefaultSearchGUID,
 878         IShellFolder_fnEnumSearches,
 879         IShellFolder_fnGetDefaultColumn,
 880         IShellFolder_fnGetDefaultColumnState,
 881         IShellFolder_fnGetDetailsEx,
 882         IShellFolder_fnGetDetailsOf,
 883         IShellFolder_fnMapColumnToSCID
 884 };
 885
 886 /****************************************************************************
 887  * ISFHelper for IShellFolder implementation
 888  */
 889
 890 static HRESULT WINAPI ISFHelper_fnQueryInterface (ISFHelper * iface, REFIID riid, LPVOID * ppvObj)
 891 {
 892     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 893
 894     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 895
 896     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
 897 }
 898
 899 static ULONG WINAPI ISFHelper_fnAddRef (ISFHelper * iface)
 900 {
 901     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 902
 903     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
 904
 905     return IUnknown_AddRef (This->pUnkOuter);
 906 }
 907
 908 static ULONG WINAPI ISFHelper_fnRelease (ISFHelper * iface)
 909 {
 910     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
 911
 912     TRACE ("(%p)\n", This);
 913
 914     return IUnknown_Release (This->pUnkOuter);
 915 }
 916
 917 /****************************************************************************
 918  * ISFHelper_fnAddFolder
 919  *
 920  * creates a unique folder name
 921  */
 922
 923 static HRESULT WINAPI ISFHelper_fnGetUniqueName (ISFHelper * iface, LPSTR lpName, UINT uLen)
 924 {
 925     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 926     IEnumIDList *penum;
 927     HRESULT hr;
 928     char szText[MAX_PATH];
 929     char *szNewFolder = "New Folder";
 930
 931     TRACE ("(%p)(%s %u)\n", This, lpName, uLen);
 932
 933     if (uLen < strlen (szNewFolder) + 4)
 934         return E_POINTER;
 935
 936     strcpy (lpName, szNewFolder);
 937
 938     hr = IShellFolder_fnEnumObjects (_IShellFolder2_ (This), 0,
 939                                      SHCONTF_FOLDERS | SHCONTF_NONFOLDERS | SHCONTF_INCLUDEHIDDEN, &penum);
 940     if (penum) {
 941         LPITEMIDLIST pidl;
 942         DWORD dwFetched;
 943         int i = 1;
 944
 945       next:IEnumIDList_Reset (penum);
 946         while (S_OK == IEnumIDList_Next (penum, 1, &pidl, &dwFetched) && dwFetched) {
 947             _ILSimpleGetText (pidl, szText, MAX_PATH);
 948             if (0 == strcasecmp (szText, lpName)) {
 949                 sprintf (lpName, "%s %d", szNewFolder, i++);
 950                 if (i > 99) {
 951                     hr = E_FAIL;
 952                     break;
 953                 }
 954                 goto next;
 955             }
 956         }
 957
 958         IEnumIDList_Release (penum);
 959     }
 960     return hr;
 961 }
 962
 963 /****************************************************************************
 964  * ISFHelper_fnAddFolder
 965  *
 966  * adds a new folder.
 967  */
 968
 969 static HRESULT WINAPI ISFHelper_fnAddFolder (ISFHelper * iface, HWND hwnd, LPCSTR lpName, LPITEMIDLIST * ppidlOut)
 970 {
 971     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
 972     char lpstrNewDir[MAX_PATH];
 973     DWORD bRes;
 974     HRESULT hres = E_FAIL;
 975
 976     TRACE ("(%p)(%s %p)\n", This, lpName, ppidlOut);
 977
 978     strcpy (lpstrNewDir, This->sPathTarget);
 979     PathAppendA(lpstrNewDir, lpName);
 980
 981     bRes = CreateDirectoryA (lpstrNewDir, NULL);
 982     if (bRes) {
 983         SHChangeNotify (SHCNE_MKDIR, SHCNF_PATHA, lpstrNewDir, NULL);
 984
 985         hres = S_OK;
 986
 987         if (ppidlOut)
 988             hres = _ILCreateFromPathA(lpstrNewDir, ppidlOut);
 989     } else {
 990         char lpstrText[128 + MAX_PATH];
 991         char lpstrTempText[128];
 992         char lpstrCaption[256];
 993
 994         /* Cannot Create folder because of permissions */
 995         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_DENIED, lpstrTempText, sizeof (lpstrTempText));
 996         LoadStringA (shell32_hInstance, IDS_CREATEFOLDER_CAPTION, lpstrCaption, sizeof (lpstrCaption));
 997         sprintf (lpstrText, lpstrTempText, lpstrNewDir);
 998         MessageBoxA (hwnd, lpstrText, lpstrCaption, MB_OK | MB_ICONEXCLAMATION);
 999     }
1000
1001     return hres;
1002 }
1003
1004 /****************************************************************************
1005  * ISFHelper_fnDeleteItems
1006  *
1007  * deletes items in folder
1008  */
1009 static HRESULT WINAPI ISFHelper_fnDeleteItems (ISFHelper * iface, UINT cidl, LPCITEMIDLIST * apidl)
1010 {
1011     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface)
1012     UINT i;
1013     char szPath[MAX_PATH];
1014     BOOL bConfirm = TRUE;
1015
1016     TRACE ("(%p)(%u %p)\n", This, cidl, apidl);
1017
1018     /* deleting multiple items so give a slightly different warning */
1019     if (cidl != 1) {
1020         char tmp[8];
1021
1022         snprintf (tmp, sizeof (tmp), "%d", cidl);
1023         if (!SHELL_ConfirmDialog(ASK_DELETE_MULTIPLE_ITEM, tmp))
1024             return E_FAIL;
1025         bConfirm = FALSE;
1026     }
1027
1028     for (i = 0; i < cidl; i++) {
1029         strcpy (szPath, This->sPathTarget);
1030         PathAddBackslashA (szPath);
1031         _ILSimpleGetText (apidl[i], szPath + strlen (szPath), MAX_PATH);
1032
1033         if (_ILIsFolder (apidl[i])) {
1034             LPITEMIDLIST pidl;
1035
1036             TRACE ("delete %s\n", szPath);
1037             if (!SHELL_DeleteDirectoryA (szPath, bConfirm)) {
1038                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1039                 return E_FAIL;
1040             }
1041             pidl = ILCombine (This->pidlRoot, apidl[i]);
1042             SHChangeNotify (SHCNE_RMDIR, SHCNF_IDLIST, pidl, NULL);
1043             SHFree (pidl);
1044         } else if (_ILIsValue (apidl[i])) {
1045             LPITEMIDLIST pidl;
1046
1047             TRACE ("delete %s\n", szPath);
1048             if (!SHELL_DeleteFileA (szPath, bConfirm)) {
1049                 TRACE ("delete %s failed, bConfirm=%d\n", szPath, bConfirm);
1050                 return E_FAIL;
1051             }
1052             pidl = ILCombine (This->pidlRoot, apidl[i]);
1053             SHChangeNotify (SHCNE_DELETE, SHCNF_IDLIST, pidl, NULL);
1054             SHFree (pidl);
1055         }
1056
1057     }
1058     return S_OK;
1059 }
1060
1061 /****************************************************************************
1062  * ISFHelper_fnCopyItems
1063  *
1064  * copies items to this folder
1065  */
1066 static HRESULT WINAPI
1067 ISFHelper_fnCopyItems (ISFHelper * iface, IShellFolder * pSFFrom, UINT cidl, LPCITEMIDLIST * apidl)
1068 {
1069     UINT i;
1070     IPersistFolder2 *ppf2 = NULL;
1071     char szSrcPath[MAX_PATH],
1072       szDstPath[MAX_PATH];
1073
1074     _ICOM_THIS_From_ISFHelper (IGenericSFImpl, iface);
1075
1076     TRACE ("(%p)->(%p,%u,%p)\n", This, pSFFrom, cidl, apidl);
1077
1078     IShellFolder_QueryInterface (pSFFrom, &IID_IPersistFolder2, (LPVOID *) & ppf2);
1079     if (ppf2) {
1080         LPITEMIDLIST pidl;
1081
1082         if (SUCCEEDED (IPersistFolder2_GetCurFolder (ppf2, &pidl))) {
1083             for (i = 0; i < cidl; i++) {
1084                 SHGetPathFromIDListA (pidl, szSrcPath);
1085                 PathAddBackslashA (szSrcPath);
1086                 _ILSimpleGetText (apidl[i], szSrcPath + strlen (szSrcPath), MAX_PATH);
1087
1088                 strcpy (szDstPath, This->sPathTarget);
1089                 PathAddBackslashA (szDstPath);
1090                 _ILSimpleGetText (apidl[i], szDstPath + strlen (szDstPath), MAX_PATH);
1091                 MESSAGE ("would copy %s to %s\n", szSrcPath, szDstPath);
1092             }
1093             SHFree (pidl);
1094         }
1095         IPersistFolder2_Release (ppf2);
1096     }
1097     return S_OK;
1098 }
1099
1100 static ISFHelperVtbl shvt =
1101 {
1102         ISFHelper_fnQueryInterface,
1103         ISFHelper_fnAddRef,
1104         ISFHelper_fnRelease,
1105         ISFHelper_fnGetUniqueName,
1106         ISFHelper_fnAddFolder,
1107         ISFHelper_fnDeleteItems,
1108         ISFHelper_fnCopyItems
1109 };
1110
1111 /************************************************************************
1112  *      IFSFldr_PersistFolder3_QueryInterface
1113  *
1114  */
1115 static HRESULT WINAPI IFSFldr_PersistFolder3_QueryInterface (IPersistFolder3 * iface, REFIID iid, LPVOID * ppvObj)
1116 {
1117     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1118
1119     TRACE ("(%p)\n", This);
1120
1121     return IUnknown_QueryInterface (This->pUnkOuter, iid, ppvObj);
1122 }
1123
1124 /************************************************************************
1125  *      IFSFldr_PersistFolder3_AddRef
1126  *
1127  */
1128 static ULONG WINAPI IFSFldr_PersistFolder3_AddRef (IPersistFolder3 * iface)
1129 {
1130     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1131
1132     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1133
1134     return IUnknown_AddRef (This->pUnkOuter);
1135 }
1136
1137 /************************************************************************
1138  *      IFSFldr_PersistFolder3_Release
1139  *
1140  */
1141 static ULONG WINAPI IFSFldr_PersistFolder3_Release (IPersistFolder3 * iface)
1142 {
1143     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1144
1145     TRACE ("(%p)->(count=%lu)\n", This, This->ref);
1146
1147     return IUnknown_Release (This->pUnkOuter);
1148 }
1149
1150 /************************************************************************
1151  *      IFSFldr_PersistFolder3_GetClassID
1152  */
1153 static HRESULT WINAPI IFSFldr_PersistFolder3_GetClassID (IPersistFolder3 * iface, CLSID * lpClassId)
1154 {
1155     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1156
1157     TRACE ("(%p)\n", This);
1158
1159     if (!lpClassId)
1160         return E_POINTER;
1161     *lpClassId = *This->pclsid;
1162
1163     return S_OK;
1164 }
1165
1166 /************************************************************************
1167  *      IFSFldr_PersistFolder3_Initialize
1168  *
1169  * NOTES
1170  *  sPathTarget is not set. Don't know how to handle in a non rooted environment.
1171  */
1172 static HRESULT WINAPI IFSFldr_PersistFolder3_Initialize (IPersistFolder3 * iface, LPCITEMIDLIST pidl)
1173 {
1174     char sTemp[MAX_PATH];
1175
1176     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1177
1178     TRACE ("(%p)->(%p)\n", This, pidl);
1179
1180     if (This->pidlRoot)
1181         SHFree (This->pidlRoot);        /* free the old pidl */
1182     This->pidlRoot = ILClone (pidl);    /* set my pidl */
1183
1184     if (This->sPathTarget)
1185         SHFree (This->sPathTarget);
1186
1187     /* set my path */
1188     if (SHGetPathFromIDListA (pidl, sTemp)) {
1189         This->sPathTarget = SHAlloc (strlen (sTemp) + 1);
1190         strcpy (This->sPathTarget, sTemp);
1191     }
1192
1193     TRACE ("--(%p)->(%s)\n", This, This->sPathTarget);
1194     return S_OK;
1195 }
1196
1197 /**************************************************************************
1198  *      IFSFldr_PersistFolder3_GetCurFolder
1199  */
1200 static HRESULT WINAPI IFSFldr_PersistFolder3_fnGetCurFolder (IPersistFolder3 * iface, LPITEMIDLIST * pidl)
1201 {
1202     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1203
1204     TRACE ("(%p)->(%p)\n", This, pidl);
1205
1206     if (!pidl) return E_POINTER;
1207     *pidl = ILClone (This->pidlRoot);
1208     return S_OK;
1209 }
1210
1211 /**************************************************************************
1212  *      IFSFldr_PersistFolder3_InitializeEx
1213  *
1214  * FIXME: errorhandling
1215  */
1216 static HRESULT WINAPI
1217 IFSFldr_PersistFolder3_InitializeEx (IPersistFolder3 * iface,
1218                                      IBindCtx * pbc, LPCITEMIDLIST pidlRoot, const PERSIST_FOLDER_TARGET_INFO * ppfti)
1219 {
1220     char sTemp[MAX_PATH];
1221
1222     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1223
1224     TRACE ("(%p)->(%p,%p,%p)\n", This, pbc, pidlRoot, ppfti);
1225     if (ppfti)
1226         TRACE ("--%p %s %s 0x%08lx 0x%08x\n",
1227                ppfti->pidlTargetFolder, debugstr_w (ppfti->szTargetParsingName),
1228                debugstr_w (ppfti->szNetworkProvider), ppfti->dwAttributes, ppfti->csidl);
1229
1230     pdump (pidlRoot);
1231     if (ppfti && ppfti->pidlTargetFolder)
1232         pdump (ppfti->pidlTargetFolder);
1233
1234     if (This->pidlRoot)
1235         __SHFreeAndNil (&This->pidlRoot);       /* free the old */
1236     if (This->sPathTarget)
1237         __SHFreeAndNil (&This->sPathTarget);
1238
1239     /*
1240      * Root path and pidl
1241      */
1242     This->pidlRoot = ILClone (pidlRoot);
1243
1244     /*
1245      *  the target folder is spezified in csidl OR pidlTargetFolder OR szTargetParsingName
1246      */
1247     if (ppfti) {
1248         if (ppfti->csidl != -1) {
1249             if (SHGetSpecialFolderPathA (0, sTemp, ppfti->csidl, ppfti->csidl & CSIDL_FLAG_CREATE)) {
1250                 __SHCloneStrA (&This->sPathTarget, sTemp);
1251             }
1252         } else if (ppfti->szTargetParsingName[0]) {
1253             __SHCloneStrWtoA (&This->sPathTarget, ppfti->szTargetParsingName);
1254         } else if (ppfti->pidlTargetFolder) {
1255             if (SHGetPathFromIDListA (ppfti->pidlTargetFolder, sTemp)) {
1256                 __SHCloneStrA (&This->sPathTarget, sTemp);
1257             }
1258         }
1259     }
1260
1261     TRACE ("--(%p)->(target=%s)\n", This, debugstr_a (This->sPathTarget));
1262     pdump (This->pidlRoot);
1263     return (This->sPathTarget) ? S_OK : E_FAIL;
1264 }
1265
1266 static HRESULT WINAPI
1267 IFSFldr_PersistFolder3_GetFolderTargetInfo (IPersistFolder3 * iface, PERSIST_FOLDER_TARGET_INFO * ppfti)
1268 {
1269     _ICOM_THIS_From_IPersistFolder3 (IGenericSFImpl, iface);
1270     FIXME ("(%p)->(%p)\n", This, ppfti);
1271     ZeroMemory (ppfti, sizeof (ppfti));
1272     return E_NOTIMPL;
1273 }
1274
1275 static IPersistFolder3Vtbl vt_FSFldr_PersistFolder3 =
1276 {
1277         IFSFldr_PersistFolder3_QueryInterface,
1278         IFSFldr_PersistFolder3_AddRef,
1279         IFSFldr_PersistFolder3_Release,
1280         IFSFldr_PersistFolder3_GetClassID,
1281         IFSFldr_PersistFolder3_Initialize,
1282         IFSFldr_PersistFolder3_fnGetCurFolder,
1283         IFSFldr_PersistFolder3_InitializeEx,
1284         IFSFldr_PersistFolder3_GetFolderTargetInfo
1285 };
1286
1287 /****************************************************************************
1288  * ISFDropTarget implementation
1289  */
1290 static BOOL ISFDropTarget_QueryDrop (IDropTarget * iface, DWORD dwKeyState, LPDWORD pdwEffect)
1291 {
1292     DWORD dwEffect = *pdwEffect;
1293
1294     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1295
1296     *pdwEffect = DROPEFFECT_NONE;
1297
1298     if (This->fAcceptFmt) {     /* Does our interpretation of the keystate ... */
1299         *pdwEffect = KeyStateToDropEffect (dwKeyState);
1300
1301         /* ... matches the desired effect ? */
1302         if (dwEffect & *pdwEffect) {
1303             return TRUE;
1304         }
1305     }
1306     return FALSE;
1307 }
1308
1309 static HRESULT WINAPI ISFDropTarget_QueryInterface (IDropTarget * iface, REFIID riid, LPVOID * ppvObj)
1310 {
1311     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1312
1313     TRACE ("(%p)\n", This);
1314
1315     return IUnknown_QueryInterface (This->pUnkOuter, riid, ppvObj);
1316 }
1317
1318 static ULONG WINAPI ISFDropTarget_AddRef (IDropTarget * iface)
1319 {
1320     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1321
1322     TRACE ("(%p)\n", This);
1323
1324     return IUnknown_AddRef (This->pUnkOuter);
1325 }
1326
1327 static ULONG WINAPI ISFDropTarget_Release (IDropTarget * iface)
1328 {
1329     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1330
1331     TRACE ("(%p)\n", This);
1332
1333     return IUnknown_Release (This->pUnkOuter);
1334 }
1335
1336 static HRESULT WINAPI
1337 ISFDropTarget_DragEnter (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1338 {
1339     FORMATETC fmt;
1340
1341     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1342
1343     TRACE ("(%p)->(DataObject=%p)\n", This, pDataObject);
1344
1345     InitFormatEtc (fmt, This->cfShellIDList, TYMED_HGLOBAL);
1346
1347     This->fAcceptFmt = (S_OK == IDataObject_QueryGetData (pDataObject, &fmt)) ? TRUE : FALSE;
1348
1349     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1350
1351     return S_OK;
1352 }
1353
1354 static HRESULT WINAPI ISFDropTarget_DragOver (IDropTarget * iface, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1355 {
1356     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1357
1358     TRACE ("(%p)\n", This);
1359
1360     if (!pdwEffect)
1361         return E_INVALIDARG;
1362
1363     ISFDropTarget_QueryDrop (iface, dwKeyState, pdwEffect);
1364
1365     return S_OK;
1366 }
1367
1368 static HRESULT WINAPI ISFDropTarget_DragLeave (IDropTarget * iface)
1369 {
1370     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1371
1372     TRACE ("(%p)\n", This);
1373
1374     This->fAcceptFmt = FALSE;
1375
1376     return S_OK;
1377 }
1378
1379 static HRESULT WINAPI
1380 ISFDropTarget_Drop (IDropTarget * iface, IDataObject * pDataObject, DWORD dwKeyState, POINTL pt, DWORD * pdwEffect)
1381 {
1382     _ICOM_THIS_From_IDropTarget (IGenericSFImpl, iface);
1383
1384     FIXME ("(%p) object dropped\n", This);
1385
1386     return E_NOTIMPL;
1387 }
1388
1389 static struct IDropTargetVtbl dtvt = {
1390         ISFDropTarget_QueryInterface,
1391         ISFDropTarget_AddRef,
1392         ISFDropTarget_Release,
1393         ISFDropTarget_DragEnter,
1394         ISFDropTarget_DragOver,
1395         ISFDropTarget_DragLeave,
1396         ISFDropTarget_Drop
1397 };