2 * Shell Folder stuff (...and all the OLE-Objects of SHELL32.DLL)
4 * Copyright 1997 Marcus Meissner
5 * Copyright 1998 Juergen Schmied <juergen.schmied@metronet.de>
16 #include "interfaces.h"
24 #include "shell32_main.h"
26 /*************************************************************************
29 typedef DWORD (* WINAPI GetClassPtr)(REFCLSID,REFIID,LPVOID);
31 static GetClassPtr SH_find_moduleproc(LPSTR dllname,HMODULE32 *xhmod,LPSTR name)
33 FARPROC32 dllunload,nameproc;
35 TRACE(shell,"dll=%s, hmodule=%p, name=%s\n",dllname, xhmod, name);
39 if (!strcasecmp(PathFindFilename(dllname),"shell32.dll"))
40 { return (GetClassPtr)SHELL32_DllGetClassObject;
43 hmod = LoadLibraryEx32A(dllname,0,LOAD_WITH_ALTERED_SEARCH_PATH);
47 dllunload = GetProcAddress32(hmod,"DllCanUnloadNow");
53 nameproc = GetProcAddress32(hmod,name);
55 { FreeLibrary32(hmod);
58 /* register unloadable dll with unloadproc ... */
59 return (GetClassPtr)nameproc;
61 /*************************************************************************
64 static DWORD SH_get_instance(REFCLSID clsid,LPSTR dllname,LPVOID unknownouter,REFIID refiid,LPVOID inst)
65 { GetClassPtr dllgetclassob;
67 LPCLASSFACTORY classfac;
69 char xclsid[50],xrefiid[50];
70 WINE_StringFromCLSID((LPCLSID)clsid,xclsid);
71 WINE_StringFromCLSID((LPCLSID)refiid,xrefiid);
72 TRACE(shell,"\n\tCLSID:%s,%s,%p,\n\tIID:%s,%p\n",xclsid, dllname,unknownouter,xrefiid,inst);
74 dllgetclassob = SH_find_moduleproc(dllname,NULL,"DllGetClassObject");
76 { return 0x80070000|GetLastError();
79 hres = (*dllgetclassob)(clsid,(REFIID)&IID_IClassFactory,&classfac);
80 if (hres<0 || (hres>=0x80000000))
84 { FIXME(shell,"no classfactory, but hres is 0x%ld!\n",hres);
87 classfac->lpvtbl->fnCreateInstance(classfac,unknownouter,refiid,inst);
88 classfac->lpvtbl->fnRelease(classfac);
92 /*************************************************************************
93 * SHCoCreateInstance [SHELL32.102]
98 LRESULT WINAPI SHCoCreateInstance(LPSTR aclsid,CLSID *clsid,LPUNKNOWN unknownouter,REFIID refiid,LPVOID inst)
99 { char buffer[256],xclsid[48],xiid[48],path[260],tmodel[100];
101 DWORD pathlen,type,tmodellen;
104 WINE_StringFromCLSID(refiid,xiid);
107 { WINE_StringFromCLSID(clsid,xclsid);
113 strcpy(xclsid,aclsid);
115 TRACE(shell,"(%p,\n\tSID:\t%s,%p,\n\tIID:\t%s,%p)\n",aclsid,xclsid,unknownouter,xiid,inst);
117 sprintf(buffer,"CLSID\\%s\\InProcServer32",xclsid);
119 if (RegOpenKeyEx32A(HKEY_CLASSES_ROOT,buffer,0,0x02000000,&inprockey))
120 { return SH_get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
122 pathlen=sizeof(path);
124 if (RegQueryValue32A(inprockey,NULL,path,&pathlen))
125 { RegCloseKey(inprockey);
126 return SH_get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
129 TRACE(shell, "Server dll is %s\n",path);
130 tmodellen=sizeof(tmodel);
132 if (RegQueryValueEx32A(inprockey,"ThreadingModel",NULL,&type,tmodel,&tmodellen))
133 { RegCloseKey(inprockey);
134 return SH_get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
137 TRACE(shell, "Threading model is %s\n",tmodel);
139 hres=SH_get_instance(clsid,path,unknownouter,refiid,inst);
141 { hres=SH_get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
143 RegCloseKey(inprockey);
148 /*************************************************************************
149 * SHELL32_DllGetClassObject [SHELL32.128]
151 * [Standart OLE/COM Interface Method]
152 * This Function retrives the pointer to a specified interface (iid) of
153 * a given class (rclsid).
154 * With this pointer it's possible to call the IClassFactory_CreateInstance
155 * method to get a instance of the requested Class.
156 * This function does NOT instantiate the Class!!!
162 DWORD WINAPI SHELL32_DllGetClassObject(REFCLSID rclsid,REFIID iid,LPVOID *ppv)
163 { HRESULT hres = E_OUTOFMEMORY;
164 LPCLASSFACTORY lpclf;
166 char xclsid[50],xiid[50];
167 WINE_StringFromCLSID((LPCLSID)rclsid,xclsid);
168 WINE_StringFromCLSID((LPCLSID)iid,xiid);
169 TRACE(shell,"\n\tCLSID:\t%s,\n\tIID:\t%s\n",xclsid,xiid);
172 if(IsEqualCLSID(rclsid, &CLSID_ShellDesktop)||
173 IsEqualCLSID(rclsid, &CLSID_ShellLink))
174 { if(IsEqualCLSID(rclsid, &CLSID_ShellDesktop)) /*debug*/
175 { TRACE(shell,"-- requested CLSID_ShellDesktop\n");
177 if(IsEqualCLSID(rclsid, &CLSID_ShellLink)) /*debug*/
178 { TRACE(shell,"-- requested CLSID_ShellLink\n");
180 lpclf = IClassFactory_Constructor();
182 { hres = lpclf->lpvtbl->fnQueryInterface(lpclf,iid, ppv);
183 lpclf->lpvtbl->fnRelease(lpclf);
187 { WARN(shell, "-- CLSID not found\n");
188 hres = CLASS_E_CLASSNOTAVAILABLE;
190 TRACE(shell,"-- return pointer to interface: %p\n",*ppv);
194 /*************************************************************************
195 * SHGetMalloc [SHELL32.220]
196 * returns the interface to shell malloc.
198 * [SDK header win95/shlobj.h:
199 * equivalent to: #define SHGetMalloc(ppmem) CoGetMalloc(MEMCTX_TASK, ppmem)
201 * What we are currently doing is not very wrong, since we always use the same
202 * heap (ProcessHeap).
204 DWORD WINAPI SHGetMalloc(LPMALLOC32 *lpmal)
205 { TRACE(shell,"(%p)\n", lpmal);
206 return CoGetMalloc32(0,lpmal);
209 /**************************************************************************
210 * IClassFactory Implementation
212 static HRESULT WINAPI IClassFactory_QueryInterface(LPCLASSFACTORY,REFIID,LPVOID*);
213 static ULONG WINAPI IClassFactory_AddRef(LPCLASSFACTORY);
214 static ULONG WINAPI IClassFactory_Release(LPCLASSFACTORY);
215 static HRESULT WINAPI IClassFactory_CreateInstance();
216 static HRESULT WINAPI IClassFactory_LockServer();
217 /**************************************************************************
218 * IClassFactory_VTable
220 static IClassFactory_VTable clfvt =
221 { IClassFactory_QueryInterface,
222 IClassFactory_AddRef,
223 IClassFactory_Release,
224 IClassFactory_CreateInstance,
225 IClassFactory_LockServer
228 /**************************************************************************
229 * IClassFactory_Constructor
232 LPCLASSFACTORY IClassFactory_Constructor()
233 { LPCLASSFACTORY lpclf;
235 lpclf= (LPCLASSFACTORY)HeapAlloc(GetProcessHeap(),0,sizeof(IClassFactory));
237 lpclf->lpvtbl = &clfvt;
238 TRACE(shell,"(%p)->()\n",lpclf);
241 /**************************************************************************
242 * IClassFactory::QueryInterface
244 static HRESULT WINAPI IClassFactory_QueryInterface(
245 LPCLASSFACTORY this, REFIID riid, LPVOID *ppvObj)
247 WINE_StringFromCLSID((LPCLSID)riid,xriid);
248 TRACE(shell,"(%p)->(\n\tIID:\t%s)\n",this,xriid);
252 if(IsEqualIID(riid, &IID_IUnknown)) /*IUnknown*/
255 else if(IsEqualIID(riid, &IID_IClassFactory)) /*IClassFactory*/
256 { *ppvObj = (IClassFactory*)this;
260 { (*(LPCLASSFACTORY*)ppvObj)->lpvtbl->fnAddRef(this);
261 TRACE(shell,"-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
264 TRACE(shell,"-- Interface: E_NOINTERFACE\n");
265 return E_NOINTERFACE;
267 /******************************************************************************
268 * IClassFactory_AddRef
270 static ULONG WINAPI IClassFactory_AddRef(LPCLASSFACTORY this)
271 { TRACE(shell,"(%p)->(count=%lu)\n",this,this->ref);
272 return ++(this->ref);
274 /******************************************************************************
275 * IClassFactory_Release
277 static ULONG WINAPI IClassFactory_Release(LPCLASSFACTORY this)
278 { TRACE(shell,"(%p)->(count=%lu)\n",this,this->ref);
280 { TRACE(shell,"-- destroying IClassFactory(%p)\n",this);
281 HeapFree(GetProcessHeap(),0,this);
286 /******************************************************************************
287 * IClassFactory_CreateInstance
289 static HRESULT WINAPI IClassFactory_CreateInstance(
290 LPCLASSFACTORY this, LPUNKNOWN pUnknown, REFIID riid, LPVOID *ppObject)
291 { IUnknown *pObj = NULL;
295 WINE_StringFromCLSID((LPCLSID)riid,xriid);
296 TRACE(shell,"%p->(%p,\n\tIID:\t%s,%p)\n",this,pUnknown,xriid,ppObject);
301 { return(CLASS_E_NOAGGREGATION);
304 if (IsEqualIID(riid, &IID_IShellFolder))
305 { pObj = (IUnknown *)IShellFolder_Constructor(NULL,NULL);
307 else if (IsEqualIID(riid, &IID_IShellView))
308 { pObj = (IUnknown *)IShellView_Constructor();
310 else if (IsEqualIID(riid, &IID_IShellLink))
311 { pObj = (IUnknown *)IShellLink_Constructor();
313 else if (IsEqualIID(riid, &IID_IExtractIcon))
314 { pObj = (IUnknown *)IExtractIcon_Constructor(NULL);
316 else if (IsEqualIID(riid, &IID_IContextMenu))
317 { pObj = (IUnknown *)IContextMenu_Constructor(NULL, NULL, 0);
320 { ERR(shell,"unknown IID requested\n\tIID:\t%s\n",xriid);
321 return(E_NOINTERFACE);
325 { return(E_OUTOFMEMORY);
328 hres = pObj->lpvtbl->fnQueryInterface(pObj,riid, ppObject);
329 pObj->lpvtbl->fnRelease(pObj);
330 TRACE(shell,"-- Object created: (%p)->%p\n",this,*ppObject);
334 /******************************************************************************
335 * IClassFactory_LockServer
337 static HRESULT WINAPI IClassFactory_LockServer(LPCLASSFACTORY this, BOOL32 fLock)
338 { TRACE(shell,"%p->(0x%x), not implemented\n",this, fLock);