4 * Copyright 2000 Juergen Schmied
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
31 #include "wine/debug.h"
35 #include "shell32_main.h"
38 /* RunFileDlg flags */
39 #define RFF_NOBROWSE 0x01
40 #define RFF_NODEFAULT 0x02
41 #define RFF_CALCDIRECTORY 0x04
42 #define RFF_NOLABEL 0x08
43 #define RFF_NOSEPARATEMEM 0x20 /* NT only */
45 /* RunFileFlg notification structure */
50 const char *lpDirectory
;
54 /* RunFileDlg notification return values */
56 #define RF_CANCEL 0x01
63 LPCWSTR lpstrDirectory
;
65 LPCWSTR lpstrDescription
;
69 typedef BOOL (WINAPI
* LPFNOFN
) (OPENFILENAMEW
*) ;
71 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
72 static INT_PTR CALLBACK
RunDlgProc (HWND
, UINT
, WPARAM
, LPARAM
) ;
73 static void FillList (HWND
, char *, BOOL
) ;
76 /*************************************************************************
77 * PickIconDlg [SHELL32.62]
80 INT WINAPI
PickIconDlg(HWND hwndOwner
, WCHAR
*path
, UINT path_len
, INT
*index
)
82 FIXME("(%p,%s,%u,%p):stub.\n", hwndOwner
, debugstr_w(path
), path_len
, index
);
86 HRESULT WINAPI
SHOpenWithDialog(HWND parent
, const OPENASINFO
*info
)
92 /*************************************************************************
93 * RunFileDlgW [internal]
95 * The Unicode function that is available as ordinal 61 on Windows NT/2000/XP/...
100 static void RunFileDlgW(
103 LPCWSTR lpstrDirectory
,
105 LPCWSTR lpstrDescription
,
108 RUNFILEDLGPARAMS rfdp
;
113 rfdp
.hwndOwner
= hwndOwner
;
115 rfdp
.lpstrDirectory
= lpstrDirectory
;
116 rfdp
.lpstrTitle
= lpstrTitle
;
117 rfdp
.lpstrDescription
= lpstrDescription
;
118 rfdp
.uFlags
= uFlags
;
120 if (!(hRes
= FindResourceW(shell32_hInstance
, L
"SHELL_RUN_DLG", (LPWSTR
)RT_DIALOG
)) ||
121 !(template = LoadResource(shell32_hInstance
, hRes
)))
123 ERR("Couldn't load SHELL_RUN_DLG resource\n");
124 ShellMessageBoxW(shell32_hInstance
, hwndOwner
, MAKEINTRESOURCEW(IDS_RUNDLG_ERROR
), NULL
, MB_OK
| MB_ICONERROR
);
128 DialogBoxIndirectParamW(shell32_hInstance
,
129 template, hwndOwner
, RunDlgProc
, (LPARAM
)&rfdp
);
133 /* find the directory that contains the file being run */
134 static LPWSTR
RunDlg_GetParentDir(LPCWSTR cmdline
)
137 WCHAR
*dest
, *result
, *result_end
=NULL
;
139 result
= heap_alloc(sizeof(WCHAR
)*(lstrlenW(cmdline
)+5));
147 while (*src
&& *src
!= '"')
160 if (INVALID_FILE_ATTRIBUTES
!= GetFileAttributesW(result
))
162 lstrcatW(dest
, L
".exe");
163 if (INVALID_FILE_ATTRIBUTES
!= GetFileAttributesW(result
))
166 else if (*src
== '\\')
184 /* Dialog procedure for RunFileDlg */
185 static INT_PTR CALLBACK
RunDlgProc (HWND hwnd
, UINT message
, WPARAM wParam
, LPARAM lParam
)
187 RUNFILEDLGPARAMS
*prfdp
= (RUNFILEDLGPARAMS
*)GetWindowLongPtrW(hwnd
, DWLP_USER
);
192 prfdp
= (RUNFILEDLGPARAMS
*)lParam
;
193 SetWindowLongPtrW(hwnd
, DWLP_USER
, (LONG_PTR
)prfdp
);
195 if (prfdp
->lpstrTitle
)
196 SetWindowTextW(hwnd
, prfdp
->lpstrTitle
);
197 if (prfdp
->lpstrDescription
)
198 SetWindowTextW(GetDlgItem(hwnd
, IDC_RUNDLG_DESCRIPTION
), prfdp
->lpstrDescription
);
199 if (prfdp
->uFlags
& RFF_NOBROWSE
)
201 HWND browse
= GetDlgItem(hwnd
, IDC_RUNDLG_BROWSE
);
202 ShowWindow(browse
, SW_HIDE
);
203 EnableWindow(browse
, FALSE
);
205 if (prfdp
->uFlags
& RFF_NOLABEL
)
206 ShowWindow(GetDlgItem(hwnd
, IDC_RUNDLG_LABEL
), SW_HIDE
);
207 if (prfdp
->uFlags
& RFF_CALCDIRECTORY
)
208 FIXME("RFF_CALCDIRECTORY not supported\n");
210 if (prfdp
->hIcon
== NULL
)
211 prfdp
->hIcon
= LoadIconW(NULL
, (LPCWSTR
)IDI_WINLOGO
);
212 SendMessageW(hwnd
, WM_SETICON
, ICON_BIG
, (LPARAM
)prfdp
->hIcon
);
213 SendMessageW(hwnd
, WM_SETICON
, ICON_SMALL
, (LPARAM
)prfdp
->hIcon
);
214 SendMessageW(GetDlgItem(hwnd
, IDC_RUNDLG_ICON
), STM_SETICON
, (WPARAM
)prfdp
->hIcon
, 0);
216 FillList (GetDlgItem (hwnd
, IDC_RUNDLG_EDITPATH
), NULL
, (prfdp
->uFlags
& RFF_NODEFAULT
) == 0) ;
217 SetFocus (GetDlgItem (hwnd
, IDC_RUNDLG_EDITPATH
)) ;
221 switch (LOWORD (wParam
))
226 HWND htxt
= GetDlgItem (hwnd
, IDC_RUNDLG_EDITPATH
);
227 if ((ic
= GetWindowTextLengthW (htxt
)))
229 WCHAR
*psz
, *parent
=NULL
;
230 SHELLEXECUTEINFOW sei
;
232 ZeroMemory (&sei
, sizeof(sei
)) ;
233 sei
.cbSize
= sizeof(sei
) ;
234 psz
= heap_alloc( (ic
+ 1)*sizeof(WCHAR
) );
235 GetWindowTextW (htxt
, psz
, ic
+ 1) ;
237 /* according to http://www.codeproject.com/KB/shell/runfiledlg.aspx we should send a
238 * WM_NOTIFY before execution */
241 sei
.nShow
= SW_SHOWNORMAL
;
244 if (prfdp
->lpstrDirectory
)
245 sei
.lpDirectory
= prfdp
->lpstrDirectory
;
247 sei
.lpDirectory
= parent
= RunDlg_GetParentDir(sei
.lpFile
);
249 if (!ShellExecuteExW( &sei
))
253 SendMessageA (htxt
, CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
257 /* FillList is still ANSI */
258 GetWindowTextA (htxt
, (LPSTR
)psz
, ic
+ 1) ;
259 FillList (htxt
, (LPSTR
)psz
, FALSE
) ;
269 EndDialog (hwnd
, 0) ;
272 case IDC_RUNDLG_BROWSE
:
274 HMODULE hComdlg
= NULL
;
275 LPFNOFN ofnProc
= NULL
;
276 WCHAR szFName
[1024] = {0};
277 WCHAR filter_exe
[256], filter_all
[256], filter
[MAX_PATH
], szCaption
[MAX_PATH
];
280 LoadStringW(shell32_hInstance
, IDS_RUNDLG_BROWSE_FILTER_EXE
, filter_exe
, 256);
281 LoadStringW(shell32_hInstance
, IDS_RUNDLG_BROWSE_FILTER_ALL
, filter_all
, 256);
282 LoadStringW(shell32_hInstance
, IDS_RUNDLG_BROWSE_CAPTION
, szCaption
, MAX_PATH
);
283 swprintf( filter
, MAX_PATH
, L
"%s%c*.exe%c%s%c*.*%c", filter_exe
, 0, 0, filter_all
, 0, 0 );
285 ZeroMemory(&ofn
, sizeof(ofn
));
286 ofn
.lStructSize
= sizeof(OPENFILENAMEW
);
287 ofn
.hwndOwner
= hwnd
;
288 ofn
.lpstrFilter
= filter
;
289 ofn
.lpstrFile
= szFName
;
291 ofn
.lpstrTitle
= szCaption
;
292 ofn
.Flags
= OFN_ENABLESIZING
| OFN_FILEMUSTEXIST
| OFN_HIDEREADONLY
| OFN_PATHMUSTEXIST
;
293 ofn
.lpstrInitialDir
= prfdp
->lpstrDirectory
;
295 if (NULL
== (hComdlg
= LoadLibraryExW (L
"comdlg32.dll", NULL
, 0)) ||
296 NULL
== (ofnProc
= (LPFNOFN
)GetProcAddress (hComdlg
, "GetOpenFileNameW")))
298 ERR("Couldn't get GetOpenFileName function entry (lib=%p, proc=%p)\n", hComdlg
, ofnProc
);
299 ShellMessageBoxW(shell32_hInstance
, hwnd
, MAKEINTRESOURCEW(IDS_RUNDLG_BROWSE_ERROR
), NULL
, MB_OK
| MB_ICONERROR
);
305 SetFocus (GetDlgItem (hwnd
, IDOK
)) ;
306 SetWindowTextW (GetDlgItem (hwnd
, IDC_RUNDLG_EDITPATH
), szFName
) ;
307 SendMessageW (GetDlgItem (hwnd
, IDC_RUNDLG_EDITPATH
), CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
308 SetFocus (GetDlgItem (hwnd
, IDOK
)) ;
311 FreeLibrary (hComdlg
) ;
321 /* This grabs the MRU list from the registry and fills the combo for the "Run" dialog above */
322 /* fShowDefault ignored if pszLatest != NULL */
323 static void FillList (HWND hCb
, char *pszLatest
, BOOL fShowDefault
)
326 /* char szDbgMsg[256] = "" ; */
327 char *pszList
= NULL
, *pszCmd
= NULL
, cMatch
= 0, cMax
= 0x60, szIndex
[2] = "-" ;
328 DWORD icList
= 0, icCmd
= 0 ;
331 SendMessageA (hCb
, CB_RESETCONTENT
, 0, 0) ;
333 if (ERROR_SUCCESS
!= RegCreateKeyExA (
334 HKEY_CURRENT_USER
, "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\RunMRU",
335 0, NULL
, REG_OPTION_NON_VOLATILE
, KEY_ALL_ACCESS
, NULL
, &hkey
, NULL
))
336 MessageBoxA (hCb
, "Unable to open registry key !", "Nix", MB_OK
) ;
338 RegQueryValueExA (hkey
, "MRUList", NULL
, NULL
, NULL
, &icList
) ;
342 pszList
= heap_alloc(icList
) ;
343 if (ERROR_SUCCESS
!= RegQueryValueExA (hkey
, "MRUList", NULL
, NULL
, (LPBYTE
)pszList
, &icList
))
344 MessageBoxA (hCb
, "Unable to grab MRUList !", "Nix", MB_OK
) ;
349 pszList
= heap_alloc(icList
) ;
353 for (Nix
= 0 ; Nix
< icList
- 1 ; Nix
++)
355 if (pszList
[Nix
] > cMax
)
356 cMax
= pszList
[Nix
] ;
358 szIndex
[0] = pszList
[Nix
] ;
360 if (ERROR_SUCCESS
!= RegQueryValueExA (hkey
, szIndex
, NULL
, NULL
, NULL
, &icCmd
))
361 MessageBoxA (hCb
, "Unable to grab size of index", "Nix", MB_OK
) ;
363 pszCmd
= heap_realloc(pszCmd
, icCmd
) ;
365 pszCmd
= heap_alloc(icCmd
) ;
366 if (ERROR_SUCCESS
!= RegQueryValueExA (hkey
, szIndex
, NULL
, NULL
, (LPBYTE
)pszCmd
, &icCmd
))
367 MessageBoxA (hCb
, "Unable to grab index", "Nix", MB_OK
) ;
369 if (NULL
!= pszLatest
)
371 if (!lstrcmpiA(pszCmd
, pszLatest
))
374 sprintf (szDbgMsg, "Found existing (%d).\n", Nix) ;
375 MessageBoxA (hCb, szDbgMsg, "Nix", MB_OK) ;
377 SendMessageA (hCb
, CB_INSERTSTRING
, 0, (LPARAM
)pszCmd
) ;
378 SetWindowTextA (hCb
, pszCmd
) ;
379 SendMessageA (hCb
, CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
381 cMatch
= pszList
[Nix
] ;
382 memmove (&pszList
[1], pszList
, Nix
) ;
383 pszList
[0] = cMatch
;
388 if (26 != icList
- 1 || icList
- 2 != Nix
|| cMatch
|| NULL
== pszLatest
)
391 sprintf (szDbgMsg, "Happily appending (%d).\n", Nix) ;
392 MessageBoxA (hCb, szDbgMsg, "Nix", MB_OK) ;
394 SendMessageA (hCb
, CB_ADDSTRING
, 0, (LPARAM
)pszCmd
) ;
395 if (!Nix
&& fShowDefault
)
397 SetWindowTextA (hCb
, pszCmd
) ;
398 SendMessageA (hCb
, CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
405 sprintf (szDbgMsg, "Doing loop thing.\n") ;
406 MessageBoxA (hCb, szDbgMsg, "Nix", MB_OK) ;
408 SendMessageA (hCb
, CB_INSERTSTRING
, 0, (LPARAM
)pszLatest
) ;
409 SetWindowTextA (hCb
, pszLatest
) ;
410 SendMessageA (hCb
, CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
412 cMatch
= pszList
[Nix
] ;
413 memmove (&pszList
[1], pszList
, Nix
) ;
414 pszList
[0] = cMatch
;
415 szIndex
[0] = cMatch
;
416 RegSetValueExA (hkey
, szIndex
, 0, REG_SZ
, (LPBYTE
)pszLatest
, strlen (pszLatest
) + 1) ;
420 if (!cMatch
&& NULL
!= pszLatest
)
423 sprintf (szDbgMsg, "Simply inserting (increasing list).\n") ;
424 MessageBoxA (hCb, szDbgMsg, "Nix", MB_OK) ;
426 SendMessageA (hCb
, CB_INSERTSTRING
, 0, (LPARAM
)pszLatest
) ;
427 SetWindowTextA (hCb
, pszLatest
) ;
428 SendMessageA (hCb
, CB_SETEDITSEL
, 0, MAKELPARAM (0, -1)) ;
432 pszList
= heap_realloc(pszList
, ++icList
) ;
434 pszList
= heap_alloc(++icList
) ;
435 memmove (&pszList
[1], pszList
, icList
- 1) ;
436 pszList
[0] = cMatch
;
437 szIndex
[0] = cMatch
;
438 RegSetValueExA (hkey
, szIndex
, 0, REG_SZ
, (LPBYTE
)pszLatest
, strlen (pszLatest
) + 1) ;
441 RegSetValueExA (hkey
, "MRUList", 0, REG_SZ
, (LPBYTE
)pszList
, strlen (pszList
) + 1) ;
447 /*************************************************************************
448 * RunFileDlgA [internal]
450 * The ANSI function that is available as ordinal 61 on Windows 9x/Me
455 static void RunFileDlgA(
458 LPCSTR lpstrDirectory
,
460 LPCSTR lpstrDescription
,
463 WCHAR title
[MAX_PATH
]; /* longer string wouldn't be visible in the dialog anyway */
464 WCHAR description
[MAX_PATH
];
465 WCHAR directory
[MAX_PATH
];
467 MultiByteToWideChar(CP_ACP
, 0, lpstrTitle
, -1, title
, MAX_PATH
);
468 title
[MAX_PATH
- 1] = 0;
469 MultiByteToWideChar(CP_ACP
, 0, lpstrDescription
, -1, description
, MAX_PATH
);
470 description
[MAX_PATH
- 1] = 0;
471 if (!MultiByteToWideChar(CP_ACP
, 0, lpstrDirectory
, -1, directory
, MAX_PATH
))
474 RunFileDlgW(hwndOwner
, hIcon
,
475 lpstrDirectory
? directory
: NULL
,
476 lpstrTitle
? title
: NULL
,
477 lpstrDescription
? description
: NULL
,
481 /*************************************************************************
482 * RunFileDlgAW [SHELL32.61]
484 * An undocumented way to open the Run File dialog. A documented way is to use
485 * CLSID_Shell, IID_IShellDispatch (as of Wine 1.0, not implemented under Wine)
487 * Exported by ordinal. ANSI on Windows 9x and Unicode on Windows NT/2000/XP/etc
490 void WINAPI
RunFileDlgAW(
493 LPCVOID lpstrDirectory
,
495 LPCVOID lpstrDescription
,
498 if (SHELL_OsIsUnicode())
499 RunFileDlgW(hwndOwner
, hIcon
, lpstrDirectory
, lpstrTitle
, lpstrDescription
, uFlags
);
501 RunFileDlgA(hwndOwner
, hIcon
, lpstrDirectory
, lpstrTitle
, lpstrDescription
, uFlags
);
505 /*************************************************************************
506 * ConfirmDialog [internal]
508 * Put up a confirm box, return TRUE if the user confirmed
510 static BOOL
ConfirmDialog(HWND hWndOwner
, UINT PromptId
, UINT TitleId
)
515 LoadStringW(shell32_hInstance
, PromptId
, Prompt
, ARRAY_SIZE(Prompt
));
516 LoadStringW(shell32_hInstance
, TitleId
, Title
, ARRAY_SIZE(Title
));
517 return MessageBoxW(hWndOwner
, Prompt
, Title
, MB_YESNO
|MB_ICONQUESTION
) == IDYES
;
521 /*************************************************************************
522 * RestartDialogEx [SHELL32.730]
525 int WINAPI
RestartDialogEx(HWND hWndOwner
, LPCWSTR lpwstrReason
, DWORD uFlags
, DWORD uReason
)
527 TRACE("(%p)\n", hWndOwner
);
529 /* FIXME: use lpwstrReason */
530 if (ConfirmDialog(hWndOwner
, IDS_RESTART_PROMPT
, IDS_RESTART_TITLE
))
533 TOKEN_PRIVILEGES npr
;
535 /* enable the shutdown privilege for the current process */
536 if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
, &hToken
))
538 LookupPrivilegeValueA(0, "SeShutdownPrivilege", &npr
.Privileges
[0].Luid
);
539 npr
.PrivilegeCount
= 1;
540 npr
.Privileges
[0].Attributes
= SE_PRIVILEGE_ENABLED
;
541 AdjustTokenPrivileges(hToken
, FALSE
, &npr
, 0, 0, 0);
544 ExitWindowsEx(EWX_REBOOT
, uReason
);
551 /*************************************************************************
552 * RestartDialog [SHELL32.59]
555 int WINAPI
RestartDialog(HWND hWndOwner
, LPCWSTR lpstrReason
, DWORD uFlags
)
557 return RestartDialogEx(hWndOwner
, lpstrReason
, uFlags
, 0);
561 /*************************************************************************
562 * ExitWindowsDialog [SHELL32.60]
565 * exported by ordinal
567 void WINAPI
ExitWindowsDialog (HWND hWndOwner
)
569 TRACE("(%p)\n", hWndOwner
);
571 if (ConfirmDialog(hWndOwner
, IDS_SHUTDOWN_PROMPT
, IDS_SHUTDOWN_TITLE
))
574 TOKEN_PRIVILEGES npr
;
576 /* enable shutdown privilege for current process */
577 if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
, &hToken
))
579 LookupPrivilegeValueA(0, "SeShutdownPrivilege", &npr
.Privileges
[0].Luid
);
580 npr
.PrivilegeCount
= 1;
581 npr
.Privileges
[0].Attributes
= SE_PRIVILEGE_ENABLED
;
582 AdjustTokenPrivileges(hToken
, FALSE
, &npr
, 0, 0, 0);
585 ExitWindowsEx(EWX_SHUTDOWN
, 0);