jscript: Added VARIANT conversion tests.
[wine] / 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 };