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