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