2 * Common Dialog Boxes interface (32 bit)
5 * Copyright 1999 Bertho A. Stultiens
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
34 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(commdlg
);
41 DECLSPEC_HIDDEN HINSTANCE COMDLG32_hInstance
= 0;
43 static DWORD COMDLG32_TlsIndex
= TLS_OUT_OF_INDEXES
;
45 static HINSTANCE SHELL32_hInstance
;
46 static HINSTANCE SHFOLDER_hInstance
;
49 LPITEMIDLIST (WINAPI
*COMDLG32_PIDL_ILClone
) (LPCITEMIDLIST
) DECLSPEC_HIDDEN
;
50 LPITEMIDLIST (WINAPI
*COMDLG32_PIDL_ILCombine
)(LPCITEMIDLIST
,LPCITEMIDLIST
) DECLSPEC_HIDDEN
;
51 LPITEMIDLIST (WINAPI
*COMDLG32_PIDL_ILGetNext
)(LPITEMIDLIST
) DECLSPEC_HIDDEN
;
52 BOOL (WINAPI
*COMDLG32_PIDL_ILRemoveLastID
)(LPCITEMIDLIST
) DECLSPEC_HIDDEN
;
53 BOOL (WINAPI
*COMDLG32_PIDL_ILIsEqual
)(LPCITEMIDLIST
, LPCITEMIDLIST
) DECLSPEC_HIDDEN
;
54 UINT (WINAPI
*COMDLG32_PIDL_ILGetSize
)(LPCITEMIDLIST
) DECLSPEC_HIDDEN
;
57 LPVOID (WINAPI
*COMDLG32_SHAlloc
)(DWORD
) DECLSPEC_HIDDEN
;
58 DWORD (WINAPI
*COMDLG32_SHFree
)(LPVOID
) DECLSPEC_HIDDEN
;
59 BOOL (WINAPI
*COMDLG32_SHGetFolderPathW
)(HWND
,int,HANDLE
,DWORD
,LPWSTR
) DECLSPEC_HIDDEN
;
60 LPITEMIDLIST (WINAPI
*COMDLG32_SHSimpleIDListFromPathAW
)(LPCVOID
) DECLSPEC_HIDDEN
;
62 /***********************************************************************
63 * DllMain (COMDLG32.init)
65 * Initialization code for the COMDLG32 DLL
68 * FALSE if sibling could not be loaded or instantiated twice, TRUE
71 static const char GPA_string
[] = "Failed to get entry point %s for hinst = %p\n";
72 #define GPA(dest, hinst, name) \
73 if(!(dest = (void*)GetProcAddress(hinst,name)))\
75 ERR(GPA_string, debugstr_a(name), hinst); \
79 BOOL WINAPI
DllMain(HINSTANCE hInstance
, DWORD Reason
, LPVOID Reserved
)
81 TRACE("(%p, %d, %p)\n", hInstance
, Reason
, Reserved
);
85 case DLL_PROCESS_ATTACH
:
86 COMDLG32_hInstance
= hInstance
;
87 DisableThreadLibraryCalls(hInstance
);
89 SHELL32_hInstance
= GetModuleHandleA("SHELL32.DLL");
92 GPA(COMDLG32_PIDL_ILIsEqual
, SHELL32_hInstance
, (LPCSTR
)21L);
93 GPA(COMDLG32_PIDL_ILCombine
, SHELL32_hInstance
, (LPCSTR
)25L);
94 GPA(COMDLG32_PIDL_ILGetNext
, SHELL32_hInstance
, (LPCSTR
)153L);
95 GPA(COMDLG32_PIDL_ILClone
, SHELL32_hInstance
, (LPCSTR
)18L);
96 GPA(COMDLG32_PIDL_ILRemoveLastID
, SHELL32_hInstance
, (LPCSTR
)17L);
97 GPA(COMDLG32_PIDL_ILGetSize
, SHELL32_hInstance
, (LPCSTR
)152L);
100 GPA(COMDLG32_SHSimpleIDListFromPathAW
, SHELL32_hInstance
, (LPCSTR
)162);
101 GPA(COMDLG32_SHAlloc
, SHELL32_hInstance
, (LPCSTR
)196L);
102 GPA(COMDLG32_SHFree
, SHELL32_hInstance
, (LPCSTR
)195L);
104 /* for the first versions of shell32 SHGetFolderPathW is in SHFOLDER.DLL */
105 COMDLG32_SHGetFolderPathW
= (void*)GetProcAddress(SHELL32_hInstance
,"SHGetFolderPathW");
106 if (!COMDLG32_SHGetFolderPathW
)
108 SHFOLDER_hInstance
= LoadLibraryA("SHFOLDER.DLL");
109 GPA(COMDLG32_SHGetFolderPathW
, SHFOLDER_hInstance
,"SHGetFolderPathW");
114 case DLL_PROCESS_DETACH
:
116 if (COMDLG32_TlsIndex
!= TLS_OUT_OF_INDEXES
) TlsFree(COMDLG32_TlsIndex
);
117 if(SHFOLDER_hInstance
) FreeLibrary(SHFOLDER_hInstance
);
124 /***********************************************************************
125 * COMDLG32_AllocMem (internal)
126 * Get memory for internal datastructure plus stringspace etc.
128 * Success: Pointer to a heap block
131 LPVOID
COMDLG32_AllocMem(
132 int size
/* [in] Block size to allocate */
134 LPVOID ptr
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, size
);
137 COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE
);
144 /***********************************************************************
145 * COMDLG32_SetCommDlgExtendedError (internal)
147 * Used to set the thread's local error value if a comdlg32 function fails.
149 void COMDLG32_SetCommDlgExtendedError(DWORD err
)
151 TRACE("(%08x)\n", err
);
152 if (COMDLG32_TlsIndex
== TLS_OUT_OF_INDEXES
)
153 COMDLG32_TlsIndex
= TlsAlloc();
154 if (COMDLG32_TlsIndex
!= TLS_OUT_OF_INDEXES
)
155 TlsSetValue(COMDLG32_TlsIndex
, (LPVOID
)(DWORD_PTR
)err
);
157 FIXME("No Tls Space\n");
161 /***********************************************************************
162 * CommDlgExtendedError (COMDLG32.@)
164 * Get the thread's local error value if a comdlg32 function fails.
166 * Current error value which might not be valid
167 * if a previous call succeeded.
169 DWORD WINAPI
CommDlgExtendedError(void)
171 if (COMDLG32_TlsIndex
!= TLS_OUT_OF_INDEXES
)
172 return (DWORD_PTR
)TlsGetValue(COMDLG32_TlsIndex
);
174 return 0; /* we never set an error, so there isn't one */
177 #ifndef __REACTOS__ /* Win 7 */
179 /*************************************************************************
180 * Implement the CommDlg32 class factory
182 * (Taken from shdocvw/factory.c; based on implementation in
187 IClassFactory IClassFactory_iface
;
188 HRESULT (*cf
)(IUnknown
*, REFIID
, void**);
191 static inline IClassFactoryImpl
*impl_from_IClassFactory(IClassFactory
*iface
)
193 return CONTAINING_RECORD(iface
, IClassFactoryImpl
, IClassFactory_iface
);
196 /*************************************************************************
197 * CDLGCF_QueryInterface (IUnknown)
199 static HRESULT WINAPI
CDLGCF_QueryInterface(IClassFactory
* iface
,
200 REFIID riid
, void **ppobj
)
202 TRACE("%p (%s %p)\n", iface
, debugstr_guid(riid
), ppobj
);
207 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IClassFactory
, riid
))
210 IClassFactory_AddRef(iface
);
214 WARN("Interface not supported.\n");
217 return E_NOINTERFACE
;
220 /*************************************************************************
221 * CDLGCF_AddRef (IUnknown)
223 static ULONG WINAPI
CDLGCF_AddRef(IClassFactory
*iface
)
225 return 2; /* non-heap based object */
228 /*************************************************************************
229 * CDLGCF_Release (IUnknown)
231 static ULONG WINAPI
CDLGCF_Release(IClassFactory
*iface
)
233 return 1; /* non-heap based object */
236 /*************************************************************************
237 * CDLGCF_CreateInstance (IClassFactory)
239 static HRESULT WINAPI
CDLGCF_CreateInstance(IClassFactory
*iface
, IUnknown
*pOuter
,
240 REFIID riid
, void **ppobj
)
242 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
243 return This
->cf(pOuter
, riid
, ppobj
);
246 /*************************************************************************
247 * CDLGCF_LockServer (IClassFactory)
249 static HRESULT WINAPI
CDLGCF_LockServer(IClassFactory
*iface
, BOOL dolock
)
251 TRACE("%p (%d)\n", iface
, dolock
);
255 static const IClassFactoryVtbl CDLGCF_Vtbl
=
257 CDLGCF_QueryInterface
,
260 CDLGCF_CreateInstance
,
264 /*************************************************************************
265 * DllGetClassObject (COMMDLG32.@)
267 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID riid
, void **ppv
)
269 static IClassFactoryImpl FileOpenDlgClassFactory
= {{&CDLGCF_Vtbl
}, FileOpenDialog_Constructor
};
270 static IClassFactoryImpl FileSaveDlgClassFactory
= {{&CDLGCF_Vtbl
}, FileSaveDialog_Constructor
};
272 TRACE("%s, %s, %p\n", debugstr_guid(rclsid
), debugstr_guid(riid
), ppv
);
274 if(IsEqualGUID(&CLSID_FileOpenDialog
, rclsid
))
275 return IClassFactory_QueryInterface(&FileOpenDlgClassFactory
.IClassFactory_iface
, riid
, ppv
);
277 if(IsEqualGUID(&CLSID_FileSaveDialog
, rclsid
))
278 return IClassFactory_QueryInterface(&FileSaveDlgClassFactory
.IClassFactory_iface
, riid
, ppv
);
280 return CLASS_E_CLASSNOTAVAILABLE
;
283 /***********************************************************************
284 * DllRegisterServer (COMMDLG32.@)
286 HRESULT WINAPI
DllRegisterServer(void)
289 return E_FAIL
; // FIXME: __wine_register_resources(COMDLG32_hInstance);
291 return __wine_register_resources(COMDLG32_hInstance
);
295 /***********************************************************************
296 * DllUnregisterServer (COMMDLG32.@)
298 HRESULT WINAPI
DllUnregisterServer(void)
301 return E_FAIL
; // FIXME: __wine_unregister_resources(COMDLG32_hInstance);
303 return __wine_unregister_resources(COMDLG32_hInstance
);