4 * Copyright 1998 Marcus Meissner
5 * Copyright 1998 Juergen Schmied (jsch) * <juergen.schmied@metronet.de>
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
42 #include "undocshell.h"
44 #include "shell32_main.h"
48 #include "wine/debug.h"
49 #include "wine/unicode.h"
51 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
53 extern const char * const SHELL_Authors
[];
56 /*************************************************************************
57 * CommandLineToArgvW [SHELL32.@]
59 * We must interpret the quotes in the command line to rebuild the argv
61 * - arguments are separated by spaces or tabs
62 * - quotes serve as optional argument delimiters
64 * - escaped quotes must be converted back to '"'
66 * - an odd number of '\'s followed by '"' correspond to half that number
67 * of '\' followed by a '"' (extension of the above)
70 * - an even number of '\'s followed by a '"' correspond to half that number
71 * of '\', plus a regular quote serving as an argument delimiter (which
72 * means it does not appear in the result)
73 * 'a\\"b c"' -> 'a\b c'
74 * 'a\\\\"b c"' -> 'a\\b c'
75 * - '\' that are not followed by a '"' are copied literally
85 LPWSTR
* WINAPI
CommandLineToArgvW(LPCWSTR lpCmdline
, int* numargs
)
96 /* Return the path to the executable */
99 argv
=LocalAlloc(LMEM_FIXED
, size
);
102 len
= GetModuleFileNameW(0, (LPWSTR
)(argv
+1), (size
-sizeof(LPWSTR
))/sizeof(WCHAR
));
108 if (len
< size
) break;
110 argv
=LocalReAlloc(argv
, size
, 0);
112 argv
[0]=(LPWSTR
)(argv
+1);
119 /* to get a writable copy */
126 if (*cs
==0 || ((*cs
==0x0009 || *cs
==0x0020) && !in_quotes
))
130 /* skip the remaining spaces */
131 while (*cs
==0x0009 || *cs
==0x0020) {
139 else if (*cs
==0x005c)
141 /* '\', count them */
144 else if ((*cs
==0x0022) && ((bcount
& 1)==0))
147 in_quotes
=!in_quotes
;
152 /* a regular character */
157 /* Allocate in a single lump, the string array, and the strings that go with it.
158 * This way the caller can make a single GlobalFree call to free both, as per MSDN.
160 argv
=LocalAlloc(LMEM_FIXED
, argc
*sizeof(LPWSTR
)+(strlenW(lpCmdline
)+1)*sizeof(WCHAR
));
163 cmdline
=(LPWSTR
)(argv
+argc
);
164 strcpyW(cmdline
, lpCmdline
);
172 if ((*s
==0x0009 || *s
==0x0020) && !in_quotes
)
174 /* Close the argument and copy it */
178 /* skip the remaining spaces */
181 } while (*s
==0x0009 || *s
==0x0020);
183 /* Start with a new argument */
198 /* Preceded by an even number of '\', this is half that
199 * number of '\', plus a quote which we erase.
202 in_quotes
=!in_quotes
;
207 /* Preceded by an odd number of '\', this is half that
208 * number of '\' followed by a '"'
218 /* a regular character */
234 static DWORD
shgfi_get_exe_type(LPCWSTR szFullPath
)
239 IMAGE_DOS_HEADER mz_header
;
244 status
= GetBinaryTypeW (szFullPath
, &BinaryType
);
247 if (BinaryType
== SCS_DOS_BINARY
|| BinaryType
== SCS_PIF_BINARY
)
250 hfile
= CreateFileW( szFullPath
, GENERIC_READ
, FILE_SHARE_READ
,
251 NULL
, OPEN_EXISTING
, 0, 0 );
252 if ( hfile
== INVALID_HANDLE_VALUE
)
256 * The next section is adapted from MODULE_GetBinaryType, as we need
257 * to examine the image header to get OS and version information. We
258 * know from calling GetBinaryTypeA that the image is valid and either
259 * an NE or PE, so much error handling can be omitted.
260 * Seek to the start of the file and read the header information.
263 SetFilePointer( hfile
, 0, NULL
, SEEK_SET
);
264 ReadFile( hfile
, &mz_header
, sizeof(mz_header
), &len
, NULL
);
266 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
267 ReadFile( hfile
, magic
, sizeof(magic
), &len
, NULL
);
268 if ( *(DWORD
*)magic
== IMAGE_NT_SIGNATURE
)
270 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
271 ReadFile( hfile
, &nt
, sizeof(nt
), &len
, NULL
);
272 CloseHandle( hfile
);
273 /* DLL files are not executable and should return 0 */
274 if (nt
.FileHeader
.Characteristics
& IMAGE_FILE_DLL
)
276 if (nt
.OptionalHeader
.Subsystem
== IMAGE_SUBSYSTEM_WINDOWS_GUI
)
278 return IMAGE_NT_SIGNATURE
|
279 (nt
.OptionalHeader
.MajorSubsystemVersion
<< 24) |
280 (nt
.OptionalHeader
.MinorSubsystemVersion
<< 16);
282 return IMAGE_NT_SIGNATURE
;
284 else if ( *(WORD
*)magic
== IMAGE_OS2_SIGNATURE
)
287 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
288 ReadFile( hfile
, &ne
, sizeof(ne
), &len
, NULL
);
289 CloseHandle( hfile
);
290 if (ne
.ne_exetyp
== 2)
291 return IMAGE_OS2_SIGNATURE
| (ne
.ne_expver
<< 16);
294 CloseHandle( hfile
);
298 /*************************************************************************
299 * SHELL_IsShortcut [internal]
301 * Decide if an item id list points to a shell shortcut
303 BOOL
SHELL_IsShortcut(LPCITEMIDLIST pidlLast
)
305 char szTemp
[MAX_PATH
];
309 if (_ILGetExtension(pidlLast
, szTemp
, MAX_PATH
) &&
310 HCR_MapTypeToValueA(szTemp
, szTemp
, MAX_PATH
, TRUE
))
312 if (ERROR_SUCCESS
== RegOpenKeyExA(HKEY_CLASSES_ROOT
, szTemp
, 0, KEY_QUERY_VALUE
, &keyCls
))
314 if (ERROR_SUCCESS
== RegQueryValueExA(keyCls
, "IsShortcut", NULL
, NULL
, NULL
, NULL
))
324 #define SHGFI_KNOWN_FLAGS \
325 (SHGFI_SMALLICON | SHGFI_OPENICON | SHGFI_SHELLICONSIZE | SHGFI_PIDL | \
326 SHGFI_USEFILEATTRIBUTES | SHGFI_ADDOVERLAYS | SHGFI_OVERLAYINDEX | \
327 SHGFI_ICON | SHGFI_DISPLAYNAME | SHGFI_TYPENAME | SHGFI_ATTRIBUTES | \
328 SHGFI_ICONLOCATION | SHGFI_EXETYPE | SHGFI_SYSICONINDEX | \
329 SHGFI_LINKOVERLAY | SHGFI_SELECTED | SHGFI_ATTR_SPECIFIED)
331 /*************************************************************************
332 * SHGetFileInfoW [SHELL32.@]
335 DWORD_PTR WINAPI
SHGetFileInfoW(LPCWSTR path
,DWORD dwFileAttributes
,
336 SHFILEINFOW
*psfi
, UINT sizeofpsfi
, UINT flags
)
338 WCHAR szLocation
[MAX_PATH
], szFullPath
[MAX_PATH
];
340 DWORD_PTR ret
= TRUE
;
341 DWORD dwAttributes
= 0;
342 IShellFolder
* psfParent
= NULL
;
343 IExtractIconW
* pei
= NULL
;
344 LPITEMIDLIST pidlLast
= NULL
, pidl
= NULL
;
346 BOOL IconNotYetLoaded
=TRUE
;
349 TRACE("%s fattr=0x%x sfi=%p(attr=0x%08x) size=0x%x flags=0x%x\n",
350 (flags
& SHGFI_PIDL
)? "pidl" : debugstr_w(path
), dwFileAttributes
,
351 psfi
, psfi
->dwAttributes
, sizeofpsfi
, flags
);
353 if ( (flags
& SHGFI_USEFILEATTRIBUTES
) &&
354 (flags
& (SHGFI_ATTRIBUTES
|SHGFI_EXETYPE
|SHGFI_PIDL
)))
357 /* windows initializes these values regardless of the flags */
360 psfi
->szDisplayName
[0] = '\0';
361 psfi
->szTypeName
[0] = '\0';
365 if (!(flags
& SHGFI_PIDL
))
367 /* SHGetFileInfo should work with absolute and relative paths */
368 if (PathIsRelativeW(path
))
370 GetCurrentDirectoryW(MAX_PATH
, szLocation
);
371 PathCombineW(szFullPath
, szLocation
, path
);
375 lstrcpynW(szFullPath
, path
, MAX_PATH
);
379 if (flags
& SHGFI_EXETYPE
)
381 if (flags
!= SHGFI_EXETYPE
)
383 return shgfi_get_exe_type(szFullPath
);
387 * psfi is NULL normally to query EXE type. If it is NULL, none of the
388 * below makes sense anyway. Windows allows this and just returns FALSE
394 * translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES
396 * The pidl functions fail on not existing file names
399 if (flags
& SHGFI_PIDL
)
401 pidl
= ILClone((LPCITEMIDLIST
)path
);
403 else if (!(flags
& SHGFI_USEFILEATTRIBUTES
))
405 hr
= SHILCreateFromPathW(szFullPath
, &pidl
, &dwAttributes
);
408 if ((flags
& SHGFI_PIDL
) || !(flags
& SHGFI_USEFILEATTRIBUTES
))
410 /* get the parent shellfolder */
413 hr
= SHBindToParent( pidl
, &IID_IShellFolder
, (LPVOID
*)&psfParent
,
414 (LPCITEMIDLIST
*)&pidlLast
);
416 pidlLast
= ILClone(pidlLast
);
421 ERR("pidl is null!\n");
426 /* get the attributes of the child */
427 if (SUCCEEDED(hr
) && (flags
& SHGFI_ATTRIBUTES
))
429 if (!(flags
& SHGFI_ATTR_SPECIFIED
))
431 psfi
->dwAttributes
= 0xffffffff;
433 IShellFolder_GetAttributesOf( psfParent
, 1, (LPCITEMIDLIST
*)&pidlLast
,
434 &(psfi
->dwAttributes
) );
437 /* get the displayname */
438 if (SUCCEEDED(hr
) && (flags
& SHGFI_DISPLAYNAME
))
440 if (flags
& SHGFI_USEFILEATTRIBUTES
)
442 lstrcpyW (psfi
->szDisplayName
, PathFindFileNameW(szFullPath
));
447 hr
= IShellFolder_GetDisplayNameOf( psfParent
, pidlLast
,
448 SHGDN_INFOLDER
, &str
);
449 StrRetToStrNW (psfi
->szDisplayName
, MAX_PATH
, &str
, pidlLast
);
453 /* get the type name */
454 if (SUCCEEDED(hr
) && (flags
& SHGFI_TYPENAME
))
456 static const WCHAR szFile
[] = { 'F','i','l','e',0 };
457 static const WCHAR szDashFile
[] = { '-','f','i','l','e',0 };
459 if (!(flags
& SHGFI_USEFILEATTRIBUTES
))
463 _ILGetFileType(pidlLast
, ftype
, 80);
464 MultiByteToWideChar(CP_ACP
, 0, ftype
, -1, psfi
->szTypeName
, 80 );
468 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
469 strcatW (psfi
->szTypeName
, szFile
);
474 lstrcpyW(sTemp
,PathFindExtensionW(szFullPath
));
475 if (!( HCR_MapTypeToValueW(sTemp
, sTemp
, 64, TRUE
) &&
476 HCR_MapTypeToValueW(sTemp
, psfi
->szTypeName
, 80, FALSE
)))
478 lstrcpynW (psfi
->szTypeName
, sTemp
, 64);
479 strcatW (psfi
->szTypeName
, szDashFile
);
486 if (flags
& SHGFI_OPENICON
)
487 uGilFlags
|= GIL_OPENICON
;
489 if (flags
& SHGFI_LINKOVERLAY
)
490 uGilFlags
|= GIL_FORSHORTCUT
;
491 else if ((flags
&SHGFI_ADDOVERLAYS
) ||
492 (flags
&(SHGFI_ICON
|SHGFI_SMALLICON
))==SHGFI_ICON
)
494 if (SHELL_IsShortcut(pidlLast
))
495 uGilFlags
|= GIL_FORSHORTCUT
;
498 if (flags
& SHGFI_OVERLAYINDEX
)
499 FIXME("SHGFI_OVERLAYINDEX unhandled\n");
501 if (flags
& SHGFI_SELECTED
)
502 FIXME("set icon to selected, stub\n");
504 if (flags
& SHGFI_SHELLICONSIZE
)
505 FIXME("set icon to shell size, stub\n");
507 /* get the iconlocation */
508 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICONLOCATION
))
512 if (flags
& SHGFI_USEFILEATTRIBUTES
)
514 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
516 lstrcpyW(psfi
->szDisplayName
, swShell32Name
);
517 psfi
->iIcon
= -IDI_SHELL_FOLDER
;
522 static const WCHAR p1W
[] = {'%','1',0};
523 WCHAR sTemp
[MAX_PATH
];
525 szExt
= (LPWSTR
) PathFindExtensionW(szFullPath
);
526 TRACE("szExt=%s\n", debugstr_w(szExt
));
528 HCR_MapTypeToValueW(szExt
, sTemp
, MAX_PATH
, TRUE
) &&
529 HCR_GetDefaultIconW(sTemp
, sTemp
, MAX_PATH
, &psfi
->iIcon
))
531 if (lstrcmpW(p1W
, sTemp
))
532 strcpyW(psfi
->szDisplayName
, sTemp
);
535 /* the icon is in the file */
536 strcpyW(psfi
->szDisplayName
, szFullPath
);
545 hr
= IShellFolder_GetUIObjectOf(psfParent
, 0, 1,
546 (LPCITEMIDLIST
*)&pidlLast
, &IID_IExtractIconW
,
547 &uDummy
, (LPVOID
*)&pei
);
550 hr
= IExtractIconW_GetIconLocation(pei
, uGilFlags
,
551 szLocation
, MAX_PATH
, &iIndex
, &uFlags
);
553 if (uFlags
& GIL_NOTFILENAME
)
557 lstrcpyW (psfi
->szDisplayName
, szLocation
);
558 psfi
->iIcon
= iIndex
;
560 IExtractIconW_Release(pei
);
565 /* get icon index (or load icon)*/
566 if (SUCCEEDED(hr
) && (flags
& (SHGFI_ICON
| SHGFI_SYSICONINDEX
)))
568 if (flags
& SHGFI_USEFILEATTRIBUTES
)
570 WCHAR sTemp
[MAX_PATH
];
574 lstrcpynW(sTemp
, szFullPath
, MAX_PATH
);
576 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
577 psfi
->iIcon
= SIC_GetIconIndex(swShell32Name
, -IDI_SHELL_FOLDER
, 0);
580 static const WCHAR p1W
[] = {'%','1',0};
583 szExt
= (LPWSTR
) PathFindExtensionW(sTemp
);
585 HCR_MapTypeToValueW(szExt
, sTemp
, MAX_PATH
, TRUE
) &&
586 HCR_GetDefaultIconW(sTemp
, sTemp
, MAX_PATH
, &icon_idx
))
588 if (!lstrcmpW(p1W
,sTemp
)) /* icon is in the file */
589 strcpyW(sTemp
, szFullPath
);
591 if (flags
& SHGFI_SYSICONINDEX
)
593 psfi
->iIcon
= SIC_GetIconIndex(sTemp
,icon_idx
,0);
594 if (psfi
->iIcon
== -1)
599 IconNotYetLoaded
=FALSE
;
600 if (flags
& SHGFI_SMALLICON
)
601 PrivateExtractIconsW( sTemp
,icon_idx
,
602 GetSystemMetrics( SM_CXSMICON
),
603 GetSystemMetrics( SM_CYSMICON
),
604 &psfi
->hIcon
, 0, 1, 0);
606 PrivateExtractIconsW( sTemp
, icon_idx
,
607 GetSystemMetrics( SM_CXICON
),
608 GetSystemMetrics( SM_CYICON
),
609 &psfi
->hIcon
, 0, 1, 0);
610 psfi
->iIcon
= icon_idx
;
617 if (!(PidlToSicIndex(psfParent
, pidlLast
, !(flags
& SHGFI_SMALLICON
),
618 uGilFlags
, &(psfi
->iIcon
))))
625 if (flags
& SHGFI_SMALLICON
)
626 ret
= (DWORD_PTR
) ShellSmallIconList
;
628 ret
= (DWORD_PTR
) ShellBigIconList
;
633 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICON
) && IconNotYetLoaded
)
635 if (flags
& SHGFI_SMALLICON
)
636 psfi
->hIcon
= ImageList_GetIcon( ShellSmallIconList
, psfi
->iIcon
, ILD_NORMAL
);
638 psfi
->hIcon
= ImageList_GetIcon( ShellBigIconList
, psfi
->iIcon
, ILD_NORMAL
);
641 if (flags
& ~SHGFI_KNOWN_FLAGS
)
642 FIXME("unknown flags %08x\n", flags
& ~SHGFI_KNOWN_FLAGS
);
645 IShellFolder_Release(psfParent
);
653 TRACE ("icon=%p index=0x%08x attr=0x%08x name=%s type=%s ret=0x%08lx\n",
654 psfi
->hIcon
, psfi
->iIcon
, psfi
->dwAttributes
,
655 debugstr_w(psfi
->szDisplayName
), debugstr_w(psfi
->szTypeName
), ret
);
661 /*************************************************************************
662 * SHGetFileInfoA [SHELL32.@]
664 DWORD_PTR WINAPI
SHGetFileInfoA(LPCSTR path
,DWORD dwFileAttributes
,
665 SHFILEINFOA
*psfi
, UINT sizeofpsfi
,
669 LPWSTR temppath
= NULL
;
672 SHFILEINFOW temppsfi
;
674 if (flags
& SHGFI_PIDL
)
676 /* path contains a pidl */
677 pathW
= (LPCWSTR
)path
;
681 len
= MultiByteToWideChar(CP_ACP
, 0, path
, -1, NULL
, 0);
682 temppath
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
683 MultiByteToWideChar(CP_ACP
, 0, path
, -1, temppath
, len
);
687 if (psfi
&& (flags
& SHGFI_ATTR_SPECIFIED
))
688 temppsfi
.dwAttributes
=psfi
->dwAttributes
;
691 ret
= SHGetFileInfoW(pathW
, dwFileAttributes
, NULL
, sizeof(temppsfi
), flags
);
693 ret
= SHGetFileInfoW(pathW
, dwFileAttributes
, &temppsfi
, sizeof(temppsfi
), flags
);
697 if(flags
& SHGFI_ICON
)
698 psfi
->hIcon
=temppsfi
.hIcon
;
699 if(flags
& (SHGFI_SYSICONINDEX
|SHGFI_ICON
|SHGFI_ICONLOCATION
))
700 psfi
->iIcon
=temppsfi
.iIcon
;
701 if(flags
& SHGFI_ATTRIBUTES
)
702 psfi
->dwAttributes
=temppsfi
.dwAttributes
;
703 if(flags
& (SHGFI_DISPLAYNAME
|SHGFI_ICONLOCATION
))
705 WideCharToMultiByte(CP_ACP
, 0, temppsfi
.szDisplayName
, -1,
706 psfi
->szDisplayName
, sizeof(psfi
->szDisplayName
), NULL
, NULL
);
708 if(flags
& SHGFI_TYPENAME
)
710 WideCharToMultiByte(CP_ACP
, 0, temppsfi
.szTypeName
, -1,
711 psfi
->szTypeName
, sizeof(psfi
->szTypeName
), NULL
, NULL
);
715 HeapFree(GetProcessHeap(), 0, temppath
);
720 /*************************************************************************
721 * DuplicateIcon [SHELL32.@]
723 HICON WINAPI
DuplicateIcon( HINSTANCE hInstance
, HICON hIcon
)
728 TRACE("%p %p\n", hInstance
, hIcon
);
730 if (GetIconInfo(hIcon
, &IconInfo
))
732 hDupIcon
= CreateIconIndirect(&IconInfo
);
734 /* clean up hbmMask and hbmColor */
735 DeleteObject(IconInfo
.hbmMask
);
736 DeleteObject(IconInfo
.hbmColor
);
742 /*************************************************************************
743 * ExtractIconA [SHELL32.@]
745 HICON WINAPI
ExtractIconA(HINSTANCE hInstance
, LPCSTR lpszFile
, UINT nIconIndex
)
748 INT len
= MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, NULL
, 0);
749 LPWSTR lpwstrFile
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
751 TRACE("%p %s %d\n", hInstance
, lpszFile
, nIconIndex
);
753 MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, lpwstrFile
, len
);
754 ret
= ExtractIconW(hInstance
, lpwstrFile
, nIconIndex
);
755 HeapFree(GetProcessHeap(), 0, lpwstrFile
);
760 /*************************************************************************
761 * ExtractIconW [SHELL32.@]
763 HICON WINAPI
ExtractIconW(HINSTANCE hInstance
, LPCWSTR lpszFile
, UINT nIconIndex
)
767 UINT cx
= GetSystemMetrics(SM_CXICON
), cy
= GetSystemMetrics(SM_CYICON
);
769 TRACE("%p %s %d\n", hInstance
, debugstr_w(lpszFile
), nIconIndex
);
771 if (nIconIndex
== 0xFFFFFFFF)
773 ret
= PrivateExtractIconsW(lpszFile
, 0, cx
, cy
, NULL
, NULL
, 0, LR_DEFAULTCOLOR
);
774 if (ret
!= 0xFFFFFFFF && ret
)
775 return (HICON
)(UINT_PTR
)ret
;
779 ret
= PrivateExtractIconsW(lpszFile
, nIconIndex
, cx
, cy
, &hIcon
, NULL
, 1, LR_DEFAULTCOLOR
);
781 if (ret
== 0xFFFFFFFF)
783 else if (ret
> 0 && hIcon
)
789 /*************************************************************************
790 * Printer_LoadIconsW [SHELL32.205]
792 VOID WINAPI
Printer_LoadIconsW(LPCWSTR wsPrinterName
, HICON
* pLargeIcon
, HICON
* pSmallIcon
)
794 INT iconindex
=IDI_SHELL_PRINTER
;
796 TRACE("(%s, %p, %p)\n", debugstr_w(wsPrinterName
), pLargeIcon
, pSmallIcon
);
798 /* We should check if wsPrinterName is
799 1. the Default Printer or not
801 3. a Local Printer or a Network-Printer
802 and use different Icons
804 if((wsPrinterName
!= NULL
) && (wsPrinterName
[0] != 0))
806 FIXME("(select Icon by PrinterName %s not implemented)\n", debugstr_w(wsPrinterName
));
809 if(pLargeIcon
!= NULL
)
810 *pLargeIcon
= LoadImageW(shell32_hInstance
,
811 (LPCWSTR
) MAKEINTRESOURCE(iconindex
), IMAGE_ICON
,
812 0, 0, LR_DEFAULTCOLOR
|LR_DEFAULTSIZE
);
814 if(pSmallIcon
!= NULL
)
815 *pSmallIcon
= LoadImageW(shell32_hInstance
,
816 (LPCWSTR
) MAKEINTRESOURCE(iconindex
), IMAGE_ICON
,
817 16, 16, LR_DEFAULTCOLOR
);
820 /*************************************************************************
821 * Printers_RegisterWindowW [SHELL32.213]
822 * used by "printui.dll":
823 * find the Window of the given Type for the specific Printer and
824 * return the already existent hwnd or open a new window
826 BOOL WINAPI
Printers_RegisterWindowW(LPCWSTR wsPrinter
, DWORD dwType
,
827 HANDLE
* phClassPidl
, HWND
* phwnd
)
829 FIXME("(%s, %x, %p (%p), %p (%p)) stub!\n", debugstr_w(wsPrinter
), dwType
,
830 phClassPidl
, (phClassPidl
!= NULL
) ? *(phClassPidl
) : NULL
,
831 phwnd
, (phwnd
!= NULL
) ? *(phwnd
) : NULL
);
836 /*************************************************************************
837 * Printers_UnregisterWindow [SHELL32.214]
839 VOID WINAPI
Printers_UnregisterWindow(HANDLE hClassPidl
, HWND hwnd
)
841 FIXME("(%p, %p) stub!\n", hClassPidl
, hwnd
);
844 /*************************************************************************/
846 /*************************************************************************
847 * AddCommasW [SHELL32.203]
849 LPWSTR WINAPI
AddCommasW(DWORD lValue
, LPWSTR szRet
)
851 WCHAR szValue
[MAX_PATH
], szSeparator
[8 + 1];
852 NUMBERFMTW numFormat
;
853 LCID lcid
= GetUserDefaultLCID();
860 numFormat
.NumDigits
= 0;
861 numFormat
.LeadingZero
= 0;
862 numFormat
.Grouping
= 0;
863 numFormat
.lpDecimalSep
= szSeparator
;
864 numFormat
.lpThousandSep
= szSeparator
;
865 numFormat
.NegativeOrder
= 0;
867 swprintf(szValue
, L
"%llu", lValue
);
868 //_ultow(lValue, szValue, 16);
870 if (GetNumberFormatW(lcid
,
880 wcscpy(szRet
, szValue
);
885 /*************************************************************************
886 * SHLocalAlloc [SHELL32.200]
888 HLOCAL WINAPI
SHLocalAlloc(UINT uFlags
, SIZE_T uBytes
)
890 return LocalAlloc(uFlags
, uBytes
);
893 /*************************************************************************
894 * SHLocalFree [SHELL32.201]
896 HLOCAL WINAPI
SHLocalFree(HLOCAL hMem
)
898 return LocalFree(hMem
);
901 /*************************************************************************
902 * SHLocalAlloc [SHELL32.202]
904 HLOCAL WINAPI
SHLocalReAlloc(HLOCAL hMem
, SIZE_T uBytes
, UINT uFlags
)
906 return LocalReAlloc(hMem
, uBytes
, uFlags
);
910 /*************************************************************************/
916 LPCWSTR szOtherStuff
;
920 #define DROP_FIELD_TOP (-15)
921 #define DROP_FIELD_HEIGHT 15
923 /*************************************************************************
924 * SHAppBarMessage [SHELL32.@]
926 UINT_PTR WINAPI
SHAppBarMessage(DWORD msg
, PAPPBARDATA data
)
928 int width
=data
->rc
.right
- data
->rc
.left
;
929 int height
=data
->rc
.bottom
- data
->rc
.top
;
932 TRACE("msg=%d, data={cb=%d, hwnd=%p, callback=%x, edge=%d, rc=%s, lparam=%lx}\n",
933 msg
, data
->cbSize
, data
->hWnd
, data
->uCallbackMessage
, data
->uEdge
,
934 wine_dbgstr_rect(&data
->rc
), data
->lParam
);
939 return ABS_ALWAYSONTOP
| ABS_AUTOHIDE
;
940 case ABM_GETTASKBARPOS
:
941 GetWindowRect(data
->hWnd
, &rec
);
945 SetActiveWindow(data
->hWnd
);
947 case ABM_GETAUTOHIDEBAR
:
948 return 0; /* pretend there is no autohide bar */
950 /* cbSize, hWnd, and uCallbackMessage are used. All other ignored */
951 SetWindowPos(data
->hWnd
,HWND_TOP
,0,0,0,0,SWP_SHOWWINDOW
|SWP_NOMOVE
|SWP_NOSIZE
);
954 GetWindowRect(data
->hWnd
, &(data
->rc
));
957 FIXME("ABM_REMOVE broken\n");
958 /* FIXME: this is wrong; should it be DestroyWindow instead? */
959 /*CloseHandle(data->hWnd);*/
961 case ABM_SETAUTOHIDEBAR
:
962 SetWindowPos(data
->hWnd
,HWND_TOP
,rec
.left
+1000,rec
.top
,
963 width
,height
,SWP_SHOWWINDOW
);
966 data
->uEdge
=(ABE_RIGHT
| ABE_LEFT
);
967 SetWindowPos(data
->hWnd
,HWND_TOP
,data
->rc
.left
,data
->rc
.top
,
968 width
,height
,SWP_SHOWWINDOW
);
970 case ABM_WINDOWPOSCHANGED
:
976 /*************************************************************************
977 * SHHelpShortcuts_RunDLLA [SHELL32.@]
980 DWORD WINAPI
SHHelpShortcuts_RunDLLA(DWORD dwArg1
, DWORD dwArg2
, DWORD dwArg3
, DWORD dwArg4
)
982 FIXME("(%x, %x, %x, %x) stub!\n", dwArg1
, dwArg2
, dwArg3
, dwArg4
);
986 /*************************************************************************
987 * SHHelpShortcuts_RunDLLA [SHELL32.@]
990 DWORD WINAPI
SHHelpShortcuts_RunDLLW(DWORD dwArg1
, DWORD dwArg2
, DWORD dwArg3
, DWORD dwArg4
)
992 FIXME("(%x, %x, %x, %x) stub!\n", dwArg1
, dwArg2
, dwArg3
, dwArg4
);
996 /*************************************************************************
997 * SHLoadInProc [SHELL32.@]
998 * Create an instance of specified object class from within
999 * the shell process and release it immediately
1001 HRESULT WINAPI
SHLoadInProc (REFCLSID rclsid
)
1005 TRACE("%s\n", debugstr_guid(rclsid
));
1007 CoCreateInstance(rclsid
, NULL
, CLSCTX_INPROC_SERVER
, &IID_IUnknown
,&ptr
);
1010 IUnknown
* pUnk
= ptr
;
1011 IUnknown_Release(pUnk
);
1014 return DISP_E_MEMBERNOTFOUND
;
1017 static VOID
SetRegTextData(HWND hWnd
, HKEY hKey
, LPWSTR Value
, UINT uID
)
1023 if( RegQueryValueExW(hKey
, Value
, NULL
, &dwType
, NULL
, &dwBufferSize
) == ERROR_SUCCESS
)
1025 if(dwType
== REG_SZ
)
1027 lpBuffer
= HeapAlloc(GetProcessHeap(), 0, dwBufferSize
);
1031 if( RegQueryValueExW(hKey
, Value
, NULL
, &dwType
, (LPBYTE
)lpBuffer
, &dwBufferSize
) == ERROR_SUCCESS
)
1033 SetDlgItemTextW(hWnd
, uID
, lpBuffer
);
1036 HeapFree(GetProcessHeap(), 0, lpBuffer
);
1042 INT_PTR CALLBACK
AboutAuthorsDlgProc( HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
1048 const char* const *pstr
= SHELL_Authors
;
1050 // Add the authors to the list
1051 SendDlgItemMessageW( hWnd
, IDC_SHELL_ABOUT_AUTHORS_LISTBOX
, WM_SETREDRAW
, FALSE
, 0 );
1057 /* authors list is in utf-8 format */
1058 MultiByteToWideChar( CP_UTF8
, 0, *pstr
, -1, name
, sizeof(name
)/sizeof(WCHAR
) );
1059 SendDlgItemMessageW( hWnd
, IDC_SHELL_ABOUT_AUTHORS_LISTBOX
, LB_ADDSTRING
, (WPARAM
)-1, (LPARAM
)name
);
1063 SendDlgItemMessageW( hWnd
, IDC_SHELL_ABOUT_AUTHORS_LISTBOX
, WM_SETREDRAW
, TRUE
, 0 );
1071 /*************************************************************************
1072 * AboutDlgProc (internal)
1074 INT_PTR CALLBACK
AboutDlgProc( HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
1076 static DWORD cxLogoBmp
;
1077 static DWORD cyLogoBmp
;
1078 static HBITMAP hLogoBmp
;
1079 static HWND hWndAuthors
;
1085 ABOUT_INFO
*info
= (ABOUT_INFO
*)lParam
;
1089 const WCHAR szRegKey
[] = L
"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion";
1091 MEMORYSTATUSEX MemStat
;
1092 WCHAR szAppTitle
[512];
1093 WCHAR szAppTitleTemplate
[512];
1094 WCHAR szAuthorsText
[20];
1096 // Preload the ROS bitmap
1097 hLogoBmp
= LoadImage(shell32_hInstance
, MAKEINTRESOURCE(IDB_SHELL_ABOUT_LOGO_24BPP
), IMAGE_BITMAP
, 0, 0, LR_DEFAULTCOLOR
);
1103 GetObject( hLogoBmp
, sizeof(BITMAP
), &bmpLogo
);
1105 cxLogoBmp
= bmpLogo
.bmWidth
;
1106 cyLogoBmp
= bmpLogo
.bmHeight
;
1109 // Set App-specific stuff (icon, app name, szOtherStuff string)
1110 SendDlgItemMessageW(hWnd
, IDC_SHELL_ABOUT_ICON
, STM_SETICON
, (WPARAM
)info
->hIcon
, 0);
1112 GetWindowTextW( hWnd
, szAppTitleTemplate
, sizeof(szAppTitleTemplate
) / sizeof(WCHAR
) );
1113 wsprintfW( szAppTitle
, szAppTitleTemplate
, info
->szApp
);
1114 SetWindowTextW( hWnd
, szAppTitle
);
1116 SetDlgItemTextW( hWnd
, IDC_SHELL_ABOUT_APPNAME
, info
->szApp
);
1117 SetDlgItemTextW( hWnd
, IDC_SHELL_ABOUT_OTHERSTUFF
, info
->szOtherStuff
);
1119 // Set the registered user and organization name
1120 if(RegOpenKeyExW( HKEY_LOCAL_MACHINE
, szRegKey
, 0, KEY_QUERY_VALUE
, &hRegKey
) == ERROR_SUCCESS
)
1122 SetRegTextData( hWnd
, hRegKey
, L
"RegisteredOwner", IDC_SHELL_ABOUT_REG_USERNAME
);
1123 SetRegTextData( hWnd
, hRegKey
, L
"RegisteredOrganization", IDC_SHELL_ABOUT_REG_ORGNAME
);
1125 RegCloseKey( hRegKey
);
1128 // Set the value for the installed physical memory
1129 MemStat
.dwLength
= sizeof(MemStat
);
1130 if( GlobalMemoryStatusEx(&MemStat
) )
1134 if (MemStat
.ullTotalPhys
> 1024 * 1024 * 1024)
1137 WCHAR szDecimalSeparator
[4];
1140 // We're dealing with GBs or more
1141 MemStat
.ullTotalPhys
/= 1024 * 1024;
1143 if (MemStat
.ullTotalPhys
> 1024 * 1024)
1145 // We're dealing with TBs or more
1146 MemStat
.ullTotalPhys
/= 1024;
1148 if (MemStat
.ullTotalPhys
> 1024 * 1024)
1150 // We're dealing with PBs or more
1151 MemStat
.ullTotalPhys
/= 1024;
1153 dTotalPhys
= (double)MemStat
.ullTotalPhys
/ 1024;
1154 wcscpy( szUnits
, L
"PB" );
1158 dTotalPhys
= (double)MemStat
.ullTotalPhys
/ 1024;
1159 wcscpy( szUnits
, L
"TB" );
1164 dTotalPhys
= (double)MemStat
.ullTotalPhys
/ 1024;
1165 wcscpy( szUnits
, L
"GB" );
1168 // We need the decimal point of the current locale to display the RAM size correctly
1169 if( GetLocaleInfoW(LOCALE_USER_DEFAULT
, LOCALE_SDECIMAL
, szDecimalSeparator
, sizeof(szDecimalSeparator
) / sizeof(WCHAR
)) > 0)
1174 uIntegral
= (UINT
)dTotalPhys
;
1175 uDecimals
= (UCHAR
)((UINT
)(dTotalPhys
* 100) - uIntegral
* 100);
1177 // Display the RAM size with 2 decimals
1178 wsprintfW(szBuf
, L
"%u%s%02u %s", uIntegral
, szDecimalSeparator
, uDecimals
, szUnits
);
1183 // We're dealing with MBs, don't show any decimals
1184 wsprintfW( szBuf
, L
"%u MB", (UINT
)MemStat
.ullTotalPhys
/ 1024 / 1024 );
1187 SetDlgItemTextW( hWnd
, IDC_SHELL_ABOUT_PHYSMEM
, szBuf
);
1190 // Add the Authors dialog
1191 hWndAuthors
= CreateDialogW( shell32_hInstance
, MAKEINTRESOURCEW(IDD_SHELL_ABOUT_AUTHORS
), hWnd
, AboutAuthorsDlgProc
);
1192 LoadStringW( shell32_hInstance
, IDS_SHELL_ABOUT_AUTHORS
, szAuthorsText
, sizeof(szAuthorsText
) / sizeof(WCHAR
) );
1193 SetDlgItemTextW( hWnd
, IDC_SHELL_ABOUT_AUTHORS
, szAuthorsText
);
1207 hdc
= BeginPaint(hWnd
, &ps
);
1208 hdcMem
= CreateCompatibleDC(hdc
);
1212 SelectObject(hdcMem
, hLogoBmp
);
1213 BitBlt(hdc
, 0, 0, cxLogoBmp
, cyLogoBmp
, hdcMem
, 0, 0, SRCCOPY
);
1218 EndPaint(hWnd
, &ps
);
1229 EndDialog(hWnd
, TRUE
);
1232 case IDC_SHELL_ABOUT_AUTHORS
:
1234 static BOOL bShowingAuthors
= FALSE
;
1235 WCHAR szAuthorsText
[20];
1239 LoadStringW( shell32_hInstance
, IDS_SHELL_ABOUT_AUTHORS
, szAuthorsText
, sizeof(szAuthorsText
) / sizeof(WCHAR
) );
1240 ShowWindow( hWndAuthors
, SW_HIDE
);
1244 LoadStringW( shell32_hInstance
, IDS_SHELL_ABOUT_BACK
, szAuthorsText
, sizeof(szAuthorsText
) / sizeof(WCHAR
) );
1245 ShowWindow( hWndAuthors
, SW_SHOW
);
1248 SetDlgItemTextW( hWnd
, IDC_SHELL_ABOUT_AUTHORS
, szAuthorsText
);
1249 bShowingAuthors
= !bShowingAuthors
;
1256 EndDialog(hWnd
, TRUE
);
1264 /*************************************************************************
1265 * ShellAboutA [SHELL32.288]
1267 BOOL WINAPI
ShellAboutA( HWND hWnd
, LPCSTR szApp
, LPCSTR szOtherStuff
, HICON hIcon
)
1270 LPWSTR appW
= NULL
, otherW
= NULL
;
1275 len
= MultiByteToWideChar(CP_ACP
, 0, szApp
, -1, NULL
, 0);
1276 appW
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
1277 MultiByteToWideChar(CP_ACP
, 0, szApp
, -1, appW
, len
);
1281 len
= MultiByteToWideChar(CP_ACP
, 0, szOtherStuff
, -1, NULL
, 0);
1282 otherW
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
1283 MultiByteToWideChar(CP_ACP
, 0, szOtherStuff
, -1, otherW
, len
);
1286 ret
= ShellAboutW(hWnd
, appW
, otherW
, hIcon
);
1288 HeapFree(GetProcessHeap(), 0, otherW
);
1289 HeapFree(GetProcessHeap(), 0, appW
);
1294 /*************************************************************************
1295 * ShellAboutW [SHELL32.289]
1297 BOOL WINAPI
ShellAboutW( HWND hWnd
, LPCWSTR szApp
, LPCWSTR szOtherStuff
,
1307 // DialogBoxIndirectParamW will be called with the hInstance of the calling application, so we have to preload the dialog template
1308 if(!(hRes
= FindResourceW(shell32_hInstance
, MAKEINTRESOURCEW(IDD_SHELL_ABOUT
), (LPWSTR
)RT_DIALOG
)))
1310 if(!(DlgTemplate
= (LPVOID
)LoadResource(shell32_hInstance
, hRes
)))
1314 info
.szOtherStuff
= szOtherStuff
;
1315 info
.hIcon
= hIcon
? hIcon
: LoadIconW( 0, (LPWSTR
)IDI_WINLOGO
);
1317 bRet
= DialogBoxIndirectParamW((HINSTANCE
)GetWindowLongPtrW( hWnd
, GWLP_HINSTANCE
),
1318 DlgTemplate
, hWnd
, AboutDlgProc
, (LPARAM
)&info
);
1322 /*************************************************************************
1323 * FreeIconList (SHELL32.@)
1325 void WINAPI
FreeIconList( DWORD dw
)
1327 FIXME("%x: stub\n",dw
);
1330 /*************************************************************************
1331 * SHLoadNonloadedIconOverlayIdentifiers (SHELL32.@)
1333 HRESULT WINAPI
SHLoadNonloadedIconOverlayIdentifiers( VOID
)
1339 /***********************************************************************
1340 * DllGetVersion [SHELL32.@]
1342 * Retrieves version information of the 'SHELL32.DLL'
1345 * pdvi [O] pointer to version information structure.
1349 * Failure: E_INVALIDARG
1352 * Returns version of a shell32.dll from IE4.01 SP1.
1355 HRESULT WINAPI
DllGetVersion (DLLVERSIONINFO
*pdvi
)
1357 /* FIXME: shouldn't these values come from the version resource? */
1358 if (pdvi
->cbSize
== sizeof(DLLVERSIONINFO
) ||
1359 pdvi
->cbSize
== sizeof(DLLVERSIONINFO2
))
1361 pdvi
->dwMajorVersion
= WINE_FILEVERSION_MAJOR
;
1362 pdvi
->dwMinorVersion
= WINE_FILEVERSION_MINOR
;
1363 pdvi
->dwBuildNumber
= WINE_FILEVERSION_BUILD
;
1364 pdvi
->dwPlatformID
= WINE_FILEVERSION_PLATFORMID
;
1365 if (pdvi
->cbSize
== sizeof(DLLVERSIONINFO2
))
1367 DLLVERSIONINFO2
*pdvi2
= (DLLVERSIONINFO2
*)pdvi
;
1370 pdvi2
->ullVersion
= MAKEDLLVERULL(WINE_FILEVERSION_MAJOR
,
1371 WINE_FILEVERSION_MINOR
,
1372 WINE_FILEVERSION_BUILD
,
1373 WINE_FILEVERSION_PLATFORMID
);
1375 TRACE("%u.%u.%u.%u\n",
1376 pdvi
->dwMajorVersion
, pdvi
->dwMinorVersion
,
1377 pdvi
->dwBuildNumber
, pdvi
->dwPlatformID
);
1382 WARN("wrong DLLVERSIONINFO size from app\n");
1383 return E_INVALIDARG
;
1387 /*************************************************************************
1388 * global variables of the shell32.dll
1389 * all are once per process
1392 HINSTANCE shell32_hInstance
= 0;
1393 HIMAGELIST ShellSmallIconList
= 0;
1394 HIMAGELIST ShellBigIconList
= 0;
1397 /*************************************************************************
1401 * calling oleinitialize here breaks sone apps.
1403 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID fImpLoad
)
1405 TRACE("%p 0x%x %p\n", hinstDLL
, fdwReason
, fImpLoad
);
1409 case DLL_PROCESS_ATTACH
:
1410 shell32_hInstance
= hinstDLL
;
1411 DisableThreadLibraryCalls(shell32_hInstance
);
1413 /* get full path to this DLL for IExtractIconW_fnGetIconLocation() */
1414 GetModuleFileNameW(hinstDLL
, swShell32Name
, MAX_PATH
);
1415 swShell32Name
[MAX_PATH
- 1] = '\0';
1417 InitCommonControlsEx(NULL
);
1420 InitChangeNotifications();
1423 case DLL_PROCESS_DETACH
:
1424 shell32_hInstance
= 0;
1426 FreeChangeNotifications();
1432 /*************************************************************************
1433 * DllInstall [SHELL32.@]
1437 * BOOL bInstall - TRUE for install, FALSE for uninstall
1438 * LPCWSTR pszCmdLine - command line (unused by shell32?)
1441 HRESULT WINAPI
DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
1443 FIXME("%s %s: stub\n", bInstall
? "TRUE":"FALSE", debugstr_w(cmdline
));
1444 return S_OK
; /* indicate success */
1447 /***********************************************************************
1448 * DllCanUnloadNow (SHELL32.@)
1450 HRESULT WINAPI
DllCanUnloadNow(void)