dlls/shell32/shlview_cmenu.c

   1 /*
   2  *      IContextMenu for items in the shellview
   3  *
   4  * Copyright 1998-2000 Juergen Schmied <juergen.schmied@debitel.net>,
   5  *                                     <juergen.schmied@metronet.de>
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include <string.h>
  23
  24 #define COBJMACROS
  25 #define NONAMELESSUNION
  26 #define NONAMELESSSTRUCT
  27
  28 #include "winerror.h"
  29 #include "wine/debug.h"
  30
  31 #include "windef.h"
  32 #include "wingdi.h"
  33 #include "pidl.h"
  34 #include "undocshell.h"
  35 #include "shlobj.h"
  36 #include "winreg.h"
  37 #include "prsht.h"
  38
  39 #include "shell32_main.h"
  40 #include "shellfolder.h"
  41
  42 #include "shresdef.h"
  43
  44 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  45
  46 typedef struct
  47 {
  48     IContextMenu2 IContextMenu2_iface;
  49     LONG ref;
  50
  51     IShellFolder* parent;
  52     UINT verb_offset;
  53
  54     /* item menu data */
  55     LPITEMIDLIST  pidl;  /* root pidl */
  56     LPITEMIDLIST *apidl; /* array of child pidls */
  57     UINT cidl;
  58     BOOL allvalues;
  59
  60     /* background menu data */
  61     BOOL desktop;
  62 } ContextMenu;
  63
  64 static inline ContextMenu *impl_from_IContextMenu2(IContextMenu2 *iface)
  65 {
  66     return CONTAINING_RECORD(iface, ContextMenu, IContextMenu2_iface);
  67 }
  68
  69 static BOOL ItemMenu_CanRenameItems(ContextMenu *This)
  70 {
  71     DWORD attr;
  72
  73     TRACE("(%p)\n", This);
  74
  75     /* can't rename more than one item at a time*/
  76     if (!This->apidl || This->cidl > 1) return FALSE;
  77
  78     attr = SFGAO_CANRENAME;
  79     IShellFolder_GetAttributesOf(This->parent, 1, (LPCITEMIDLIST*)This->apidl, &attr);
  80     return attr & SFGAO_CANRENAME;
  81 }
  82
  83 static HRESULT WINAPI ItemMenu_QueryInterface(IContextMenu2 *iface, REFIID riid, LPVOID *ppvObj)
  84 {
  85     ContextMenu *This = impl_from_IContextMenu2(iface);
  86
  87     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObj);
  88
  89     *ppvObj = NULL;
  90
  91     if (IsEqualIID(riid, &IID_IUnknown) ||
  92         IsEqualIID(riid, &IID_IContextMenu) ||
  93         IsEqualIID(riid, &IID_IContextMenu2))
  94     {
  95         *ppvObj = This;
  96     }
  97     else if (IsEqualIID(riid, &IID_IShellExtInit))  /*IShellExtInit*/
  98     {
  99         FIXME("-- LPSHELLEXTINIT pointer requested\n");
 100     }
 101
 102     if(*ppvObj)
 103     {
 104         IContextMenu2_AddRef(iface);
 105         return S_OK;
 106     }
 107
 108     TRACE("-- Interface: E_NOINTERFACE\n");
 109     return E_NOINTERFACE;
 110 }
 111
 112 static ULONG WINAPI ItemMenu_AddRef(IContextMenu2 *iface)
 113 {
 114     ContextMenu *This = impl_from_IContextMenu2(iface);
 115     ULONG ref = InterlockedIncrement(&This->ref);
 116     TRACE("(%p)->(%u)\n", This, ref);
 117     return ref;
 118 }
 119
 120 static ULONG WINAPI ItemMenu_Release(IContextMenu2 *iface)
 121 {
 122     ContextMenu *This = impl_from_IContextMenu2(iface);
 123     ULONG ref = InterlockedDecrement(&This->ref);
 124
 125     TRACE("(%p)->(%u)\n", This, ref);
 126
 127     if (!ref)
 128     {
 129         if(This->parent)
 130             IShellFolder_Release(This->parent);
 131
 132         SHFree(This->pidl);
 133         _ILFreeaPidl(This->apidl, This->cidl);
 134
 135         HeapFree(GetProcessHeap(), 0, This);
 136     }
 137
 138     return ref;
 139 }
 140
 141 static HRESULT WINAPI ItemMenu_QueryContextMenu(
 142         IContextMenu2 *iface,
 143         HMENU hmenu,
 144         UINT indexMenu,
 145         UINT idCmdFirst,
 146         UINT idCmdLast,
 147         UINT uFlags)
 148 {
 149     ContextMenu *This = impl_from_IContextMenu2(iface);
 150     INT uIDMax;
 151
 152     TRACE("(%p)->(%p %d 0x%x 0x%x 0x%x )\n", This, hmenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
 153
 154     This->verb_offset = idCmdFirst;
 155
 156     if(!(CMF_DEFAULTONLY & uFlags) && This->cidl > 0)
 157     {
 158         HMENU hmenures = LoadMenuW(shell32_hInstance, MAKEINTRESOURCEW(MENU_SHV_FILE));
 159
 160         if(uFlags & CMF_EXPLORE)
 161             RemoveMenu(hmenures, FCIDM_SHVIEW_OPEN, MF_BYCOMMAND);
 162
 163         uIDMax = Shell_MergeMenus(hmenu, GetSubMenu(hmenures, 0), indexMenu, idCmdFirst, idCmdLast, MM_SUBMENUSHAVEIDS);
 164
 165         DestroyMenu(hmenures);
 166
 167         if(This->allvalues)
 168         {
 169             MENUITEMINFOW mi;
 170             WCHAR str[255];
 171             mi.cbSize = sizeof(mi);
 172             mi.fMask = MIIM_ID | MIIM_STRING | MIIM_FTYPE;
 173             mi.dwTypeData = str;
 174             mi.cch = 255;
 175             GetMenuItemInfoW(hmenu, FCIDM_SHVIEW_EXPLORE, MF_BYCOMMAND, &mi);
 176             RemoveMenu(hmenu, FCIDM_SHVIEW_EXPLORE, MF_BYCOMMAND);
 177
 178             mi.cbSize = sizeof(mi);
 179             mi.fMask = MIIM_ID | MIIM_TYPE | MIIM_STATE;
 180             mi.dwTypeData = str;
 181             mi.fState = MFS_ENABLED;
 182             mi.wID = FCIDM_SHVIEW_EXPLORE;
 183             mi.fType = MFT_STRING;
 184             InsertMenuItemW(hmenu, (uFlags & CMF_EXPLORE) ? 1 : 2, MF_BYPOSITION, &mi);
 185         }
 186
 187         SetMenuDefaultItem(hmenu, 0, MF_BYPOSITION);
 188
 189         if(uFlags & ~CMF_CANRENAME)
 190             RemoveMenu(hmenu, FCIDM_SHVIEW_RENAME, MF_BYCOMMAND);
 191         else
 192             EnableMenuItem(hmenu, FCIDM_SHVIEW_RENAME, MF_BYCOMMAND | ItemMenu_CanRenameItems(This) ? MFS_ENABLED : MFS_DISABLED);
 193
 194         return MAKE_HRESULT(SEVERITY_SUCCESS, 0, uIDMax-idCmdFirst);
 195     }
 196     return MAKE_HRESULT(SEVERITY_SUCCESS, 0, 0);
 197 }
 198
 199 /**************************************************************************
 200 * DoOpenExplore
 201 *
 202 *  for folders only
 203 */
 204
 205 static void DoOpenExplore(ContextMenu *This, HWND hwnd, LPCSTR verb)
 206 {
 207         UINT i, bFolderFound = FALSE;
 208         LPITEMIDLIST    pidlFQ;
 209         SHELLEXECUTEINFOA       sei;
 210
 211         /* Find the first item in the list that is not a value. These commands
 212             should never be invoked if there isn't at least one folder item in the list.*/
 213
 214         for(i = 0; i<This->cidl; i++)
 215         {
 216           if(!_ILIsValue(This->apidl[i]))
 217           {
 218             bFolderFound = TRUE;
 219             break;
 220           }
 221         }
 222
 223         if (!bFolderFound) return;
 224
 225         pidlFQ = ILCombine(This->pidl, This->apidl[i]);
 226
 227         ZeroMemory(&sei, sizeof(sei));
 228         sei.cbSize = sizeof(sei);
 229         sei.fMask = SEE_MASK_IDLIST | SEE_MASK_CLASSNAME;
 230         sei.lpIDList = pidlFQ;
 231         sei.lpClass = "Folder";
 232         sei.hwnd = hwnd;
 233         sei.nShow = SW_SHOWNORMAL;
 234         sei.lpVerb = verb;
 235         ShellExecuteExA(&sei);
 236         SHFree(pidlFQ);
 237 }
 238
 239 /**************************************************************************
 240  * DoDelete
 241  *
 242  * deletes the currently selected items
 243  */
 244 static void DoDelete(ContextMenu *This)
 245 {
 246     ISFHelper *helper;
 247
 248     IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&helper);
 249     if (helper)
 250     {
 251         ISFHelper_DeleteItems(helper, This->cidl, (LPCITEMIDLIST*)This->apidl);
 252         ISFHelper_Release(helper);
 253     }
 254 }
 255
 256 /**************************************************************************
 257  * DoCopyOrCut
 258  *
 259  * copies the currently selected items into the clipboard
 260  */
 261 static BOOL DoCopyOrCut(ContextMenu *This, HWND hwnd, BOOL cut)
 262 {
 263     IDataObject *dataobject;
 264     IShellBrowser *browser;
 265     IShellView *view;
 266
 267     TRACE("(%p)->(wnd=%p, cut=%d)\n", This, hwnd, cut);
 268
 269     /* get the active IShellView */
 270     if ((browser = (IShellBrowser*)SendMessageA(hwnd, CWM_GETISHELLBROWSER, 0, 0)))
 271     {
 272         if (SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
 273         {
 274             if (SUCCEEDED(IShellView_GetItemObject(view, SVGIO_SELECTION, &IID_IDataObject, (void**)&dataobject)))
 275             {
 276                 OleSetClipboard(dataobject);
 277                 IDataObject_Release(dataobject);
 278             }
 279             IShellView_Release(view);
 280         }
 281     }
 282
 283     return TRUE;
 284 }
 285
 286 /**************************************************************************
 287  * Properties_AddPropSheetCallback
 288  *
 289  * Used by DoOpenProperties through SHCreatePropSheetExtArrayEx to add
 290  * propertysheet pages from shell extensions.
 291  */
 292 static BOOL CALLBACK Properties_AddPropSheetCallback(HPROPSHEETPAGE hpage, LPARAM lparam)
 293 {
 294         LPPROPSHEETHEADERW psh = (LPPROPSHEETHEADERW) lparam;
 295         psh->u3.phpage[psh->nPages++] = hpage;
 296
 297         return TRUE;
 298 }
 299
 300 static void DoOpenProperties(ContextMenu *This, HWND hwnd)
 301 {
 302         static const UINT MAX_PROP_PAGES = 99;
 303         static const WCHAR wszFolder[] = {'F','o','l','d','e','r', 0};
 304         static const WCHAR wszFiletypeAll[] = {'*',0};
 305         LPSHELLFOLDER lpDesktopSF;
 306         LPSHELLFOLDER lpSF;
 307         LPDATAOBJECT lpDo;
 308         WCHAR wszFiletype[MAX_PATH];
 309         WCHAR wszFilename[MAX_PATH];
 310         PROPSHEETHEADERW psh;
 311         HPROPSHEETPAGE hpages[MAX_PROP_PAGES];
 312         HPSXA hpsxa;
 313         UINT ret;
 314
 315         TRACE("(%p)->(wnd=%p)\n", This, hwnd);
 316
 317         ZeroMemory(&psh, sizeof(PROPSHEETHEADERW));
 318         psh.dwSize = sizeof (PROPSHEETHEADERW);
 319         psh.hwndParent = hwnd;
 320         psh.dwFlags = PSH_PROPTITLE;
 321         psh.nPages = 0;
 322         psh.u3.phpage = hpages;
 323         psh.u2.nStartPage = 0;
 324
 325         _ILSimpleGetTextW(This->apidl[0], (LPVOID)wszFilename, MAX_PATH);
 326         psh.pszCaption = (LPCWSTR)wszFilename;
 327
 328         /* Find out where to look for the shell extensions */
 329         if (_ILIsValue(This->apidl[0]))
 330         {
 331             char sTemp[64];
 332             sTemp[0] = 0;
 333             if (_ILGetExtension(This->apidl[0], sTemp, 64))
 334             {
 335                 HCR_MapTypeToValueA(sTemp, sTemp, 64, TRUE);
 336                 MultiByteToWideChar(CP_ACP, 0, sTemp, -1, wszFiletype, MAX_PATH);
 337             }
 338             else
 339             {
 340                 wszFiletype[0] = 0;
 341             }
 342         }
 343         else if (_ILIsFolder(This->apidl[0]))
 344         {
 345             lstrcpynW(wszFiletype, wszFolder, 64);
 346         }
 347         else if (_ILIsSpecialFolder(This->apidl[0]))
 348         {
 349             LPGUID folderGUID;
 350             static const WCHAR wszclsid[] = {'C','L','S','I','D','\\', 0};
 351             folderGUID = _ILGetGUIDPointer(This->apidl[0]);
 352             lstrcpyW(wszFiletype, wszclsid);
 353             StringFromGUID2(folderGUID, &wszFiletype[6], MAX_PATH - 6);
 354         }
 355         else
 356         {
 357             FIXME("Requested properties for unknown type.\n");
 358             return;
 359         }
 360
 361         /* Get a suitable DataObject for accessing the files */
 362         SHGetDesktopFolder(&lpDesktopSF);
 363         if (_ILIsPidlSimple(This->pidl))
 364         {
 365             ret = IShellFolder_GetUIObjectOf(lpDesktopSF, hwnd, This->cidl, (LPCITEMIDLIST*)This->apidl,
 366                                              &IID_IDataObject, NULL, (LPVOID *)&lpDo);
 367             IShellFolder_Release(lpDesktopSF);
 368         }
 369         else
 370         {
 371             IShellFolder_BindToObject(lpDesktopSF, This->pidl, NULL, &IID_IShellFolder, (LPVOID*) &lpSF);
 372             ret = IShellFolder_GetUIObjectOf(lpSF, hwnd, This->cidl, (LPCITEMIDLIST*)This->apidl,
 373                                              &IID_IDataObject, NULL, (LPVOID *)&lpDo);
 374             IShellFolder_Release(lpSF);
 375             IShellFolder_Release(lpDesktopSF);
 376         }
 377
 378         if (SUCCEEDED(ret))
 379         {
 380             hpsxa = SHCreatePropSheetExtArrayEx(HKEY_CLASSES_ROOT, wszFiletype, MAX_PROP_PAGES - psh.nPages, lpDo);
 381             if (hpsxa != NULL)
 382             {
 383                 SHAddFromPropSheetExtArray(hpsxa, Properties_AddPropSheetCallback, (LPARAM)&psh);
 384                 SHDestroyPropSheetExtArray(hpsxa);
 385             }
 386             hpsxa = SHCreatePropSheetExtArrayEx(HKEY_CLASSES_ROOT, wszFiletypeAll, MAX_PROP_PAGES - psh.nPages, lpDo);
 387             if (hpsxa != NULL)
 388             {
 389                 SHAddFromPropSheetExtArray(hpsxa, Properties_AddPropSheetCallback, (LPARAM)&psh);
 390                 SHDestroyPropSheetExtArray(hpsxa);
 391             }
 392             IDataObject_Release(lpDo);
 393         }
 394
 395         if (psh.nPages)
 396             PropertySheetW(&psh);
 397         else
 398             FIXME("No property pages found.\n");
 399 }
 400
 401 static HRESULT WINAPI ItemMenu_InvokeCommand(
 402         IContextMenu2 *iface,
 403         LPCMINVOKECOMMANDINFO lpcmi)
 404 {
 405     ContextMenu *This = impl_from_IContextMenu2(iface);
 406
 407     if (lpcmi->cbSize != sizeof(CMINVOKECOMMANDINFO))
 408         FIXME("Is an EX structure\n");
 409
 410     TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n",This,lpcmi,lpcmi->lpVerb, lpcmi->hwnd);
 411
 412     if( HIWORD(lpcmi->lpVerb)==0 && LOWORD(lpcmi->lpVerb) > FCIDM_SHVIEWLAST)
 413     {
 414         TRACE("Invalid Verb %x\n",LOWORD(lpcmi->lpVerb));
 415         return E_INVALIDARG;
 416     }
 417
 418     if (HIWORD(lpcmi->lpVerb) == 0)
 419     {
 420         switch(LOWORD(lpcmi->lpVerb - This->verb_offset))
 421         {
 422         case FCIDM_SHVIEW_EXPLORE:
 423             TRACE("Verb FCIDM_SHVIEW_EXPLORE\n");
 424             DoOpenExplore(This, lpcmi->hwnd, "explore");
 425             break;
 426         case FCIDM_SHVIEW_OPEN:
 427             TRACE("Verb FCIDM_SHVIEW_OPEN\n");
 428             DoOpenExplore(This, lpcmi->hwnd, "open");
 429             break;
 430         case FCIDM_SHVIEW_RENAME:
 431         {
 432             IShellBrowser *browser;
 433
 434             /* get the active IShellView */
 435             browser = (IShellBrowser*)SendMessageA(lpcmi->hwnd, CWM_GETISHELLBROWSER, 0, 0);
 436             if (browser)
 437             {
 438                 IShellView *view;
 439
 440                 if(SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
 441                 {
 442                     TRACE("(shellview=%p)\n", view);
 443                     IShellView_SelectItem(view, This->apidl[0],
 444                          SVSI_DESELECTOTHERS|SVSI_EDIT|SVSI_ENSUREVISIBLE|SVSI_FOCUSED|SVSI_SELECT);
 445                     IShellView_Release(view);
 446                 }
 447             }
 448             break;
 449         }
 450         case FCIDM_SHVIEW_DELETE:
 451             TRACE("Verb FCIDM_SHVIEW_DELETE\n");
 452             DoDelete(This);
 453             break;
 454         case FCIDM_SHVIEW_COPY:
 455             TRACE("Verb FCIDM_SHVIEW_COPY\n");
 456             DoCopyOrCut(This, lpcmi->hwnd, FALSE);
 457             break;
 458         case FCIDM_SHVIEW_CUT:
 459             TRACE("Verb FCIDM_SHVIEW_CUT\n");
 460             DoCopyOrCut(This, lpcmi->hwnd, TRUE);
 461             break;
 462         case FCIDM_SHVIEW_PROPERTIES:
 463             TRACE("Verb FCIDM_SHVIEW_PROPERTIES\n");
 464             DoOpenProperties(This, lpcmi->hwnd);
 465             break;
 466         default:
 467             FIXME("Unhandled Verb %xl\n",LOWORD(lpcmi->lpVerb)-This->verb_offset);
 468             return E_INVALIDARG;
 469         }
 470     }
 471     else
 472     {
 473         TRACE("Verb is %s\n",debugstr_a(lpcmi->lpVerb));
 474         if (strcmp(lpcmi->lpVerb,"delete")==0)
 475             DoDelete(This);
 476         else if (strcmp(lpcmi->lpVerb,"properties")==0)
 477             DoOpenProperties(This, lpcmi->hwnd);
 478         else {
 479             FIXME("Unhandled string verb %s\n",debugstr_a(lpcmi->lpVerb));
 480             return E_FAIL;
 481         }
 482     }
 483     return S_OK;
 484 }
 485
 486 static HRESULT WINAPI ItemMenu_GetCommandString(
 487         IContextMenu2 *iface,
 488         UINT_PTR idCommand,
 489         UINT uFlags,
 490         UINT* lpReserved,
 491         LPSTR lpszName,
 492         UINT uMaxNameLen)
 493 {
 494         ContextMenu *This = impl_from_IContextMenu2(iface);
 495         HRESULT hr = E_INVALIDARG;
 496
 497         TRACE("(%p)->(%lx flags=%x %p name=%p len=%x)\n", This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
 498
 499         switch(uFlags)
 500         {
 501           case GCS_HELPTEXTA:
 502           case GCS_HELPTEXTW:
 503             hr = E_NOTIMPL;
 504             break;
 505
 506           case GCS_VERBA:
 507             switch(idCommand-This->verb_offset)
 508             {
 509             case FCIDM_SHVIEW_RENAME:
 510                 strcpy(lpszName, "rename");
 511                 hr = S_OK;
 512                 break;
 513             }
 514             break;
 515
 516              /* NT 4.0 with IE 3.0x or no IE will always call This with GCS_VERBW. In This
 517              case, you need to do the lstrcpyW to the pointer passed.*/
 518           case GCS_VERBW:
 519             switch(idCommand-This->verb_offset)
 520             {
 521             case FCIDM_SHVIEW_RENAME:
 522                 MultiByteToWideChar( CP_ACP, 0, "rename", -1, (LPWSTR)lpszName, uMaxNameLen );
 523                 hr = S_OK;
 524                 break;
 525             }
 526             break;
 527
 528           case GCS_VALIDATEA:
 529           case GCS_VALIDATEW:
 530             hr = S_OK;
 531             break;
 532         }
 533         TRACE("-- (%p)->(name=%s)\n", This, lpszName);
 534         return hr;
 535 }
 536
 537 /**************************************************************************
 538 * NOTES
 539 *  should be only in IContextMenu2 and IContextMenu3
 540 *  is nevertheless called from word95
 541 */
 542 static HRESULT WINAPI ItemMenu_HandleMenuMsg(
 543         IContextMenu2 *iface,
 544         UINT uMsg,
 545         WPARAM wParam,
 546         LPARAM lParam)
 547 {
 548     ContextMenu *This = impl_from_IContextMenu2(iface);
 549     TRACE("(%p)->(0x%x 0x%lx 0x%lx)\n", This, uMsg, wParam, lParam);
 550     return E_NOTIMPL;
 551 }
 552
 553 static const IContextMenu2Vtbl ItemContextMenuVtbl =
 554 {
 555     ItemMenu_QueryInterface,
 556     ItemMenu_AddRef,
 557     ItemMenu_Release,
 558     ItemMenu_QueryContextMenu,
 559     ItemMenu_InvokeCommand,
 560     ItemMenu_GetCommandString,
 561     ItemMenu_HandleMenuMsg
 562 };
 563
 564 IContextMenu2 *ItemMenu_Constructor(IShellFolder *parent, LPCITEMIDLIST pidl, const LPCITEMIDLIST *apidl, UINT cidl)
 565 {
 566     ContextMenu* This;
 567     UINT u;
 568
 569     This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
 570     This->IContextMenu2_iface.lpVtbl = &ItemContextMenuVtbl;
 571     This->ref = 1;
 572     This->verb_offset = 0;
 573     This->parent = parent;
 574     if (parent) IShellFolder_AddRef(parent);
 575
 576     This->pidl = ILClone(pidl);
 577     This->apidl = _ILCopyaPidl(apidl, cidl);
 578     This->cidl = cidl;
 579     This->allvalues = TRUE;
 580
 581     This->desktop = FALSE;
 582
 583     for(u = 0; u < cidl; u++)
 584        This->allvalues &= (_ILIsValue(apidl[u]) ? 1 : 0);
 585
 586     TRACE("(%p)\n", This);
 587
 588     return &This->IContextMenu2_iface;
 589 }
 590
 591 /* Background menu implementation */
 592 static HRESULT WINAPI BackgroundMenu_QueryInterface(IContextMenu2 *iface, REFIID riid, void **ppvObj)
 593 {
 594     ContextMenu *This = impl_from_IContextMenu2(iface);
 595
 596     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObj);
 597
 598     *ppvObj = NULL;
 599
 600     if(IsEqualIID(riid, &IID_IUnknown) ||
 601        IsEqualIID(riid, &IID_IContextMenu) ||
 602        IsEqualIID(riid, &IID_IContextMenu2))
 603     {
 604         *ppvObj = This;
 605     }
 606     else if(IsEqualIID(riid, &IID_IShellExtInit))  /*IShellExtInit*/
 607     {
 608         FIXME("-- LPSHELLEXTINIT pointer requested\n");
 609     }
 610
 611     if(*ppvObj)
 612     {
 613         IContextMenu2_AddRef(iface);
 614         TRACE("-- Interface: (%p)->(%p)\n", ppvObj, *ppvObj);
 615         return S_OK;
 616     }
 617
 618     TRACE("-- Interface: E_NOINTERFACE\n");
 619     return E_NOINTERFACE;
 620 }
 621
 622 static ULONG WINAPI BackgroundMenu_AddRef(IContextMenu2 *iface)
 623 {
 624     ContextMenu *This = impl_from_IContextMenu2(iface);
 625     ULONG ref = InterlockedIncrement(&This->ref);
 626     TRACE("(%p)->(%u)\n", This, ref);
 627     return ref;
 628 }
 629
 630 static ULONG WINAPI BackgroundMenu_Release(IContextMenu2 *iface)
 631 {
 632     ContextMenu *This = impl_from_IContextMenu2(iface);
 633     ULONG ref = InterlockedDecrement(&This->ref);
 634
 635     TRACE("(%p)->(%u)\n", This, ref);
 636
 637     if (!ref)
 638     {
 639         if (This->parent)
 640             IShellFolder_Release(This->parent);
 641
 642         HeapFree(GetProcessHeap(), 0, This);
 643     }
 644
 645     return ref;
 646 }
 647
 648 static HRESULT WINAPI BackgroundMenu_QueryContextMenu(
 649         IContextMenu2 *iface,
 650         HMENU hMenu,
 651         UINT indexMenu,
 652         UINT idCmdFirst,
 653         UINT idCmdLast,
 654         UINT uFlags)
 655 {
 656     ContextMenu *This = impl_from_IContextMenu2(iface);
 657     HMENU hMyMenu;
 658     UINT idMax;
 659     HRESULT hr;
 660
 661     TRACE("(%p)->(hmenu=%p indexmenu=%x cmdfirst=%x cmdlast=%x flags=%x )\n",
 662           This, hMenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
 663
 664     This->verb_offset = idCmdFirst;
 665
 666     hMyMenu = LoadMenuA(shell32_hInstance, "MENU_002");
 667     if (uFlags & CMF_DEFAULTONLY)
 668     {
 669         HMENU ourMenu = GetSubMenu(hMyMenu,0);
 670         UINT oldDef = GetMenuDefaultItem(hMenu,TRUE,GMDI_USEDISABLED);
 671         UINT newDef = GetMenuDefaultItem(ourMenu,TRUE,GMDI_USEDISABLED);
 672         if (newDef != oldDef)
 673             SetMenuDefaultItem(hMenu,newDef,TRUE);
 674         if (newDef!=0xFFFFFFFF)
 675             hr =  MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, newDef+1);
 676         else
 677             hr =  MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, 0);
 678     }
 679     else
 680     {
 681         idMax = Shell_MergeMenus (hMenu, GetSubMenu(hMyMenu,0), indexMenu,
 682                                   idCmdFirst, idCmdLast, MM_SUBMENUSHAVEIDS);
 683         hr =  MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, idMax-idCmdFirst);
 684     }
 685     DestroyMenu(hMyMenu);
 686
 687     TRACE("(%p)->returning 0x%x\n",This,hr);
 688     return hr;
 689 }
 690
 691 static void DoNewFolder(ContextMenu *This, IShellView *view)
 692 {
 693     ISFHelper *helper;
 694
 695     IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&helper);
 696     if (helper)
 697     {
 698         WCHAR nameW[MAX_PATH];
 699         LPITEMIDLIST pidl;
 700
 701         ISFHelper_GetUniqueName(helper, nameW, MAX_PATH);
 702         ISFHelper_AddFolder(helper, 0, nameW, &pidl);
 703
 704         if (view)
 705         {
 706             /* if we are in a shellview do labeledit */
 707             IShellView_SelectItem(view,
 708                     pidl,(SVSI_DESELECTOTHERS | SVSI_EDIT | SVSI_ENSUREVISIBLE
 709                     |SVSI_FOCUSED|SVSI_SELECT));
 710         }
 711
 712         SHFree(pidl);
 713         ISFHelper_Release(helper);
 714     }
 715 }
 716
 717 static BOOL DoPaste(ContextMenu *This)
 718 {
 719         BOOL bSuccess = FALSE;
 720         IDataObject * pda;
 721
 722         TRACE("\n");
 723
 724         if(SUCCEEDED(OleGetClipboard(&pda)))
 725         {
 726           STGMEDIUM medium;
 727           FORMATETC formatetc;
 728
 729           TRACE("pda=%p\n", pda);
 730
 731           /* Set the FORMATETC structure*/
 732           InitFormatEtc(formatetc, RegisterClipboardFormatW(CFSTR_SHELLIDLISTW), TYMED_HGLOBAL);
 733
 734           /* Get the pidls from IDataObject */
 735           if(SUCCEEDED(IDataObject_GetData(pda,&formatetc,&medium)))
 736           {
 737             LPITEMIDLIST * apidl;
 738             LPITEMIDLIST pidl;
 739             IShellFolder *psfFrom = NULL, *psfDesktop;
 740
 741             LPIDA lpcida = GlobalLock(medium.u.hGlobal);
 742             TRACE("cida=%p\n", lpcida);
 743
 744             apidl = _ILCopyCidaToaPidl(&pidl, lpcida);
 745
 746             /* bind to the source shellfolder */
 747             SHGetDesktopFolder(&psfDesktop);
 748             if(psfDesktop)
 749             {
 750               IShellFolder_BindToObject(psfDesktop, pidl, NULL, &IID_IShellFolder, (LPVOID*)&psfFrom);
 751               IShellFolder_Release(psfDesktop);
 752             }
 753
 754             if (psfFrom)
 755             {
 756               /* get source and destination shellfolder */
 757               ISFHelper *psfhlpdst, *psfhlpsrc;
 758               IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&psfhlpdst);
 759               IShellFolder_QueryInterface(psfFrom, &IID_ISFHelper, (void**)&psfhlpsrc);
 760
 761               /* do the copy/move */
 762               if (psfhlpdst && psfhlpsrc)
 763               {
 764                 ISFHelper_CopyItems(psfhlpdst, psfFrom, lpcida->cidl, (LPCITEMIDLIST*)apidl);
 765                 /* FIXME handle move
 766                 ISFHelper_DeleteItems(psfhlpsrc, lpcida->cidl, apidl);
 767                 */
 768               }
 769               if(psfhlpdst) ISFHelper_Release(psfhlpdst);
 770               if(psfhlpsrc) ISFHelper_Release(psfhlpsrc);
 771               IShellFolder_Release(psfFrom);
 772             }
 773
 774             _ILFreeaPidl(apidl, lpcida->cidl);
 775             SHFree(pidl);
 776
 777             /* release the medium*/
 778             ReleaseStgMedium(&medium);
 779           }
 780           IDataObject_Release(pda);
 781         }
 782 #if 0
 783         HGLOBAL  hMem;
 784
 785         OpenClipboard(NULL);
 786         hMem = GetClipboardData(CF_HDROP);
 787
 788         if(hMem)
 789         {
 790           char * pDropFiles = GlobalLock(hMem);
 791           if(pDropFiles)
 792           {
 793             int len, offset = sizeof(DROPFILESTRUCT);
 794
 795             while( pDropFiles[offset] != 0)
 796             {
 797               len = strlen(pDropFiles + offset);
 798               TRACE("%s\n", pDropFiles + offset);
 799               offset += len+1;
 800             }
 801           }
 802           GlobalUnlock(hMem);
 803         }
 804         CloseClipboard();
 805 #endif
 806         return bSuccess;
 807 }
 808
 809 static HRESULT WINAPI BackgroundMenu_InvokeCommand(
 810         IContextMenu2 *iface,
 811         LPCMINVOKECOMMANDINFO lpcmi)
 812 {
 813     ContextMenu *This = impl_from_IContextMenu2(iface);
 814     IShellBrowser *browser;
 815     IShellView *view = NULL;
 816     HWND hWnd = NULL;
 817
 818     TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n", This, lpcmi, lpcmi->lpVerb, lpcmi->hwnd);
 819
 820     /* get the active IShellView */
 821     if ((browser = (IShellBrowser*)SendMessageA(lpcmi->hwnd, CWM_GETISHELLBROWSER, 0, 0)))
 822     {
 823         if (SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
 824             IShellView_GetWindow(view, &hWnd);
 825     }
 826
 827     if(HIWORD(lpcmi->lpVerb))
 828     {
 829         TRACE("%s\n", debugstr_a(lpcmi->lpVerb));
 830
 831         if (!strcmp(lpcmi->lpVerb, CMDSTR_NEWFOLDERA))
 832         {
 833             DoNewFolder(This, view);
 834         }
 835         else if (!strcmp(lpcmi->lpVerb, CMDSTR_VIEWLISTA))
 836         {
 837             if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_LISTVIEW, 0), 0);
 838         }
 839         else if (!strcmp(lpcmi->lpVerb, CMDSTR_VIEWDETAILSA))
 840         {
 841             if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_REPORTVIEW, 0), 0);
 842         }
 843         else
 844         {
 845             FIXME("please report: unknown verb %s\n", debugstr_a(lpcmi->lpVerb));
 846         }
 847     }
 848     else
 849     {
 850         switch (LOWORD(lpcmi->lpVerb) - This->verb_offset)
 851         {
 852             case FCIDM_SHVIEW_REFRESH:
 853                 if (view) IShellView_Refresh(view);
 854                 break;
 855
 856             case FCIDM_SHVIEW_NEWFOLDER:
 857                 DoNewFolder(This, view);
 858                 break;
 859
 860             case FCIDM_SHVIEW_INSERT:
 861                 DoPaste(This);
 862                 break;
 863
 864             case FCIDM_SHVIEW_PROPERTIES:
 865                 if (This->desktop) {
 866                     ShellExecuteA(lpcmi->hwnd, "open", "rundll32.exe shell32.dll,Control_RunDLL desk.cpl", NULL, NULL, SW_SHOWNORMAL);
 867                 } else {
 868                     FIXME("launch item properties dialog\n");
 869                 }
 870                 break;
 871
 872             default:
 873                 /* if it's an id just pass it to the parent shv */
 874                 if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(lpcmi->lpVerb), 0), 0);
 875                 break;
 876          }
 877     }
 878
 879     if (view)
 880         IShellView_Release(view);
 881
 882     return S_OK;
 883 }
 884
 885 static HRESULT WINAPI BackgroundMenu_GetCommandString(
 886         IContextMenu2 *iface,
 887         UINT_PTR idCommand,
 888         UINT uFlags,
 889         UINT* lpReserved,
 890         LPSTR lpszName,
 891         UINT uMaxNameLen)
 892 {
 893         ContextMenu *This = impl_from_IContextMenu2(iface);
 894
 895         TRACE("(%p)->(idcom=%lx flags=%x %p name=%p len=%x)\n",This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
 896
 897         /* test the existence of the menu items, the file dialog enables
 898            the buttons according to this */
 899         if (uFlags == GCS_VALIDATEA)
 900         {
 901           if(HIWORD(idCommand))
 902           {
 903             if (!strcmp((LPSTR)idCommand, CMDSTR_VIEWLISTA) ||
 904                 !strcmp((LPSTR)idCommand, CMDSTR_VIEWDETAILSA) ||
 905                 !strcmp((LPSTR)idCommand, CMDSTR_NEWFOLDERA))
 906             {
 907               return S_OK;
 908             }
 909           }
 910         }
 911
 912         FIXME("unknown command string\n");
 913         return E_FAIL;
 914 }
 915
 916 static HRESULT WINAPI BackgroundMenu_HandleMenuMsg(
 917         IContextMenu2 *iface,
 918         UINT uMsg,
 919         WPARAM wParam,
 920         LPARAM lParam)
 921 {
 922     ContextMenu *This = impl_from_IContextMenu2(iface);
 923     FIXME("(%p)->(msg=%x wp=%lx lp=%lx)\n",This, uMsg, wParam, lParam);
 924     return E_NOTIMPL;
 925 }
 926
 927 static const IContextMenu2Vtbl BackgroundContextMenuVtbl =
 928 {
 929     BackgroundMenu_QueryInterface,
 930     BackgroundMenu_AddRef,
 931     BackgroundMenu_Release,
 932     BackgroundMenu_QueryContextMenu,
 933     BackgroundMenu_InvokeCommand,
 934     BackgroundMenu_GetCommandString,
 935     BackgroundMenu_HandleMenuMsg
 936 };
 937
 938 IContextMenu2 *BackgroundMenu_Constructor(IShellFolder *parent, BOOL desktop)
 939 {
 940     ContextMenu *This;
 941
 942     This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
 943     This->IContextMenu2_iface.lpVtbl = &BackgroundContextMenuVtbl;
 944     This->ref = 1;
 945     This->parent = parent;
 946     This->verb_offset = 0;
 947
 948     This->pidl = NULL;
 949     This->apidl = NULL;
 950     This->cidl = 0;
 951     This->allvalues = FALSE;
 952
 953     This->desktop = desktop;
 954     if (parent) IShellFolder_AddRef(parent);
 955
 956     TRACE("(%p)\n", This);
 957     return &This->IContextMenu2_iface;
 958 }