WinAPI: ShellExecute - 打开外部程序或文件

/article/4586494.html

ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar;
{指定动作, 譬如: open、print} FileName: PChar;
{指定要打开的文件或程序} Parameters: PChar;
{给要打开的程序指定参数; 如果打开的是文件这里应该是 nil} Directory: PChar;
{缺省目录} ShowCmd: Integer
{打开选项}): HINST;
{执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:
= 0
{内存不足}ERROR_FILE_NOT_FOUND =
2;
{文件名错误}ERROR_PATH_NOT_FOUND =
3;
{路径名错误}ERROR_BAD_FORMAT =
11;
{EXE 文件无效}SE_ERR_SHARE =
26;
{发生共享错误}SE_ERR_ASSOCINCOMPLETE =
27;
{文件名不完全或无效}SE_ERR_DDETIMEOUT =
28;
{超时}SE_ERR_DDEFAIL =
29;
{DDE 事务失败}SE_ERR_DDEBUSY =
30;
{正在处理其他 DDE 事务而不能完成该 DDE 事务}SE_ERR_NOASSOC =
31;
{没有相关联的应用程序}//ShowCmd 参数可选值:SW_HIDE
= 0;
{隐藏}SW_SHOWNORMAL =
1;
{用最近的大小和位置显示, 激活}SW_NORMAL =
1;
{同 SW_SHOWNORMAL}SW_SHOWMINIMIZED =
2;
{最小化, 激活}SW_SHOWMAXIMIZED =
3;
{最大化, 激活}SW_MAXIMIZE =
3;
{同 SW_SHOWMAXIMIZED}SW_SHOWNOACTIVATE =
4;
{用最近的大小和位置显示, 不激活}SW_SHOW =
5;
{同 SW_SHOWNORMAL}SW_MINIMIZE =
6;
{最小化, 不激活}SW_SHOWMINNOACTIVE =
7;
{同 SW_MINIMIZE}SW_SHOWNA =
8;
{同 SW_SHOWNOACTIVATE}SW_RESTORE =
9;
{同 SW_SHOWNORMAL}SW_SHOWDEFAULT =
10;
{同 SW_SHOWNORMAL}SW_MAX =
10;
{同 SW_SHOWNORMAL}

//举例说明更多问题(别忘了 uses ShellAPI;):{譬如用记事本打开一个文件}begin
ShellExecute(Handle, 'open',
'notepad.exe',
'C:\WINDOWS\SchedLgU.Txt',
nil, SW_SHOWNORMAL);end;

{第一个参数是用来当作错误提示窗口的父窗口的, 不能是 nil, 可以是 0(也就是桌面窗口)}begin
ShellExecute(0,
'open',
'notepad.exe',
'C:\WINDOWS\SchedLgU.Txt',
nil, SW_SHOWNORMAL);end;

{第二个参数如果是 nil, 也会默认位 open}begin
ShellExecute(0,
nil,
'notepad.exe',
'C:\WINDOWS\SchedLgU.Txt',
nil, SW_SHOWNORMAL);end;

{文件路径可以放在参数五}begin
ShellExecute(0,
nil,
'notepad.exe',
'SchedLgU.Txt',
'C:\WINDOWS', SW_SHOWNORMAL);end;

{把参数三直接指定为要打开的文件, 文件将用对应默认程序打开; 次数参数四应为 nil}begin
ShellExecute(0,
nil,
'SchedLgU.Txt',
nil,
'C:\WINDOWS', SW_SHOWNORMAL);end;

{如果文件在: 程序目录/当前目录/System32/Windows/PATH环境变量中, 参数五也可以 nil}begin
ShellExecute(0,
nil,
'SchedLgU.Txt',
nil,
nil, SW_SHOWNORMAL);end;

{如果参数三是个文件, 可以用参数二命令打印}begin
ShellExecute(0,
'print',
'SchedLgU.Txt',
nil,
nil,
1);end;

{用 IE 打开网页}begin
ShellExecute(Handle, 'open',
'IExplore.EXE',
'about:blank',
nil, SW_SHOWNORMAL);end;

{用火狐打开网页}begin
ShellExecute(Handle, 'open',
'firefox.exe',
'about:blank',
nil, SW_SHOWNORMAL);
end;

{用默认浏览器打开网页}begin
ShellExecute(Handle, 'open',
'Explorer.exe',
'about:blank',
nil, SW_SHOWNORMAL);end;

{还是用默认浏览器打开网页}begin
ShellExecute(0,
nil,
'http://del.cnblogs.com',
nil,
nil,
1);end;