dlls/shell32/cpanelfolder.c

   1 /*
   2  * Control panel folder
   3  *
   4  * Copyright 2003 Martin Fuchs
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <stdarg.h>
  27 #include <stdio.h>
  28
  29 #define COBJMACROS
  30 #define NONAMELESSUNION
  31 #define NONAMELESSSTRUCT
  32
  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 "commctrl.h"
  44 #include "cpanel.h"
  45 #include "pidl.h"
  46 #include "undocshell.h"
  47 #include "shell32_main.h"
  48 #include "shresdef.h"
  49 #include "shlwapi.h"
  50 #include "wine/debug.h"
  51 #include "debughlp.h"
  52 #include "shfldr.h"
  53
  54 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  55
  56 /***********************************************************************
  57 *   control panel implementation in shell namespace
  58 */
  59
  60 typedef struct {
  61     IShellFolder2      IShellFolder2_iface;
  62     IPersistFolder2    IPersistFolder2_iface;
  63     IShellExecuteHookW IShellExecuteHookW_iface;
  64     IShellExecuteHookA IShellExecuteHookA_iface;
  65     LONG               ref;
  66
  67     IUnknown *pUnkOuter;        /* used for aggregation */
  68
  69     /* both paths are parsible from the desktop */
  70     LPITEMIDLIST pidlRoot;      /* absolute pidl */
  71     int dwAttributes;           /* attributes returned by GetAttributesOf FIXME: use it */
  72 } ICPanelImpl;
  73
  74 static const IShellFolder2Vtbl vt_ShellFolder2;
  75 static const IPersistFolder2Vtbl vt_PersistFolder2;
  76 static const IShellExecuteHookWVtbl vt_ShellExecuteHookW;
  77 static const IShellExecuteHookAVtbl vt_ShellExecuteHookA;
  78
  79 static inline ICPanelImpl *impl_from_IShellFolder2(IShellFolder2 *iface)
  80 {
  81     return CONTAINING_RECORD(iface, ICPanelImpl, IShellFolder2_iface);
  82 }
  83
  84 static inline ICPanelImpl *impl_from_IPersistFolder2(IPersistFolder2 *iface)
  85 {
  86     return CONTAINING_RECORD(iface, ICPanelImpl, IPersistFolder2_iface);
  87 }
  88
  89 static inline ICPanelImpl *impl_from_IShellExecuteHookW(IShellExecuteHookW *iface)
  90 {
  91     return CONTAINING_RECORD(iface, ICPanelImpl, IShellExecuteHookW_iface);
  92 }
  93
  94 static inline ICPanelImpl *impl_from_IShellExecuteHookA(IShellExecuteHookA *iface)
  95 {
  96     return CONTAINING_RECORD(iface, ICPanelImpl, IShellExecuteHookA_iface);
  97 }
  98
  99
 100 /***********************************************************************
 101 *   IShellFolder [ControlPanel] implementation
 102 */
 103
 104 static const shvheader ControlPanelSFHeader[] = {
 105     {IDS_SHV_COLUMN8, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_RIGHT, 15},/*FIXME*/
 106     {IDS_SHV_COLUMN9, SHCOLSTATE_TYPE_STR | SHCOLSTATE_ONBYDEFAULT, LVCFMT_LEFT, 80},/*FIXME*/
 107 };
 108
 109 #define CONROLPANELSHELLVIEWCOLUMNS 2
 110
 111 /**************************************************************************
 112 *       IControlPanel_Constructor
 113 */
 114 HRESULT WINAPI IControlPanel_Constructor(IUnknown* pUnkOuter, REFIID riid, LPVOID * ppv)
 115 {
 116     ICPanelImpl *sf;
 117
 118     TRACE("unkOut=%p %s\n", pUnkOuter, shdebugstr_guid(riid));
 119
 120     if (!ppv)
 121         return E_POINTER;
 122     if (pUnkOuter && !IsEqualIID (riid, &IID_IUnknown))
 123         return CLASS_E_NOAGGREGATION;
 124
 125     sf = LocalAlloc(LMEM_ZEROINIT, sizeof(ICPanelImpl));
 126     if (!sf)
 127         return E_OUTOFMEMORY;
 128
 129     sf->ref = 0;
 130     sf->IShellFolder2_iface.lpVtbl = &vt_ShellFolder2;
 131     sf->IPersistFolder2_iface.lpVtbl = &vt_PersistFolder2;
 132     sf->IShellExecuteHookW_iface.lpVtbl = &vt_ShellExecuteHookW;
 133     sf->IShellExecuteHookA_iface.lpVtbl = &vt_ShellExecuteHookA;
 134     sf->pidlRoot = _ILCreateControlPanel();     /* my qualified pidl */
 135     sf->pUnkOuter = pUnkOuter ? pUnkOuter : (IUnknown *)&sf->IShellFolder2_iface;
 136
 137     if (FAILED(IShellFolder2_QueryInterface(&sf->IShellFolder2_iface, riid, ppv))) {
 138         IShellFolder2_Release(&sf->IShellFolder2_iface);
 139         return E_NOINTERFACE;
 140     }
 141
 142     TRACE("--(%p)\n", sf);
 143     return S_OK;
 144 }
 145
 146 /**************************************************************************
 147  *      ISF_ControlPanel_fnQueryInterface
 148  *
 149  * NOTES supports not IPersist/IPersistFolder
 150  */
 151 static HRESULT WINAPI ISF_ControlPanel_fnQueryInterface(IShellFolder2 *iface, REFIID riid,
 152         void **ppvObject)
 153 {
 154     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 155
 156     TRACE("(%p)->(%s,%p)\n", This, shdebugstr_guid(riid), ppvObject);
 157
 158     *ppvObject = NULL;
 159
 160     if (IsEqualIID(riid, &IID_IUnknown) ||
 161         IsEqualIID(riid, &IID_IShellFolder) || IsEqualIID(riid, &IID_IShellFolder2))
 162         *ppvObject = This;
 163     else if (IsEqualIID(riid, &IID_IPersist) ||
 164                IsEqualIID(riid, &IID_IPersistFolder) || IsEqualIID(riid, &IID_IPersistFolder2))
 165         *ppvObject = &This->IPersistFolder2_iface;
 166     else if (IsEqualIID(riid, &IID_IShellExecuteHookW))
 167         *ppvObject = &This->IShellExecuteHookW_iface;
 168     else if (IsEqualIID(riid, &IID_IShellExecuteHookA))
 169         *ppvObject = &This->IShellExecuteHookA_iface;
 170
 171     if (*ppvObject) {
 172         IUnknown_AddRef((IUnknown *)(*ppvObject));
 173         TRACE("-- Interface:(%p)->(%p)\n", ppvObject, *ppvObject);
 174         return S_OK;
 175     }
 176     TRACE("-- Interface: E_NOINTERFACE\n");
 177     return E_NOINTERFACE;
 178 }
 179
 180 static ULONG WINAPI ISF_ControlPanel_fnAddRef(IShellFolder2 *iface)
 181 {
 182     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 183     ULONG refCount = InterlockedIncrement(&This->ref);
 184
 185     TRACE("(%p)->(count=%u)\n", This, refCount - 1);
 186
 187     return refCount;
 188 }
 189
 190 static ULONG WINAPI ISF_ControlPanel_fnRelease(IShellFolder2 *iface)
 191 {
 192     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 193     ULONG refCount = InterlockedDecrement(&This->ref);
 194
 195     TRACE("(%p)->(count=%u)\n", This, refCount + 1);
 196
 197     if (!refCount) {
 198         TRACE("-- destroying IShellFolder(%p)\n", This);
 199         SHFree(This->pidlRoot);
 200         LocalFree(This);
 201     }
 202     return refCount;
 203 }
 204
 205 /**************************************************************************
 206 *       ISF_ControlPanel_fnParseDisplayName
 207 */
 208 static HRESULT WINAPI ISF_ControlPanel_fnParseDisplayName(IShellFolder2 *iface, HWND hwndOwner,
 209         LPBC pbc, LPOLESTR lpszDisplayName, DWORD *pchEaten, LPITEMIDLIST *ppidl,
 210         DWORD *pdwAttributes)
 211 {
 212     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 213
 214     HRESULT hr = E_INVALIDARG;
 215
 216     FIXME("(%p)->(HWND=%p,%p,%p=%s,%p,pidl=%p,%p)\n",
 217            This, hwndOwner, pbc, lpszDisplayName, debugstr_w(lpszDisplayName), pchEaten, ppidl, pdwAttributes);
 218
 219     *ppidl = 0;
 220     if (pchEaten)
 221         *pchEaten = 0;
 222
 223     TRACE("(%p)->(-- ret=0x%08x)\n", This, hr);
 224
 225     return hr;
 226 }
 227
 228 static LPITEMIDLIST _ILCreateCPanelApplet(LPCSTR name, LPCSTR displayName,
 229  LPCSTR comment, int iconIdx)
 230 {
 231     PIDLCPanelStruct *p;
 232     LPITEMIDLIST pidl;
 233     PIDLDATA tmp;
 234     int size0 = (char*)tmp.u.cpanel.szName-(char*)&tmp.u.cpanel;
 235     int size = size0;
 236     int l;
 237
 238     tmp.type = PT_CPLAPPLET;
 239     tmp.u.cpanel.dummy = 0;
 240     tmp.u.cpanel.iconIdx = iconIdx;
 241
 242     l = strlen(name);
 243     size += l+1;
 244
 245     tmp.u.cpanel.offsDispName = l+1;
 246     l = strlen(displayName);
 247     size += l+1;
 248
 249     tmp.u.cpanel.offsComment = tmp.u.cpanel.offsDispName+1+l;
 250     l = strlen(comment);
 251     size += l+1;
 252
 253     pidl = SHAlloc(size+4);
 254     if (!pidl)
 255         return NULL;
 256
 257     pidl->mkid.cb = size+2;
 258     memcpy(pidl->mkid.abID, &tmp, 2+size0);
 259
 260     p = &((PIDLDATA*)pidl->mkid.abID)->u.cpanel;
 261     strcpy(p->szName, name);
 262     strcpy(p->szName+tmp.u.cpanel.offsDispName, displayName);
 263     strcpy(p->szName+tmp.u.cpanel.offsComment, comment);
 264
 265     *(WORD*)((char*)pidl+(size+2)) = 0;
 266
 267     pcheck(pidl);
 268
 269     return pidl;
 270 }
 271
 272 /**************************************************************************
 273  *  _ILGetCPanelPointer()
 274  * gets a pointer to the control panel struct stored in the pidl
 275  */
 276 static PIDLCPanelStruct* _ILGetCPanelPointer(LPCITEMIDLIST pidl)
 277 {
 278     LPPIDLDATA pdata = _ILGetDataPointer(pidl);
 279
 280     if (pdata && pdata->type==PT_CPLAPPLET)
 281         return &pdata->u.cpanel;
 282
 283     return NULL;
 284 }
 285
 286  /**************************************************************************
 287  *              ISF_ControlPanel_fnEnumObjects
 288  */
 289 static BOOL SHELL_RegisterCPanelApp(IEnumIDListImpl *list, LPCSTR path)
 290 {
 291     LPITEMIDLIST pidl;
 292     CPlApplet* applet;
 293     CPanel panel;
 294     CPLINFO info;
 295     unsigned i;
 296     int iconIdx;
 297
 298     char displayName[MAX_PATH];
 299     char comment[MAX_PATH];
 300
 301     WCHAR wpath[MAX_PATH];
 302
 303     MultiByteToWideChar(CP_ACP, 0, path, -1, wpath, MAX_PATH);
 304
 305     panel.first = NULL;
 306     applet = Control_LoadApplet(0, wpath, &panel);
 307
 308     if (applet)
 309     {
 310         for(i=0; i<applet->count; ++i)
 311         {
 312             WideCharToMultiByte(CP_ACP, 0, applet->info[i].name, -1, displayName, MAX_PATH, 0, 0);
 313             WideCharToMultiByte(CP_ACP, 0, applet->info[i].info, -1, comment, MAX_PATH, 0, 0);
 314
 315             applet->proc(0, CPL_INQUIRE, i, (LPARAM)&info);
 316
 317             if (info.idIcon > 0)
 318                 iconIdx = -info.idIcon; /* negative icon index instead of icon number */
 319             else
 320                 iconIdx = 0;
 321
 322             pidl = _ILCreateCPanelApplet(path, displayName, comment, iconIdx);
 323
 324             if (pidl)
 325                 AddToEnumList(list, pidl);
 326         }
 327         Control_UnloadApplet(applet);
 328     }
 329     return TRUE;
 330 }
 331
 332 static int SHELL_RegisterRegistryCPanelApps(IEnumIDListImpl *list, HKEY hkey_root, LPCSTR szRepPath)
 333 {
 334     char name[MAX_PATH];
 335     char value[MAX_PATH];
 336     HKEY hkey;
 337
 338     int cnt = 0;
 339
 340     if (RegOpenKeyA(hkey_root, szRepPath, &hkey) == ERROR_SUCCESS)
 341     {
 342         int idx = 0;
 343
 344         for(;; ++idx)
 345         {
 346             DWORD nameLen = MAX_PATH;
 347             DWORD valueLen = MAX_PATH;
 348
 349             if (RegEnumValueA(hkey, idx, name, &nameLen, NULL, NULL, (LPBYTE)value, &valueLen) != ERROR_SUCCESS)
 350                 break;
 351
 352             if (SHELL_RegisterCPanelApp(list, value))
 353                 ++cnt;
 354         }
 355         RegCloseKey(hkey);
 356     }
 357
 358     return cnt;
 359 }
 360
 361 static int SHELL_RegisterCPanelFolders(IEnumIDListImpl *list, HKEY hkey_root, LPCSTR szRepPath)
 362 {
 363     char name[MAX_PATH];
 364     HKEY hkey;
 365
 366     int cnt = 0;
 367
 368     if (RegOpenKeyA(hkey_root, szRepPath, &hkey) == ERROR_SUCCESS)
 369     {
 370         int idx = 0;
 371         for(;; ++idx)
 372         {
 373             if (RegEnumKeyA(hkey, idx, name, MAX_PATH) != ERROR_SUCCESS)
 374                 break;
 375
 376             if (*name == '{')
 377             {
 378                 LPITEMIDLIST pidl = _ILCreateGuidFromStrA(name);
 379
 380                 if (pidl && AddToEnumList(list, pidl))
 381                     ++cnt;
 382             }
 383         }
 384
 385         RegCloseKey(hkey);
 386     }
 387
 388   return cnt;
 389 }
 390
 391 /**************************************************************************
 392  *  CreateCPanelEnumList()
 393  */
 394 static BOOL CreateCPanelEnumList(IEnumIDListImpl *list, DWORD dwFlags)
 395 {
 396     CHAR szPath[MAX_PATH];
 397     WIN32_FIND_DATAA wfd;
 398     HANDLE hFile;
 399
 400     TRACE("(%p)->(flags=0x%08x)\n", list, dwFlags);
 401
 402     /* enumerate control panel folders */
 403     if (dwFlags & SHCONTF_FOLDERS)
 404         SHELL_RegisterCPanelFolders(list, HKEY_LOCAL_MACHINE,
 405                 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ControlPanel\\NameSpace");
 406
 407     /* enumerate the control panel applets */
 408     if (dwFlags & SHCONTF_NONFOLDERS)
 409     {
 410         LPSTR p;
 411
 412         GetSystemDirectoryA(szPath, MAX_PATH);
 413         p = PathAddBackslashA(szPath);
 414         strcpy(p, "*.cpl");
 415
 416         TRACE("-- (%p)-> enumerate SHCONTF_NONFOLDERS of %s\n", list, debugstr_a(szPath));
 417         hFile = FindFirstFileA(szPath, &wfd);
 418
 419         if (hFile != INVALID_HANDLE_VALUE)
 420         {
 421             do
 422             {
 423                 if (!(dwFlags & SHCONTF_INCLUDEHIDDEN) && (wfd.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN))
 424                     continue;
 425
 426                 if (!(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
 427                     strcpy(p, wfd.cFileName);
 428                     SHELL_RegisterCPanelApp(list, szPath);
 429                 }
 430             } while(FindNextFileA(hFile, &wfd));
 431             FindClose(hFile);
 432         }
 433
 434         SHELL_RegisterRegistryCPanelApps(list, HKEY_LOCAL_MACHINE,
 435                 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Control Panel\\Cpls");
 436         SHELL_RegisterRegistryCPanelApps(list, HKEY_CURRENT_USER,
 437                 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Control Panel\\Cpls");
 438     }
 439     return TRUE;
 440 }
 441
 442 /**************************************************************************
 443 *               ISF_ControlPanel_fnEnumObjects
 444 */
 445 static HRESULT WINAPI ISF_ControlPanel_fnEnumObjects(IShellFolder2 *iface, HWND hwndOwner,
 446         DWORD dwFlags, LPENUMIDLIST *ppEnumIDList)
 447 {
 448     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 449     IEnumIDListImpl *list;
 450
 451     TRACE("(%p)->(HWND=%p flags=0x%08x pplist=%p)\n", This, hwndOwner, dwFlags, ppEnumIDList);
 452
 453     if (!(list = IEnumIDList_Constructor()))
 454         return E_OUTOFMEMORY;
 455     CreateCPanelEnumList(list, dwFlags);
 456     *ppEnumIDList = &list->IEnumIDList_iface;
 457
 458     TRACE("--(%p)->(new ID List: %p)\n", This, *ppEnumIDList);
 459
 460     return S_OK;
 461 }
 462
 463 /**************************************************************************
 464 *               ISF_ControlPanel_fnBindToObject
 465 */
 466 static HRESULT WINAPI ISF_ControlPanel_fnBindToObject(IShellFolder2 *iface, LPCITEMIDLIST pidl,
 467         LPBC pbcReserved, REFIID riid, void **ppvOut)
 468 {
 469     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 470
 471     TRACE("(%p)->(pidl=%p,%p,%s,%p)\n", This, pidl, pbcReserved, shdebugstr_guid(riid), ppvOut);
 472
 473     return SHELL32_BindToChild(This->pidlRoot, NULL, pidl, riid, ppvOut);
 474 }
 475
 476 /**************************************************************************
 477 *       ISF_ControlPanel_fnBindToStorage
 478 */
 479 static HRESULT WINAPI ISF_ControlPanel_fnBindToStorage(IShellFolder2 *iface, LPCITEMIDLIST pidl,
 480         LPBC pbcReserved, REFIID riid, void **ppvOut)
 481 {
 482     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 483
 484     FIXME("(%p)->(pidl=%p,%p,%s,%p) stub\n", This, pidl, pbcReserved, shdebugstr_guid(riid), ppvOut);
 485
 486     *ppvOut = NULL;
 487     return E_NOTIMPL;
 488 }
 489
 490 /**************************************************************************
 491 *       ISF_ControlPanel_fnCompareIDs
 492 */
 493
 494 static HRESULT WINAPI ISF_ControlPanel_fnCompareIDs(IShellFolder2 *iface, LPARAM lParam,
 495         LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2)
 496 {
 497     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 498
 499     int nReturn;
 500
 501     TRACE("(%p)->(0x%08lx,pidl1=%p,pidl2=%p)\n", This, lParam, pidl1, pidl2);
 502     nReturn = SHELL32_CompareIDs((IShellFolder *)&This->IShellFolder2_iface, lParam, pidl1, pidl2);
 503     TRACE("-- %i\n", nReturn);
 504     return nReturn;
 505 }
 506
 507 /**************************************************************************
 508 *       ISF_ControlPanel_fnCreateViewObject
 509 */
 510 static HRESULT WINAPI ISF_ControlPanel_fnCreateViewObject(IShellFolder2 *iface, HWND hwndOwner,
 511         REFIID riid, void **ppvOut)
 512 {
 513     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 514
 515     LPSHELLVIEW pShellView;
 516     HRESULT hr = E_INVALIDARG;
 517
 518     TRACE("(%p)->(hwnd=%p,%s,%p)\n", This, hwndOwner, shdebugstr_guid(riid), ppvOut);
 519
 520     if (ppvOut) {
 521         *ppvOut = NULL;
 522
 523         if (IsEqualIID(riid, &IID_IDropTarget)) {
 524             WARN("IDropTarget not implemented\n");
 525             hr = E_NOTIMPL;
 526         } else if (IsEqualIID(riid, &IID_IContextMenu)) {
 527             WARN("IContextMenu not implemented\n");
 528             hr = E_NOTIMPL;
 529         } else if (IsEqualIID(riid, &IID_IShellView)) {
 530             pShellView = IShellView_Constructor((IShellFolder *) iface);
 531             if (pShellView) {
 532                 hr = IShellView_QueryInterface(pShellView, riid, ppvOut);
 533                 IShellView_Release(pShellView);
 534             }
 535         }
 536     }
 537     TRACE("--(%p)->(interface=%p)\n", This, ppvOut);
 538     return hr;
 539 }
 540
 541 /**************************************************************************
 542 *  ISF_ControlPanel_fnGetAttributesOf
 543 */
 544 static HRESULT WINAPI ISF_ControlPanel_fnGetAttributesOf(IShellFolder2 *iface, UINT cidl,
 545         LPCITEMIDLIST *apidl, DWORD *rgfInOut)
 546 {
 547     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 548
 549     HRESULT hr = S_OK;
 550
 551     TRACE("(%p)->(cidl=%d apidl=%p mask=%p (0x%08x))\n",
 552           This, cidl, apidl, rgfInOut, rgfInOut ? *rgfInOut : 0);
 553
 554     if (!rgfInOut)
 555         return E_INVALIDARG;
 556     if (cidl && !apidl)
 557         return E_INVALIDARG;
 558
 559     if (*rgfInOut == 0)
 560         *rgfInOut = ~0;
 561
 562     while(cidl > 0 && *apidl) {
 563         pdump(*apidl);
 564         SHELL32_GetItemAttributes((IShellFolder *)&This->IShellFolder2_iface, *apidl, rgfInOut);
 565         apidl++;
 566         cidl--;
 567     }
 568     /* make sure SFGAO_VALIDATE is cleared, some apps depend on that */
 569     *rgfInOut &= ~SFGAO_VALIDATE;
 570
 571     TRACE("-- result=0x%08x\n", *rgfInOut);
 572     return hr;
 573 }
 574
 575 /**************************************************************************
 576 *       ISF_ControlPanel_fnGetUIObjectOf
 577 *
 578 * PARAMETERS
 579 *  HWND           hwndOwner, //[in ] Parent window for any output
 580 *  UINT           cidl,      //[in ] array size
 581 *  LPCITEMIDLIST* apidl,     //[in ] simple pidl array
 582 *  REFIID         riid,      //[in ] Requested Interface
 583 *  UINT*          prgfInOut, //[   ] reserved
 584 *  LPVOID*        ppvObject) //[out] Resulting Interface
 585 *
 586 */
 587 static HRESULT WINAPI ISF_ControlPanel_fnGetUIObjectOf(IShellFolder2 *iface, HWND hwndOwner,
 588         UINT cidl, LPCITEMIDLIST *apidl, REFIID riid, UINT *prgfInOut, void **ppvOut)
 589 {
 590     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 591
 592     LPITEMIDLIST pidl;
 593     IUnknown *pObj = NULL;
 594     HRESULT hr = E_INVALIDARG;
 595
 596     TRACE("(%p)->(%p,%u,apidl=%p,%s,%p,%p)\n",
 597            This, hwndOwner, cidl, apidl, shdebugstr_guid(riid), prgfInOut, ppvOut);
 598
 599     if (ppvOut) {
 600         *ppvOut = NULL;
 601
 602         if (IsEqualIID(riid, &IID_IContextMenu) &&(cidl >= 1)) {
 603             return ItemMenu_Constructor((IShellFolder*)iface, This->pidlRoot, apidl, cidl, riid, ppvOut);
 604         } else if (IsEqualIID(riid, &IID_IDataObject) &&(cidl >= 1)) {
 605             pObj = (LPUNKNOWN) IDataObject_Constructor(hwndOwner, This->pidlRoot, apidl, cidl);
 606             hr = S_OK;
 607         } else if (IsEqualIID(riid, &IID_IExtractIconA) &&(cidl == 1)) {
 608             pidl = ILCombine(This->pidlRoot, apidl[0]);
 609             pObj = (LPUNKNOWN) IExtractIconA_Constructor(pidl);
 610             SHFree(pidl);
 611             hr = S_OK;
 612         } else if (IsEqualIID(riid, &IID_IExtractIconW) &&(cidl == 1)) {
 613             pidl = ILCombine(This->pidlRoot, apidl[0]);
 614             pObj = (LPUNKNOWN) IExtractIconW_Constructor(pidl);
 615             SHFree(pidl);
 616             hr = S_OK;
 617         } else if ((IsEqualIID(riid,&IID_IShellLinkW) || IsEqualIID(riid,&IID_IShellLinkA))
 618                                 && (cidl == 1)) {
 619             pidl = ILCombine(This->pidlRoot, apidl[0]);
 620             hr = IShellLink_ConstructFromFile(NULL, riid, pidl,(LPVOID*)&pObj);
 621             SHFree(pidl);
 622         } else {
 623             hr = E_NOINTERFACE;
 624         }
 625
 626         if (SUCCEEDED(hr) && !pObj)
 627             hr = E_OUTOFMEMORY;
 628
 629         *ppvOut = pObj;
 630     }
 631     TRACE("(%p)->hr=0x%08x\n", This, hr);
 632     return hr;
 633 }
 634
 635 /**************************************************************************
 636 *       ISF_ControlPanel_fnGetDisplayNameOf
 637 */
 638 static HRESULT WINAPI ISF_ControlPanel_fnGetDisplayNameOf(IShellFolder2 *iface, LPCITEMIDLIST pidl,
 639         DWORD dwFlags, LPSTRRET strRet)
 640 {
 641     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 642
 643     CHAR szPath[MAX_PATH];
 644     WCHAR wszPath[MAX_PATH+1]; /* +1 for potential backslash */
 645     PIDLCPanelStruct* pcpanel;
 646
 647     *szPath = '\0';
 648
 649     TRACE("(%p)->(pidl=%p,0x%08x,%p)\n", This, pidl, dwFlags, strRet);
 650     pdump(pidl);
 651
 652     if (!pidl || !strRet)
 653         return E_INVALIDARG;
 654
 655     pcpanel = _ILGetCPanelPointer(pidl);
 656
 657     if (pcpanel) {
 658         lstrcpyA(szPath, pcpanel->szName+pcpanel->offsDispName);
 659
 660         if (!(dwFlags & SHGDN_FORPARSING))
 661             FIXME("retrieve display name from control panel app\n");
 662     }
 663     /* take names of special folders only if it's only this folder */
 664     else if (_ILIsSpecialFolder(pidl)) {
 665         BOOL bSimplePidl = _ILIsPidlSimple(pidl);
 666
 667         if (bSimplePidl) {
 668             _ILSimpleGetTextW(pidl, wszPath, MAX_PATH); /* append my own path */
 669         } else {
 670             FIXME("special pidl\n");
 671         }
 672
 673         if ((dwFlags & SHGDN_FORPARSING) && !bSimplePidl) { /* go deeper if needed */
 674             int len = 0;
 675
 676             PathAddBackslashW(wszPath);
 677             len = lstrlenW(wszPath);
 678
 679             if (FAILED(SHELL32_GetDisplayNameOfChild(iface, pidl, dwFlags | SHGDN_INFOLDER, wszPath + len, MAX_PATH + 1 - len)))
 680                 return E_OUTOFMEMORY;
 681             if (!WideCharToMultiByte(CP_ACP, 0, wszPath, -1, szPath, MAX_PATH, NULL, NULL))
 682                 wszPath[0] = '\0';
 683         }
 684     }
 685
 686     strRet->uType = STRRET_CSTR;
 687     lstrcpynA(strRet->u.cStr, szPath, MAX_PATH);
 688
 689     TRACE("--(%p)->(%s)\n", This, szPath);
 690     return S_OK;
 691 }
 692
 693 /**************************************************************************
 694 *  ISF_ControlPanel_fnSetNameOf
 695 *  Changes the name of a file object or subfolder, possibly changing its item
 696 *  identifier in the process.
 697 *
 698 * PARAMETERS
 699 *  HWND          hwndOwner,  //[in ] Owner window for output
 700 *  LPCITEMIDLIST pidl,       //[in ] simple pidl of item to change
 701 *  LPCOLESTR     lpszName,   //[in ] the items new display name
 702 *  DWORD         dwFlags,    //[in ] SHGNO formatting flags
 703 *  LPITEMIDLIST* ppidlOut)   //[out] simple pidl returned
 704 */
 705 static HRESULT WINAPI ISF_ControlPanel_fnSetNameOf(IShellFolder2 *iface, HWND hwndOwner,
 706         LPCITEMIDLIST pidl, LPCOLESTR lpName, DWORD dwFlags, LPITEMIDLIST *pPidlOut)
 707 {
 708     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 709     FIXME("(%p)->(%p,pidl=%p,%s,%u,%p)\n", This, hwndOwner, pidl, debugstr_w(lpName), dwFlags, pPidlOut);
 710     return E_FAIL;
 711 }
 712
 713 static HRESULT WINAPI ISF_ControlPanel_fnGetDefaultSearchGUID(IShellFolder2 *iface, GUID *pguid)
 714 {
 715     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 716     FIXME("(%p)\n", This);
 717     return E_NOTIMPL;
 718 }
 719 static HRESULT WINAPI ISF_ControlPanel_fnEnumSearches(IShellFolder2 *iface,
 720         IEnumExtraSearch **ppenum)
 721 {
 722     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 723     FIXME("(%p)\n", This);
 724     return E_NOTIMPL;
 725 }
 726 static HRESULT WINAPI ISF_ControlPanel_fnGetDefaultColumn(IShellFolder2 *iface, DWORD dwRes,
 727         ULONG *pSort, ULONG *pDisplay)
 728 {
 729     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 730
 731     TRACE("(%p)\n", This);
 732
 733     if (pSort) *pSort = 0;
 734     if (pDisplay) *pDisplay = 0;
 735     return S_OK;
 736 }
 737 static HRESULT WINAPI ISF_ControlPanel_fnGetDefaultColumnState(IShellFolder2 *iface, UINT iColumn,
 738         DWORD *pcsFlags)
 739 {
 740     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 741
 742     TRACE("(%p)\n", This);
 743
 744     if (!pcsFlags || iColumn >= CONROLPANELSHELLVIEWCOLUMNS) return E_INVALIDARG;
 745     *pcsFlags = ControlPanelSFHeader[iColumn].pcsFlags;
 746     return S_OK;
 747 }
 748 static HRESULT WINAPI ISF_ControlPanel_fnGetDetailsEx(IShellFolder2 *iface, LPCITEMIDLIST pidl,
 749         const SHCOLUMNID *pscid, VARIANT *pv)
 750 {
 751     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 752     FIXME("(%p)\n", This);
 753     return E_NOTIMPL;
 754 }
 755
 756 static HRESULT WINAPI ISF_ControlPanel_fnGetDetailsOf(IShellFolder2 *iface, LPCITEMIDLIST pidl,
 757         UINT iColumn, SHELLDETAILS *psd)
 758 {
 759     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 760     PIDLCPanelStruct* pcpanel;
 761     HRESULT hr;
 762
 763     TRACE("(%p)->(%p %i %p)\n", This, pidl, iColumn, psd);
 764
 765     if (!psd || iColumn >= CONROLPANELSHELLVIEWCOLUMNS)
 766         return E_INVALIDARG;
 767
 768     if (!pidl) {
 769         psd->fmt = ControlPanelSFHeader[iColumn].fmt;
 770         psd->cxChar = ControlPanelSFHeader[iColumn].cxChar;
 771         psd->str.uType = STRRET_CSTR;
 772         LoadStringA(shell32_hInstance, ControlPanelSFHeader[iColumn].colnameid, psd->str.u.cStr, MAX_PATH);
 773         return S_OK;
 774     } else {
 775         psd->str.u.cStr[0] = 0x00;
 776         psd->str.uType = STRRET_CSTR;
 777         switch(iColumn) {
 778         case 0:         /* name */
 779             hr = IShellFolder_GetDisplayNameOf(iface, pidl, SHGDN_NORMAL | SHGDN_INFOLDER, &psd->str);
 780             break;
 781         case 1:         /* comment */
 782             pcpanel = _ILGetCPanelPointer(pidl);
 783
 784             if (pcpanel)
 785                 lstrcpyA(psd->str.u.cStr, pcpanel->szName+pcpanel->offsComment);
 786             else
 787                 _ILGetFileType(pidl, psd->str.u.cStr, MAX_PATH);
 788
 789             break;
 790         }
 791         hr = S_OK;
 792     }
 793
 794     return hr;
 795 }
 796 static HRESULT WINAPI ISF_ControlPanel_fnMapColumnToSCID(IShellFolder2 *iface, UINT column,
 797         SHCOLUMNID *pscid)
 798 {
 799     ICPanelImpl *This = impl_from_IShellFolder2(iface);
 800     FIXME("(%p)\n", This);
 801     return E_NOTIMPL;
 802 }
 803
 804 static const IShellFolder2Vtbl vt_ShellFolder2 =
 805 {
 806
 807     ISF_ControlPanel_fnQueryInterface,
 808     ISF_ControlPanel_fnAddRef,
 809     ISF_ControlPanel_fnRelease,
 810     ISF_ControlPanel_fnParseDisplayName,
 811     ISF_ControlPanel_fnEnumObjects,
 812     ISF_ControlPanel_fnBindToObject,
 813     ISF_ControlPanel_fnBindToStorage,
 814     ISF_ControlPanel_fnCompareIDs,
 815     ISF_ControlPanel_fnCreateViewObject,
 816     ISF_ControlPanel_fnGetAttributesOf,
 817     ISF_ControlPanel_fnGetUIObjectOf,
 818     ISF_ControlPanel_fnGetDisplayNameOf,
 819     ISF_ControlPanel_fnSetNameOf,
 820
 821     /* ShellFolder2 */
 822     ISF_ControlPanel_fnGetDefaultSearchGUID,
 823     ISF_ControlPanel_fnEnumSearches,
 824     ISF_ControlPanel_fnGetDefaultColumn,
 825     ISF_ControlPanel_fnGetDefaultColumnState,
 826     ISF_ControlPanel_fnGetDetailsEx,
 827     ISF_ControlPanel_fnGetDetailsOf,
 828     ISF_ControlPanel_fnMapColumnToSCID
 829 };
 830
 831 /************************************************************************
 832  *      ICPanel_PersistFolder2_QueryInterface
 833  */
 834 static HRESULT WINAPI ICPanel_PersistFolder2_QueryInterface(IPersistFolder2 * iface, REFIID iid, LPVOID * ppvObject)
 835 {
 836     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 837
 838     TRACE("(%p)\n", This);
 839
 840     return IShellFolder2_QueryInterface(&This->IShellFolder2_iface, iid, ppvObject);
 841 }
 842
 843 /************************************************************************
 844  *      ICPanel_PersistFolder2_AddRef
 845  */
 846 static ULONG WINAPI ICPanel_PersistFolder2_AddRef(IPersistFolder2 * iface)
 847 {
 848     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 849
 850     TRACE("(%p)->(count=%u)\n", This, This->ref);
 851
 852     return IShellFolder2_AddRef(&This->IShellFolder2_iface);
 853 }
 854
 855 /************************************************************************
 856  *      ISFPersistFolder_Release
 857  */
 858 static ULONG WINAPI ICPanel_PersistFolder2_Release(IPersistFolder2 * iface)
 859 {
 860     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 861
 862     TRACE("(%p)->(count=%u)\n", This, This->ref);
 863
 864     return IShellFolder2_Release(&This->IShellFolder2_iface);
 865 }
 866
 867 /************************************************************************
 868  *      ICPanel_PersistFolder2_GetClassID
 869  */
 870 static HRESULT WINAPI ICPanel_PersistFolder2_GetClassID(IPersistFolder2 * iface, CLSID * lpClassId)
 871 {
 872     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 873
 874     TRACE("(%p)\n", This);
 875
 876     if (!lpClassId)
 877         return E_POINTER;
 878     *lpClassId = CLSID_ControlPanel;
 879
 880     return S_OK;
 881 }
 882
 883 /************************************************************************
 884  *      ICPanel_PersistFolder2_Initialize
 885  *
 886  * NOTES: it makes no sense to change the pidl
 887  */
 888 static HRESULT WINAPI ICPanel_PersistFolder2_Initialize(IPersistFolder2 * iface, LPCITEMIDLIST pidl)
 889 {
 890     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 891     TRACE("(%p)->(%p)\n", This, pidl);
 892     return E_NOTIMPL;
 893 }
 894
 895 /**************************************************************************
 896  *      IPersistFolder2_fnGetCurFolder
 897  */
 898 static HRESULT WINAPI ICPanel_PersistFolder2_GetCurFolder(IPersistFolder2 * iface, LPITEMIDLIST * pidl)
 899 {
 900     ICPanelImpl *This = impl_from_IPersistFolder2(iface);
 901
 902     TRACE("(%p)->(%p)\n", This, pidl);
 903
 904     if (!pidl)
 905         return E_POINTER;
 906     *pidl = ILClone(This->pidlRoot);
 907     return S_OK;
 908 }
 909
 910 static const IPersistFolder2Vtbl vt_PersistFolder2 =
 911 {
 912
 913     ICPanel_PersistFolder2_QueryInterface,
 914     ICPanel_PersistFolder2_AddRef,
 915     ICPanel_PersistFolder2_Release,
 916     ICPanel_PersistFolder2_GetClassID,
 917     ICPanel_PersistFolder2_Initialize,
 918     ICPanel_PersistFolder2_GetCurFolder
 919 };
 920
 921 HRESULT CPanel_GetIconLocationW(LPCITEMIDLIST pidl,
 922                LPWSTR szIconFile, UINT cchMax, int* piIndex)
 923 {
 924     PIDLCPanelStruct* pcpanel = _ILGetCPanelPointer(pidl);
 925
 926     if (!pcpanel)
 927         return E_INVALIDARG;
 928
 929     MultiByteToWideChar(CP_ACP, 0, pcpanel->szName, -1, szIconFile, cchMax);
 930     *piIndex = pcpanel->iconIdx!=-1? pcpanel->iconIdx: 0;
 931
 932     return S_OK;
 933 }
 934
 935
 936 /**************************************************************************
 937 * IShellExecuteHookW Implementation
 938 */
 939
 940 static HRESULT WINAPI IShellExecuteHookW_fnQueryInterface(
 941                IShellExecuteHookW* iface, REFIID riid, void** ppvObject)
 942 {
 943     ICPanelImpl *This = impl_from_IShellExecuteHookW(iface);
 944
 945     TRACE("(%p)->(count=%u)\n", This, This->ref);
 946
 947     return IUnknown_QueryInterface(This->pUnkOuter, riid, ppvObject);
 948 }
 949
 950 static ULONG STDMETHODCALLTYPE IShellExecuteHookW_fnAddRef(IShellExecuteHookW* iface)
 951 {
 952     ICPanelImpl *This = impl_from_IShellExecuteHookW(iface);
 953
 954     TRACE("(%p)->(count=%u)\n", This, This->ref);
 955
 956     return IUnknown_AddRef(This->pUnkOuter);
 957 }
 958
 959 static ULONG STDMETHODCALLTYPE IShellExecuteHookW_fnRelease(IShellExecuteHookW* iface)
 960 {
 961     ICPanelImpl *This = impl_from_IShellExecuteHookW(iface);
 962
 963     TRACE("(%p)\n", This);
 964
 965     return IUnknown_Release(This->pUnkOuter);
 966 }
 967
 968 static HRESULT WINAPI IShellExecuteHookW_fnExecute(IShellExecuteHookW *iface,
 969         LPSHELLEXECUTEINFOW psei)
 970 {
 971     ICPanelImpl *This = impl_from_IShellExecuteHookW(iface);
 972     static const WCHAR wCplopen[] = {'c','p','l','o','p','e','n','\0'};
 973
 974     SHELLEXECUTEINFOW sei_tmp;
 975     PIDLCPanelStruct* pcpanel;
 976     WCHAR path[MAX_PATH];
 977     WCHAR params[MAX_PATH];
 978     BOOL ret;
 979     int l;
 980
 981     TRACE("(%p)->execute(%p)\n", This, psei);
 982
 983     if (!psei)
 984         return E_INVALIDARG;
 985
 986     pcpanel = _ILGetCPanelPointer(ILFindLastID(psei->lpIDList));
 987
 988     if (!pcpanel)
 989         return E_INVALIDARG;
 990
 991     path[0] = '\"';
 992     /* Return value from MultiByteToWideChar includes terminating NUL, which
 993      * compensates for the starting double quote we just put in */
 994     l = MultiByteToWideChar(CP_ACP, 0, pcpanel->szName, -1, path+1, MAX_PATH-1);
 995
 996     /* pass applet name to Control_RunDLL to distinguish between applets in one .cpl file */
 997     path[l++] = '"';
 998     path[l] = '\0';
 999
1000     MultiByteToWideChar(CP_ACP, 0, pcpanel->szName+pcpanel->offsDispName, -1, params, MAX_PATH);
1001
1002     sei_tmp = *psei;
1003     sei_tmp.lpFile = path;
1004     sei_tmp.lpParameters = params;
1005     sei_tmp.fMask &= ~SEE_MASK_INVOKEIDLIST;
1006     sei_tmp.lpVerb = wCplopen;
1007
1008     ret = ShellExecuteExW(&sei_tmp);
1009     if (ret)
1010         return S_OK;
1011     else
1012         return S_FALSE;
1013 }
1014
1015 static const IShellExecuteHookWVtbl vt_ShellExecuteHookW =
1016 {
1017
1018     IShellExecuteHookW_fnQueryInterface,
1019     IShellExecuteHookW_fnAddRef,
1020     IShellExecuteHookW_fnRelease,
1021
1022     IShellExecuteHookW_fnExecute
1023 };
1024
1025
1026 /**************************************************************************
1027 * IShellExecuteHookA Implementation
1028 */
1029
1030 static HRESULT WINAPI IShellExecuteHookA_fnQueryInterface(IShellExecuteHookA* iface, REFIID riid, void** ppvObject)
1031 {
1032     ICPanelImpl *This = impl_from_IShellExecuteHookA(iface);
1033
1034     TRACE("(%p)->(count=%u)\n", This, This->ref);
1035
1036     return IUnknown_QueryInterface(This->pUnkOuter, riid, ppvObject);
1037 }
1038
1039 static ULONG STDMETHODCALLTYPE IShellExecuteHookA_fnAddRef(IShellExecuteHookA* iface)
1040 {
1041     ICPanelImpl *This = impl_from_IShellExecuteHookA(iface);
1042
1043     TRACE("(%p)->(count=%u)\n", This, This->ref);
1044
1045     return IUnknown_AddRef(This->pUnkOuter);
1046 }
1047
1048 static ULONG STDMETHODCALLTYPE IShellExecuteHookA_fnRelease(IShellExecuteHookA* iface)
1049 {
1050     ICPanelImpl *This = impl_from_IShellExecuteHookA(iface);
1051
1052     TRACE("(%p)\n", This);
1053
1054     return IUnknown_Release(This->pUnkOuter);
1055 }
1056
1057 static HRESULT WINAPI IShellExecuteHookA_fnExecute(IShellExecuteHookA *iface,
1058         LPSHELLEXECUTEINFOA psei)
1059 {
1060     ICPanelImpl *This = impl_from_IShellExecuteHookA(iface);
1061
1062     SHELLEXECUTEINFOA sei_tmp;
1063     PIDLCPanelStruct* pcpanel;
1064     char path[MAX_PATH];
1065     BOOL ret;
1066
1067     TRACE("(%p)->execute(%p)\n", This, psei);
1068
1069     if (!psei)
1070         return E_INVALIDARG;
1071
1072     pcpanel = _ILGetCPanelPointer(ILFindLastID(psei->lpIDList));
1073
1074     if (!pcpanel)
1075         return E_INVALIDARG;
1076
1077     path[0] = '\"';
1078     lstrcpyA(path+1, pcpanel->szName);
1079
1080     /* pass applet name to Control_RunDLL to distinguish between applets in one .cpl file */
1081     lstrcatA(path, "\" ");
1082     lstrcatA(path, pcpanel->szName+pcpanel->offsDispName);
1083
1084     sei_tmp = *psei;
1085     sei_tmp.lpFile = path;
1086     sei_tmp.fMask &= ~SEE_MASK_INVOKEIDLIST;
1087
1088     ret = ShellExecuteExA(&sei_tmp);
1089     if (ret)
1090         return S_OK;
1091     else
1092         return S_FALSE;
1093 }
1094
1095 static const IShellExecuteHookAVtbl vt_ShellExecuteHookA =
1096 {
1097     IShellExecuteHookA_fnQueryInterface,
1098     IShellExecuteHookA_fnAddRef,
1099     IShellExecuteHookA_fnRelease,
1100     IShellExecuteHookA_fnExecute
1101 };