/* * Common Dialog Boxes interface (32 bit) * Find/Replace * * Copyright 1999 Bertho A. Stultiens * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include <stdarg.h> #define COBJMACROS #include "windef.h" #include "winbase.h" #include "wingdi.h" #include "winuser.h" #include "objbase.h" #include "rpcproxy.h" #include "commdlg.h" #include "cderr.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(commdlg); #include "cdlg.h" DECLSPEC_HIDDEN HINSTANCE COMDLG32_hInstance = 0; static DWORD COMDLG32_TlsIndex = TLS_OUT_OF_INDEXES; static HINSTANCE SHELL32_hInstance; static HINSTANCE SHFOLDER_hInstance; /* ITEMIDLIST */ LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILClone) (LPCITEMIDLIST) DECLSPEC_HIDDEN; LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILCombine)(LPCITEMIDLIST,LPCITEMIDLIST) DECLSPEC_HIDDEN; LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILGetNext)(LPITEMIDLIST) DECLSPEC_HIDDEN; BOOL (WINAPI *COMDLG32_PIDL_ILRemoveLastID)(LPCITEMIDLIST) DECLSPEC_HIDDEN; BOOL (WINAPI *COMDLG32_PIDL_ILIsEqual)(LPCITEMIDLIST, LPCITEMIDLIST) DECLSPEC_HIDDEN; UINT (WINAPI *COMDLG32_PIDL_ILGetSize)(LPCITEMIDLIST) DECLSPEC_HIDDEN; /* SHELL */ LPVOID (WINAPI *COMDLG32_SHAlloc)(DWORD) DECLSPEC_HIDDEN; DWORD (WINAPI *COMDLG32_SHFree)(LPVOID) DECLSPEC_HIDDEN; BOOL (WINAPI *COMDLG32_SHGetFolderPathW)(HWND,int,HANDLE,DWORD,LPWSTR) DECLSPEC_HIDDEN; LPITEMIDLIST (WINAPI *COMDLG32_SHSimpleIDListFromPathAW)(LPCVOID) DECLSPEC_HIDDEN; /*********************************************************************** * DllMain (COMDLG32.init) * * Initialization code for the COMDLG32 DLL * * RETURNS: * FALSE if sibling could not be loaded or instantiated twice, TRUE * otherwise. */ static const char GPA_string[] = "Failed to get entry point %s for hinst = %p\n"; #define GPA(dest, hinst, name) \ if(!(dest = (void*)GetProcAddress(hinst,name)))\ { \ ERR(GPA_string, debugstr_a(name), hinst); \ return FALSE; \ } BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD Reason, LPVOID Reserved) { TRACE("(%p, %d, %p)\n", hInstance, Reason, Reserved); switch(Reason) { case DLL_PROCESS_ATTACH: COMDLG32_hInstance = hInstance; DisableThreadLibraryCalls(hInstance); SHELL32_hInstance = GetModuleHandleA("SHELL32.DLL"); /* ITEMIDLIST */ GPA(COMDLG32_PIDL_ILIsEqual, SHELL32_hInstance, (LPCSTR)21L); GPA(COMDLG32_PIDL_ILCombine, SHELL32_hInstance, (LPCSTR)25L); GPA(COMDLG32_PIDL_ILGetNext, SHELL32_hInstance, (LPCSTR)153L); GPA(COMDLG32_PIDL_ILClone, SHELL32_hInstance, (LPCSTR)18L); GPA(COMDLG32_PIDL_ILRemoveLastID, SHELL32_hInstance, (LPCSTR)17L); GPA(COMDLG32_PIDL_ILGetSize, SHELL32_hInstance, (LPCSTR)152L); /* SHELL */ GPA(COMDLG32_SHSimpleIDListFromPathAW, SHELL32_hInstance, (LPCSTR)162); GPA(COMDLG32_SHAlloc, SHELL32_hInstance, (LPCSTR)196L); GPA(COMDLG32_SHFree, SHELL32_hInstance, (LPCSTR)195L); /* for the first versions of shell32 SHGetFolderPathW is in SHFOLDER.DLL */ COMDLG32_SHGetFolderPathW = (void*)GetProcAddress(SHELL32_hInstance,"SHGetFolderPathW"); if (!COMDLG32_SHGetFolderPathW) { SHFOLDER_hInstance = LoadLibraryA("SHFOLDER.DLL"); GPA(COMDLG32_SHGetFolderPathW, SHFOLDER_hInstance,"SHGetFolderPathW"); } break; case DLL_PROCESS_DETACH: if (Reserved) break; if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) TlsFree(COMDLG32_TlsIndex); if(SHFOLDER_hInstance) FreeLibrary(SHFOLDER_hInstance); break; } return TRUE; } #undef GPA /*********************************************************************** * COMDLG32_AllocMem (internal) * Get memory for internal datastructure plus stringspace etc. * RETURNS * Success: Pointer to a heap block * Failure: null */ LPVOID COMDLG32_AllocMem( int size /* [in] Block size to allocate */ ) { LPVOID ptr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size); if(!ptr) { COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE); return NULL; } return ptr; } /*********************************************************************** * COMDLG32_SetCommDlgExtendedError (internal) * * Used to set the thread's local error value if a comdlg32 function fails. */ void COMDLG32_SetCommDlgExtendedError(DWORD err) { TRACE("(%08x)\n", err); if (COMDLG32_TlsIndex == TLS_OUT_OF_INDEXES) COMDLG32_TlsIndex = TlsAlloc(); if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) TlsSetValue(COMDLG32_TlsIndex, (LPVOID)(DWORD_PTR)err); else FIXME("No Tls Space\n"); } /*********************************************************************** * CommDlgExtendedError (COMDLG32.@) * * Get the thread's local error value if a comdlg32 function fails. * RETURNS * Current error value which might not be valid * if a previous call succeeded. */ DWORD WINAPI CommDlgExtendedError(void) { if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) return (DWORD_PTR)TlsGetValue(COMDLG32_TlsIndex); else return 0; /* we never set an error, so there isn't one */ } /************************************************************************* * Implement the CommDlg32 class factory * * (Taken from shdocvw/factory.c; based on implementation in * ddraw/main.c) */ typedef struct { IClassFactory IClassFactory_iface; HRESULT (*cf)(IUnknown*, REFIID, void**); } IClassFactoryImpl; static inline IClassFactoryImpl *impl_from_IClassFactory(IClassFactory *iface) { return CONTAINING_RECORD(iface, IClassFactoryImpl, IClassFactory_iface); } /************************************************************************* * CDLGCF_QueryInterface (IUnknown) */ static HRESULT WINAPI CDLGCF_QueryInterface(IClassFactory* iface, REFIID riid, void **ppobj) { TRACE("%p (%s %p)\n", iface, debugstr_guid(riid), ppobj); if(!ppobj) return E_POINTER; if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) { *ppobj = iface; IClassFactory_AddRef(iface); return S_OK; } WARN("Interface not supported.\n"); *ppobj = NULL; return E_NOINTERFACE; } /************************************************************************* * CDLGCF_AddRef (IUnknown) */ static ULONG WINAPI CDLGCF_AddRef(IClassFactory *iface) { return 2; /* non-heap based object */ } /************************************************************************* * CDLGCF_Release (IUnknown) */ static ULONG WINAPI CDLGCF_Release(IClassFactory *iface) { return 1; /* non-heap based object */ } /************************************************************************* * CDLGCF_CreateInstance (IClassFactory) */ static HRESULT WINAPI CDLGCF_CreateInstance(IClassFactory *iface, IUnknown *pOuter, REFIID riid, void **ppobj) { IClassFactoryImpl *This = impl_from_IClassFactory(iface); return This->cf(pOuter, riid, ppobj); } /************************************************************************* * CDLGCF_LockServer (IClassFactory) */ static HRESULT WINAPI CDLGCF_LockServer(IClassFactory *iface, BOOL dolock) { TRACE("%p (%d)\n", iface, dolock); return S_OK; } static const IClassFactoryVtbl CDLGCF_Vtbl = { CDLGCF_QueryInterface, CDLGCF_AddRef, CDLGCF_Release, CDLGCF_CreateInstance, CDLGCF_LockServer }; /************************************************************************* * DllGetClassObject (COMMDLG32.@) */ HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, void **ppv) { static IClassFactoryImpl FileOpenDlgClassFactory = {{&CDLGCF_Vtbl}, FileOpenDialog_Constructor}; static IClassFactoryImpl FileSaveDlgClassFactory = {{&CDLGCF_Vtbl}, FileSaveDialog_Constructor}; TRACE("%s, %s, %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv); if(IsEqualGUID(&CLSID_FileOpenDialog, rclsid)) return IClassFactory_QueryInterface(&FileOpenDlgClassFactory.IClassFactory_iface, riid, ppv); if(IsEqualGUID(&CLSID_FileSaveDialog, rclsid)) return IClassFactory_QueryInterface(&FileSaveDlgClassFactory.IClassFactory_iface, riid, ppv); return CLASS_E_CLASSNOTAVAILABLE; } /*********************************************************************** * DllRegisterServer (COMMDLG32.@) */ HRESULT WINAPI DllRegisterServer(void) { return __wine_register_resources(COMDLG32_hInstance); } /*********************************************************************** * DllUnregisterServer (COMMDLG32.@) */ HRESULT WINAPI DllUnregisterServer(void) { return __wine_unregister_resources(COMDLG32_hInstance); }