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