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