2 * Shell Library Functions
4 * Copyright 1998 Marcus Meissner
5 * Copyright 2002 Eric Pouech
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
23 #include "wine/port.h"
47 #include "wine/winbase16.h"
48 #include "shell32_main.h"
49 #include "undocshell.h"
51 #include "wine/debug.h"
53 WINE_DEFAULT_DEBUG_CHANNEL(exec
);
55 static const WCHAR wszOpen
[] = {'o','p','e','n',0};
56 static const WCHAR wszExe
[] = {'.','e','x','e',0};
59 /***********************************************************************
60 * SHELL_ArgifyW [Internal]
62 * this function is supposed to expand the escape sequences found in the registry
63 * some diving reported that the following were used:
64 * + %1, %2... seem to report to parameter of index N in ShellExecute pmts
69 * %I address of a global item ID (explorer switch /idlist)
70 * %L seems to be %1 as long filename followed by the 8+3 variation
72 * %* all following parameters (see batfile)
74 static BOOL
SHELL_ArgifyW(WCHAR
* res
, int len
, const WCHAR
* fmt
, const WCHAR
* lpFile
)
91 if (!done
|| (*fmt
== '1'))
93 if (SearchPathW(NULL
, lpFile
, wszExe
, sizeof(xlpFile
)/sizeof(WCHAR
), xlpFile
, NULL
))
95 strcpyW(res
, xlpFile
);
96 res
+= strlenW(xlpFile
);
100 strcpyW(res
, lpFile
);
101 res
+= strlenW(lpFile
);
106 * IE uses this alot for activating things such as windows media
107 * player. This is not verified to be fully correct but it appears
112 res
+= strlenW(lpFile
);
115 default: FIXME("Unknown escape sequence %%%c\n", *fmt
);
127 /*************************************************************************
128 * SHELL_ExecuteW [Internal]
131 static UINT
SHELL_ExecuteW(WCHAR
*lpCmd
, void *env
, LPSHELLEXECUTEINFOW sei
, BOOL shWait
)
133 STARTUPINFOW startup
;
134 PROCESS_INFORMATION info
;
137 TRACE("Execute %s from directory %s\n", debugstr_w(lpCmd
), debugstr_w(sei
->lpDirectory
));
138 ZeroMemory(&startup
,sizeof(STARTUPINFOW
));
139 startup
.cb
= sizeof(STARTUPINFOW
);
140 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
141 startup
.wShowWindow
= sei
->nShow
;
142 if (CreateProcessW(NULL
, lpCmd
, NULL
, NULL
, FALSE
, 0,
143 env
, sei
->lpDirectory
, &startup
, &info
))
145 /* Give 30 seconds to the app to come up, if desired. Probably only needed
146 when starting app immediately before making a DDE connection. */
148 if (WaitForInputIdle( info
.hProcess
, 30000 ) == -1)
149 WARN("WaitForInputIdle failed: Error %ld\n", GetLastError() );
151 if(sei
->fMask
& SEE_MASK_NOCLOSEPROCESS
)
152 sei
->hProcess
= info
.hProcess
;
154 CloseHandle( info
.hProcess
);
155 CloseHandle( info
.hThread
);
157 else if ((retval
= GetLastError()) >= 32)
159 FIXME("Strange error set by CreateProcess: %d\n", retval
);
160 retval
= ERROR_BAD_FORMAT
;
163 sei
->hInstApp
= (HINSTANCE
)retval
;
168 /***********************************************************************
169 * SHELL_BuildEnvW [Internal]
171 * Build the environment for the new process, adding the specified
172 * path to the PATH variable. Returned pointer must be freed by caller.
174 static void *SHELL_BuildEnvW( const WCHAR
*path
)
176 static const WCHAR wPath
[] = {'P','A','T','H','=',0};
177 WCHAR
*strings
, *new_env
;
179 int total
= strlenW(path
) + 1;
180 BOOL got_path
= FALSE
;
182 if (!(strings
= GetEnvironmentStringsW())) return NULL
;
186 int len
= strlenW(p
) + 1;
187 if (!strncmpiW( p
, wPath
, 5 )) got_path
= TRUE
;
191 if (!got_path
) total
+= 5; /* we need to create PATH */
192 total
++; /* terminating null */
194 if (!(new_env
= HeapAlloc( GetProcessHeap(), 0, total
* sizeof(WCHAR
) )))
196 FreeEnvironmentStringsW( strings
);
203 int len
= strlenW(p
) + 1;
204 memcpy( p2
, p
, len
* sizeof(WCHAR
) );
205 if (!strncmpiW( p
, wPath
, 5 ))
208 strcpyW( p2
+ len
, path
);
209 p2
+= strlenW(path
) + 1;
216 strcpyW( p2
, wPath
);
218 p2
+= strlenW(p2
) + 1;
221 FreeEnvironmentStringsW( strings
);
226 /***********************************************************************
227 * SHELL_TryAppPathW [Internal]
229 * Helper function for SHELL_FindExecutable
230 * @param lpResult - pointer to a buffer of size MAX_PATH
231 * On entry: szName is a filename (probably without path separators).
232 * On exit: if szName found in "App Path", place full path in lpResult, and return true
234 static BOOL
SHELL_TryAppPathW( LPCWSTR szName
, LPWSTR lpResult
, void**env
)
236 static const WCHAR wszKeyAppPaths
[] = {'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\','W','i','n','d','o','w','s',
237 '\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\','A','p','p',' ','P','a','t','h','s','\\',0};
238 static const WCHAR wPath
[] = {'P','a','t','h',0};
245 if (env
) *env
= NULL
;
246 strcpyW(buffer
, wszKeyAppPaths
);
247 strcatW(buffer
, szName
);
248 res
= RegOpenKeyExW(HKEY_LOCAL_MACHINE
, buffer
, 0, KEY_READ
, &hkApp
);
252 res
= RegQueryValueW(hkApp
, NULL
, lpResult
, &len
);
258 DWORD count
= sizeof(buffer
);
259 if (!RegQueryValueExW(hkApp
, wPath
, NULL
, NULL
, (LPBYTE
)buffer
, &count
) && buffer
[0])
260 *env
= SHELL_BuildEnvW( buffer
);
264 if (hkApp
) RegCloseKey(hkApp
);
268 /*************************************************************************
269 * SHELL_FindExecutable [Internal]
271 * Utility for code sharing between FindExecutable and ShellExecute
273 * lpFile the name of a file
274 * lpOperation the operation on it (open)
276 * lpResult a buffer, big enough :-(, to store the command to do the
277 * operation on the file
278 * key a buffer, big enough, to get the key name to do actually the
279 * command (it'll be used afterwards for more information
282 static UINT
SHELL_FindExecutable(LPCWSTR lpPath
, LPCWSTR lpFile
, LPCWSTR lpOperation
,
283 LPWSTR lpResult
, LPWSTR key
, void **env
)
285 static const WCHAR wShell
[] = {'\\','s','h','e','l','l','\\',0};
286 static const WCHAR wCommand
[] = {'\\','c','o','m','m','a','n','d',0};
287 static const WCHAR wWindows
[] = {'w','i','n','d','o','w','s',0};
288 static const WCHAR wPrograms
[] = {'p','r','o','g','r','a','m','s',0};
289 static const WCHAR wExtensions
[] = {'e','x','e',' ','p','i','f',' ','b','a','t',' ','c','m','d',' ','c','o','m',0};
290 WCHAR
*extension
= NULL
; /* pointer to file extension */
291 WCHAR wtmpext
[5]; /* local copy to mung as we please */
292 WCHAR filetype
[256]; /* registry name for this filetype */
293 LONG filetypelen
= 256; /* length of above */
294 WCHAR command
[256]; /* command from registry */
295 LONG commandlen
= 256; /* This is the most DOS can handle :) */
296 WCHAR wBuffer
[256]; /* Used to GetProfileString */
297 UINT retval
= 31; /* default - 'No association was found' */
298 WCHAR
*tok
; /* token pointer */
299 WCHAR xlpFile
[256] = {0}; /* result of SearchPath */
301 TRACE("%s\n", (lpFile
!= NULL
) ? debugstr_w(lpFile
) : "-");
303 lpResult
[0] = '\0'; /* Start off with an empty return string */
304 if (key
) *key
= '\0';
306 /* trap NULL parameters on entry */
307 if ((lpFile
== NULL
) || (lpResult
== NULL
) || (lpOperation
== NULL
))
309 WARN("(lpFile=%s,lpResult=%s,lpOperation=%s): NULL parameter\n",
310 debugstr_w(lpFile
), debugstr_w(lpOperation
), debugstr_w(lpResult
));
311 return 2; /* File not found. Close enough, I guess. */
314 if (SHELL_TryAppPathW( lpFile
, lpResult
, env
))
316 TRACE("found %s via App Paths\n", debugstr_w(lpResult
));
320 if (SearchPathW(lpPath
, lpFile
, wszExe
, sizeof(xlpFile
)/sizeof(WCHAR
), xlpFile
, NULL
))
322 TRACE("SearchPathW returned non-zero\n");
324 /* Hey, isn't this value ignored? Why make this call? Shouldn't we return here? --dank*/
327 /* First thing we need is the file's extension */
328 extension
= strrchrW(xlpFile
, '.'); /* Assume last "." is the one; */
329 /* File->Run in progman uses */
331 TRACE("xlpFile=%s,extension=%s\n", debugstr_w(xlpFile
), debugstr_w(extension
));
333 if ((extension
== NULL
) || (extension
== &xlpFile
[strlenW(xlpFile
)]))
335 WARN("Returning 31 - No association\n");
336 return 31; /* no association */
339 /* Make local copy & lowercase it for reg & 'programs=' lookup */
340 lstrcpynW(wtmpext
, extension
, 5);
342 TRACE("%s file\n", debugstr_w(wtmpext
));
344 /* Three places to check: */
345 /* 1. win.ini, [windows], programs (NB no leading '.') */
346 /* 2. Registry, HKEY_CLASS_ROOT\<filetype>\shell\open\command */
347 /* 3. win.ini, [extensions], extension (NB no leading '.' */
348 /* All I know of the order is that registry is checked before */
349 /* extensions; however, it'd make sense to check the programs */
350 /* section first, so that's what happens here. */
352 /* See if it's a program - if GetProfileString fails, we skip this
353 * section. Actually, if GetProfileString fails, we've probably
354 * got a lot more to worry about than running a program... */
355 if (GetProfileStringW(wWindows
, wPrograms
, wExtensions
, wBuffer
, sizeof(wBuffer
)/sizeof(WCHAR
)) > 0)
362 while (*p
&& *p
!= ' ' && *p
!= '\t') p
++;
366 while (*p
== ' ' || *p
== '\t') p
++;
369 if (strcmpW(tok
, &wtmpext
[1]) == 0) /* have to skip the leading "." */
371 strcpyW(lpResult
, xlpFile
);
372 /* Need to perhaps check that the file has a path
374 TRACE("found %s\n", debugstr_w(lpResult
));
377 /* Greater than 32 to indicate success FIXME According to the
378 * docs, I should be returning a handle for the
379 * executable. Does this mean I'm supposed to open the
380 * executable file or something? More RTFM, I guess... */
387 if (RegQueryValueW(HKEY_CLASSES_ROOT
, wtmpext
, filetype
,
388 &filetypelen
) == ERROR_SUCCESS
)
390 filetype
[filetypelen
] = '\0';
391 TRACE("File type: %s\n", debugstr_w(filetype
));
393 /* Looking for ...buffer\shell\lpOperation\command */
394 strcatW(filetype
, wShell
);
395 strcatW(filetype
, lpOperation
);
396 strcatW(filetype
, wCommand
);
398 if (RegQueryValueW(HKEY_CLASSES_ROOT
, filetype
, command
,
399 &commandlen
) == ERROR_SUCCESS
)
401 if (key
) strcpyW(key
, filetype
);
406 static const WCHAR wSpace
[] = {' ',0};
408 /* FIXME: it seems all Windows version don't behave the same here.
409 * the doc states that this ddeexec information can be found after
411 * on Win98, it doesn't appear, but I think it does on Win2k
413 /* Get the parameters needed by the application
414 from the associated ddeexec key */
415 tmp
= strstrW(filetype
, wCommand
);
417 strcatW(filetype
, wDdeexec
);
419 if (RegQueryValueW(HKEY_CLASSES_ROOT
, filetype
, param
,
420 ¶mlen
) == ERROR_SUCCESS
)
422 strcatW(command
, wSpace
);
423 strcatW(command
, param
);
424 commandlen
+= paramlen
;
427 command
[commandlen
] = '\0';
428 SHELL_ArgifyW(lpResult
, 1024 /*FIXME*/, command
, xlpFile
);
429 retval
= 33; /* FIXME see above */
432 else /* Check win.ini */
434 static const WCHAR wExtensions
[] = {'e','x','t','e','n','s','i','o','n','s',0};
435 static const WCHAR wEmpty
[] = {0};
437 /* Toss the leading dot */
439 if (GetProfileStringW(wExtensions
, extension
, wEmpty
, command
, sizeof(command
)/sizeof(WCHAR
)) > 0)
441 if (strlenW(command
) != 0)
443 strcpyW(lpResult
, command
);
444 tok
= strchrW(lpResult
, '^'); /* should be ^.extension? */
448 strcatW(lpResult
, xlpFile
); /* what if no dir in xlpFile? */
449 tok
= strchrW(command
, '^'); /* see above */
450 if ((tok
!= NULL
) && (strlenW(tok
)>5))
452 strcatW(lpResult
, &tok
[5]);
455 retval
= 33; /* FIXME - see above */
460 TRACE("returning %s\n", debugstr_w(lpResult
));
464 /******************************************************************
467 * callback for the DDE connection. not really usefull
469 static HDDEDATA CALLBACK
dde_cb(UINT uType
, UINT uFmt
, HCONV hConv
,
471 HDDEDATA hData
, DWORD dwData1
, DWORD dwData2
)
476 /******************************************************************
479 * ShellExecute helper. Used to do an operation with a DDE connection
481 * Handles both the direct connection (try #1), and if it fails,
482 * launching an application and trying (#2) to connect to it
485 static unsigned dde_connect(WCHAR
* key
, WCHAR
* start
, WCHAR
* ddeexec
,
486 const WCHAR
* lpFile
, void *env
,
487 LPSHELLEXECUTEINFOW sei
, SHELL_ExecuteW32 execfunc
)
489 static const WCHAR wApplication
[] = {'\\','a','p','p','l','i','c','a','t','i','o','n',0};
490 static const WCHAR wTopic
[] = {'\\','t','o','p','i','c',0};
491 WCHAR
* endkey
= key
+ strlenW(key
);
492 WCHAR app
[256], topic
[256], ifexec
[256], res
[256];
493 LONG applen
, topiclen
, ifexeclen
;
497 HSZ hszApp
, hszTopic
;
501 strcpyW(endkey
, wApplication
);
502 applen
= sizeof(app
)/sizeof(WCHAR
);
503 if (RegQueryValueW(HKEY_CLASSES_ROOT
, key
, app
, &applen
) != ERROR_SUCCESS
)
505 FIXME("default app name NIY %s\n", debugstr_w(key
));
509 strcpyW(endkey
, wTopic
);
510 topiclen
= sizeof(topic
)/sizeof(WCHAR
);
511 if (RegQueryValueW(HKEY_CLASSES_ROOT
, key
, topic
, &topiclen
) != ERROR_SUCCESS
)
513 static const WCHAR wSystem
[] = {'S','y','s','t','e','m',0};
514 strcpyW(topic
, wSystem
);
517 if (DdeInitializeW(&ddeInst
, dde_cb
, APPCMD_CLIENTONLY
, 0L) != DMLERR_NO_ERROR
)
522 hszApp
= DdeCreateStringHandleW(ddeInst
, app
, CP_WINANSI
);
523 hszTopic
= DdeCreateStringHandleW(ddeInst
, topic
, CP_WINANSI
);
525 hConv
= DdeConnect(ddeInst
, hszApp
, hszTopic
, NULL
);
529 static const WCHAR wIfexec
[] = {'\\','i','f','e','x','e','c',0};
530 TRACE("Launching '%s'\n", debugstr_w(start
));
531 ret
= execfunc(start
, env
, sei
, TRUE
);
534 TRACE("Couldn't launch\n");
537 hConv
= DdeConnect(ddeInst
, hszApp
, hszTopic
, NULL
);
540 TRACE("Couldn't connect. ret=%d\n", ret
);
541 ret
= 30; /* whatever */
544 strcpyW(endkey
, wIfexec
);
545 ifexeclen
= sizeof(ifexec
)/sizeof(WCHAR
);
546 if (RegQueryValueW(HKEY_CLASSES_ROOT
, key
, ifexec
, &ifexeclen
) == ERROR_SUCCESS
)
552 SHELL_ArgifyW(res
, sizeof(res
)/sizeof(WCHAR
), exec
, lpFile
);
553 TRACE("%s %s => %s\n", debugstr_w(exec
), debugstr_w(lpFile
), debugstr_w(res
));
555 ret
= (DdeClientTransaction((LPBYTE
)res
, (strlenW(res
) + 1) * sizeof(WCHAR
), hConv
, 0L, 0,
556 XTYP_EXECUTE
, 10000, &tid
) != DMLERR_NO_ERROR
) ? 31 : 33;
557 DdeDisconnect(hConv
);
559 DdeUninitialize(ddeInst
);
563 /*************************************************************************
564 * execute_from_key [Internal]
566 static UINT
execute_from_key(LPWSTR key
, LPCWSTR lpFile
, void *env
,
567 LPSHELLEXECUTEINFOW sei
, SHELL_ExecuteW32 execfunc
)
569 WCHAR cmd
[1024] = {0};
573 /* Get the application for the registry */
574 if (RegQueryValueW(HKEY_CLASSES_ROOT
, key
, cmd
, &cmdlen
) == ERROR_SUCCESS
)
576 static const WCHAR wCommand
[] = {'c','o','m','m','a','n','d',0};
577 static const WCHAR wDdeexec
[] = {'d','d','e','e','x','e','c',0};
579 WCHAR param
[256] = {0};
582 /* Get the parameters needed by the application
583 from the associated ddeexec key */
584 tmp
= strstrW(key
, wCommand
);
586 strcpyW(tmp
, wDdeexec
);
588 if (RegQueryValueW(HKEY_CLASSES_ROOT
, key
, param
, ¶mlen
) == ERROR_SUCCESS
)
590 TRACE("Got ddeexec %s => %s\n", debugstr_w(key
), debugstr_w(param
));
591 retval
= dde_connect(key
, cmd
, param
, lpFile
, env
, sei
, execfunc
);
595 /* Is there a replace() function anywhere? */
597 SHELL_ArgifyW(param
, sizeof(param
)/sizeof(WCHAR
), cmd
, lpFile
);
598 retval
= execfunc(param
, env
, sei
, FALSE
);
601 else TRACE("ooch\n");
606 /*************************************************************************
607 * FindExecutableA [SHELL32.@]
609 HINSTANCE WINAPI
FindExecutableA(LPCSTR lpFile
, LPCSTR lpDirectory
, LPSTR lpResult
)
612 WCHAR
*wFile
= NULL
, *wDirectory
= NULL
;
613 WCHAR wResult
[MAX_PATH
];
615 if (lpFile
) __SHCloneStrAtoW(&wFile
, lpFile
);
616 if (lpDirectory
) __SHCloneStrAtoW(&wDirectory
, lpDirectory
);
618 retval
= FindExecutableW(wFile
, wDirectory
, wResult
);
619 WideCharToMultiByte(CP_ACP
, 0, wResult
, -1, lpResult
, MAX_PATH
, NULL
, NULL
);
620 if (wFile
) SHFree( wFile
);
621 if (wDirectory
) SHFree( wDirectory
);
623 TRACE("returning %s\n", lpResult
);
624 return (HINSTANCE
)retval
;
627 /*************************************************************************
628 * FindExecutableW [SHELL32.@]
630 HINSTANCE WINAPI
FindExecutableW(LPCWSTR lpFile
, LPCWSTR lpDirectory
, LPWSTR lpResult
)
632 UINT retval
= 31; /* default - 'No association was found' */
635 TRACE("File %s, Dir %s\n",
636 (lpFile
!= NULL
? debugstr_w(lpFile
) : "-"), (lpDirectory
!= NULL
? debugstr_w(lpDirectory
) : "-"));
638 lpResult
[0] = '\0'; /* Start off with an empty return string */
640 /* trap NULL parameters on entry */
641 if ((lpFile
== NULL
) || (lpResult
== NULL
))
643 /* FIXME - should throw a warning, perhaps! */
644 return (HINSTANCE
)2; /* File not found. Close enough, I guess. */
649 GetCurrentDirectoryW(sizeof(old_dir
)/sizeof(WCHAR
), old_dir
);
650 SetCurrentDirectoryW(lpDirectory
);
653 retval
= SHELL_FindExecutable(lpDirectory
, lpFile
, wszOpen
, lpResult
, NULL
, NULL
);
655 TRACE("returning %s\n", debugstr_w(lpResult
));
657 SetCurrentDirectoryW(old_dir
);
658 return (HINSTANCE
)retval
;
661 /*************************************************************************
662 * ShellExecuteExW32 [Internal]
664 BOOL WINAPI
ShellExecuteExW32 (LPSHELLEXECUTEINFOW sei
, SHELL_ExecuteW32 execfunc
)
666 static const WCHAR wQuote
[] = {'"',0};
667 static const WCHAR wSpace
[] = {' ',0};
668 static const WCHAR wWww
[] = {'w','w','w',0};
669 static const WCHAR wFile
[] = {'f','i','l','e',0};
670 static const WCHAR wHttp
[] = {'h','t','t','p',':','/','/',0};
671 WCHAR wszApplicationName
[MAX_PATH
+2],wszCommandline
[1024],wszPidl
[20],wfileName
[MAX_PATH
];
675 WCHAR lpstrProtocol
[256];
676 LPCWSTR lpFile
,lpOperation
;
681 TRACE("mask=0x%08lx hwnd=%p verb=%s file=%s parm=%s dir=%s show=0x%08x class=%s\n",
682 sei
->fMask
, sei
->hwnd
, debugstr_w(sei
->lpVerb
),
683 debugstr_w(sei
->lpFile
), debugstr_w(sei
->lpParameters
),
684 debugstr_w(sei
->lpDirectory
), sei
->nShow
,
685 (sei
->fMask
& SEE_MASK_CLASSNAME
) ? debugstr_w(sei
->lpClass
) : "not used");
687 sei
->hProcess
= NULL
;
688 ZeroMemory(wszApplicationName
,MAX_PATH
);
690 strcpyW(wszApplicationName
, sei
->lpFile
);
692 ZeroMemory(wszCommandline
,1024);
693 if (sei
->lpParameters
)
694 strcpyW(wszCommandline
, sei
->lpParameters
);
696 if (sei
->fMask
& (SEE_MASK_INVOKEIDLIST
| SEE_MASK_ICON
| SEE_MASK_HOTKEY
|
697 SEE_MASK_CONNECTNETDRV
| SEE_MASK_FLAG_DDEWAIT
|
698 SEE_MASK_DOENVSUBST
| SEE_MASK_FLAG_NO_UI
| SEE_MASK_UNICODE
|
699 SEE_MASK_NO_CONSOLE
| SEE_MASK_ASYNCOK
| SEE_MASK_HMONITOR
))
701 FIXME("flags ignored: 0x%08lx\n", sei
->fMask
);
704 /* process the IDList */
705 if ( (sei
->fMask
& SEE_MASK_INVOKEIDLIST
) == SEE_MASK_INVOKEIDLIST
) /*0x0c*/
707 wszApplicationName
[0] = '"';
708 SHGetPathFromIDListW(sei
->lpIDList
,wszApplicationName
+ 1);
709 strcatW(wszApplicationName
, wQuote
);
710 TRACE("-- idlist=%p (%s)\n", sei
->lpIDList
, debugstr_w(wszApplicationName
));
714 if (sei
->fMask
& SEE_MASK_IDLIST
)
716 static const WCHAR wI
[] = {'%','I',0}, wP
[] = {':','%','p',0};
717 pos
= strstrW(wszCommandline
, wI
);
721 HGLOBAL hmem
= SHAllocShared ( sei
->lpIDList
, ILGetSize(sei
->lpIDList
), 0);
722 pv
= SHLockShared(hmem
,0);
723 sprintfW(wszPidl
,wP
,pv
);
726 gap
= strlenW(wszPidl
);
727 len
= strlenW(pos
)-2;
728 memmove(pos
+gap
,pos
+2,len
*sizeof(WCHAR
));
729 memcpy(pos
,wszPidl
,gap
*sizeof(WCHAR
));
734 if (sei
->fMask
& (SEE_MASK_CLASSNAME
| SEE_MASK_CLASSKEY
))
736 /* launch a document by fileclass like 'WordPad.Document.1' */
737 /* the Commandline contains 'c:\Path\wordpad.exe "%1"' */
738 /* FIXME: szCommandline should not be of a fixed size. Fixed to 1024, MAX_PATH is way too short! */
739 if (sei
->fMask
& SEE_MASK_CLASSKEY
)
740 HCR_GetExecuteCommandExW(sei
->hkeyClass
,
741 (sei
->fMask
& SEE_MASK_CLASSNAME
) ? sei
->lpClass
: NULL
,
742 (sei
->lpVerb
) ? sei
->lpVerb
: wszOpen
, wszCommandline
, sizeof(wszCommandline
)/sizeof(WCHAR
));
743 else if (sei
->fMask
& SEE_MASK_CLASSNAME
)
744 HCR_GetExecuteCommandW(sei
->lpClass
, (sei
->lpVerb
) ? sei
->lpVerb
:
745 wszOpen
, wszCommandline
, sizeof(wszCommandline
)/sizeof(WCHAR
));
747 /* FIXME: get the extension of lpFile, check if it fits to the lpClass */
748 TRACE("SEE_MASK_CLASSNAME->'%s', doc->'%s'\n", debugstr_w(wszCommandline
), debugstr_w(wszApplicationName
));
751 done
= SHELL_ArgifyW(wcmd
, sizeof(wcmd
)/sizeof(WCHAR
), wszCommandline
, wszApplicationName
);
752 if (!done
&& wszApplicationName
[0])
754 strcatW(wcmd
, wSpace
);
755 strcatW(wcmd
, wszApplicationName
);
757 retval
= execfunc(wcmd
, NULL
, sei
, FALSE
);
764 /* We set the default to open, and that should generally work.
765 But that is not really the way the MS docs say to do it. */
766 if (sei
->lpVerb
== NULL
)
767 lpOperation
= wszOpen
;
769 lpOperation
= sei
->lpVerb
;
771 /* Else, try to execute the filename */
772 TRACE("execute:'%s','%s'\n", debugstr_w(wszApplicationName
), debugstr_w(wszCommandline
));
774 strcpyW(wfileName
, wszApplicationName
);
776 if (wszCommandline
[0]) {
777 strcatW(wszApplicationName
, wSpace
);
778 strcatW(wszApplicationName
, wszCommandline
);
781 retval
= execfunc(wszApplicationName
, NULL
, sei
, FALSE
);
785 /* Else, try to find the executable */
787 retval
= SHELL_FindExecutable(sei
->lpDirectory
, lpFile
, lpOperation
, wcmd
, lpstrProtocol
, &env
);
788 if (retval
> 32) /* Found */
790 WCHAR wszQuotedCmd
[MAX_PATH
+2];
791 /* Must quote to handle case where cmd contains spaces,
792 * else security hole if malicious user creates executable file "C:\\Program"
794 strcpyW(wszQuotedCmd
, wQuote
);
795 strcatW(wszQuotedCmd
, wcmd
);
796 strcatW(wszQuotedCmd
, wQuote
);
797 if (wszCommandline
[0]) {
798 strcatW(wszQuotedCmd
, wSpace
);
799 strcatW(wszQuotedCmd
, wszCommandline
);
801 TRACE("%s/%s => %s/%s\n", debugstr_w(wszApplicationName
), debugstr_w(lpOperation
), debugstr_w(wszQuotedCmd
), debugstr_w(lpstrProtocol
));
803 retval
= execute_from_key(lpstrProtocol
, wszApplicationName
, env
, sei
, execfunc
);
805 retval
= execfunc(wszQuotedCmd
, env
, sei
, FALSE
);
806 if (env
) HeapFree( GetProcessHeap(), 0, env
);
808 else if (PathIsURLW((LPWSTR
)lpFile
)) /* File not found, check for URL */
810 static const WCHAR wShell
[] = {'\\','s','h','e','l','l',0};
811 static const WCHAR wCommand
[] = {'\\','c','o','m','m','a','n','d',0};
815 lpstrRes
= strchrW(lpFile
, ':');
817 iSize
= lpstrRes
- lpFile
;
819 iSize
= strlenW(lpFile
);
821 TRACE("Got URL: %s\n", debugstr_w(lpFile
));
822 /* Looking for ...protocol\shell\lpOperation\command */
823 strncpyW(lpstrProtocol
, lpFile
, iSize
);
824 lpstrProtocol
[iSize
] = '\0';
825 strcatW(lpstrProtocol
, wShell
);
826 strcatW(lpstrProtocol
, lpOperation
);
827 strcatW(lpstrProtocol
, wCommand
);
829 /* Remove File Protocol from lpFile */
830 /* In the case file://path/file */
831 if (!strncmpiW(lpFile
, wFile
, iSize
))
834 while (*lpFile
== ':') lpFile
++;
836 retval
= execute_from_key(lpstrProtocol
, lpFile
, NULL
, sei
, execfunc
);
838 /* Check if file specified is in the form www.??????.*** */
839 else if (!strncmpiW(lpFile
, wWww
, 3))
841 /* if so, append lpFile http:// and call ShellExecute */
842 WCHAR lpstrTmpFile
[256];
843 strcpyW(lpstrTmpFile
, wHttp
);
844 strcatW(lpstrTmpFile
, lpFile
);
845 retval
= (UINT
)ShellExecuteW(sei
->hwnd
, lpOperation
, lpstrTmpFile
, NULL
, NULL
, 0);
850 sei
->hInstApp
= (HINSTANCE
)retval
;
854 sei
->hInstApp
= (HINSTANCE
)33;
858 /*************************************************************************
859 * ShellExecuteA [SHELL32.290]
861 HINSTANCE WINAPI
ShellExecuteA(HWND hWnd
, LPCSTR lpOperation
,LPCSTR lpFile
,
862 LPCSTR lpParameters
,LPCSTR lpDirectory
, INT iShowCmd
)
864 SHELLEXECUTEINFOA sei
;
868 sei
.cbSize
= sizeof(sei
);
871 sei
.lpVerb
= lpOperation
;
873 sei
.lpParameters
= lpParameters
;
874 sei
.lpDirectory
= lpDirectory
;
875 sei
.nShow
= iShowCmd
;
880 sei
.hProcess
= hProcess
;
882 ShellExecuteExA (&sei
);
886 /*************************************************************************
887 * ShellExecuteEx [SHELL32.291]
890 BOOL WINAPI
ShellExecuteExAW (LPVOID sei
)
892 if (SHELL_OsIsUnicode())
893 return ShellExecuteExW32 (sei
, SHELL_ExecuteW
);
894 return ShellExecuteExA (sei
);
897 /*************************************************************************
898 * ShellExecuteExA [SHELL32.292]
901 BOOL WINAPI
ShellExecuteExA (LPSHELLEXECUTEINFOA sei
)
903 SHELLEXECUTEINFOW seiW
;
905 WCHAR
*wVerb
= NULL
, *wFile
= NULL
, *wParameters
= NULL
, *wDirectory
= NULL
, *wClass
= NULL
;
909 memcpy(&seiW
, sei
, sizeof(SHELLEXECUTEINFOW
));
912 seiW
.lpVerb
= __SHCloneStrAtoW(&wVerb
, sei
->lpVerb
);
915 seiW
.lpFile
= __SHCloneStrAtoW(&wFile
, sei
->lpFile
);
917 if (sei
->lpParameters
)
918 seiW
.lpParameters
= __SHCloneStrAtoW(&wParameters
, sei
->lpParameters
);
920 if (sei
->lpDirectory
)
921 seiW
.lpDirectory
= __SHCloneStrAtoW(&wDirectory
, sei
->lpDirectory
);
923 if ((sei
->fMask
& SEE_MASK_CLASSNAME
) && sei
->lpClass
)
924 seiW
.lpClass
= __SHCloneStrAtoW(&wClass
, sei
->lpClass
);
928 ret
= ShellExecuteExW32 (&seiW
, SHELL_ExecuteW
);
930 if (wVerb
) SHFree(wVerb
);
931 if (wFile
) SHFree(wFile
);
932 if (wParameters
) SHFree(wParameters
);
933 if (wDirectory
) SHFree(wDirectory
);
934 if (wClass
) SHFree(wClass
);
939 /*************************************************************************
940 * ShellExecuteExW [SHELL32.293]
943 BOOL WINAPI
ShellExecuteExW (LPSHELLEXECUTEINFOW sei
)
945 return ShellExecuteExW32 (sei
, SHELL_ExecuteW
);
948 /*************************************************************************
949 * ShellExecuteW [SHELL32.294]
951 * WINSHELLAPI HINSTANCE APIENTRY ShellExecuteW(HWND hwnd, LPCWSTR lpOperation,
952 * LPCWSTR lpFile, LPCWSTR lpParameters, LPCWSTR lpDirectory, INT nShowCmd);
954 HINSTANCE WINAPI
ShellExecuteW(HWND hwnd
, LPCWSTR lpOperation
, LPCWSTR lpFile
,
955 LPCWSTR lpParameters
, LPCWSTR lpDirectory
, INT nShowCmd
)
957 SHELLEXECUTEINFOW sei
;
961 sei
.cbSize
= sizeof(sei
);
964 sei
.lpVerb
= lpOperation
;
966 sei
.lpParameters
= lpParameters
;
967 sei
.lpDirectory
= lpDirectory
;
968 sei
.nShow
= nShowCmd
;
973 sei
.hProcess
= hProcess
;
975 ShellExecuteExW32 (&sei
, SHELL_ExecuteW
);