dlls/commdlg/cdlg32.c

   1 /*
   2  *  Common Dialog Boxes interface (32 bit)
   3  *  Find/Replace
   4  *
   5  * Copyright 1999 Bertho A. Stultiens
   6  *
   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.
  11  *
  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.
  16  *
  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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "winbase.h"
  23 #include "wine/winbase16.h"
  24 #include "commdlg.h"
  25 #include "cderr.h"
  26 #include "wine/debug.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
  29
  30 #include "cdlg.h"
  31
  32
  33 HINSTANCE       COMDLG32_hInstance = 0;
  34 HINSTANCE16     COMDLG32_hInstance16 = 0;
  35
  36 static DWORD    COMDLG32_TlsIndex;
  37
  38 HINSTANCE       SHELL32_hInstance = 0;
  39 HINSTANCE       SHFOLDER_hInstance = 0;
  40
  41 /* ITEMIDLIST */
  42 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILClone) (LPCITEMIDLIST);
  43 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILCombine)(LPCITEMIDLIST,LPCITEMIDLIST);
  44 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILGetNext)(LPITEMIDLIST);
  45 BOOL (WINAPI *COMDLG32_PIDL_ILRemoveLastID)(LPCITEMIDLIST);
  46 BOOL (WINAPI *COMDLG32_PIDL_ILIsEqual)(LPCITEMIDLIST, LPCITEMIDLIST);
  47
  48 /* SHELL */
  49 LPVOID (WINAPI *COMDLG32_SHAlloc)(DWORD);
  50 DWORD (WINAPI *COMDLG32_SHFree)(LPVOID);
  51 BOOL (WINAPI *COMDLG32_SHGetFolderPathA)(HWND,int,HANDLE,DWORD,LPSTR);
  52 BOOL (WINAPI *COMDLG32_SHGetFolderPathW)(HWND,int,HANDLE,DWORD,LPWSTR);
  53
  54 /***********************************************************************
  55  *      COMDLG32_DllEntryPoint                  (COMDLG32.init)
  56  *
  57  *    Initialization code for the COMDLG32 DLL
  58  *
  59  * RETURNS:
  60  *      FALSE if sibling could not be loaded or instantiated twice, TRUE
  61  *      otherwise.
  62  */
  63 static char * GPA_string = "Failed to get entry point %s for hinst = 0x%08x\n";
  64 #define GPA(dest, hinst, name) \
  65         if(!(dest = (void*)GetProcAddress(hinst,name)))\
  66         { \
  67           ERR(GPA_string, debugstr_a(name), hinst); \
  68           return FALSE; \
  69         }
  70
  71 BOOL WINAPI COMDLG32_DllEntryPoint(HINSTANCE hInstance, DWORD Reason, LPVOID Reserved)
  72 {
  73         TRACE("(%08x, %08lx, %p)\n", hInstance, Reason, Reserved);
  74
  75         switch(Reason)
  76         {
  77         case DLL_PROCESS_ATTACH:
  78                 COMDLG32_hInstance = hInstance;
  79                 DisableThreadLibraryCalls(hInstance);
  80
  81                 if(!COMDLG32_hInstance16)
  82                 {
  83                         if(!(COMDLG32_hInstance16 = LoadLibrary16("commdlg.dll")))
  84                         {
  85                                 ERR("Could not load sibling commdlg.dll\n");
  86                                 return FALSE;
  87                         }
  88                 }
  89
  90                 COMDLG32_TlsIndex = 0xffffffff;
  91
  92                 SHELL32_hInstance = GetModuleHandleA("SHELL32.DLL");
  93
  94                 if (!SHELL32_hInstance)
  95                 {
  96                         ERR("loading of shell32 failed\n");
  97                         return FALSE;
  98                 }
  99
 100                 /* ITEMIDLIST */
 101                 GPA(COMDLG32_PIDL_ILIsEqual, SHELL32_hInstance, (LPCSTR)21L);
 102                 GPA(COMDLG32_PIDL_ILCombine, SHELL32_hInstance, (LPCSTR)25L);
 103                 GPA(COMDLG32_PIDL_ILGetNext, SHELL32_hInstance, (LPCSTR)153L);
 104                 GPA(COMDLG32_PIDL_ILClone, SHELL32_hInstance, (LPCSTR)18L);
 105                 GPA(COMDLG32_PIDL_ILRemoveLastID, SHELL32_hInstance, (LPCSTR)17L);
 106
 107                 /* SHELL */
 108
 109                 GPA(COMDLG32_SHAlloc, SHELL32_hInstance, (LPCSTR)196L);
 110                 GPA(COMDLG32_SHFree, SHELL32_hInstance, (LPCSTR)195L);
 111                 /* for the first versions of shell32 SHGetFolderPathA is in SHFOLDER.DLL */
 112                 COMDLG32_SHGetFolderPathA = (void*)GetProcAddress(SHELL32_hInstance,"SHGetFolderPathA");
 113                 if (!COMDLG32_SHGetFolderPathA)
 114                 {
 115                   SHFOLDER_hInstance = LoadLibraryA("SHFOLDER.DLL");
 116                   GPA(COMDLG32_SHGetFolderPathA, SHFOLDER_hInstance,"SHGetFolderPathA");
 117                 }
 118
 119                 /* for the first versions of shell32 SHGetFolderPathW is in SHFOLDER.DLL */
 120                 COMDLG32_SHGetFolderPathW = (void*)GetProcAddress(SHELL32_hInstance,"SHGetFolderPathW");
 121                 if (!COMDLG32_SHGetFolderPathW)
 122                 {
 123                   SHFOLDER_hInstance = LoadLibraryA("SHFOLDER.DLL");
 124                   GPA(COMDLG32_SHGetFolderPathW, SHFOLDER_hInstance,"SHGetFolderPathW");
 125                 }
 126
 127                 break;
 128
 129         case DLL_PROCESS_DETACH:
 130             if (COMDLG32_TlsIndex != 0xffffffff) TlsFree(COMDLG32_TlsIndex);
 131             COMDLG32_TlsIndex = 0xffffffff;
 132             COMDLG32_hInstance = 0;
 133             if(COMDLG32_hInstance16) FreeLibrary16(COMDLG32_hInstance16);
 134             if(SHFOLDER_hInstance) FreeLibrary(SHFOLDER_hInstance);
 135             break;
 136         }
 137         return TRUE;
 138 }
 139 #undef GPA
 140
 141 /***********************************************************************
 142  *      COMDLG32_AllocMem                       (internal)
 143  * Get memory for internal datastructure plus stringspace etc.
 144  *      RETURNS
 145  *              Pointer to a heap block: Succes
 146  *              NULL: Failure
 147  */
 148 LPVOID COMDLG32_AllocMem(
 149         int size        /* [in] Block size to allocate */
 150 ) {
 151         LPVOID ptr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
 152         if(!ptr)
 153         {
 154                 COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
 155                 return NULL;
 156         }
 157         return ptr;
 158 }
 159
 160
 161 /***********************************************************************
 162  *      COMDLG32_SetCommDlgExtendedError        (internal)
 163  *
 164  * Used to set the thread's local error value if a comdlg32 function fails.
 165  */
 166 void COMDLG32_SetCommDlgExtendedError(DWORD err)
 167 {
 168         TRACE("(%08lx)\n", err);
 169         if (COMDLG32_TlsIndex == 0xffffffff)
 170           COMDLG32_TlsIndex = TlsAlloc();
 171         if (COMDLG32_TlsIndex != 0xffffffff)
 172           TlsSetValue(COMDLG32_TlsIndex, (void *)err);
 173         else
 174           FIXME("No Tls Space\n");
 175 }
 176
 177
 178 /***********************************************************************
 179  *      CommDlgExtendedError                    (COMMDLG.26)
 180  *      CommDlgExtendedError                    (COMDLG32.@)
 181  *
 182  * Get the thread's local error value if a comdlg32 function fails.
 183  *      RETURNS
 184  *              Current error value which might not be valid
 185  *              if a previous call succeeded.
 186  */
 187 DWORD WINAPI CommDlgExtendedError(void)
 188 {
 189         if (COMDLG32_TlsIndex != 0xffffffff)
 190           return (DWORD)TlsGetValue(COMDLG32_TlsIndex);
 191         else
 192           return 0; /* we never set an error, so there isn't one */
 193 }