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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 #include "wine/port.h"
43 #include "wine/winbase16.h"
44 #include "wine/winuser16.h"
45 #include "shell32_main.h"
47 #include "wine/debug.h"
49 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
50 WINE_DECLARE_DEBUG_CHANNEL(exec
);
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;
69 HINSTANCE16 SHELL_hInstance
= 0;
70 HINSTANCE SHELL_hInstance32
;
71 static int SHELL_Attach
= 0;
73 /***********************************************************************
74 * DllEntryPoint [SHELL.101]
76 * Initialization code for shell.dll. Automatically loads the
77 * 32-bit shell32.dll to allow thunking up to 32-bit code.
80 * Success: TRUE. Initialization completed successfully.
83 BOOL WINAPI
SHELL_DllEntryPoint(DWORD Reason
, HINSTANCE16 hInst
,
84 WORD ds
, WORD HeapSize
, DWORD res1
, WORD res2
)
86 TRACE("(%08lx, %04x, %04x, %04x, %08lx, %04x)\n",
87 Reason
, hInst
, ds
, HeapSize
, res1
, res2
);
91 case DLL_PROCESS_ATTACH
:
92 if (SHELL_Attach
++) break;
93 SHELL_hInstance
= hInst
;
94 if(!SHELL_hInstance32
)
96 if(!(SHELL_hInstance32
= LoadLibraryA("shell32.dll")))
98 ERR("Could not load sibling shell32.dll\n");
104 case DLL_PROCESS_DETACH
:
108 if(SHELL_hInstance32
)
109 FreeLibrary(SHELL_hInstance32
);
116 /*************************************************************************
117 * DragAcceptFiles [SHELL.9]
119 void WINAPI
DragAcceptFiles16(HWND16 hWnd
, BOOL16 b
)
121 DragAcceptFiles(HWND_32(hWnd
), b
);
124 /*************************************************************************
125 * DragQueryFile [SHELL.11]
127 UINT16 WINAPI
DragQueryFile16(
135 LPDROPFILESTRUCT16 lpDropFileStruct
= (LPDROPFILESTRUCT16
) GlobalLock16(hDrop
);
137 TRACE("(%04x, %x, %p, %u)\n", hDrop
,wFile
,lpszFile
,wLength
);
139 if(!lpDropFileStruct
) goto end
;
141 lpDrop
= (LPSTR
) lpDropFileStruct
+ lpDropFileStruct
->wSize
;
145 while (*lpDrop
++); /* skip filename */
148 i
= (wFile
== 0xFFFF) ? i
: 0;
155 if (!lpszFile
) goto end
; /* needed buffer size */
156 i
= (wLength
> i
) ? i
: wLength
;
157 lstrcpynA (lpszFile
, lpDrop
, i
);
159 GlobalUnlock16(hDrop
);
163 /*************************************************************************
164 * DragFinish [SHELL.12]
166 void WINAPI
DragFinish16(HDROP16 h
)
169 GlobalFree16((HGLOBAL16
)h
);
173 /*************************************************************************
174 * DragQueryPoint [SHELL.13]
176 BOOL16 WINAPI
DragQueryPoint16(HDROP16 hDrop
, POINT16
*p
)
178 LPDROPFILESTRUCT16 lpDropFileStruct
;
181 lpDropFileStruct
= (LPDROPFILESTRUCT16
) GlobalLock16(hDrop
);
183 memcpy(p
,&lpDropFileStruct
->ptMousePos
,sizeof(POINT16
));
184 bRet
= lpDropFileStruct
->fInNonClientArea
;
186 GlobalUnlock16(hDrop
);
190 /*************************************************************************
191 * FindExecutable (SHELL.21)
193 HINSTANCE16 WINAPI
FindExecutable16( LPCSTR lpFile
, LPCSTR lpDirectory
,
195 { return HINSTANCE_16(FindExecutableA( lpFile
, lpDirectory
, lpResult
));
198 /*************************************************************************
199 * AboutDlgProc (SHELL.33)
201 BOOL16 WINAPI
AboutDlgProc16( HWND16 hWnd
, UINT16 msg
, WPARAM16 wParam
,
203 { return (BOOL16
)AboutDlgProc( HWND_32(hWnd
), msg
, wParam
, lParam
);
207 /*************************************************************************
208 * ShellAbout (SHELL.22)
210 BOOL16 WINAPI
ShellAbout16( HWND16 hWnd
, LPCSTR szApp
, LPCSTR szOtherStuff
,
212 { return ShellAboutA( HWND_32(hWnd
), szApp
, szOtherStuff
, HICON_32(hIcon
) );
215 /*************************************************************************
216 * InternalExtractIcon [SHELL.39]
218 * This abortion is called directly by Progman
220 HGLOBAL16 WINAPI
InternalExtractIcon16(HINSTANCE16 hInstance
,
221 LPCSTR lpszExeFileName
, UINT16 nIconIndex
, WORD n
)
224 HICON16
*RetPtr
= NULL
;
227 TRACE("(%04x,file %s,start %d,extract %d\n",
228 hInstance
, lpszExeFileName
, nIconIndex
, n
);
233 hRet
= GlobalAlloc16(GMEM_FIXED
| GMEM_ZEROINIT
, sizeof(*RetPtr
) * n
);
234 RetPtr
= (HICON16
*)GlobalLock16(hRet
);
236 if (nIconIndex
== (UINT16
)-1) /* get number of icons */
238 RetPtr
[0] = PrivateExtractIconsA(ofs
.szPathName
, 0, 0, 0, NULL
, NULL
, 0, LR_DEFAULTCOLOR
);
245 icons
= HeapAlloc(GetProcessHeap(), 0, n
* sizeof(*icons
));
246 ret
= PrivateExtractIconsA(ofs
.szPathName
, nIconIndex
,
247 GetSystemMetrics(SM_CXICON
),
248 GetSystemMetrics(SM_CYICON
),
249 icons
, NULL
, n
, LR_DEFAULTCOLOR
);
250 if ((ret
!= 0xffffffff) && ret
)
253 for (i
= 0; i
< n
; i
++) RetPtr
[i
] = HICON_16(icons
[i
]);
260 HeapFree(GetProcessHeap(), 0, icons
);
265 /*************************************************************************
266 * ExtractIcon (SHELL.34)
268 HICON16 WINAPI
ExtractIcon16( HINSTANCE16 hInstance
, LPCSTR lpszExeFileName
,
271 return HICON_16(ExtractIconA(HINSTANCE_32(hInstance
), lpszExeFileName
, nIconIndex
));
274 /*************************************************************************
275 * ExtractIconEx (SHELL.40)
277 HICON16 WINAPI
ExtractIconEx16(
278 LPCSTR lpszFile
, INT16 nIconIndex
, HICON16
*phiconLarge
,
279 HICON16
*phiconSmall
, UINT16 nIcons
281 HICON
*ilarge
,*ismall
;
286 ilarge
= (HICON
*)HeapAlloc(GetProcessHeap(),0,nIcons
*sizeof(HICON
));
290 ismall
= (HICON
*)HeapAlloc(GetProcessHeap(),0,nIcons
*sizeof(HICON
));
293 ret
= HICON_16(ExtractIconExA(lpszFile
,nIconIndex
,ilarge
,ismall
,nIcons
));
295 for (i
=0;i
<nIcons
;i
++)
296 phiconLarge
[i
]=HICON_16(ilarge
[i
]);
297 HeapFree(GetProcessHeap(),0,ilarge
);
300 for (i
=0;i
<nIcons
;i
++)
301 phiconSmall
[i
]=HICON_16(ismall
[i
]);
302 HeapFree(GetProcessHeap(),0,ismall
);
307 /*************************************************************************
308 * ExtractAssociatedIcon [SHELL.36]
310 * Return icon for given file (either from file itself or from associated
311 * executable) and patch parameters if needed.
313 HICON16 WINAPI
ExtractAssociatedIcon16(HINSTANCE16 hInst
, LPSTR lpIconPath
, LPWORD lpiIcon
)
315 return HICON_16(ExtractAssociatedIconA(HINSTANCE_32(hInst
), lpIconPath
,
319 /*************************************************************************
320 * FindEnvironmentString [SHELL.38]
322 * Returns a pointer into the DOS environment... Ugh.
324 static LPSTR
SHELL_FindString(LPSTR lpEnv
, LPCSTR entry
)
330 for( ; *lpEnv
; lpEnv
+=strlen(lpEnv
)+1 )
331 { if( strncasecmp(lpEnv
, entry
, l
) )
334 return (lpEnv
+ l
); /* empty entry */
335 else if ( *(lpEnv
+l
)== '=' )
336 return (lpEnv
+ l
+ 1);
341 /**********************************************************************/
343 SEGPTR WINAPI
FindEnvironmentString16(LPSTR str
)
345 LPSTR lpEnv
,lpString
;
348 spEnv
= GetDOSEnvironment16();
350 lpEnv
= MapSL(spEnv
);
351 lpString
= (spEnv
)?SHELL_FindString(lpEnv
, str
):NULL
;
353 if( lpString
) /* offset should be small enough */
354 return spEnv
+ (lpString
- lpEnv
);
358 /*************************************************************************
359 * DoEnvironmentSubst [SHELL.37]
361 * Replace %KEYWORD% in the str with the value of variable KEYWORD
362 * from "DOS" environment.
364 DWORD WINAPI
DoEnvironmentSubst16(LPSTR str
,WORD length
)
366 LPSTR lpEnv
= MapSL(GetDOSEnvironment16());
367 LPSTR lpBuffer
= (LPSTR
)HeapAlloc( GetProcessHeap(), 0, length
);
369 LPSTR lpbstr
= lpBuffer
;
373 TRACE("accept %s\n", str
);
375 while( *lpstr
&& lpbstr
- lpBuffer
< length
)
381 do { lpend
++; } while( *lpend
&& *lpend
!= '%' );
382 if( *lpend
== '%' && lpend
- lpstr
> 1 ) /* found key */
386 lpKey
= SHELL_FindString(lpEnv
, lpstr
+1);
387 if( lpKey
) /* found key value */
389 int l
= strlen(lpKey
);
391 if( l
> length
- (lpbstr
- lpBuffer
) - 1 )
393 WARN("-- Env subst aborted - string too short\n");
397 strcpy(lpbstr
, lpKey
);
404 else break; /* back off and whine */
409 *lpbstr
++ = *lpstr
++;
413 if( lpstr
- str
== strlen(str
) )
415 strncpy(str
, lpBuffer
, length
);
421 TRACE("-- return %s\n", str
);
424 HeapFree( GetProcessHeap(), 0, lpBuffer
);
426 /* Return str length in the LOWORD
427 * and 1 in HIWORD if subst was successful.
429 return (DWORD
)MAKELONG(strlen(str
), length
);
432 /*************************************************************************
435 * 32-bit version of the system-wide WH_SHELL hook.
437 static LRESULT WINAPI
SHELL_HookProc(INT code
, WPARAM wParam
, LPARAM lParam
)
439 TRACE("%i, %x, %08lx\n", code
, wParam
, lParam
);
445 case HSHELL_WINDOWCREATED
:
446 PostMessageA( SHELL_hWnd
, uMsgWndCreated
, wParam
, 0 );
448 case HSHELL_WINDOWDESTROYED
:
449 PostMessageA( SHELL_hWnd
, uMsgWndDestroyed
, wParam
, 0 );
451 case HSHELL_ACTIVATESHELLWINDOW
:
452 PostMessageA( SHELL_hWnd
, uMsgShellActivate
, wParam
, 0 );
456 return CallNextHookEx( SHELL_hHook
, code
, wParam
, lParam
);
459 /*************************************************************************
460 * ShellHookProc [SHELL.103]
461 * System-wide WH_SHELL hook.
463 LRESULT WINAPI
ShellHookProc16(INT16 code
, WPARAM16 wParam
, LPARAM lParam
)
465 return SHELL_HookProc( code
, wParam
, lParam
);
468 /*************************************************************************
469 * RegisterShellHook [SHELL.102]
471 BOOL WINAPI
RegisterShellHook16(HWND16 hWnd
, UINT16 uAction
)
473 TRACE("%04x [%u]\n", hWnd
, uAction
);
477 case 2: /* register hWnd as a shell window */
480 SHELL_hHook
= SetWindowsHookExA( WH_SHELL
, SHELL_HookProc
,
481 GetModuleHandleA("shell32.dll"), 0 );
484 uMsgWndCreated
= RegisterWindowMessageA( lpstrMsgWndCreated
);
485 uMsgWndDestroyed
= RegisterWindowMessageA( lpstrMsgWndDestroyed
);
486 uMsgShellActivate
= RegisterWindowMessageA( lpstrMsgShellActivate
);
489 WARN("-- unable to install ShellHookProc()!\n");
493 return ((SHELL_hWnd
= HWND_32(hWnd
)) != 0);
497 WARN("-- unknown code %i\n", uAction
);
498 SHELL_hWnd
= 0; /* just in case */
504 /***********************************************************************
505 * DriveType (SHELL.262)
507 UINT16 WINAPI
DriveType16( UINT16 drive
)
510 char path
[] = "A:\\";
512 ret
= GetDriveTypeA(path
);
513 switch(ret
) /* some values are not supported in Win16 */
518 case DRIVE_NO_ROOT_DIR
:
526 /* 0 and 1 are valid rootkeys in win16 shell.dll and are used by
527 * some programs. Do not remove those cases. -MM
529 static inline void fix_win16_hkey( HKEY
*hkey
)
531 if (*hkey
== 0 || *hkey
== (HKEY
)1) *hkey
= HKEY_CLASSES_ROOT
;
534 /******************************************************************************
535 * RegOpenKey [SHELL.1]
537 DWORD WINAPI
RegOpenKey16( HKEY hkey
, LPCSTR name
, PHKEY retkey
)
539 fix_win16_hkey( &hkey
);
540 return RegOpenKeyA( hkey
, name
, retkey
);
543 /******************************************************************************
544 * RegCreateKey [SHELL.2]
546 DWORD WINAPI
RegCreateKey16( HKEY hkey
, LPCSTR name
, PHKEY retkey
)
548 fix_win16_hkey( &hkey
);
549 return RegCreateKeyA( hkey
, name
, retkey
);
552 /******************************************************************************
553 * RegCloseKey [SHELL.3]
555 DWORD WINAPI
RegCloseKey16( HKEY hkey
)
557 fix_win16_hkey( &hkey
);
558 return RegCloseKey( hkey
);
561 /******************************************************************************
562 * RegDeleteKey [SHELL.4]
564 DWORD WINAPI
RegDeleteKey16( HKEY hkey
, LPCSTR name
)
566 fix_win16_hkey( &hkey
);
567 return RegDeleteKeyA( hkey
, name
);
570 /******************************************************************************
571 * RegSetValue [SHELL.5]
573 DWORD WINAPI
RegSetValue16( HKEY hkey
, LPCSTR name
, DWORD type
, LPCSTR data
, DWORD count
)
575 fix_win16_hkey( &hkey
);
576 return RegSetValueA( hkey
, name
, type
, data
, count
);
579 /******************************************************************************
580 * RegQueryValue [SHELL.6]
583 * Is this HACK still applicable?
586 * The 16bit RegQueryValue doesn't handle selectorblocks anyway, so we just
587 * mask out the high 16 bit. This (not so much incidently) hopefully fixes
590 DWORD WINAPI
RegQueryValue16( HKEY hkey
, LPCSTR name
, LPSTR data
, LPDWORD count
593 fix_win16_hkey( &hkey
);
594 if (count
) *count
&= 0xffff;
595 return RegQueryValueA( hkey
, name
, data
, count
);
598 /******************************************************************************
599 * RegEnumKey [SHELL.7]
601 DWORD WINAPI
RegEnumKey16( HKEY hkey
, DWORD index
, LPSTR name
, DWORD name_len
)
603 fix_win16_hkey( &hkey
);
604 return RegEnumKeyA( hkey
, index
, name
, name_len
);
607 /*************************************************************************
608 * SHELL_Execute16 [Internal]
610 static UINT
SHELL_Execute16(char *lpCmd
, LPSHELLEXECUTEINFOA sei
, BOOL shWait
)
612 UINT ret
= WinExec16(lpCmd
, sei
->nShow
);
613 sei
->hInstApp
= HINSTANCE_32(ret
);
617 /*************************************************************************
618 * ShellExecute [SHELL.20]
620 HINSTANCE16 WINAPI
ShellExecute16( HWND16 hWnd
, LPCSTR lpOperation
,
621 LPCSTR lpFile
, LPCSTR lpParameters
,
622 LPCSTR lpDirectory
, INT16 iShowCmd
)
624 SHELLEXECUTEINFOA sei
;
627 sei
.cbSize
= sizeof(sei
);
629 sei
.hwnd
= HWND_32(hWnd
);
630 sei
.lpVerb
= lpOperation
;
632 sei
.lpParameters
= lpParameters
;
633 sei
.lpDirectory
= lpDirectory
;
634 sei
.nShow
= iShowCmd
;
639 sei
.hProcess
= hProcess
;
641 ShellExecuteExA32 (&sei
, SHELL_Execute16
);
642 return HINSTANCE_16(sei
.hInstApp
);