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
37 #include "undocshell.h"
38 #include "wine/winuser16.h"
42 #include "shell32_main.h"
44 #include "wine/debug.h"
45 #include "wine/unicode.h"
47 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
50 /*************************************************************************
51 * CommandLineToArgvW [SHELL32.@]
53 * We must interpret the quotes in the command line to rebuild the argv
55 * - arguments are separated by spaces or tabs
56 * - quotes serve as optional argument delimiters
58 * - escaped quotes must be converted back to '"'
60 * - an odd number of '\'s followed by '"' correspond to half that number
61 * of '\' followed by a '"' (extension of the above)
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
79 LPWSTR
* WINAPI
CommandLineToArgvW(LPCWSTR lpCmdline
, int* numargs
)
90 /* Return the path to the executable */
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);
107 /* to get a writeable copy */
113 if (*cs
==0 || ((*cs
==0x0009 || *cs
==0x0020) && !in_quotes
)) {
116 /* skip the remaining spaces */
117 while (*cs
==0x0009 || *cs
==0x0020) {
124 } else if (*cs
==0x005c) {
125 /* '\', count them */
127 } else if ((*cs
==0x0022) && ((bcount
& 1)==0)) {
129 in_quotes
=!in_quotes
;
132 /* a regular character */
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.
140 hargv
=GlobalAlloc(0, argc
*sizeof(LPWSTR
)+(strlenW(lpCmdline
)+1)*sizeof(WCHAR
));
141 argv
=GlobalLock(hargv
);
144 cmdline
=(LPWSTR
)(argv
+argc
);
145 strcpyW(cmdline
, lpCmdline
);
152 if ((*s
==0x0009 || *s
==0x0020) && !in_quotes
) {
153 /* Close the argument and copy it */
157 /* skip the remaining spaces */
160 } while (*s
==0x0009 || *s
==0x0020);
162 /* Start with a new argument */
165 } else if (*s
==0x005c) {
169 } else if (*s
==0x0022) {
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.
176 in_quotes
=!in_quotes
;
179 /* Preceeded by an odd number of '\', this is half that
180 * number of '\' followed by a '"'
188 /* a regular character */
203 /*************************************************************************
204 * SHGetFileInfoA [SHELL32.@]
208 DWORD WINAPI
SHGetFileInfoA(LPCSTR path
,DWORD dwFileAttributes
,
209 SHFILEINFOA
*psfi
, UINT sizeofpsfi
,
212 char szLocation
[MAX_PATH
], szFullPath
[MAX_PATH
];
214 DWORD ret
= TRUE
, dwAttributes
= 0;
215 IShellFolder
* psfParent
= NULL
;
216 IExtractIconA
* pei
= NULL
;
217 LPITEMIDLIST pidlLast
= NULL
, pidl
= NULL
;
219 BOOL IconNotYetLoaded
=TRUE
;
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
);
224 if ((flags
& SHGFI_USEFILEATTRIBUTES
) && (flags
& (SHGFI_ATTRIBUTES
|SHGFI_EXETYPE
|SHGFI_PIDL
)))
227 /* windows initializes this values regardless of the flags */
229 psfi
->szDisplayName
[0] = '\0';
230 psfi
->szTypeName
[0] = '\0';
234 if (!(flags
& SHGFI_PIDL
)){
235 /* SHGitFileInfo should work with absolute and relative paths */
236 if (PathIsRelativeA(path
)){
237 GetCurrentDirectoryA(MAX_PATH
, szLocation
);
238 PathCombineA(szFullPath
, szLocation
, path
);
240 lstrcpynA(szFullPath
, path
, MAX_PATH
);
244 if (flags
& SHGFI_EXETYPE
) {
248 IMAGE_DOS_HEADER mz_header
;
253 if (flags
!= SHGFI_EXETYPE
) return 0;
255 status
= GetBinaryTypeA (szFullPath
, &BinaryType
);
256 if (!status
) return 0;
257 if ((BinaryType
== SCS_DOS_BINARY
)
258 || (BinaryType
== SCS_PIF_BINARY
)) return 0x4d5a;
260 hfile
= CreateFileA( szFullPath
, GENERIC_READ
, FILE_SHARE_READ
,
261 NULL
, OPEN_EXISTING
, 0, 0 );
262 if ( hfile
== INVALID_HANDLE_VALUE
) return 0;
264 /* The next section is adapted from MODULE_GetBinaryType, as we need
265 * to examine the image header to get OS and version information. We
266 * know from calling GetBinaryTypeA that the image is valid and either
267 * an NE or PE, so much error handling can be omitted.
268 * Seek to the start of the file and read the header information.
271 SetFilePointer( hfile
, 0, NULL
, SEEK_SET
);
272 ReadFile( hfile
, &mz_header
, sizeof(mz_header
), &len
, NULL
);
274 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
275 ReadFile( hfile
, magic
, sizeof(magic
), &len
, NULL
);
276 if ( *(DWORD
*)magic
== IMAGE_NT_SIGNATURE
)
278 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
279 ReadFile( hfile
, &nt
, sizeof(nt
), &len
, NULL
);
280 CloseHandle( hfile
);
281 if (nt
.OptionalHeader
.Subsystem
== IMAGE_SUBSYSTEM_WINDOWS_GUI
) {
282 return IMAGE_NT_SIGNATURE
283 | (nt
.OptionalHeader
.MajorSubsystemVersion
<< 24)
284 | (nt
.OptionalHeader
.MinorSubsystemVersion
<< 16);
286 return IMAGE_NT_SIGNATURE
;
288 else if ( *(WORD
*)magic
== IMAGE_OS2_SIGNATURE
)
291 SetFilePointer( hfile
, mz_header
.e_lfanew
, NULL
, SEEK_SET
);
292 ReadFile( hfile
, &ne
, sizeof(ne
), &len
, NULL
);
293 CloseHandle( hfile
);
294 if (ne
.ne_exetyp
== 2) return IMAGE_OS2_SIGNATURE
295 | (ne
.ne_expver
<< 16);
298 CloseHandle( hfile
);
302 /* psfi is NULL normally to query EXE type. If it is NULL, none of the
303 * below makes sense anyway. Windows allows this and just returns FALSE */
304 if (psfi
== NULL
) return FALSE
;
306 /* translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES
308 The pidl functions fail on not existing file names */
310 if (flags
& SHGFI_PIDL
) {
311 pidl
= ILClone((LPCITEMIDLIST
)path
);
312 } else if (!(flags
& SHGFI_USEFILEATTRIBUTES
)) {
313 hr
= SHILCreateFromPathA(szFullPath
, &pidl
, &dwAttributes
);
316 if ((flags
& SHGFI_PIDL
) || !(flags
& SHGFI_USEFILEATTRIBUTES
))
318 /* get the parent shellfolder */
320 hr
= SHBindToParent( pidl
, &IID_IShellFolder
, (LPVOID
*)&psfParent
, &pidlLast
);
323 ERR("pidl is null!\n");
328 /* get the attributes of the child */
329 if (SUCCEEDED(hr
) && (flags
& SHGFI_ATTRIBUTES
))
331 if (!(flags
& SHGFI_ATTR_SPECIFIED
))
333 psfi
->dwAttributes
= 0xffffffff;
335 IShellFolder_GetAttributesOf(psfParent
, 1 , &pidlLast
, &(psfi
->dwAttributes
));
338 /* get the displayname */
339 if (SUCCEEDED(hr
) && (flags
& SHGFI_DISPLAYNAME
))
341 if (flags
& SHGFI_USEFILEATTRIBUTES
)
343 strcpy (psfi
->szDisplayName
, PathFindFileNameA(szFullPath
));
348 hr
= IShellFolder_GetDisplayNameOf(psfParent
, pidlLast
, SHGDN_INFOLDER
, &str
);
349 StrRetToStrNA (psfi
->szDisplayName
, MAX_PATH
, &str
, pidlLast
);
353 /* get the type name */
354 if (SUCCEEDED(hr
) && (flags
& SHGFI_TYPENAME
))
356 if (!(flags
& SHGFI_USEFILEATTRIBUTES
))
357 _ILGetFileType(pidlLast
, psfi
->szTypeName
, 80);
360 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
361 strcat (psfi
->szTypeName
, "File");
365 strcpy(sTemp
,PathFindExtensionA(szFullPath
));
366 if (!( HCR_MapTypeToValueA(sTemp
, sTemp
, 64, TRUE
)
367 && HCR_MapTypeToValueA(sTemp
, psfi
->szTypeName
, 80, FALSE
)))
369 lstrcpynA (psfi
->szTypeName
, sTemp
, 64);
370 strcat (psfi
->szTypeName
, "-file");
377 if (flags
& SHGFI_LINKOVERLAY
)
378 FIXME("set icon to link, stub\n");
380 if (flags
& SHGFI_SELECTED
)
381 FIXME("set icon to selected, stub\n");
383 if (flags
& SHGFI_SHELLICONSIZE
)
384 FIXME("set icon to shell size, stub\n");
386 /* get the iconlocation */
387 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICONLOCATION
))
390 hr
= IShellFolder_GetUIObjectOf(psfParent
, 0, 1, &pidlLast
, &IID_IExtractIconA
, &uDummy
, (LPVOID
*)&pei
);
394 hr
= IExtractIconA_GetIconLocation(pei
, (flags
& SHGFI_OPENICON
)? GIL_OPENICON
: 0,szLocation
, MAX_PATH
, &iIndex
, &uFlags
);
395 psfi
->iIcon
= iIndex
;
397 if(uFlags
!= GIL_NOTFILENAME
)
398 strcpy (psfi
->szDisplayName
, szLocation
);
402 IExtractIconA_Release(pei
);
406 /* get icon index (or load icon)*/
407 if (SUCCEEDED(hr
) && (flags
& (SHGFI_ICON
| SHGFI_SYSICONINDEX
)))
410 if (flags
& SHGFI_USEFILEATTRIBUTES
)
412 char sTemp
[MAX_PATH
];
416 lstrcpynA(sTemp
, szFullPath
, MAX_PATH
);
418 if (dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
423 szExt
= (LPSTR
) PathFindExtensionA(sTemp
);
424 if ( szExt
&& HCR_MapTypeToValueA(szExt
, sTemp
, MAX_PATH
, TRUE
)
425 && HCR_GetDefaultIconA(sTemp
, sTemp
, MAX_PATH
, &dwNr
))
427 if (!strcmp("%1",sTemp
)) /* icon is in the file */
428 strcpy(sTemp
, szFullPath
);
430 if (flags
& SHGFI_SYSICONINDEX
)
432 psfi
->iIcon
= SIC_GetIconIndex(sTemp
,dwNr
);
433 if (psfi
->iIcon
== -1) psfi
->iIcon
= 0;
437 IconNotYetLoaded
=FALSE
;
438 PrivateExtractIconsA(sTemp
,dwNr
,(flags
& SHGFI_SMALLICON
) ?
439 GetSystemMetrics(SM_CXSMICON
) : GetSystemMetrics(SM_CXICON
),
440 (flags
& SHGFI_SMALLICON
) ? GetSystemMetrics(SM_CYSMICON
) :
441 GetSystemMetrics(SM_CYICON
), &psfi
->hIcon
,0,1,0);
449 if (!(PidlToSicIndex(psfParent
, pidlLast
, !(flags
& SHGFI_SMALLICON
),
450 (flags
& SHGFI_OPENICON
)? GIL_OPENICON
: 0, &(psfi
->iIcon
))))
457 ret
= (DWORD
) ((flags
& SHGFI_SMALLICON
) ? ShellSmallIconList
: ShellBigIconList
);
462 if (SUCCEEDED(hr
) && (flags
& SHGFI_ICON
) && IconNotYetLoaded
)
463 psfi
->hIcon
= ImageList_GetIcon((flags
& SHGFI_SMALLICON
) ? ShellSmallIconList
:ShellBigIconList
, psfi
->iIcon
, ILD_NORMAL
);
465 if (flags
& (SHGFI_UNKNOWN1
| SHGFI_UNKNOWN2
| SHGFI_UNKNOWN3
))
466 FIXME("unknown attribute!\n");
469 IShellFolder_Release(psfParent
);
474 if(pidlLast
) SHFree(pidlLast
);
476 TRACE ("icon=%p index=0x%08x attr=0x%08lx name=%s type=%s ret=0x%08lx\n",
477 psfi
->hIcon
, psfi
->iIcon
, psfi
->dwAttributes
, psfi
->szDisplayName
, psfi
->szTypeName
, ret
);
482 /*************************************************************************
483 * SHGetFileInfoW [SHELL32.@]
486 DWORD WINAPI
SHGetFileInfoW(LPCWSTR path
,DWORD dwFileAttributes
,
487 SHFILEINFOW
*psfi
, UINT sizeofpsfi
,
493 SHFILEINFOA temppsfi
;
495 if (flags
& SHGFI_PIDL
) {
496 /* path contains a pidl */
497 temppath
= (LPSTR
) path
;
499 len
= WideCharToMultiByte(CP_ACP
, 0, path
, -1, NULL
, 0, NULL
, NULL
);
500 temppath
= HeapAlloc(GetProcessHeap(), 0, len
);
501 WideCharToMultiByte(CP_ACP
, 0, path
, -1, temppath
, len
, NULL
, NULL
);
504 if(psfi
&& (flags
& SHGFI_ATTR_SPECIFIED
))
505 temppsfi
.dwAttributes
=psfi
->dwAttributes
;
507 ret
= SHGetFileInfoA(temppath
, dwFileAttributes
, (psfi
== NULL
)? NULL
: &temppsfi
, sizeof(temppsfi
), flags
);
511 if(flags
& SHGFI_ICON
)
512 psfi
->hIcon
=temppsfi
.hIcon
;
513 if(flags
& (SHGFI_SYSICONINDEX
|SHGFI_ICON
|SHGFI_ICONLOCATION
))
514 psfi
->iIcon
=temppsfi
.iIcon
;
515 if(flags
& SHGFI_ATTRIBUTES
)
516 psfi
->dwAttributes
=temppsfi
.dwAttributes
;
517 if(flags
& (SHGFI_DISPLAYNAME
|SHGFI_ICONLOCATION
))
518 MultiByteToWideChar(CP_ACP
, 0, temppsfi
.szDisplayName
, -1, psfi
->szDisplayName
, sizeof(psfi
->szDisplayName
));
519 if(flags
& SHGFI_TYPENAME
)
520 MultiByteToWideChar(CP_ACP
, 0, temppsfi
.szTypeName
, -1, psfi
->szTypeName
, sizeof(psfi
->szTypeName
));
522 if(!(flags
& SHGFI_PIDL
)) HeapFree(GetProcessHeap(), 0, temppath
);
526 /*************************************************************************
527 * SHGetFileInfo [SHELL32.@]
529 DWORD WINAPI
SHGetFileInfoAW(
531 DWORD dwFileAttributes
,
536 if(SHELL_OsIsUnicode())
537 return SHGetFileInfoW(path
, dwFileAttributes
, psfi
, sizeofpsfi
, flags
);
538 return SHGetFileInfoA(path
, dwFileAttributes
, psfi
, sizeofpsfi
, flags
);
541 /*************************************************************************
542 * DuplicateIcon [SHELL32.@]
544 HICON WINAPI
DuplicateIcon( HINSTANCE hInstance
, HICON hIcon
)
549 TRACE("(%p, %p)\n", hInstance
, hIcon
);
551 if(GetIconInfo(hIcon
, &IconInfo
))
553 hDupIcon
= CreateIconIndirect(&IconInfo
);
555 /* clean up hbmMask and hbmColor */
556 DeleteObject(IconInfo
.hbmMask
);
557 DeleteObject(IconInfo
.hbmColor
);
563 /*************************************************************************
564 * ExtractIconA [SHELL32.@]
566 HICON WINAPI
ExtractIconA(HINSTANCE hInstance
, LPCSTR lpszFile
, UINT nIconIndex
)
569 INT len
= MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, NULL
, 0);
570 LPWSTR lpwstrFile
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
572 TRACE("%p %s %d\n", hInstance
, lpszFile
, nIconIndex
);
574 MultiByteToWideChar(CP_ACP
, 0, lpszFile
, -1, lpwstrFile
, len
);
575 ret
= ExtractIconW(hInstance
, lpwstrFile
, nIconIndex
);
576 HeapFree(GetProcessHeap(), 0, lpwstrFile
);
580 /*************************************************************************
581 * ExtractIconW [SHELL32.@]
583 HICON WINAPI
ExtractIconW(HINSTANCE hInstance
, LPCWSTR lpszFile
, UINT nIconIndex
)
587 UINT cx
= GetSystemMetrics(SM_CXICON
), cy
= GetSystemMetrics(SM_CYICON
);
589 TRACE("%p %s %d\n", hInstance
, debugstr_w(lpszFile
), nIconIndex
);
591 if (nIconIndex
== -1) {
592 ret
= PrivateExtractIconsW(lpszFile
, 0, cx
, cy
, NULL
, NULL
, 0, LR_DEFAULTCOLOR
);
593 if (ret
!= 0xFFFFFFFF && ret
)
598 ret
= PrivateExtractIconsW(lpszFile
, nIconIndex
, cx
, cy
, &hIcon
, NULL
, 1, LR_DEFAULTCOLOR
);
600 if (ret
== 0xFFFFFFFF)
602 else if (ret
> 0 && hIcon
)
613 #define IDC_STATIC_TEXT 100
614 #define IDC_LISTBOX 99
615 #define IDC_WINE_TEXT 98
617 #define DROP_FIELD_TOP (-15)
618 #define DROP_FIELD_HEIGHT 15
620 static HFONT hIconTitleFont
;
622 static BOOL
__get_dropline( HWND hWnd
, LPRECT lprect
)
623 { HWND hWndCtl
= GetDlgItem(hWnd
, IDC_WINE_TEXT
);
625 { GetWindowRect( hWndCtl
, lprect
);
626 MapWindowPoints( 0, hWnd
, (LPPOINT
)lprect
, 2 );
627 lprect
->bottom
= (lprect
->top
+= DROP_FIELD_TOP
);
633 /*************************************************************************
634 * SHAppBarMessage [SHELL32.@]
636 UINT WINAPI
SHAppBarMessage(DWORD msg
, PAPPBARDATA data
)
638 int width
=data
->rc
.right
- data
->rc
.left
;
639 int height
=data
->rc
.bottom
- data
->rc
.top
;
643 return ABS_ALWAYSONTOP
| ABS_AUTOHIDE
;
644 case ABM_GETTASKBARPOS
:
645 GetWindowRect(data
->hWnd
, &rec
);
649 SetActiveWindow(data
->hWnd
);
651 case ABM_GETAUTOHIDEBAR
:
652 data
->hWnd
=GetActiveWindow();
655 SetWindowPos(data
->hWnd
,HWND_TOP
,rec
.left
,rec
.top
,
656 width
,height
,SWP_SHOWWINDOW
);
659 GetWindowRect(data
->hWnd
, &(data
->rc
));
662 FIXME("ABM_REMOVE broken\n");
663 /* FIXME: this is wrong; should it be DestroyWindow instead? */
664 /*CloseHandle(data->hWnd);*/
666 case ABM_SETAUTOHIDEBAR
:
667 SetWindowPos(data
->hWnd
,HWND_TOP
,rec
.left
+1000,rec
.top
,
668 width
,height
,SWP_SHOWWINDOW
);
671 data
->uEdge
=(ABE_RIGHT
| ABE_LEFT
);
672 SetWindowPos(data
->hWnd
,HWND_TOP
,data
->rc
.left
,data
->rc
.top
,
673 width
,height
,SWP_SHOWWINDOW
);
675 case ABM_WINDOWPOSCHANGED
:
681 /*************************************************************************
682 * SHHelpShortcuts_RunDLL [SHELL32.@]
685 DWORD WINAPI
SHHelpShortcuts_RunDLL (DWORD dwArg1
, DWORD dwArg2
, DWORD dwArg3
, DWORD dwArg4
)
686 { FIXME("(%lx, %lx, %lx, %lx) empty stub!\n",
687 dwArg1
, dwArg2
, dwArg3
, dwArg4
);
692 /*************************************************************************
693 * SHLoadInProc [SHELL32.@]
694 * Create an instance of specified object class from within
695 * the shell process and release it immediately
698 DWORD WINAPI
SHLoadInProc (REFCLSID rclsid
)
702 TRACE("%s\n", debugstr_guid(rclsid
));
704 CoCreateInstance(rclsid
, NULL
, CLSCTX_INPROC_SERVER
, &IID_IUnknown
,&ptr
);
707 IUnknown
* pUnk
= ptr
;
708 IUnknown_Release(pUnk
);
711 return DISP_E_MEMBERNOTFOUND
;
714 /*************************************************************************
715 * AboutDlgProc (internal)
717 INT_PTR CALLBACK
AboutDlgProc( HWND hWnd
, UINT msg
, WPARAM wParam
,
720 char Template
[512], AppTitle
[512];
725 { case WM_INITDIALOG
:
726 { ABOUT_INFO
*info
= (ABOUT_INFO
*)lParam
;
728 { const char* const *pstr
= SHELL_People
;
729 SendDlgItemMessageA(hWnd
, stc1
, STM_SETICON
,(WPARAM
)info
->hIcon
, 0);
730 GetWindowTextA( hWnd
, Template
, sizeof(Template
) );
731 sprintf( AppTitle
, Template
, info
->szApp
);
732 SetWindowTextA( hWnd
, AppTitle
);
733 SetWindowTextA( GetDlgItem(hWnd
, IDC_STATIC_TEXT
),
734 info
->szOtherStuff
);
735 hWndCtl
= GetDlgItem(hWnd
, IDC_LISTBOX
);
736 SendMessageA( hWndCtl
, WM_SETREDRAW
, 0, 0 );
740 SystemParametersInfoA( SPI_GETICONTITLELOGFONT
, 0, &logFont
, 0 );
741 hIconTitleFont
= CreateFontIndirectA( &logFont
);
743 SendMessageA( hWndCtl
, WM_SETFONT
, HICON_16(hIconTitleFont
), 0 );
745 { SendMessageA( hWndCtl
, LB_ADDSTRING
, (WPARAM
)-1, (LPARAM
)*pstr
);
748 SendMessageA( hWndCtl
, WM_SETREDRAW
, 1, 0 );
756 HDC hDC
= BeginPaint( hWnd
, &ps
);
758 if( __get_dropline( hWnd
, &rect
) ) {
759 SelectObject( hDC
, GetStockObject( BLACK_PEN
) );
760 MoveToEx( hDC
, rect
.left
, rect
.top
, NULL
);
761 LineTo( hDC
, rect
.right
, rect
.bottom
);
763 EndPaint( hWnd
, &ps
);
767 #if 0 /* FIXME: should use DoDragDrop */
768 case WM_LBTRACKPOINT
:
769 hWndCtl
= GetDlgItem(hWnd
, IDC_LISTBOX
);
770 if( (INT16
)GetKeyState( VK_CONTROL
) < 0 )
771 { if( DragDetect( hWndCtl
, *((LPPOINT
)&lParam
) ) )
772 { INT idx
= SendMessageA( hWndCtl
, LB_GETCURSEL
, 0, 0 );
774 { INT length
= SendMessageA( hWndCtl
, LB_GETTEXTLEN
, (WPARAM
)idx
, 0 );
775 HGLOBAL16 hMemObj
= GlobalAlloc16( GMEM_MOVEABLE
, length
+ 1 );
776 char* pstr
= (char*)GlobalLock16( hMemObj
);
779 { HCURSOR hCursor
= LoadCursorA( 0, MAKEINTRESOURCEA(OCR_DRAGOBJECT
) );
780 SendMessageA( hWndCtl
, LB_GETTEXT
, (WPARAM
)idx
, (LPARAM
)pstr
);
781 SendMessageA( hWndCtl
, LB_DELETESTRING
, (WPARAM
)idx
, 0 );
782 UpdateWindow( hWndCtl
);
783 if( !DragObject16((HWND16
)hWnd
, (HWND16
)hWnd
, DRAGOBJ_DATA
, 0, (WORD
)hMemObj
, hCursor
) )
784 SendMessageA( hWndCtl
, LB_ADDSTRING
, (WPARAM
)-1, (LPARAM
)pstr
);
787 GlobalFree16( hMemObj
);
794 case WM_QUERYDROPOBJECT
:
796 { LPDRAGINFO16 lpDragInfo
= MapSL((SEGPTR
)lParam
);
797 if( lpDragInfo
&& lpDragInfo
->wFlags
== DRAGOBJ_DATA
)
799 if( __get_dropline( hWnd
, &rect
) )
801 pt
.x
=lpDragInfo
->pt
.x
;
802 pt
.x
=lpDragInfo
->pt
.y
;
803 rect
.bottom
+= DROP_FIELD_HEIGHT
;
804 if( PtInRect( &rect
, pt
) )
805 { SetWindowLongA( hWnd
, DWL_MSGRESULT
, 1 );
814 if( wParam
== (WPARAM
)hWnd
)
815 { LPDRAGINFO16 lpDragInfo
= MapSL((SEGPTR
)lParam
);
816 if( lpDragInfo
&& lpDragInfo
->wFlags
== DRAGOBJ_DATA
&& lpDragInfo
->hList
)
817 { char* pstr
= (char*)GlobalLock16( (HGLOBAL16
)(lpDragInfo
->hList
) );
819 { static char __appendix_str
[] = " with";
821 hWndCtl
= GetDlgItem( hWnd
, IDC_WINE_TEXT
);
822 SendMessageA( hWndCtl
, WM_GETTEXT
, 512, (LPARAM
)Template
);
823 if( !strncmp( Template
, "WINE", 4 ) )
824 SetWindowTextA( GetDlgItem(hWnd
, IDC_STATIC_TEXT
), Template
);
826 { char* pch
= Template
+ strlen(Template
) - strlen(__appendix_str
);
828 SendMessageA( GetDlgItem(hWnd
, IDC_LISTBOX
), LB_ADDSTRING
,
829 (WPARAM
)-1, (LPARAM
)Template
);
832 strcpy( Template
, pstr
);
833 strcat( Template
, __appendix_str
);
834 SetWindowTextA( hWndCtl
, Template
);
835 SetWindowLongA( hWnd
, DWL_MSGRESULT
, 1 );
844 { EndDialog(hWnd
, TRUE
);
849 EndDialog(hWnd
, TRUE
);
857 /*************************************************************************
858 * ShellAboutA [SHELL32.288]
860 BOOL WINAPI
ShellAboutA( HWND hWnd
, LPCSTR szApp
, LPCSTR szOtherStuff
,
867 if(!(hRes
= FindResourceA(shell32_hInstance
, "SHELL_ABOUT_MSGBOX", RT_DIALOGA
)))
869 if(!(template = (LPVOID
)LoadResource(shell32_hInstance
, hRes
)))
873 info
.szOtherStuff
= szOtherStuff
;
875 if (!hIcon
) info
.hIcon
= LoadIconA( 0, IDI_WINLOGOA
);
876 return DialogBoxIndirectParamA( (HINSTANCE
)GetWindowLongA( hWnd
, GWL_HINSTANCE
),
877 template, hWnd
, AboutDlgProc
, (LPARAM
)&info
);
881 /*************************************************************************
882 * ShellAboutW [SHELL32.289]
884 BOOL WINAPI
ShellAboutW( HWND hWnd
, LPCWSTR szApp
, LPCWSTR szOtherStuff
,
893 if(!(hRes
= FindResourceA(shell32_hInstance
, "SHELL_ABOUT_MSGBOX", RT_DIALOGA
)))
895 if(!(template = (LPVOID
)LoadResource(shell32_hInstance
, hRes
)))
898 info
.szApp
= HEAP_strdupWtoA( GetProcessHeap(), 0, szApp
);
899 info
.szOtherStuff
= HEAP_strdupWtoA( GetProcessHeap(), 0, szOtherStuff
);
901 if (!hIcon
) info
.hIcon
= LoadIconA( 0, IDI_WINLOGOA
);
902 ret
= DialogBoxIndirectParamA((HINSTANCE
)GetWindowLongA( hWnd
, GWL_HINSTANCE
),
903 template, hWnd
, AboutDlgProc
, (LPARAM
)&info
);
904 HeapFree( GetProcessHeap(), 0, (LPSTR
)info
.szApp
);
905 HeapFree( GetProcessHeap(), 0, (LPSTR
)info
.szOtherStuff
);
909 /*************************************************************************
910 * FreeIconList (SHELL32.@)
912 void WINAPI
FreeIconList( DWORD dw
)
913 { FIXME("(%lx): stub\n",dw
);
916 /***********************************************************************
917 * DllGetVersion [SHELL32.@]
919 * Retrieves version information of the 'SHELL32.DLL'
922 * pdvi [O] pointer to version information structure.
926 * Failure: E_INVALIDARG
929 * Returns version of a shell32.dll from IE4.01 SP1.
932 HRESULT WINAPI
SHELL32_DllGetVersion (DLLVERSIONINFO
*pdvi
)
934 if (pdvi
->cbSize
!= sizeof(DLLVERSIONINFO
))
936 WARN("wrong DLLVERSIONINFO size from app\n");
940 pdvi
->dwMajorVersion
= 4;
941 pdvi
->dwMinorVersion
= 72;
942 pdvi
->dwBuildNumber
= 3110;
943 pdvi
->dwPlatformID
= 1;
945 TRACE("%lu.%lu.%lu.%lu\n",
946 pdvi
->dwMajorVersion
, pdvi
->dwMinorVersion
,
947 pdvi
->dwBuildNumber
, pdvi
->dwPlatformID
);
951 /*************************************************************************
952 * global variables of the shell32.dll
953 * all are once per process
956 void (WINAPI
*pDLLInitComctl
)(LPVOID
);
958 LPVOID (WINAPI
*pCOMCTL32_Alloc
) (INT
);
959 BOOL (WINAPI
*pCOMCTL32_Free
) (LPVOID
);
961 HANDLE (WINAPI
*pCreateMRUListA
) (LPVOID lpcml
);
962 DWORD (WINAPI
*pFreeMRUListA
) (HANDLE hMRUList
);
963 INT (WINAPI
*pAddMRUData
) (HANDLE hList
, LPCVOID lpData
, DWORD cbData
);
964 INT (WINAPI
*pFindMRUData
) (HANDLE hList
, LPCVOID lpData
, DWORD cbData
, LPINT lpRegNum
);
965 INT (WINAPI
*pEnumMRUListA
) (HANDLE hList
, INT nItemPos
, LPVOID lpBuffer
, DWORD nBufferSize
);
967 static HINSTANCE hComctl32
;
969 HINSTANCE shell32_hInstance
= 0;
970 HIMAGELIST ShellSmallIconList
= 0;
971 HIMAGELIST ShellBigIconList
= 0;
974 /*************************************************************************
978 * calling oleinitialize here breaks sone apps.
981 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID fImpLoad
)
983 TRACE("%p 0x%lx %p\n", hinstDLL
, fdwReason
, fImpLoad
);
987 case DLL_PROCESS_ATTACH
:
988 shell32_hInstance
= hinstDLL
;
989 hComctl32
= GetModuleHandleA("COMCTL32.DLL");
990 DisableThreadLibraryCalls(shell32_hInstance
);
994 ERR("P A N I C SHELL32 loading failed\n");
999 pDLLInitComctl
=(void*)GetProcAddress(hComctl32
,"InitCommonControlsEx");
1000 /* initialize the common controls */
1003 pDLLInitComctl(NULL
);
1008 InitChangeNotifications();
1009 SHInitRestricted(NULL
, NULL
);
1012 case DLL_PROCESS_DETACH
:
1013 shell32_hInstance
= 0;
1015 FreeChangeNotifications();
1021 /*************************************************************************
1022 * DllInstall [SHELL32.@]
1026 * BOOL bInstall - TRUE for install, FALSE for uninstall
1027 * LPCWSTR pszCmdLine - command line (unused by shell32?)
1030 HRESULT WINAPI
SHELL32_DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
1032 FIXME("(%s, %s): stub!\n", bInstall
? "TRUE":"FALSE", debugstr_w(cmdline
));
1034 return S_OK
; /* indicate success */
1037 /***********************************************************************
1038 * DllCanUnloadNow (SHELL32.@)
1040 HRESULT WINAPI
SHELL32_DllCanUnloadNow(void)
1042 FIXME("(void): stub\n");