2 * Shell Library Functions
4 * Copyright 1998 Marcus Meissner
5 * Copyright 2000 Juergen Schmied
6 * Copyright 2002 Eric Pouech
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #include "wine/port.h"
44 #include "wine/winbase16.h"
45 #include "wine/winuser16.h"
46 #include "shell32_main.h"
48 #include "wine/debug.h"
50 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
53 typedef struct { /* structure for dropped files */
56 BOOL16 fInNonClientArea
;
57 /* memory block with filenames follows */
58 } DROPFILESTRUCT16
, *LPDROPFILESTRUCT16
;
60 static const char lpstrMsgWndCreated
[] = "OTHERWINDOWCREATED";
61 static const char lpstrMsgWndDestroyed
[] = "OTHERWINDOWDESTROYED";
62 static const char lpstrMsgShellActivate
[] = "ACTIVATESHELLWINDOW";
64 static HWND SHELL_hWnd
= 0;
65 static HHOOK SHELL_hHook
= 0;
66 static UINT uMsgWndCreated
= 0;
67 static UINT uMsgWndDestroyed
= 0;
68 static UINT uMsgShellActivate
= 0;
70 /***********************************************************************
71 * DllEntryPoint [SHELL.101]
73 * Initialization code for shell.dll. Automatically loads the
74 * 32-bit shell32.dll to allow thunking up to 32-bit code.
77 * Success: TRUE. Initialization completed successfully.
80 BOOL WINAPI
SHELL_DllEntryPoint(DWORD Reason
, HINSTANCE16 hInst
,
81 WORD ds
, WORD HeapSize
, DWORD res1
, WORD res2
)
86 /*************************************************************************
87 * DragAcceptFiles [SHELL.9]
89 void WINAPI
DragAcceptFiles16(HWND16 hWnd
, BOOL16 b
)
91 DragAcceptFiles(HWND_32(hWnd
), b
);
94 /*************************************************************************
95 * DragQueryFile [SHELL.11]
97 UINT16 WINAPI
DragQueryFile16(
105 LPDROPFILESTRUCT16 lpDropFileStruct
= (LPDROPFILESTRUCT16
) GlobalLock16(hDrop
);
107 TRACE("(%04x, %x, %p, %u)\n", hDrop
,wFile
,lpszFile
,wLength
);
109 if(!lpDropFileStruct
) goto end
;
111 lpDrop
= (LPSTR
) lpDropFileStruct
+ lpDropFileStruct
->wSize
;
115 while (*lpDrop
++); /* skip filename */
118 i
= (wFile
== 0xFFFF) ? i
: 0;
125 if (!lpszFile
) goto end
; /* needed buffer size */
126 i
= (wLength
> i
) ? i
: wLength
;
127 lstrcpynA (lpszFile
, lpDrop
, i
);
129 GlobalUnlock16(hDrop
);
133 /*************************************************************************
134 * DragFinish [SHELL.12]
136 void WINAPI
DragFinish16(HDROP16 h
)
139 GlobalFree16((HGLOBAL16
)h
);
143 /*************************************************************************
144 * DragQueryPoint [SHELL.13]
146 BOOL16 WINAPI
DragQueryPoint16(HDROP16 hDrop
, POINT16
*p
)
148 LPDROPFILESTRUCT16 lpDropFileStruct
;
151 lpDropFileStruct
= (LPDROPFILESTRUCT16
) GlobalLock16(hDrop
);
153 memcpy(p
,&lpDropFileStruct
->ptMousePos
,sizeof(POINT16
));
154 bRet
= lpDropFileStruct
->fInNonClientArea
;
156 GlobalUnlock16(hDrop
);
160 /*************************************************************************
161 * FindExecutable (SHELL.21)
163 HINSTANCE16 WINAPI
FindExecutable16( LPCSTR lpFile
, LPCSTR lpDirectory
,
165 { return HINSTANCE_16(FindExecutableA( lpFile
, lpDirectory
, lpResult
));
168 /*************************************************************************
169 * AboutDlgProc (SHELL.33)
171 BOOL16 WINAPI
AboutDlgProc16( HWND16 hWnd
, UINT16 msg
, WPARAM16 wParam
,
173 { return (BOOL16
)AboutDlgProc( HWND_32(hWnd
), msg
, wParam
, lParam
);
177 /*************************************************************************
178 * ShellAbout (SHELL.22)
180 BOOL16 WINAPI
ShellAbout16( HWND16 hWnd
, LPCSTR szApp
, LPCSTR szOtherStuff
,
182 { return ShellAboutA( HWND_32(hWnd
), szApp
, szOtherStuff
, HICON_32(hIcon
) );
185 /*************************************************************************
186 * InternalExtractIcon [SHELL.39]
188 * This abortion is called directly by Progman
190 HGLOBAL16 WINAPI
InternalExtractIcon16(HINSTANCE16 hInstance
,
191 LPCSTR lpszExeFileName
, UINT16 nIconIndex
, WORD n
)
194 HICON16
*RetPtr
= NULL
;
197 TRACE("(%04x,file %s,start %d,extract %d\n",
198 hInstance
, lpszExeFileName
, nIconIndex
, n
);
203 hRet
= GlobalAlloc16(GMEM_FIXED
| GMEM_ZEROINIT
, sizeof(*RetPtr
) * n
);
204 RetPtr
= (HICON16
*)GlobalLock16(hRet
);
206 if (nIconIndex
== (UINT16
)-1) /* get number of icons */
208 RetPtr
[0] = PrivateExtractIconsA(ofs
.szPathName
, 0, 0, 0, NULL
, NULL
, 0, LR_DEFAULTCOLOR
);
215 icons
= HeapAlloc(GetProcessHeap(), 0, n
* sizeof(*icons
));
216 ret
= PrivateExtractIconsA(ofs
.szPathName
, nIconIndex
,
217 GetSystemMetrics(SM_CXICON
),
218 GetSystemMetrics(SM_CYICON
),
219 icons
, NULL
, n
, LR_DEFAULTCOLOR
);
220 if ((ret
!= 0xffffffff) && ret
)
223 for (i
= 0; i
< n
; i
++) RetPtr
[i
] = HICON_16(icons
[i
]);
230 HeapFree(GetProcessHeap(), 0, icons
);
235 /*************************************************************************
236 * ExtractIcon (SHELL.34)
238 HICON16 WINAPI
ExtractIcon16( HINSTANCE16 hInstance
, LPCSTR lpszExeFileName
,
241 return HICON_16(ExtractIconA(HINSTANCE_32(hInstance
), lpszExeFileName
, nIconIndex
));
244 /*************************************************************************
245 * ExtractIconEx (SHELL.40)
247 HICON16 WINAPI
ExtractIconEx16(
248 LPCSTR lpszFile
, INT16 nIconIndex
, HICON16
*phiconLarge
,
249 HICON16
*phiconSmall
, UINT16 nIcons
251 HICON
*ilarge
,*ismall
;
256 ilarge
= HeapAlloc(GetProcessHeap(),0,nIcons
*sizeof(HICON
));
260 ismall
= HeapAlloc(GetProcessHeap(),0,nIcons
*sizeof(HICON
));
263 ret
= HICON_16(ExtractIconExA(lpszFile
,nIconIndex
,ilarge
,ismall
,nIcons
));
265 for (i
=0;i
<nIcons
;i
++)
266 phiconLarge
[i
]=HICON_16(ilarge
[i
]);
267 HeapFree(GetProcessHeap(),0,ilarge
);
270 for (i
=0;i
<nIcons
;i
++)
271 phiconSmall
[i
]=HICON_16(ismall
[i
]);
272 HeapFree(GetProcessHeap(),0,ismall
);
277 /*************************************************************************
278 * ExtractAssociatedIcon [SHELL.36]
280 * Return icon for given file (either from file itself or from associated
281 * executable) and patch parameters if needed.
283 HICON16 WINAPI
ExtractAssociatedIcon16(HINSTANCE16 hInst
, LPSTR lpIconPath
, LPWORD lpiIcon
)
285 return HICON_16(ExtractAssociatedIconA(HINSTANCE_32(hInst
), lpIconPath
,
289 /*************************************************************************
290 * FindEnvironmentString [SHELL.38]
292 * Returns a pointer into the DOS environment... Ugh.
294 static LPSTR
SHELL_FindString(LPSTR lpEnv
, LPCSTR entry
)
300 for( ; *lpEnv
; lpEnv
+=strlen(lpEnv
)+1 )
301 { if( strncasecmp(lpEnv
, entry
, l
) )
304 return (lpEnv
+ l
); /* empty entry */
305 else if ( *(lpEnv
+l
)== '=' )
306 return (lpEnv
+ l
+ 1);
311 /**********************************************************************/
313 SEGPTR WINAPI
FindEnvironmentString16(LPSTR str
)
315 LPSTR lpEnv
,lpString
;
318 spEnv
= GetDOSEnvironment16();
320 lpEnv
= MapSL(spEnv
);
321 lpString
= (spEnv
)?SHELL_FindString(lpEnv
, str
):NULL
;
323 if( lpString
) /* offset should be small enough */
324 return spEnv
+ (lpString
- lpEnv
);
328 /*************************************************************************
329 * DoEnvironmentSubst [SHELL.37]
331 * Replace %KEYWORD% in the str with the value of variable KEYWORD
332 * from "DOS" environment. If it is not found the %KEYWORD% is left
333 * intact. If the buffer is too small, str is not modified.
336 * str [I] '\0' terminated string with %keyword%.
337 * [O] '\0' terminated string with %keyword% substituted.
338 * length [I] size of str.
341 * str length in the LOWORD and 1 in HIWORD if subst was successful.
343 DWORD WINAPI
DoEnvironmentSubst16(LPSTR str
,WORD length
)
345 LPSTR lpEnv
= MapSL(GetDOSEnvironment16());
348 LPSTR lpBuffer
= HeapAlloc( GetProcessHeap(), 0, length
);
353 WORD retLength
= length
;
357 TRACE("accept %s\n", str
);
359 while( *lpstr
&& bufCnt
<= length
- 1 ) {
360 if ( *lpstr
!= '%' ) {
361 lpBuffer
[bufCnt
++] = *lpstr
++;
365 for( lpend
= lpstr
+ 1; *lpend
&& *lpend
!= '%'; lpend
++) /**/;
367 envKeyLen
= lpend
- lpstr
- 1;
368 if( *lpend
!= '%' || envKeyLen
== 0)
369 goto err
; /* "%\0" or "%%" found; back off and whine */
372 lpKey
= SHELL_FindString(lpEnv
, lpstr
+1);
375 int l
= strlen(lpKey
);
377 if( bufCnt
+ l
> length
- 1 )
380 memcpy(lpBuffer
+ bufCnt
, lpKey
, l
);
382 } else { /* Keyword not found; Leave the %KEYWORD% intact */
383 if( bufCnt
+ envKeyLen
+ 2 > length
- 1 )
386 memcpy(lpBuffer
+ bufCnt
, lpstr
, envKeyLen
+ 2);
387 bufCnt
+= envKeyLen
+ 2;
393 if (!*lpstr
&& bufCnt
<= length
- 1) {
394 memcpy(str
,lpBuffer
, bufCnt
);
396 retLength
= bufCnt
+ 1;
402 WARN("-- Env subst aborted - string too short or invalid input\n");
403 TRACE("-- return %s\n", str
);
406 HeapFree( GetProcessHeap(), 0, lpBuffer
);
408 return (DWORD
)MAKELONG(retLength
, retStatus
);
411 /*************************************************************************
414 * 32-bit version of the system-wide WH_SHELL hook.
416 static LRESULT WINAPI
SHELL_HookProc(INT code
, WPARAM wParam
, LPARAM lParam
)
418 TRACE("%i, %lx, %08lx\n", code
, wParam
, lParam
);
424 case HSHELL_WINDOWCREATED
:
425 PostMessageA( SHELL_hWnd
, uMsgWndCreated
, wParam
, 0 );
427 case HSHELL_WINDOWDESTROYED
:
428 PostMessageA( SHELL_hWnd
, uMsgWndDestroyed
, wParam
, 0 );
430 case HSHELL_ACTIVATESHELLWINDOW
:
431 PostMessageA( SHELL_hWnd
, uMsgShellActivate
, wParam
, 0 );
435 return CallNextHookEx( SHELL_hHook
, code
, wParam
, lParam
);
438 /*************************************************************************
439 * ShellHookProc [SHELL.103]
440 * System-wide WH_SHELL hook.
442 LRESULT WINAPI
ShellHookProc16(INT16 code
, WPARAM16 wParam
, LPARAM lParam
)
444 return SHELL_HookProc( code
, wParam
, lParam
);
447 /*************************************************************************
448 * RegisterShellHook [SHELL.102]
450 BOOL WINAPI
RegisterShellHook16(HWND16 hWnd
, UINT16 uAction
)
452 TRACE("%04x [%u]\n", hWnd
, uAction
);
456 case 2: /* register hWnd as a shell window */
459 SHELL_hHook
= SetWindowsHookExA( WH_SHELL
, SHELL_HookProc
,
460 GetModuleHandleA("shell32.dll"), 0 );
463 uMsgWndCreated
= RegisterWindowMessageA( lpstrMsgWndCreated
);
464 uMsgWndDestroyed
= RegisterWindowMessageA( lpstrMsgWndDestroyed
);
465 uMsgShellActivate
= RegisterWindowMessageA( lpstrMsgShellActivate
);
468 WARN("-- unable to install ShellHookProc()!\n");
472 return ((SHELL_hWnd
= HWND_32(hWnd
)) != 0);
476 WARN("-- unknown code %i\n", uAction
);
477 SHELL_hWnd
= 0; /* just in case */
483 /***********************************************************************
484 * DriveType (SHELL.262)
486 UINT16 WINAPI
DriveType16( UINT16 drive
)
489 char path
[] = "A:\\";
491 ret
= GetDriveTypeA(path
);
492 switch(ret
) /* some values are not supported in Win16 */
497 case DRIVE_NO_ROOT_DIR
:
505 /* 0 and 1 are valid rootkeys in win16 shell.dll and are used by
506 * some programs. Do not remove those cases. -MM
508 static inline void fix_win16_hkey( HKEY
*hkey
)
510 if (*hkey
== 0 || *hkey
== (HKEY
)1) *hkey
= HKEY_CLASSES_ROOT
;
513 /******************************************************************************
514 * RegOpenKey [SHELL.1]
516 DWORD WINAPI
RegOpenKey16( HKEY hkey
, LPCSTR name
, PHKEY retkey
)
518 fix_win16_hkey( &hkey
);
519 return RegOpenKeyA( hkey
, name
, retkey
);
522 /******************************************************************************
523 * RegCreateKey [SHELL.2]
525 DWORD WINAPI
RegCreateKey16( HKEY hkey
, LPCSTR name
, PHKEY retkey
)
527 fix_win16_hkey( &hkey
);
528 return RegCreateKeyA( hkey
, name
, retkey
);
531 /******************************************************************************
532 * RegCloseKey [SHELL.3]
534 DWORD WINAPI
RegCloseKey16( HKEY hkey
)
536 fix_win16_hkey( &hkey
);
537 return RegCloseKey( hkey
);
540 /******************************************************************************
541 * RegDeleteKey [SHELL.4]
543 DWORD WINAPI
RegDeleteKey16( HKEY hkey
, LPCSTR name
)
545 fix_win16_hkey( &hkey
);
546 return RegDeleteKeyA( hkey
, name
);
549 /******************************************************************************
550 * RegSetValue [SHELL.5]
552 DWORD WINAPI
RegSetValue16( HKEY hkey
, LPCSTR name
, DWORD type
, LPCSTR data
, DWORD count
)
554 fix_win16_hkey( &hkey
);
555 return RegSetValueA( hkey
, name
, type
, data
, count
);
558 /******************************************************************************
559 * RegQueryValue [SHELL.6]
562 * Is this HACK still applicable?
565 * The 16bit RegQueryValue doesn't handle selectorblocks anyway, so we just
566 * mask out the high 16 bit. This (not so much incidently) hopefully fixes
569 DWORD WINAPI
RegQueryValue16( HKEY hkey
, LPCSTR name
, LPSTR data
, LPDWORD count
572 fix_win16_hkey( &hkey
);
573 if (count
) *count
&= 0xffff;
574 return RegQueryValueA( hkey
, name
, data
, (LONG
*) count
);
577 /******************************************************************************
578 * RegEnumKey [SHELL.7]
580 DWORD WINAPI
RegEnumKey16( HKEY hkey
, DWORD index
, LPSTR name
, DWORD name_len
)
582 fix_win16_hkey( &hkey
);
583 return RegEnumKeyA( hkey
, index
, name
, name_len
);
586 /*************************************************************************
587 * SHELL_Execute16 [Internal]
589 static UINT_PTR
SHELL_Execute16(const WCHAR
*lpCmd
, WCHAR
*env
, BOOL shWait
,
590 LPSHELLEXECUTEINFOW psei
, LPSHELLEXECUTEINFOW psei_out
)
594 WideCharToMultiByte(CP_ACP
, 0, lpCmd
, -1, sCmd
, MAX_PATH
, NULL
, NULL
);
595 ret
= WinExec16(sCmd
, (UINT16
)psei
->nShow
);
596 psei_out
->hInstApp
= HINSTANCE_32(ret
);
600 /*************************************************************************
601 * ShellExecute [SHELL.20]
603 HINSTANCE16 WINAPI
ShellExecute16( HWND16 hWnd
, LPCSTR lpOperation
,
604 LPCSTR lpFile
, LPCSTR lpParameters
,
605 LPCSTR lpDirectory
, INT16 iShowCmd
)
607 SHELLEXECUTEINFOW seiW
;
608 WCHAR
*wVerb
= NULL
, *wFile
= NULL
, *wParameters
= NULL
, *wDirectory
= NULL
;
611 seiW
.lpVerb
= lpOperation
? __SHCloneStrAtoW(&wVerb
, lpOperation
) : NULL
;
612 seiW
.lpFile
= lpFile
? __SHCloneStrAtoW(&wFile
, lpFile
) : NULL
;
613 seiW
.lpParameters
= lpParameters
? __SHCloneStrAtoW(&wParameters
, lpParameters
) : NULL
;
614 seiW
.lpDirectory
= lpDirectory
? __SHCloneStrAtoW(&wDirectory
, lpDirectory
) : NULL
;
616 seiW
.cbSize
= sizeof(seiW
);
618 seiW
.hwnd
= HWND_32(hWnd
);
619 seiW
.nShow
= iShowCmd
;
624 seiW
.hProcess
= hProcess
;
626 SHELL_execute( &seiW
, SHELL_Execute16
);
633 return HINSTANCE_16(seiW
.hInstApp
);