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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
43 #include "undocshell.h"
45 #include "shell32_main.h"
49 #include "wine/debug.h"
50 #include "wine/unicode.h"
52 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
54 extern const char * const SHELL_Authors
[];
57 /*************************************************************************
58 * CommandLineToArgvW [SHELL32.@]
60 * We must interpret the quotes in the command line to rebuild the argv
62 * - arguments are separated by spaces or tabs
63 * - quotes serve as optional argument delimiters
65 * - escaped quotes must be converted back to '"'
67 * - an odd number of '\'s followed by '"' correspond to half that number
68 * of '\' followed by a '"' (extension of the above)
71 * - an even number of '\'s followed by a '"' correspond to half that number
72 * of '\', plus a regular quote serving as an argument delimiter (which
73 * means it does not appear in the result)
74 * 'a\\"b c"' -> 'a\b c'
75 * 'a\\\\"b c"' -> 'a\\b c'
76 * - '\' that are not followed by a '"' are copied literally
86 LPWSTR
* WINAPI
CommandLineToArgvW(LPCWSTR lpCmdline
, int* numargs
)
98 /* Return the path to the executable */
101 hargv
=GlobalAlloc(size
, 0);
102 argv
=GlobalLock(hargv
);
105 len
= GetModuleFileNameW(0, (LPWSTR
)(argv
+1), size
-sizeof(LPWSTR
));
111 if (len
< size
) break;
113 hargv
=GlobalReAlloc(hargv
, size
, 0);
114 argv
=GlobalLock(hargv
);
116 argv
[0]=(LPWSTR
)(argv
+1);
123 /* to get a writeable copy */
130 if (*cs
==0 || ((*cs
==0x0009 || *cs
==0x0020) && !in_quotes
))
134 /* skip the remaining spaces */
135 while (*cs
==0x0009 || *cs
==0x0020) {
143 else if (*cs
==0x005c)
145 /* '\', count them */
148 else if ((*cs
==0x0022) && ((bcount
& 1)==0))
151 in_quotes
=!in_quotes
;
156 /* a regular character */
161 /* Allocate in a single lump, the string array, and the strings that go with it.
162 * This way the caller can make a single GlobalFree call to free both, as per MSDN.
164 hargv
=GlobalAlloc(0, argc
*sizeof(LPWSTR
)+(strlenW(lpCmdline
)+1)*sizeof(WCHAR
));
165 argv
=GlobalLock(hargv
);
168 cmdline
=(LPWSTR
)(argv
+argc
);
169 strcpyW(cmdline
, lpCmdline
);
177 if ((*s
==0x0009 || *s
==0x0020) && !in_quotes
)
179 /* Close the argument and copy it */
183 /* skip the remaining spaces */
186 } while (*s
==0x0009 || *s
==0x0020);
188 /* Start with a new argument */
203 /* Preceded by an even number of '\', this is half that
204 * number of '\', plus a quote which we erase.
207 in_quotes
=!in_quotes
;
212 /* Preceded by an odd number of '\', this is half that
213 * number of '\' followed by a '"'
223 /* a regular character */
239 static DWORD
shgfi_get_exe_type(LPCWSTR szFullPath
)
244 IMAGE_DOS_HEADER mz_header
;
249 status
= GetBinaryTypeW (szFullPath
, &BinaryType
);
252 if (BinaryType
== SCS_DOS_BINARY
|| BinaryType
== SCS_PIF_BINARY
)
255 hfile
= CreateFileW( szFullPath
, GENERIC_READ
, FILE_SHARE_READ
,
256 NULL
, OPEN_EXISTING
, 0, 0 );
257 if ( hfile
== INVALID_HANDLE_VALUE
)
261 * The next section is adapted from MODULE_GetBinaryType, as we need
262 * to examine the image header to get OS and version information. We
263 * know from calling GetBinaryTypeA that the image is valid and either
264 * an NE or PE, so much error handling can be omitted.
265 * Seek to the start of the file and read the header information.
268 SetFilePointer( hfile
, 0, NULL
, SEEK_SET
);
269 ReadFile( hfile
, &mz_header
, sizeof(mz_header
), &len
, NULL
);
271 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
272 ReadFile( hfile
, magic
, sizeof(magic
), &len
, NULL
);
273 if ( *(DWORD
*)magic
== IMAGE_NT_SIGNATURE
)
275 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
276 ReadFile( hfile
, &nt
, sizeof(nt
), &len
, NULL
);
277 CloseHandle( hfile
);
278 if (nt
.OptionalHeader
.Subsystem
== IMAGE_SUBSYSTEM_WINDOWS_GUI
)
280 return IMAGE_NT_SIGNATURE
|
281 (nt
.OptionalHeader
.MajorSubsystemVersion
<< 24) |
282 (nt
.OptionalHeader
.MinorSubsystemVersion
<< 16);
284 return IMAGE_NT_SIGNATURE
;
286 else if ( *(WORD
*)magic
== IMAGE_OS2_SIGNATURE
)
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)
293 return IMAGE_OS2_SIGNATURE
| (ne
.ne_expver
<< 16);
296 CloseHandle( hfile
);
300 #define SHGFI_KNOWN_FLAGS \
301 (SHGFI_SMALLICON | SHGFI_OPENICON | SHGFI_SHELLICONSIZE | SHGFI_PIDL | \
302 SHGFI_USEFILEATTRIBUTES | SHGFI_ADDOVERLAYS | SHGFI_OVERLAYINDEX | \
303 SHGFI_ICON | SHGFI_DISPLAYNAME | SHGFI_TYPENAME | SHGFI_ATTRIBUTES | \
304 SHGFI_ICONLOCATION | SHGFI_EXETYPE | SHGFI_SYSICONINDEX | \
305 SHGFI_LINKOVERLAY | SHGFI_SELECTED | SHGFI_ATTR_SPECIFIED)
307 /*************************************************************************
308 * SHGetFileInfoW [SHELL32.@]
311 DWORD WINAPI
SHGetFileInfoW(LPCWSTR path
,DWORD dwFileAttributes
,
312 SHFILEINFOW
*psfi
, UINT sizeofpsfi
, UINT flags
)
314 WCHAR szLocation
[MAX_PATH
], szFullPath
[MAX_PATH
];
316 DWORD ret
= TRUE
, dwAttributes
= 0;
317 IShellFolder
* psfParent
= NULL
;
318 IExtractIconW
* pei
= NULL
;
319 LPITEMIDLIST pidlLast
= NULL
, pidl
= NULL
;
321 BOOL IconNotYetLoaded
=TRUE
;
323 TRACE("%s fattr=0x%lx sfi=%p(attr=0x%08lx) size=0x%x flags=0x%x\n",
324 (flags
& SHGFI_PIDL
)? "pidl" : debugstr_w(path
), dwFileAttributes
,
325 psfi
, psfi
->dwAttributes
, sizeofpsfi
, flags
);
327 if ( (flags
& SHGFI_USEFILEATTRIBUTES
) &&
328 (flags
& (SHGFI_ATTRIBUTES
|SHGFI_EXETYPE
|SHGFI_PIDL
)))
331 /* windows initializes this values regardless of the flags */
334 psfi
->szDisplayName
[0] = '\0';
335 psfi
->szTypeName
[0] = '\0';
339 if (!(flags
& SHGFI_PIDL
))
341 /* SHGetFileInfo should work with absolute and relative paths */
342 if (PathIsRelativeW(path
))
344 GetCurrentDirectoryW(MAX_PATH
, szLocation
);
345 PathCombineW(szFullPath
, szLocation
, path
);
349 lstrcpynW(szFullPath
, path
, MAX_PATH
);
353 if (flags
& SHGFI_EXETYPE
)
355 if (flags
!= SHGFI_EXETYPE
)
357 return shgfi_get_exe_type(szFullPath
);
361 * psfi is NULL normally to query EXE type. If it is NULL, none of the
362 * below makes sense anyway. Windows allows this and just returns FALSE
368 * translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES
370 * The pidl functions fail on not existing file names
373 if (flags
& SHGFI_PIDL
)
375 pidl
= ILClone((LPCITEMIDLIST
)path
);
377 else if (!(flags
& SHGFI_USEFILEATTRIBUTES
))
379 hr
= SHILCreateFromPathW(szFullPath
, &pidl
, &dwAttributes
);
382 if ((flags
& SHGFI_PIDL
) || !(flags
& SHGFI_USEFILEATTRIBUTES
))
384 /* get the parent shellfolder */
387 hr
= SHBindToParent( pidl
, &IID_IShellFolder
, (LPVOID
*)&psfParent
,
388 (LPCITEMIDLIST
*)&pidlLast
);
393 ERR("pidl is null!\n");
398 /* get the attributes of the child */
399 if (SUCCEEDED(hr
) && (flags
& SHGFI_ATTRIBUTES
))
401 if (!(flags
& SHGFI_ATTR_SPECIFIED
))
403 psfi
->dwAttributes
= 0xffffffff;
405 IShellFolder_GetAttributesOf( psfParent
, 1, (LPCITEMIDLIST
*)&pidlLast
,
406 &(psfi
->dwAttributes
) );
409 /* get the displayname */
410 if (SUCCEEDED(hr
) && (flags
& SHGFI_DISPLAYNAME
))
412 if (flags
& SHGFI_USEFILEATTRIBUTES
)
414 lstrcpyW (psfi
->szDisplayName
, PathFindFileNameW(szFullPath
));
419 hr
= IShellFolder_GetDisplayNameOf( psfParent
, pidlLast
,
420 SHGDN_INFOLDER
, &str
);
421 StrRetToStrNW (psfi
->szDisplayName
, MAX_PATH
, &str
, pidlLast
);
425 /* get the type name */
426 if (SUCCEEDED(hr
) && (flags
& SHGFI_TYPENAME
))
428 static const WCHAR szFile
[] = { 'F','i','l','e',0 };
429 static const WCHAR szDashFile
[] = { '-','f','i','l','e',0 };
431 if (!(flags
& SHGFI_USEFILEATTRIBUTES
))
435 _ILGetFileType(pidlLast
, ftype
, 80);
436 MultiByteToWideChar(CP_ACP
, 0, ftype
, -1, psfi
->szTypeName
, 80 );
440 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
441 strcatW (psfi
->szTypeName
, szFile
);
446 lstrcpyW(sTemp
,PathFindExtensionW(szFullPath
));
447 if (!( HCR_MapTypeToValueW(sTemp
, sTemp
, 64, TRUE
) &&
448 HCR_MapTypeToValueW(sTemp
, psfi
->szTypeName
, 80, FALSE
)))
450 lstrcpynW (psfi
->szTypeName
, sTemp
, 64);
451 strcatW (psfi
->szTypeName
, szDashFile
);
458 if (flags
& SHGFI_ADDOVERLAYS
)
459 FIXME("SHGFI_ADDOVERLAYS unhandled\n");
461 if (flags
& SHGFI_OVERLAYINDEX
)
462 FIXME("SHGFI_OVERLAYINDEX unhandled\n");
464 if (flags
& SHGFI_LINKOVERLAY
)
465 FIXME("set icon to link, stub\n");
467 if (flags
& SHGFI_SELECTED
)
468 FIXME("set icon to selected, stub\n");
470 if (flags
& SHGFI_SHELLICONSIZE
)
471 FIXME("set icon to shell size, stub\n");
473 /* get the iconlocation */
474 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICONLOCATION
))
478 hr
= IShellFolder_GetUIObjectOf(psfParent
, 0, 1,
479 (LPCITEMIDLIST
*)&pidlLast
, &IID_IExtractIconA
,
480 &uDummy
, (LPVOID
*)&pei
);
483 hr
= IExtractIconW_GetIconLocation(pei
,
484 (flags
& SHGFI_OPENICON
)? GIL_OPENICON
: 0,
485 szLocation
, MAX_PATH
, &iIndex
, &uFlags
);
486 psfi
->iIcon
= iIndex
;
488 if (uFlags
!= GIL_NOTFILENAME
)
489 lstrcpyW (psfi
->szDisplayName
, szLocation
);
493 IExtractIconA_Release(pei
);
497 /* get icon index (or load icon)*/
498 if (SUCCEEDED(hr
) && (flags
& (SHGFI_ICON
| SHGFI_SYSICONINDEX
)))
500 if (flags
& SHGFI_USEFILEATTRIBUTES
)
502 WCHAR sTemp
[MAX_PATH
];
506 lstrcpynW(sTemp
, szFullPath
, MAX_PATH
);
508 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
509 psfi
->iIcon
= SIC_GetIconIndex(swShell32Name
, -IDI_SHELL_FOLDER
, 0);
512 static const WCHAR p1W
[] = {'%','1',0};
515 szExt
= (LPWSTR
) PathFindExtensionW(sTemp
);
517 HCR_MapTypeToValueW(szExt
, sTemp
, MAX_PATH
, TRUE
) &&
518 HCR_GetDefaultIconW(sTemp
, sTemp
, MAX_PATH
, &dwNr
))
520 if (!lstrcmpW(p1W
,sTemp
)) /* icon is in the file */
521 strcpyW(sTemp
, szFullPath
);
523 if (flags
& SHGFI_SYSICONINDEX
)
525 psfi
->iIcon
= SIC_GetIconIndex(sTemp
,dwNr
,0);
526 if (psfi
->iIcon
== -1)
531 IconNotYetLoaded
=FALSE
;
532 if (flags
& SHGFI_SMALLICON
)
533 PrivateExtractIconsW( sTemp
,dwNr
,
534 GetSystemMetrics( SM_CXSMICON
),
535 GetSystemMetrics( SM_CYSMICON
),
536 &psfi
->hIcon
, 0, 1, 0);
538 PrivateExtractIconsW( sTemp
, dwNr
,
539 GetSystemMetrics( SM_CXICON
),
540 GetSystemMetrics( SM_CYICON
),
541 &psfi
->hIcon
, 0, 1, 0);
549 if (!(PidlToSicIndex(psfParent
, pidlLast
, !(flags
& SHGFI_SMALLICON
),
550 (flags
& SHGFI_OPENICON
)? GIL_OPENICON
: 0, &(psfi
->iIcon
))))
557 if (flags
& SHGFI_SMALLICON
)
558 ret
= (DWORD
) ShellSmallIconList
;
560 ret
= (DWORD
) ShellBigIconList
;
565 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICON
) && IconNotYetLoaded
)
567 if (flags
& SHGFI_SMALLICON
)
568 psfi
->hIcon
= ImageList_GetIcon( ShellSmallIconList
, psfi
->iIcon
, ILD_NORMAL
);
570 psfi
->hIcon
= ImageList_GetIcon( ShellBigIconList
, psfi
->iIcon
, ILD_NORMAL
);
573 if (flags
& ~SHGFI_KNOWN_FLAGS
)
574 FIXME("unknown flags %08x\n", flags
& ~SHGFI_KNOWN_FLAGS
);
577 IShellFolder_Release(psfParent
);
586 TRACE ("icon=%p index=0x%08x attr=0x%08lx name=%s type=%s ret=0x%08lx\n",
587 psfi
->hIcon
, psfi
->iIcon
, psfi
->dwAttributes
,
588 debugstr_w(psfi
->szDisplayName
), debugstr_w(psfi
->szTypeName
), ret
);
594 /*************************************************************************
595 * SHGetFileInfoA [SHELL32.@]
597 DWORD WINAPI
SHGetFileInfoA(LPCSTR path
,DWORD dwFileAttributes
,
598 SHFILEINFOA
*psfi
, UINT sizeofpsfi
,
604 SHFILEINFOW temppsfi
;
606 if (flags
& SHGFI_PIDL
)
608 /* path contains a pidl */
609 temppath
= (LPWSTR
) path
;
613 len
= MultiByteToWideChar(CP_ACP
, 0, path
, -1, NULL
, 0);
614 temppath
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
615 MultiByteToWideChar(CP_ACP
, 0, path
, -1, temppath
, len
);
618 if (psfi
&& (flags
& SHGFI_ATTR_SPECIFIED
))
619 temppsfi
.dwAttributes
=psfi
->dwAttributes
;
622 ret
= SHGetFileInfoW(temppath
, dwFileAttributes
, NULL
, sizeof(temppsfi
), flags
);
624 ret
= SHGetFileInfoW(temppath
, dwFileAttributes
, &temppsfi
, sizeof(temppsfi
), flags
);
628 if(flags
& SHGFI_ICON
)
629 psfi
->hIcon
=temppsfi
.hIcon
;
630 if(flags
& (SHGFI_SYSICONINDEX
|SHGFI_ICON
|SHGFI_ICONLOCATION
))
631 psfi
->iIcon
=temppsfi
.iIcon
;
632 if(flags
& SHGFI_ATTRIBUTES
)
633 psfi
->dwAttributes
=temppsfi
.dwAttributes
;
634 if(flags
& (SHGFI_DISPLAYNAME
|SHGFI_ICONLOCATION
))
636 WideCharToMultiByte(CP_ACP
, 0, temppsfi
.szDisplayName
, -1,
637 psfi
->szDisplayName
, sizeof(psfi
->szDisplayName
), NULL
, NULL
);
639 if(flags
& SHGFI_TYPENAME
)
641 WideCharToMultiByte(CP_ACP
, 0, temppsfi
.szTypeName
, -1,
642 psfi
->szTypeName
, sizeof(psfi
->szTypeName
), NULL
, NULL
);
646 if (!(flags
& SHGFI_PIDL
))
647 HeapFree(GetProcessHeap(), 0, temppath
);
652 /*************************************************************************
653 * DuplicateIcon [SHELL32.@]
655 HICON WINAPI
DuplicateIcon( HINSTANCE hInstance
, HICON hIcon
)
660 TRACE("%p %p\n", hInstance
, hIcon
);
662 if (GetIconInfo(hIcon
, &IconInfo
))
664 hDupIcon
= CreateIconIndirect(&IconInfo
);
666 /* clean up hbmMask and hbmColor */
667 DeleteObject(IconInfo
.hbmMask
);
668 DeleteObject(IconInfo
.hbmColor
);
674 /*************************************************************************
675 * ExtractIconA [SHELL32.@]
677 HICON WINAPI
ExtractIconA(HINSTANCE hInstance
, LPCSTR lpszFile
, UINT nIconIndex
)
680 INT len
= MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, NULL
, 0);
681 LPWSTR lpwstrFile
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
683 TRACE("%p %s %d\n", hInstance
, lpszFile
, nIconIndex
);
685 MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, lpwstrFile
, len
);
686 ret
= ExtractIconW(hInstance
, lpwstrFile
, nIconIndex
);
687 HeapFree(GetProcessHeap(), 0, lpwstrFile
);
692 /*************************************************************************
693 * ExtractIconW [SHELL32.@]
695 HICON WINAPI
ExtractIconW(HINSTANCE hInstance
, LPCWSTR lpszFile
, UINT nIconIndex
)
699 UINT cx
= GetSystemMetrics(SM_CXICON
), cy
= GetSystemMetrics(SM_CYICON
);
701 TRACE("%p %s %d\n", hInstance
, debugstr_w(lpszFile
), nIconIndex
);
703 if (nIconIndex
== 0xFFFFFFFF)
705 ret
= PrivateExtractIconsW(lpszFile
, 0, cx
, cy
, NULL
, NULL
, 0, LR_DEFAULTCOLOR
);
706 if (ret
!= 0xFFFFFFFF && ret
)
711 ret
= PrivateExtractIconsW(lpszFile
, nIconIndex
, cx
, cy
, &hIcon
, NULL
, 1, LR_DEFAULTCOLOR
);
713 if (ret
== 0xFFFFFFFF)
715 else if (ret
> 0 && hIcon
)
724 LPCWSTR szOtherStuff
;
729 #define IDC_STATIC_TEXT1 100
730 #define IDC_STATIC_TEXT2 101
731 #define IDC_LISTBOX 99
732 #define IDC_WINE_TEXT 98
734 #define DROP_FIELD_TOP (-15)
735 #define DROP_FIELD_HEIGHT 15
737 static BOOL
__get_dropline( HWND hWnd
, LPRECT lprect
)
739 HWND hWndCtl
= GetDlgItem(hWnd
, IDC_WINE_TEXT
);
743 GetWindowRect( hWndCtl
, lprect
);
744 MapWindowPoints( 0, hWnd
, (LPPOINT
)lprect
, 2 );
745 lprect
->bottom
= (lprect
->top
+= DROP_FIELD_TOP
);
751 /*************************************************************************
752 * SHAppBarMessage [SHELL32.@]
754 UINT WINAPI
SHAppBarMessage(DWORD msg
, PAPPBARDATA data
)
756 int width
=data
->rc
.right
- data
->rc
.left
;
757 int height
=data
->rc
.bottom
- data
->rc
.top
;
763 return ABS_ALWAYSONTOP
| ABS_AUTOHIDE
;
764 case ABM_GETTASKBARPOS
:
765 GetWindowRect(data
->hWnd
, &rec
);
769 SetActiveWindow(data
->hWnd
);
771 case ABM_GETAUTOHIDEBAR
:
772 data
->hWnd
=GetActiveWindow();
775 SetWindowPos(data
->hWnd
,HWND_TOP
,rec
.left
,rec
.top
,
776 width
,height
,SWP_SHOWWINDOW
);
779 GetWindowRect(data
->hWnd
, &(data
->rc
));
782 FIXME("ABM_REMOVE broken\n");
783 /* FIXME: this is wrong; should it be DestroyWindow instead? */
784 /*CloseHandle(data->hWnd);*/
786 case ABM_SETAUTOHIDEBAR
:
787 SetWindowPos(data
->hWnd
,HWND_TOP
,rec
.left
+1000,rec
.top
,
788 width
,height
,SWP_SHOWWINDOW
);
791 data
->uEdge
=(ABE_RIGHT
| ABE_LEFT
);
792 SetWindowPos(data
->hWnd
,HWND_TOP
,data
->rc
.left
,data
->rc
.top
,
793 width
,height
,SWP_SHOWWINDOW
);
795 case ABM_WINDOWPOSCHANGED
:
801 /*************************************************************************
802 * SHHelpShortcuts_RunDLLA [SHELL32.@]
805 DWORD WINAPI
SHHelpShortcuts_RunDLLA(DWORD dwArg1
, DWORD dwArg2
, DWORD dwArg3
, DWORD dwArg4
)
807 FIXME("(%lx, %lx, %lx, %lx) stub!\n", dwArg1
, dwArg2
, dwArg3
, dwArg4
);
811 /*************************************************************************
812 * SHHelpShortcuts_RunDLLA [SHELL32.@]
815 DWORD WINAPI
SHHelpShortcuts_RunDLLW(DWORD dwArg1
, DWORD dwArg2
, DWORD dwArg3
, DWORD dwArg4
)
817 FIXME("(%lx, %lx, %lx, %lx) stub!\n", dwArg1
, dwArg2
, dwArg3
, dwArg4
);
821 /*************************************************************************
822 * SHLoadInProc [SHELL32.@]
823 * Create an instance of specified object class from within
824 * the shell process and release it immediately
826 HRESULT WINAPI
SHLoadInProc (REFCLSID rclsid
)
830 TRACE("%s\n", debugstr_guid(rclsid
));
832 CoCreateInstance(rclsid
, NULL
, CLSCTX_INPROC_SERVER
, &IID_IUnknown
,&ptr
);
835 IUnknown
* pUnk
= ptr
;
836 IUnknown_Release(pUnk
);
839 return DISP_E_MEMBERNOTFOUND
;
842 /*************************************************************************
843 * AboutDlgProc (internal)
845 INT_PTR CALLBACK
AboutDlgProc( HWND hWnd
, UINT msg
, WPARAM wParam
,
856 ABOUT_INFO
*info
= (ABOUT_INFO
*)lParam
;
857 WCHAR Template
[512], AppTitle
[512];
861 const char* const *pstr
= SHELL_Authors
;
862 SendDlgItemMessageW(hWnd
, stc1
, STM_SETICON
,(WPARAM
)info
->hIcon
, 0);
863 GetWindowTextW( hWnd
, Template
, sizeof(Template
)/sizeof(WCHAR
) );
864 sprintfW( AppTitle
, Template
, info
->szApp
);
865 SetWindowTextW( hWnd
, AppTitle
);
866 SetWindowTextW( GetDlgItem(hWnd
, IDC_STATIC_TEXT1
), info
->szApp
);
867 SetWindowTextW( GetDlgItem(hWnd
, IDC_STATIC_TEXT2
), info
->szOtherStuff
);
868 hWndCtl
= GetDlgItem(hWnd
, IDC_LISTBOX
);
869 SendMessageW( hWndCtl
, WM_SETREDRAW
, 0, 0 );
870 SendMessageW( hWndCtl
, WM_SETFONT
, (WPARAM
)info
->hFont
, 0 );
874 /* authors list is in iso-8859-1 format */
875 MultiByteToWideChar( 28591, 0, *pstr
, -1, name
, sizeof(name
)/sizeof(WCHAR
) );
876 SendMessageW( hWndCtl
, LB_ADDSTRING
, (WPARAM
)-1, (LPARAM
)name
);
879 SendMessageW( hWndCtl
, WM_SETREDRAW
, 1, 0 );
888 HDC hDC
= BeginPaint( hWnd
, &ps
);
890 if (__get_dropline( hWnd
, &rect
))
892 SelectObject( hDC
, GetStockObject( BLACK_PEN
) );
893 MoveToEx( hDC
, rect
.left
, rect
.top
, NULL
);
894 LineTo( hDC
, rect
.right
, rect
.bottom
);
896 EndPaint( hWnd
, &ps
);
901 if (wParam
== IDOK
|| wParam
== IDCANCEL
)
903 EndDialog(hWnd
, TRUE
);
908 EndDialog(hWnd
, TRUE
);
916 /*************************************************************************
917 * ShellAboutA [SHELL32.288]
919 BOOL WINAPI
ShellAboutA( HWND hWnd
, LPCSTR szApp
, LPCSTR szOtherStuff
, HICON hIcon
)
922 LPWSTR appW
= NULL
, otherW
= NULL
;
927 len
= MultiByteToWideChar(CP_ACP
, 0, szApp
, -1, NULL
, 0);
928 appW
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
929 MultiByteToWideChar(CP_ACP
, 0, szApp
, -1, appW
, len
);
933 len
= MultiByteToWideChar(CP_ACP
, 0, szOtherStuff
, -1, NULL
, 0);
934 otherW
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
935 MultiByteToWideChar(CP_ACP
, 0, szOtherStuff
, -1, otherW
, len
);
938 ret
= ShellAboutW(hWnd
, appW
, otherW
, hIcon
);
940 HeapFree(GetProcessHeap(), 0, otherW
);
941 HeapFree(GetProcessHeap(), 0, appW
);
946 /*************************************************************************
947 * ShellAboutW [SHELL32.289]
949 BOOL WINAPI
ShellAboutW( HWND hWnd
, LPCWSTR szApp
, LPCWSTR szOtherStuff
,
957 static const WCHAR wszSHELL_ABOUT_MSGBOX
[] =
958 {'S','H','E','L','L','_','A','B','O','U','T','_','M','S','G','B','O','X',0};
962 if(!(hRes
= FindResourceW(shell32_hInstance
, wszSHELL_ABOUT_MSGBOX
, (LPWSTR
)RT_DIALOG
)))
964 if(!(template = (LPVOID
)LoadResource(shell32_hInstance
, hRes
)))
967 info
.szOtherStuff
= szOtherStuff
;
968 info
.hIcon
= hIcon
? hIcon
: LoadIconW( 0, (LPWSTR
)IDI_WINLOGO
);
970 SystemParametersInfoW( SPI_GETICONTITLELOGFONT
, 0, &logFont
, 0 );
971 info
.hFont
= CreateFontIndirectW( &logFont
);
973 bRet
= DialogBoxIndirectParamW((HINSTANCE
)GetWindowLongPtrW( hWnd
, GWLP_HINSTANCE
),
974 template, hWnd
, AboutDlgProc
, (LPARAM
)&info
);
975 DeleteObject(info
.hFont
);
979 /*************************************************************************
980 * FreeIconList (SHELL32.@)
982 void WINAPI
FreeIconList( DWORD dw
)
984 FIXME("%lx: stub\n",dw
);
988 /*************************************************************************
989 * ShellDDEInit (SHELL32.@)
991 void WINAPI
ShellDDEInit(BOOL start
)
993 FIXME("stub: %d\n", start
);
996 /***********************************************************************
997 * DllGetVersion [SHELL32.@]
999 * Retrieves version information of the 'SHELL32.DLL'
1002 * pdvi [O] pointer to version information structure.
1006 * Failure: E_INVALIDARG
1009 * Returns version of a shell32.dll from IE4.01 SP1.
1012 HRESULT WINAPI
SHELL32_DllGetVersion (DLLVERSIONINFO
*pdvi
)
1014 /* FIXME: shouldn't these values come from the version resource? */
1015 if (pdvi
->cbSize
== sizeof(DLLVERSIONINFO
) ||
1016 pdvi
->cbSize
== sizeof(DLLVERSIONINFO2
))
1018 pdvi
->dwMajorVersion
= WINE_FILEVERSION_MAJOR
;
1019 pdvi
->dwMinorVersion
= WINE_FILEVERSION_MINOR
;
1020 pdvi
->dwBuildNumber
= WINE_FILEVERSION_BUILD
;
1021 pdvi
->dwPlatformID
= WINE_FILEVERSION_PLATFORMID
;
1022 if (pdvi
->cbSize
== sizeof(DLLVERSIONINFO2
))
1024 DLLVERSIONINFO2
*pdvi2
= (DLLVERSIONINFO2
*)pdvi
;
1027 pdvi2
->ullVersion
= MAKEDLLVERULL(WINE_FILEVERSION_MAJOR
,
1028 WINE_FILEVERSION_MINOR
,
1029 WINE_FILEVERSION_BUILD
,
1030 WINE_FILEVERSION_PLATFORMID
);
1032 TRACE("%lu.%lu.%lu.%lu\n",
1033 pdvi
->dwMajorVersion
, pdvi
->dwMinorVersion
,
1034 pdvi
->dwBuildNumber
, pdvi
->dwPlatformID
);
1039 WARN("wrong DLLVERSIONINFO size from app\n");
1040 return E_INVALIDARG
;
1044 /*************************************************************************
1045 * global variables of the shell32.dll
1046 * all are once per process
1049 HINSTANCE shell32_hInstance
= 0;
1050 HIMAGELIST ShellSmallIconList
= 0;
1051 HIMAGELIST ShellBigIconList
= 0;
1054 /*************************************************************************
1058 * calling oleinitialize here breaks sone apps.
1060 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID fImpLoad
)
1062 TRACE("%p 0x%lx %p\n", hinstDLL
, fdwReason
, fImpLoad
);
1066 case DLL_PROCESS_ATTACH
:
1067 shell32_hInstance
= hinstDLL
;
1068 DisableThreadLibraryCalls(shell32_hInstance
);
1070 /* get full path to this DLL for IExtractIconW_fnGetIconLocation() */
1071 GetModuleFileNameW(hinstDLL
, swShell32Name
, MAX_PATH
);
1072 swShell32Name
[MAX_PATH
- 1] = '\0';
1074 InitCommonControlsEx(NULL
);
1077 InitChangeNotifications();
1080 case DLL_PROCESS_DETACH
:
1081 shell32_hInstance
= 0;
1083 FreeChangeNotifications();
1089 /*************************************************************************
1090 * DllInstall [SHELL32.@]
1094 * BOOL bInstall - TRUE for install, FALSE for uninstall
1095 * LPCWSTR pszCmdLine - command line (unused by shell32?)
1098 HRESULT WINAPI
SHELL32_DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
1100 FIXME("%s %s: stub\n", bInstall
? "TRUE":"FALSE", debugstr_w(cmdline
));
1101 return S_OK
; /* indicate success */
1104 /***********************************************************************
1105 * DllCanUnloadNow (SHELL32.@)
1107 HRESULT WINAPI
SHELL32_DllCanUnloadNow(void)