2 * handling of SHELL32.DLL OLE-Objects
4 * Copyright 1997 Marcus Meissner
5 * Copyright 1998 Juergen Schmied <juergen.schmied@metronet.de>
12 #include "wine/obj_base.h"
13 #include "wine/obj_shelllink.h"
14 #include "wine/obj_shellfolder.h"
15 #include "wine/obj_shellbrowser.h"
16 #include "wine/obj_contextmenu.h"
17 #include "wine/obj_shellextinit.h"
18 #include "wine/obj_extracticon.h"
21 #include "winversion.h"
24 #include "debugtools.h"
26 #include "shell32_main.h"
28 DEFAULT_DEBUG_CHANNEL(shell)
30 DWORD WINAPI SHCLSIDFromStringA (LPSTR clsid, CLSID *id);
32 /*************************************************************************
33 * SHCoCreateInstance [SHELL32.102]
38 LRESULT WINAPI SHCoCreateInstance(
41 IUnknown * unknownouter,
45 char xclsid[48], xiid[48], xuout[48];
48 CLSID * myclsid = (CLSID*)clsid;
50 WINE_StringFromCLSID(refiid,xiid);
54 if (!aclsid) return REGDB_E_CLASSNOTREG;
55 SHCLSIDFromStringA(aclsid, &iid);
59 WINE_StringFromCLSID(myclsid,xclsid);
60 WINE_StringFromCLSID(refiid,xiid);
62 WINE_StringFromCLSID(unknownouter,xuout);
64 TRACE("(%p,\n\tCLSID:\t%s\n\tUOUT:\t%s\n\tIID:\t%s,%p)\n",
65 aclsid,xclsid,unknownouter?xuout:"nil",xiid,ppv);
67 hres = CoCreateInstance(myclsid, NULL, CLSCTX_INPROC_SERVER, refiid, ppv);
71 ERR("failed (0x%08lx) to create \n\tCLSID:\t%s\n\tIID:\t%s\n", hres, xclsid, xiid);
72 ERR("you might need to import the winedefault.reg\n");
78 /*************************************************************************
79 * SHELL32_DllGetClassObject [SHELL32.128]
81 HRESULT WINAPI SHELL32_DllGetClassObject(REFCLSID rclsid, REFIID iid,LPVOID *ppv)
82 { HRESULT hres = E_OUTOFMEMORY;
85 char xclsid[50],xiid[50];
86 WINE_StringFromCLSID((LPCLSID)rclsid,xclsid);
87 WINE_StringFromCLSID((LPCLSID)iid,xiid);
88 TRACE("\n\tCLSID:\t%s,\n\tIID:\t%s\n",xclsid,xiid);
92 if(IsEqualCLSID(rclsid, &CLSID_PaperBin))
94 ERR("paper bin not implemented\n");
95 return CLASS_E_CLASSNOTAVAILABLE;
97 if(IsEqualCLSID(rclsid, &CLSID_ShellDesktop)||
98 IsEqualCLSID(rclsid, &CLSID_ShellLink))
100 lpclf = IClassFactory_Constructor( rclsid );
104 hres = IClassFactory_QueryInterface(lpclf,iid, ppv);
105 IClassFactory_Release(lpclf);
110 WARN("-- CLSID not found\n");
111 hres = CLASS_E_CLASSNOTAVAILABLE;
113 TRACE("-- pointer to class factory: %p\n",*ppv);
117 /*************************************************************************
118 * SHCLSIDFromString [SHELL32.147]
121 * exported by ordinal
123 DWORD WINAPI SHCLSIDFromStringA (LPSTR clsid, CLSID *id)
125 TRACE("(%p(%s) %p)\n", clsid, clsid, id);
126 return CLSIDFromString16(clsid, id);
128 DWORD WINAPI SHCLSIDFromStringW (LPWSTR clsid, CLSID *id)
130 TRACE("(%p(%s) %p)\n", clsid, debugstr_w(clsid), id);
131 return CLSIDFromString(clsid, id);
133 DWORD WINAPI SHCLSIDFromStringAW (LPVOID clsid, CLSID *id)
135 if (VERSION_OsIsUnicode())
136 return SHCLSIDFromStringW (clsid, id);
137 return SHCLSIDFromStringA (clsid, id);
140 /*************************************************************************
141 * SHGetMalloc [SHELL32.220]
142 * returns the interface to shell malloc.
144 * [SDK header win95/shlobj.h:
145 * equivalent to: #define SHGetMalloc(ppmem) CoGetMalloc(MEMCTX_TASK, ppmem)
147 * What we are currently doing is not very wrong, since we always use the same
148 * heap (ProcessHeap).
150 DWORD WINAPI SHGetMalloc(LPMALLOC *lpmal)
152 TRACE("(%p)\n", lpmal);
153 return CoGetMalloc(0,lpmal);
156 /*************************************************************************
157 * SHGetDesktopFolder [SHELL32.216]
159 LPSHELLFOLDER pdesktopfolder=NULL;
161 DWORD WINAPI SHGetDesktopFolder(IShellFolder **psf)
164 LPCLASSFACTORY lpclf;
165 TRACE_(shell)("%p->(%p)\n",psf,*psf);
171 lpclf = IClassFactory_Constructor(&CLSID_ShellDesktop);
174 hres = IClassFactory_CreateInstance(lpclf,NULL,(REFIID)&IID_IShellFolder, (void*)&pdesktopfolder);
175 IClassFactory_Release(lpclf);
181 /* even if we create the folder, add a ref so the application can“t destroy the folder*/
182 IShellFolder_AddRef(pdesktopfolder);
183 *psf = pdesktopfolder;
186 TRACE_(shell)("-- %p->(%p)\n",psf, *psf);
190 /**************************************************************************
191 * IClassFactory Implementation
196 /* IUnknown fields */
197 ICOM_VTABLE(IClassFactory)* lpvtbl;
202 static ICOM_VTABLE(IClassFactory) clfvt;
204 /**************************************************************************
205 * IClassFactory_Constructor
208 LPCLASSFACTORY IClassFactory_Constructor(REFCLSID rclsid)
210 IClassFactoryImpl* lpclf;
212 lpclf= (IClassFactoryImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IClassFactoryImpl));
214 lpclf->lpvtbl = &clfvt;
215 lpclf->rclsid = (CLSID*)rclsid;
217 TRACE("(%p)->()\n",lpclf);
219 return (LPCLASSFACTORY)lpclf;
221 /**************************************************************************
222 * IClassFactory_QueryInterface
224 static HRESULT WINAPI IClassFactory_fnQueryInterface(
225 LPCLASSFACTORY iface, REFIID riid, LPVOID *ppvObj)
227 ICOM_THIS(IClassFactoryImpl,iface);
229 WINE_StringFromCLSID((LPCLSID)riid,xriid);
230 TRACE("(%p)->(\n\tIID:\t%s)\n",This,xriid);
234 if(IsEqualIID(riid, &IID_IUnknown)) /*IUnknown*/
237 else if(IsEqualIID(riid, &IID_IClassFactory)) /*IClassFactory*/
238 { *ppvObj = (IClassFactory*)This;
242 { IUnknown_AddRef((LPUNKNOWN)*ppvObj);
243 TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
246 TRACE("-- Interface: %s E_NOINTERFACE\n", xriid);
247 return E_NOINTERFACE;
249 /******************************************************************************
250 * IClassFactory_AddRef
252 static ULONG WINAPI IClassFactory_fnAddRef(LPCLASSFACTORY iface)
254 ICOM_THIS(IClassFactoryImpl,iface);
255 TRACE("(%p)->(count=%lu)\n",This,This->ref);
258 return ++(This->ref);
260 /******************************************************************************
261 * IClassFactory_Release
263 static ULONG WINAPI IClassFactory_fnRelease(LPCLASSFACTORY iface)
265 ICOM_THIS(IClassFactoryImpl,iface);
266 TRACE("(%p)->(count=%lu)\n",This,This->ref);
270 { TRACE("-- destroying IClassFactory(%p)\n",This);
271 HeapFree(GetProcessHeap(),0,This);
276 /******************************************************************************
277 * IClassFactory_CreateInstance
279 static HRESULT WINAPI IClassFactory_fnCreateInstance(
280 LPCLASSFACTORY iface, LPUNKNOWN pUnknown, REFIID riid, LPVOID *ppObject)
282 ICOM_THIS(IClassFactoryImpl,iface);
283 IUnknown *pObj = NULL;
287 WINE_StringFromCLSID((LPCLSID)riid,xriid);
288 TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnknown,xriid,ppObject);
294 return(CLASS_E_NOAGGREGATION);
297 if (IsEqualCLSID(This->rclsid, &CLSID_ShellDesktop))
299 pObj = (IUnknown *)ISF_Desktop_Constructor();
301 else if (IsEqualCLSID(This->rclsid, &CLSID_ShellLink))
303 pObj = (IUnknown *)IShellLink_Constructor(FALSE);
307 ERR("unknown IID requested\n\tIID:\t%s\n",xriid);
308 return(E_NOINTERFACE);
313 return(E_OUTOFMEMORY);
316 hres = IUnknown_QueryInterface(pObj,riid, ppObject);
317 IUnknown_Release(pObj);
319 TRACE("-- Object created: (%p)->%p\n",This,*ppObject);
323 /******************************************************************************
324 * IClassFactory_LockServer
326 static HRESULT WINAPI IClassFactory_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
328 ICOM_THIS(IClassFactoryImpl,iface);
329 TRACE("%p->(0x%x), not implemented\n",This, fLock);
333 static ICOM_VTABLE(IClassFactory) clfvt =
335 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
336 IClassFactory_fnQueryInterface,
337 IClassFactory_fnAddRef,
338 IClassFactory_fnRelease,
339 IClassFactory_fnCreateInstance,
340 IClassFactory_fnLockServer
343 /**************************************************************************
344 * Default ClassFactory Implementation
346 * SHCreateDefClassObject
349 * helper function for dll's without a own classfactory
350 * a generic classfactory is returned
351 * when the CreateInstance of the cf is called the callback is executed
353 typedef HRESULT (CALLBACK * LPFNCREATEINSTANCE)(IUnknown* pUnkOuter, REFIID riid, LPVOID* ppvObject);
357 ICOM_VTABLE(IClassFactory)* lpvtbl;
360 LPFNCREATEINSTANCE lpfnCI;
361 const IID * riidInst;
362 UINT * pcRefDll; /* pointer to refcounter in external dll (ugrrr...) */
365 static ICOM_VTABLE(IClassFactory) dclfvt;
367 /**************************************************************************
368 * IDefClF_fnConstructor
371 IClassFactory * IDefClF_fnConstructor(LPFNCREATEINSTANCE lpfnCI, UINT * pcRefDll, REFIID riidInst)
376 WINE_StringFromCLSID((LPCLSID)riidInst,xriidInst);
378 lpclf = (IDefClFImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IDefClFImpl));
380 lpclf->lpvtbl = &dclfvt;
381 lpclf->lpfnCI = lpfnCI;
382 lpclf->pcRefDll = pcRefDll;
387 lpclf->riidInst = riidInst;
389 TRACE("(%p)\n\tIID:\t%s\n",lpclf, xriidInst);
391 return (LPCLASSFACTORY)lpclf;
393 /**************************************************************************
394 * IDefClF_fnQueryInterface
396 static HRESULT WINAPI IDefClF_fnQueryInterface(
397 LPCLASSFACTORY iface, REFIID riid, LPVOID *ppvObj)
399 ICOM_THIS(IDefClFImpl,iface);
401 WINE_StringFromCLSID((LPCLSID)riid,xriid);
402 TRACE("(%p)->(\n\tIID:\t%s)\n",This,xriid);
406 if(IsEqualIID(riid, &IID_IUnknown)) /*IUnknown*/
409 else if(IsEqualIID(riid, &IID_IClassFactory)) /*IClassFactory*/
410 { *ppvObj = (IClassFactory*)This;
414 { IUnknown_AddRef((LPUNKNOWN)*ppvObj);
415 TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
418 TRACE("-- Interface: %s E_NOINTERFACE\n", xriid);
419 return E_NOINTERFACE;
421 /******************************************************************************
424 static ULONG WINAPI IDefClF_fnAddRef(LPCLASSFACTORY iface)
426 ICOM_THIS(IDefClFImpl,iface);
427 TRACE("(%p)->(count=%lu)\n",This,This->ref);
431 return ++(This->ref);
433 /******************************************************************************
436 static ULONG WINAPI IDefClF_fnRelease(LPCLASSFACTORY iface)
438 ICOM_THIS(IDefClFImpl,iface);
439 TRACE("(%p)->(count=%lu)\n",This,This->ref);
448 TRACE("-- destroying IClassFactory(%p)\n",This);
449 HeapFree(GetProcessHeap(),0,This);
454 /******************************************************************************
455 * IDefClF_fnCreateInstance
457 static HRESULT WINAPI IDefClF_fnCreateInstance(
458 LPCLASSFACTORY iface, LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
460 ICOM_THIS(IDefClFImpl,iface);
463 WINE_StringFromCLSID((LPCLSID)riid,xriid);
464 TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnkOuter,xriid,ppvObject);
469 return(CLASS_E_NOAGGREGATION);
471 if ( This->riidInst==NULL ||
472 IsEqualCLSID(riid, This->riidInst) ||
473 IsEqualCLSID(riid, &IID_IUnknown) )
475 return This->lpfnCI(pUnkOuter, riid, ppvObject);
478 ERR("unknown IID requested\n\tIID:\t%s\n",xriid);
479 return E_NOINTERFACE;
481 /******************************************************************************
482 * IDefClF_fnLockServer
484 static HRESULT WINAPI IDefClF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
486 ICOM_THIS(IDefClFImpl,iface);
487 TRACE("%p->(0x%x), not implemented\n",This, fLock);
491 static ICOM_VTABLE(IClassFactory) dclfvt =
493 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
494 IDefClF_fnQueryInterface,
497 IDefClF_fnCreateInstance,
501 /******************************************************************************
502 * SHCreateDefClassObject [SHELL32.70]
504 HRESULT WINAPI SHCreateDefClassObject(
507 LPFNCREATEINSTANCE lpfnCI, /* create instance callback entry */
508 UINT *pcRefDll, /* ref count of the dll */
509 REFIID riidInst) /* optional interface to the instance */
512 char xriid[50],xriidInst[50];
513 WINE_StringFromCLSID((LPCLSID)riid,xriid);
514 WINE_StringFromCLSID((LPCLSID)riidInst,xriidInst);
516 TRACE("\n\tIID:\t%s %p %p %p \n\tIIDIns:\t%s\n",
517 xriid, ppv, lpfnCI, pcRefDll, xriidInst);
519 if ( IsEqualCLSID(riid, &IID_IClassFactory) )
521 IClassFactory * pcf = IDefClF_fnConstructor(lpfnCI, pcRefDll, riidInst);
527 return E_OUTOFMEMORY;
529 return E_NOINTERFACE;