?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Release 20030408.
[wine/gsoc-2012-control.git] / dlls / shell32 / shell32_main.c
blob0cb62da984f159cdf6c14593066d13931c93c0e5
1 /*
2 * Shell basics
3 *
4 * Copyright 1998 Marcus Meissner
5 * Copyright 1998 Juergen Schmied (jsch) * <juergen.schmied@metronet.de>
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 "config.h"
23
24 #include <stdlib.h>
25 #include <string.h>
26 #include <stdio.h>
27
28 #include "windef.h"
29 #include "winerror.h"
30 #include "winreg.h"
31 #include "dlgs.h"
32 #include "shellapi.h"
33 #include "shlobj.h"
34 #include "shlguid.h"
35 #include "shlwapi.h"
36
37 #include "undocshell.h"
38 #include "wine/winuser16.h"
39 #include "authors.h"
40 #include "heap.h"
41 #include "pidl.h"
42 #include "shell32_main.h"
43
44 #include "wine/debug.h"
45 #include "wine/unicode.h"
46
47 WINE_DEFAULT_DEBUG_CHANNEL(shell);
48
49 #define MORE_DEBUG 1
50 /*************************************************************************
51 * CommandLineToArgvW [SHELL32.@]
52 *
53 * We must interpret the quotes in the command line to rebuild the argv
54 * array correctly:
55 * - arguments are separated by spaces or tabs
56 * - quotes serve as optional argument delimiters
57 * '"a b"' -> 'a b'
58 * - escaped quotes must be converted back to '"'
59 * '\"' -> '"'
60 * - an odd number of '\'s followed by '"' correspond to half that number
61 * of '\' followed by a '"' (extension of the above)
62 * '\\\"' -> '\"'
63 * '\\\\\"' -> '\\"'
64 * - an even number of '\'s followed by a '"' correspond to half that number
65 * of '\', plus a regular quote serving as an argument delimiter (which
66 * means it does not appear in the result)
67 * 'a\\"b c"' -> 'a\b c'
68 * 'a\\\\"b c"' -> 'a\\b c'
69 * - '\' that are not followed by a '"' are copied literally
70 * 'a\b' -> 'a\b'
71 * 'a\\b' -> 'a\\b'
72 *
73 * Note:
74 * '\t' == 0x0009
75 * ' ' == 0x0020
76 * '"' == 0x0022
77 * '\\' == 0x005c
78 */
79 LPWSTR* WINAPI CommandLineToArgvW(LPCWSTR lpCmdline, int* numargs)
80 {
81 DWORD argc;
82 HGLOBAL hargv;
83 LPWSTR *argv;
84 LPCWSTR cs;
85 LPWSTR arg,s,d;
86 LPWSTR cmdline;
87 int in_quotes,bcount;
88
89 if (*lpCmdline==0) {
90 /* Return the path to the executable */
91 DWORD size;
92
93 hargv=0;
94 size=16;
95 do {
96 size*=2;
97 hargv=GlobalReAlloc(hargv, size, 0);
98 argv=GlobalLock(hargv);
99 } while (GetModuleFileNameW(0, (LPWSTR)(argv+1), size-sizeof(LPWSTR)) == 0);
100 argv[0]=(LPWSTR)(argv+1);
101 if (numargs)
102 *numargs=2;
103
104 return argv;
105 }
106
107 /* to get a writeable copy */
108 argc=0;
109 bcount=0;
110 in_quotes=0;
111 cs=lpCmdline;
112 while (1) {
113 if (*cs==0 || ((*cs==0x0009 || *cs==0x0020) && !in_quotes)) {
114 /* space */
115 argc++;
116 /* skip the remaining spaces */
117 while (*cs==0x0009 || *cs==0x0020) {
118 cs++;
119 }
120 if (*cs==0)
121 break;
122 bcount=0;
123 continue;
124 } else if (*cs==0x005c) {
125 /* '\', count them */
126 bcount++;
127 } else if ((*cs==0x0022) && ((bcount & 1)==0)) {
128 /* unescaped '"' */
129 in_quotes=!in_quotes;
130 bcount=0;
131 } else {
132 /* a regular character */
133 bcount=0;
134 }
135 cs++;
136 }
137 /* Allocate in a single lump, the string array, and the strings that go with it.
138 * This way the caller can make a single GlobalFree call to free both, as per MSDN.
139 */
140 hargv=GlobalAlloc(0, argc*sizeof(LPWSTR)+(strlenW(lpCmdline)+1)*sizeof(WCHAR));
141 argv=GlobalLock(hargv);
142 if (!argv)
143 return NULL;
144 cmdline=(LPWSTR)(argv+argc);
145 strcpyW(cmdline, lpCmdline);
146
147 argc=0;
148 bcount=0;
149 in_quotes=0;
150 arg=d=s=cmdline;
151 while (*s) {
152 if ((*s==0x0009 || *s==0x0020) && !in_quotes) {
153 /* Close the argument and copy it */
154 *d=0;
155 argv[argc++]=arg;
156
157 /* skip the remaining spaces */
158 do {
159 s++;
160 } while (*s==0x0009 || *s==0x0020);
161
162 /* Start with a new argument */
163 arg=d=s;
164 bcount=0;
165 } else if (*s==0x005c) {
166 /* '\\' */
167 *d++=*s++;
168 bcount++;
169 } else if (*s==0x0022) {
170 /* '"' */
171 if ((bcount & 1)==0) {
172 /* Preceeded by an even number of '\', this is half that
173 * number of '\', plus a quote which we erase.
174 */
175 d-=bcount/2;
176 in_quotes=!in_quotes;
177 s++;
178 } else {
179 /* Preceeded by an odd number of '\', this is half that
180 * number of '\' followed by a '"'
181 */
182 d=d-bcount/2-1;
183 *d++='"';
184 s++;
185 }
186 bcount=0;
187 } else {
188 /* a regular character */
189 *d++=*s++;
190 bcount=0;
191 }
192 }
193 if (*arg) {
194 *d='\0';
195 argv[argc++]=arg;
196 }
197 if (numargs)
198 *numargs=argc;
199
200 return argv;
201 }
202
203 /*************************************************************************
204 * SHGetFileInfoA [SHELL32.@]
205 *
206 */
207
208 DWORD WINAPI SHGetFileInfoA(LPCSTR path,DWORD dwFileAttributes,
209 SHFILEINFOA *psfi, UINT sizeofpsfi,
210 UINT flags )
211 {
212 char szLocation[MAX_PATH], szFullPath[MAX_PATH];
213 int iIndex;
214 DWORD ret = TRUE, dwAttributes = 0;
215 IShellFolder * psfParent = NULL;
216 IExtractIconA * pei = NULL;
217 LPITEMIDLIST pidlLast = NULL, pidl = NULL;
218 HRESULT hr = S_OK;
219 BOOL IconNotYetLoaded=TRUE;
220
221 TRACE("(%s fattr=0x%lx sfi=%p(attr=0x%08lx) size=0x%x flags=0x%x)\n",
222 (flags & SHGFI_PIDL)? "pidl" : path, dwFileAttributes, psfi, psfi->dwAttributes, sizeofpsfi, flags);
223
224 if ((flags & SHGFI_USEFILEATTRIBUTES) && (flags & (SHGFI_ATTRIBUTES|SHGFI_EXETYPE|SHGFI_PIDL)))
225 return FALSE;
226
227 /* windows initializes this values regardless of the flags */
228 psfi->szDisplayName[0] = '\0';
229 psfi->szTypeName[0] = '\0';
230 psfi->iIcon = 0;
231
232 if (!(flags & SHGFI_PIDL)){
233 /* SHGitFileInfo should work with absolute and relative paths */
234 if (PathIsRelativeA(path)){
235 GetCurrentDirectoryA(MAX_PATH, szLocation);
236 PathCombineA(szFullPath, szLocation, path);
237 } else {
238 lstrcpynA(szFullPath, path, MAX_PATH);
239 }
240 }
241
242 if (flags & SHGFI_EXETYPE) {
243 BOOL status = FALSE;
244 HANDLE hfile;
245 DWORD BinaryType;
246 IMAGE_DOS_HEADER mz_header;
247 IMAGE_NT_HEADERS nt;
248 DWORD len;
249 char magic[4];
250
251 if (flags != SHGFI_EXETYPE) return 0;
252
253 status = GetBinaryTypeA (szFullPath, &BinaryType);
254 if (!status) return 0;
255 if ((BinaryType == SCS_DOS_BINARY)
256 || (BinaryType == SCS_PIF_BINARY)) return 0x4d5a;
257
258 hfile = CreateFileA( szFullPath, GENERIC_READ, FILE_SHARE_READ,
259 NULL, OPEN_EXISTING, 0, 0 );
260 if ( hfile == INVALID_HANDLE_VALUE ) return 0;
261
262 /* The next section is adapted from MODULE_GetBinaryType, as we need
263 * to examine the image header to get OS and version information. We
264 * know from calling GetBinaryTypeA that the image is valid and either
265 * an NE or PE, so much error handling can be omitted.
266 * Seek to the start of the file and read the header information.
267 */
268
269 SetFilePointer( hfile, 0, NULL, SEEK_SET );
270 ReadFile( hfile, &mz_header, sizeof(mz_header), &len, NULL );
271
272 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
273 ReadFile( hfile, magic, sizeof(magic), &len, NULL );
274 if ( *(DWORD*)magic == IMAGE_NT_SIGNATURE )
275 {
276 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
277 ReadFile( hfile, &nt, sizeof(nt), &len, NULL );
278 CloseHandle( hfile );
279 if (nt.OptionalHeader.Subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI) {
280 return IMAGE_NT_SIGNATURE
281 | (nt.OptionalHeader.MajorSubsystemVersion << 24)
282 | (nt.OptionalHeader.MinorSubsystemVersion << 16);
283 }
284 return IMAGE_NT_SIGNATURE;
285 }
286 else if ( *(WORD*)magic == IMAGE_OS2_SIGNATURE )
287 {
288 IMAGE_OS2_HEADER ne;
289 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
290 ReadFile( hfile, &ne, sizeof(ne), &len, NULL );
291 CloseHandle( hfile );
292 if (ne.ne_exetyp == 2) return IMAGE_OS2_SIGNATURE
293 | (ne.ne_expver << 16);
294 return 0;
295 }
296 CloseHandle( hfile );
297 return 0;
298 }
299
300
301 /* translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES
302 * is not specified.
303 The pidl functions fail on not existing file names */
304
305 if (flags & SHGFI_PIDL) {
306 pidl = ILClone((LPCITEMIDLIST)path);
307 } else if (!(flags & SHGFI_USEFILEATTRIBUTES)) {
308 hr = SHILCreateFromPathA(szFullPath, &pidl, &dwAttributes);
309 }
310
311 if ((flags & SHGFI_PIDL) || !(flags & SHGFI_USEFILEATTRIBUTES))
312 {
313 /* get the parent shellfolder */
314 if (pidl) {
315 hr = SHBindToParent( pidl, &IID_IShellFolder, (LPVOID*)&psfParent, &pidlLast);
316 ILFree(pidl);
317 } else {
318 ERR("pidl is null!\n");
319 return FALSE;
320 }
321 }
322
323 /* get the attributes of the child */
324 if (SUCCEEDED(hr) && (flags & SHGFI_ATTRIBUTES))
325 {
326 if (!(flags & SHGFI_ATTR_SPECIFIED))
327 {
328 psfi->dwAttributes = 0xffffffff;
329 }
330 IShellFolder_GetAttributesOf(psfParent, 1 , &pidlLast, &(psfi->dwAttributes));
331 }
332
333 /* get the displayname */
334 if (SUCCEEDED(hr) && (flags & SHGFI_DISPLAYNAME))
335 {
336 if (flags & SHGFI_USEFILEATTRIBUTES)
337 {
338 strcpy (psfi->szDisplayName, PathFindFileNameA(szFullPath));
339 }
340 else
341 {
342 STRRET str;
343 hr = IShellFolder_GetDisplayNameOf(psfParent, pidlLast, SHGDN_INFOLDER, &str);
344 StrRetToStrNA (psfi->szDisplayName, MAX_PATH, &str, pidlLast);
345 }
346 }
347
348 /* get the type name */
349 if (SUCCEEDED(hr) && (flags & SHGFI_TYPENAME))
350 {
351 if (!(flags & SHGFI_USEFILEATTRIBUTES))
352 _ILGetFileType(pidlLast, psfi->szTypeName, 80);
353 else
354 {
355 if (dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
356 strcat (psfi->szTypeName, "File");
357 else
358 {
359 char sTemp[64];
360 strcpy(sTemp,PathFindExtensionA(szFullPath));
361 if (!( HCR_MapTypeToValueA(sTemp, sTemp, 64, TRUE)
362 && HCR_MapTypeToValueA(sTemp, psfi->szTypeName, 80, FALSE )))
363 {
364 lstrcpynA (psfi->szTypeName, sTemp, 64);
365 strcat (psfi->szTypeName, "-file");
366 }
367 }
368 }
369 }
370
371 /* ### icons ###*/
372 if (flags & SHGFI_LINKOVERLAY)
373 FIXME("set icon to link, stub\n");
374
375 if (flags & SHGFI_SELECTED)
376 FIXME("set icon to selected, stub\n");
377
378 if (flags & SHGFI_SHELLICONSIZE)
379 FIXME("set icon to shell size, stub\n");
380
381 /* get the iconlocation */
382 if (SUCCEEDED(hr) && (flags & SHGFI_ICONLOCATION ))
383 {
384 UINT uDummy,uFlags;
385 hr = IShellFolder_GetUIObjectOf(psfParent, 0, 1, &pidlLast, &IID_IExtractIconA, &uDummy, (LPVOID*)&pei);
386
387 if (SUCCEEDED(hr))
388 {
389 hr = IExtractIconA_GetIconLocation(pei, (flags & SHGFI_OPENICON)? GIL_OPENICON : 0,szLocation, MAX_PATH, &iIndex, &uFlags);
390 /* FIXME what to do with the index? */
391
392 if(uFlags != GIL_NOTFILENAME)
393 strcpy (psfi->szDisplayName, szLocation);
394 else
395 ret = FALSE;
396
397 IExtractIconA_Release(pei);
398 }
399 }
400
401 /* get icon index (or load icon)*/
402 if (SUCCEEDED(hr) && (flags & (SHGFI_ICON | SHGFI_SYSICONINDEX)))
403 {
404
405 if (flags & SHGFI_USEFILEATTRIBUTES)
406 {
407 char sTemp [MAX_PATH];
408 char * szExt;
409 DWORD dwNr=0;
410
411 lstrcpynA(sTemp, szFullPath, MAX_PATH);
412
413 if (dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
414 psfi->iIcon = 2;
415 else
416 {
417 psfi->iIcon = 0;
418 szExt = (LPSTR) PathFindExtensionA(sTemp);
419 if ( szExt && HCR_MapTypeToValueA(szExt, sTemp, MAX_PATH, TRUE)
420 && HCR_GetDefaultIconA(sTemp, sTemp, MAX_PATH, &dwNr))
421 {
422 if (!strcmp("%1",sTemp)) /* icon is in the file */
423 strcpy(sTemp, szFullPath);
424
425 if (flags & SHGFI_SYSICONINDEX)
426 {
427 psfi->iIcon = SIC_GetIconIndex(sTemp,dwNr);
428 if (psfi->iIcon == -1) psfi->iIcon = 0;
429 }
430 else
431 {
432 IconNotYetLoaded=FALSE;
433 PrivateExtractIconsA(sTemp,dwNr,(flags & SHGFI_SMALLICON) ?
434 GetSystemMetrics(SM_CXSMICON) : GetSystemMetrics(SM_CXICON),
435 (flags & SHGFI_SMALLICON) ? GetSystemMetrics(SM_CYSMICON) :
436 GetSystemMetrics(SM_CYICON), &psfi->hIcon,0,1,0);
437 psfi->iIcon = dwNr;
438 }
439 }
440 }
441 }
442 else
443 {
444 if (!(PidlToSicIndex(psfParent, pidlLast, !(flags & SHGFI_SMALLICON),
445 (flags & SHGFI_OPENICON)? GIL_OPENICON : 0, &(psfi->iIcon))))
446 {
447 ret = FALSE;
448 }
449 }
450 if (ret)
451 {
452 ret = (DWORD) ((flags & SHGFI_SMALLICON) ? ShellSmallIconList : ShellBigIconList);
453 }
454 }
455
456 /* icon handle */
457 if (SUCCEEDED(hr) && (flags & SHGFI_ICON) && IconNotYetLoaded)
458 psfi->hIcon = ImageList_GetIcon((flags & SHGFI_SMALLICON) ? ShellSmallIconList:ShellBigIconList, psfi->iIcon, ILD_NORMAL);
459
460 if (flags & (SHGFI_UNKNOWN1 | SHGFI_UNKNOWN2 | SHGFI_UNKNOWN3))
461 FIXME("unknown attribute!\n");
462
463 if (psfParent)
464 IShellFolder_Release(psfParent);
465
466 if (hr != S_OK)
467 ret = FALSE;
468
469 if(pidlLast) SHFree(pidlLast);
470 #ifdef MORE_DEBUG
471 TRACE ("icon=%p index=0x%08x attr=0x%08lx name=%s type=%s ret=0x%08lx\n",
472 psfi->hIcon, psfi->iIcon, psfi->dwAttributes, psfi->szDisplayName, psfi->szTypeName, ret);
473 #endif
474 return ret;
475 }
476
477 /*************************************************************************
478 * SHGetFileInfoW [SHELL32.@]
479 */
480
481 DWORD WINAPI SHGetFileInfoW(LPCWSTR path,DWORD dwFileAttributes,
482 SHFILEINFOW *psfi, UINT sizeofpsfi,
483 UINT flags )
484 {
485 INT len;
486 LPSTR temppath;
487 DWORD ret;
488 SHFILEINFOA temppsfi;
489
490 if (flags & SHGFI_PIDL) {
491 /* path contains a pidl */
492 temppath = (LPSTR) path;
493 } else {
494 len = WideCharToMultiByte(CP_ACP, 0, path, -1, NULL, 0, NULL, NULL);
495 temppath = HeapAlloc(GetProcessHeap(), 0, len);
496 WideCharToMultiByte(CP_ACP, 0, path, -1, temppath, len, NULL, NULL);
497 }
498
499 if(flags & SHGFI_ATTR_SPECIFIED)
500 temppsfi.dwAttributes=psfi->dwAttributes;
501
502 ret = SHGetFileInfoA(temppath, dwFileAttributes, &temppsfi, sizeof(temppsfi), flags);
503
504 if(flags & SHGFI_ICON)
505 psfi->hIcon=temppsfi.hIcon;
506 if(flags & (SHGFI_SYSICONINDEX|SHGFI_ICON|SHGFI_ICONLOCATION))
507 psfi->iIcon=temppsfi.iIcon;
508 if(flags & SHGFI_ATTRIBUTES)
509 psfi->dwAttributes=temppsfi.dwAttributes;
510 if(flags & (SHGFI_DISPLAYNAME|SHGFI_ICONLOCATION))
511 MultiByteToWideChar(CP_ACP, 0, temppsfi.szDisplayName, -1, psfi->szDisplayName, sizeof(psfi->szDisplayName));
512 if(flags & SHGFI_TYPENAME)
513 MultiByteToWideChar(CP_ACP, 0, temppsfi.szTypeName, -1, psfi->szTypeName, sizeof(psfi->szTypeName));
514
515 if(!(flags & SHGFI_PIDL)) HeapFree(GetProcessHeap(), 0, temppath);
516 return ret;
517 }
518
519 /*************************************************************************
520 * SHGetFileInfo [SHELL32.@]
521 */
522 DWORD WINAPI SHGetFileInfoAW(
523 LPCVOID path,
524 DWORD dwFileAttributes,
525 LPVOID psfi,
526 UINT sizeofpsfi,
527 UINT flags)
528 {
529 if(SHELL_OsIsUnicode())
530 return SHGetFileInfoW(path, dwFileAttributes, psfi, sizeofpsfi, flags );
531 return SHGetFileInfoA(path, dwFileAttributes, psfi, sizeofpsfi, flags );
532 }
533
534 /*************************************************************************
535 * DuplicateIcon [SHELL32.@]
536 */
537 HICON WINAPI DuplicateIcon( HINSTANCE hInstance, HICON hIcon)
538 {
539 ICONINFO IconInfo;
540 HICON hDupIcon = 0;
541
542 TRACE("(%p, %p)\n", hInstance, hIcon);
543
544 if(GetIconInfo(hIcon, &IconInfo))
545 {
546 hDupIcon = CreateIconIndirect(&IconInfo);
547
548 /* clean up hbmMask and hbmColor */
549 DeleteObject(IconInfo.hbmMask);
550 DeleteObject(IconInfo.hbmColor);
551 }
552
553 return hDupIcon;
554 }
555
556 /*************************************************************************
557 * ExtractIconA [SHELL32.@]
558 */
559 HICON WINAPI ExtractIconA(HINSTANCE hInstance, LPCSTR lpszFile, UINT nIconIndex)
560 {
561 HICON ret;
562 INT len = MultiByteToWideChar(CP_ACP, 0, lpszFile, -1, NULL, 0);
563 LPWSTR lpwstrFile = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
564
565 TRACE("%p %s %d\n", hInstance, lpszFile, nIconIndex);
566
567 MultiByteToWideChar(CP_ACP, 0, lpszFile, -1, lpwstrFile, len);
568 ret = ExtractIconW(hInstance, lpwstrFile, nIconIndex);
569 HeapFree(GetProcessHeap(), 0, lpwstrFile);
570 return ret;
571 }
572
573 /*************************************************************************
574 * ExtractIconW [SHELL32.@]
575 */
576 HICON WINAPI ExtractIconW(HINSTANCE hInstance, LPCWSTR lpszFile, UINT nIconIndex)
577 {
578 HICON hIcon = NULL;
579 UINT ret;
580 UINT cx = GetSystemMetrics(SM_CXICON), cy = GetSystemMetrics(SM_CYICON);
581
582 TRACE("%p %s %d\n", hInstance, debugstr_w(lpszFile), nIconIndex);
583
584 if (nIconIndex == -1) {
585 ret = PrivateExtractIconsW(lpszFile, 0, cx, cy, NULL, NULL, 0, LR_DEFAULTCOLOR);
586 if (ret != 0xFFFFFFFF && ret)
587 return (HICON)ret;
588 return NULL;
589 }
590 else
591 ret = PrivateExtractIconsW(lpszFile, nIconIndex, cx, cy, &hIcon, NULL, 1, LR_DEFAULTCOLOR);
592
593 if (ret == 0xFFFFFFFF)
594 return (HICON)1;
595 else if (ret > 0 && hIcon)
596 return hIcon;
597 return NULL;
598 }
599
600 typedef struct
601 { LPCSTR szApp;
602 LPCSTR szOtherStuff;
603 HICON hIcon;
604 } ABOUT_INFO;
605
606 #define IDC_STATIC_TEXT 100
607 #define IDC_LISTBOX 99
608 #define IDC_WINE_TEXT 98
609
610 #define DROP_FIELD_TOP (-15)
611 #define DROP_FIELD_HEIGHT 15
612
613 static HFONT hIconTitleFont;
614
615 static BOOL __get_dropline( HWND hWnd, LPRECT lprect )
616 { HWND hWndCtl = GetDlgItem(hWnd, IDC_WINE_TEXT);
617 if( hWndCtl )
618 { GetWindowRect( hWndCtl, lprect );
619 MapWindowPoints( 0, hWnd, (LPPOINT)lprect, 2 );
620 lprect->bottom = (lprect->top += DROP_FIELD_TOP);
621 return TRUE;
622 }
623 return FALSE;
624 }
625
626 /*************************************************************************
627 * SHAppBarMessage [SHELL32.@]
628 */
629 UINT WINAPI SHAppBarMessage(DWORD msg, PAPPBARDATA data)
630 {
631 int width=data->rc.right - data->rc.left;
632 int height=data->rc.bottom - data->rc.top;
633 RECT rec=data->rc;
634 switch (msg)
635 { case ABM_GETSTATE:
636 return ABS_ALWAYSONTOP | ABS_AUTOHIDE;
637 case ABM_GETTASKBARPOS:
638 GetWindowRect(data->hWnd, &rec);
639 data->rc=rec;
640 return TRUE;
641 case ABM_ACTIVATE:
642 SetActiveWindow(data->hWnd);
643 return TRUE;
644 case ABM_GETAUTOHIDEBAR:
645 data->hWnd=GetActiveWindow();
646 return TRUE;
647 case ABM_NEW:
648 SetWindowPos(data->hWnd,HWND_TOP,rec.left,rec.top,
649 width,height,SWP_SHOWWINDOW);
650 return TRUE;
651 case ABM_QUERYPOS:
652 GetWindowRect(data->hWnd, &(data->rc));
653 return TRUE;
654 case ABM_REMOVE:
655 FIXME("ABM_REMOVE broken\n");
656 /* FIXME: this is wrong; should it be DestroyWindow instead? */
657 /*CloseHandle(data->hWnd);*/
658 return TRUE;
659 case ABM_SETAUTOHIDEBAR:
660 SetWindowPos(data->hWnd,HWND_TOP,rec.left+1000,rec.top,
661 width,height,SWP_SHOWWINDOW);
662 return TRUE;
663 case ABM_SETPOS:
664 data->uEdge=(ABE_RIGHT | ABE_LEFT);
665 SetWindowPos(data->hWnd,HWND_TOP,data->rc.left,data->rc.top,
666 width,height,SWP_SHOWWINDOW);
667 return TRUE;
668 case ABM_WINDOWPOSCHANGED:
669 return TRUE;
670 }
671 return FALSE;
672 }
673
674 /*************************************************************************
675 * SHHelpShortcuts_RunDLL [SHELL32.@]
676 *
677 */
678 DWORD WINAPI SHHelpShortcuts_RunDLL (DWORD dwArg1, DWORD dwArg2, DWORD dwArg3, DWORD dwArg4)
679 { FIXME("(%lx, %lx, %lx, %lx) empty stub!\n",
680 dwArg1, dwArg2, dwArg3, dwArg4);
681
682 return 0;
683 }
684
685 /*************************************************************************
686 * SHLoadInProc [SHELL32.@]
687 * Create an instance of specified object class from within
688 * the shell process and release it immediately
689 */
690
691 DWORD WINAPI SHLoadInProc (REFCLSID rclsid)
692 {
693 IUnknown * pUnk = NULL;
694 TRACE("%s\n", debugstr_guid(rclsid));
695
696 CoCreateInstance(rclsid, NULL, CLSCTX_INPROC_SERVER, &IID_IUnknown,(LPVOID*)pUnk);
697 if(pUnk)
698 {
699 IUnknown_Release(pUnk);
700 return NOERROR;
701 }
702 return DISP_E_MEMBERNOTFOUND;
703 }
704
705 /*************************************************************************
706 * AboutDlgProc (internal)
707 */
708 INT_PTR CALLBACK AboutDlgProc( HWND hWnd, UINT msg, WPARAM wParam,
709 LPARAM lParam )
710 { HWND hWndCtl;
711 char Template[512], AppTitle[512];
712
713 TRACE("\n");
714
715 switch(msg)
716 { case WM_INITDIALOG:
717 { ABOUT_INFO *info = (ABOUT_INFO *)lParam;
718 if (info)
719 { const char* const *pstr = SHELL_People;
720 SendDlgItemMessageA(hWnd, stc1, STM_SETICON,(WPARAM)info->hIcon, 0);
721 GetWindowTextA( hWnd, Template, sizeof(Template) );
722 sprintf( AppTitle, Template, info->szApp );
723 SetWindowTextA( hWnd, AppTitle );
724 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT),
725 info->szOtherStuff );
726 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
727 SendMessageA( hWndCtl, WM_SETREDRAW, 0, 0 );
728 if (!hIconTitleFont)
729 {
730 LOGFONTA logFont;
731 SystemParametersInfoA( SPI_GETICONTITLELOGFONT, 0, &logFont, 0 );
732 hIconTitleFont = CreateFontIndirectA( &logFont );
733 }
734 SendMessageA( hWndCtl, WM_SETFONT, HICON_16(hIconTitleFont), 0 );
735 while (*pstr)
736 { SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)*pstr );
737 pstr++;
738 }
739 SendMessageA( hWndCtl, WM_SETREDRAW, 1, 0 );
740 }
741 }
742 return 1;
743
744 case WM_PAINT:
745 { RECT rect;
746 PAINTSTRUCT ps;
747 HDC hDC = BeginPaint( hWnd, &ps );
748
749 if( __get_dropline( hWnd, &rect ) ) {
750 SelectObject( hDC, GetStockObject( BLACK_PEN ) );
751 MoveToEx( hDC, rect.left, rect.top, NULL );
752 LineTo( hDC, rect.right, rect.bottom );
753 }
754 EndPaint( hWnd, &ps );
755 }
756 break;
757
758 #if 0 /* FIXME: should use DoDragDrop */
759 case WM_LBTRACKPOINT:
760 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
761 if( (INT16)GetKeyState( VK_CONTROL ) < 0 )
762 { if( DragDetect( hWndCtl, *((LPPOINT)&lParam) ) )
763 { INT idx = SendMessageA( hWndCtl, LB_GETCURSEL, 0, 0 );
764 if( idx != -1 )
765 { INT length = SendMessageA( hWndCtl, LB_GETTEXTLEN, (WPARAM)idx, 0 );
766 HGLOBAL16 hMemObj = GlobalAlloc16( GMEM_MOVEABLE, length + 1 );
767 char* pstr = (char*)GlobalLock16( hMemObj );
768
769 if( pstr )
770 { HCURSOR hCursor = LoadCursorA( 0, MAKEINTRESOURCEA(OCR_DRAGOBJECT) );
771 SendMessageA( hWndCtl, LB_GETTEXT, (WPARAM)idx, (LPARAM)pstr );
772 SendMessageA( hWndCtl, LB_DELETESTRING, (WPARAM)idx, 0 );
773 UpdateWindow( hWndCtl );
774 if( !DragObject16((HWND16)hWnd, (HWND16)hWnd, DRAGOBJ_DATA, 0, (WORD)hMemObj, hCursor) )
775 SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)pstr );
776 }
777 if( hMemObj )
778 GlobalFree16( hMemObj );
779 }
780 }
781 }
782 break;
783 #endif
784
785 case WM_QUERYDROPOBJECT:
786 if( wParam == 0 )
787 { LPDRAGINFO16 lpDragInfo = MapSL((SEGPTR)lParam);
788 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA )
789 { RECT rect;
790 if( __get_dropline( hWnd, &rect ) )
791 { POINT pt;
792 pt.x=lpDragInfo->pt.x;
793 pt.x=lpDragInfo->pt.y;
794 rect.bottom += DROP_FIELD_HEIGHT;
795 if( PtInRect( &rect, pt ) )
796 { SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
797 return TRUE;
798 }
799 }
800 }
801 }
802 break;
803
804 case WM_DROPOBJECT:
805 if( wParam == (WPARAM)hWnd )
806 { LPDRAGINFO16 lpDragInfo = MapSL((SEGPTR)lParam);
807 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA && lpDragInfo->hList )
808 { char* pstr = (char*)GlobalLock16( (HGLOBAL16)(lpDragInfo->hList) );
809 if( pstr )
810 { static char __appendix_str[] = " with";
811
812 hWndCtl = GetDlgItem( hWnd, IDC_WINE_TEXT );
813 SendMessageA( hWndCtl, WM_GETTEXT, 512, (LPARAM)Template );
814 if( !strncmp( Template, "WINE", 4 ) )
815 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT), Template );
816 else
817 { char* pch = Template + strlen(Template) - strlen(__appendix_str);
818 *pch = '\0';
819 SendMessageA( GetDlgItem(hWnd, IDC_LISTBOX), LB_ADDSTRING,
820 (WPARAM)-1, (LPARAM)Template );
821 }
822
823 strcpy( Template, pstr );
824 strcat( Template, __appendix_str );
825 SetWindowTextA( hWndCtl, Template );
826 SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
827 return TRUE;
828 }
829 }
830 }
831 break;
832
833 case WM_COMMAND:
834 if (wParam == IDOK)
835 { EndDialog(hWnd, TRUE);
836 return TRUE;
837 }
838 break;
839 case WM_CLOSE:
840 EndDialog(hWnd, TRUE);
841 break;
842 }
843
844 return 0;
845 }
846
847
848 /*************************************************************************
849 * ShellAboutA [SHELL32.288]
850 */
851 BOOL WINAPI ShellAboutA( HWND hWnd, LPCSTR szApp, LPCSTR szOtherStuff,
852 HICON hIcon )
853 { ABOUT_INFO info;
854 HRSRC hRes;
855 LPVOID template;
856 TRACE("\n");
857
858 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
859 return FALSE;
860 if(!(template = (LPVOID)LoadResource(shell32_hInstance, hRes)))
861 return FALSE;
862
863 info.szApp = szApp;
864 info.szOtherStuff = szOtherStuff;
865 info.hIcon = hIcon;
866 if (!hIcon) info.hIcon = LoadIconA( 0, IDI_WINLOGOA );
867 return DialogBoxIndirectParamA( (HINSTANCE)GetWindowLongA( hWnd, GWL_HINSTANCE ),
868 template, hWnd, AboutDlgProc, (LPARAM)&info );
869 }
870
871
872 /*************************************************************************
873 * ShellAboutW [SHELL32.289]
874 */
875 BOOL WINAPI ShellAboutW( HWND hWnd, LPCWSTR szApp, LPCWSTR szOtherStuff,
876 HICON hIcon )
877 { BOOL ret;
878 ABOUT_INFO info;
879 HRSRC hRes;
880 LPVOID template;
881
882 TRACE("\n");
883
884 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
885 return FALSE;
886 if(!(template = (LPVOID)LoadResource(shell32_hInstance, hRes)))
887 return FALSE;
888
889 info.szApp = HEAP_strdupWtoA( GetProcessHeap(), 0, szApp );
890 info.szOtherStuff = HEAP_strdupWtoA( GetProcessHeap(), 0, szOtherStuff );
891 info.hIcon = hIcon;
892 if (!hIcon) info.hIcon = LoadIconA( 0, IDI_WINLOGOA );
893 ret = DialogBoxIndirectParamA((HINSTANCE)GetWindowLongA( hWnd, GWL_HINSTANCE ),
894 template, hWnd, AboutDlgProc, (LPARAM)&info );
895 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szApp );
896 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szOtherStuff );
897 return ret;
898 }
899
900 /*************************************************************************
901 * FreeIconList (SHELL32.@)
902 */
903 void WINAPI FreeIconList( DWORD dw )
904 { FIXME("(%lx): stub\n",dw);
905 }
906
907 /***********************************************************************
908 * DllGetVersion [SHELL32.@]
909 *
910 * Retrieves version information of the 'SHELL32.DLL'
911 *
912 * PARAMS
913 * pdvi [O] pointer to version information structure.
914 *
915 * RETURNS
916 * Success: S_OK
917 * Failure: E_INVALIDARG
918 *
919 * NOTES
920 * Returns version of a shell32.dll from IE4.01 SP1.
921 */
922
923 HRESULT WINAPI SHELL32_DllGetVersion (DLLVERSIONINFO *pdvi)
924 {
925 if (pdvi->cbSize != sizeof(DLLVERSIONINFO))
926 {
927 WARN("wrong DLLVERSIONINFO size from app\n");
928 return E_INVALIDARG;
929 }
930
931 pdvi->dwMajorVersion = 4;
932 pdvi->dwMinorVersion = 72;
933 pdvi->dwBuildNumber = 3110;
934 pdvi->dwPlatformID = 1;
935
936 TRACE("%lu.%lu.%lu.%lu\n",
937 pdvi->dwMajorVersion, pdvi->dwMinorVersion,
938 pdvi->dwBuildNumber, pdvi->dwPlatformID);
939
940 return S_OK;
941 }
942 /*************************************************************************
943 * global variables of the shell32.dll
944 * all are once per process
945 *
946 */
947 void (WINAPI *pDLLInitComctl)(LPVOID);
948
949 LPVOID (WINAPI *pCOMCTL32_Alloc) (INT);
950 BOOL (WINAPI *pCOMCTL32_Free) (LPVOID);
951
952 HANDLE (WINAPI *pCreateMRUListA) (LPVOID lpcml);
953 DWORD (WINAPI *pFreeMRUListA) (HANDLE hMRUList);
954 INT (WINAPI *pAddMRUData) (HANDLE hList, LPCVOID lpData, DWORD cbData);
955 INT (WINAPI *pFindMRUData) (HANDLE hList, LPCVOID lpData, DWORD cbData, LPINT lpRegNum);
956 INT (WINAPI *pEnumMRUListA) (HANDLE hList, INT nItemPos, LPVOID lpBuffer, DWORD nBufferSize);
957
958 static HINSTANCE hComctl32;
959
960 HINSTANCE shell32_hInstance = 0;
961 HIMAGELIST ShellSmallIconList = 0;
962 HIMAGELIST ShellBigIconList = 0;
963
964
965 /*************************************************************************
966 * SHELL32 DllMain
967 *
968 * NOTES
969 * calling oleinitialize here breaks sone apps.
970 */
971
972 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
973 {
974 TRACE("%p 0x%lx %p\n", hinstDLL, fdwReason, fImpLoad);
975
976 switch (fdwReason)
977 {
978 case DLL_PROCESS_ATTACH:
979 shell32_hInstance = hinstDLL;
980 hComctl32 = GetModuleHandleA("COMCTL32.DLL");
981 DisableThreadLibraryCalls(shell32_hInstance);
982
983 if (!hComctl32)
984 {
985 ERR("P A N I C SHELL32 loading failed\n");
986 return FALSE;
987 }
988
989 /* comctl32 */
990 pDLLInitComctl=(void*)GetProcAddress(hComctl32,"InitCommonControlsEx");
991 /* initialize the common controls */
992 if (pDLLInitComctl)
993 {
994 pDLLInitComctl(NULL);
995 }
996
997 SIC_Initialize();
998 SYSTRAY_Init();
999 InitChangeNotifications();
1000 SHInitRestricted(NULL, NULL);
1001 break;
1002
1003 case DLL_THREAD_ATTACH:
1004 break;
1005
1006 case DLL_THREAD_DETACH:
1007 break;
1008
1009 case DLL_PROCESS_DETACH:
1010 shell32_hInstance = 0;
1011 SIC_Destroy();
1012 FreeChangeNotifications();
1013 break;
1014 }
1015 return TRUE;
1016 }
1017
1018 /*************************************************************************
1019 * DllInstall [SHELL32.@]
1020 *
1021 * PARAMETERS
1022 *
1023 * BOOL bInstall - TRUE for install, FALSE for uninstall
1024 * LPCWSTR pszCmdLine - command line (unused by shell32?)
1025 */
1026
1027 HRESULT WINAPI SHELL32_DllInstall(BOOL bInstall, LPCWSTR cmdline)
1028 {
1029 FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
1030
1031 return S_OK; /* indicate success */
1032 }
1033
1034 /***********************************************************************
1035 * DllCanUnloadNow (SHELL32.@)
1036 */
1037 HRESULT WINAPI SHELL32_DllCanUnloadNow(void)
1038 {
1039 FIXME("(void): stub\n");
1040
1041 return S_FALSE;
1042 }
GSOC 2012 project to enhance the control panel