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