ShellExecute的功能是運行一個外部程序(或者打開一個已注冊的文件,打開一個目錄,打印一個文件等等,并對外部程序有一定額控制).
函數原型:
HINSTANCE ShellExecute(
HWND hwnd,
LPCTSTR lpOperation,
LPCTSTR lpFile,
LPCTSTR lpParameters,
LPCTSTR lpDirectory,
INT nShowCmd
);
參數說明:
hwnd:用于指定父窗口句柄。当函数调用过程出现错误时,它将作为Windows消息窗口的父窗口。
lpOperation:用于指定要进行的操作。
"open"操作表示执行由lpFile参数指定的程序,或打开由lpFile参数指定的文件或文件夹;
"print"操作表示打印由lpFile参数指定的文件;
"explore"操作表示浏览由lpFile参数指定的文件夹。
当参数设为NULL时,表示执行默认操作“open”。
lpFile:用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
lpParameters:若lpFile参数是一个可执行程序,则此参数指定命令行参数,否则此参数应为NULL.
lpDirectory:用于指定默认目录.
nShowCmd:若lpFile参数是一个可执行程序,则此参数指定程序窗口的初始显示方式,否则此参数应设置为0。
这个参数常用的常数:
SW_HIDE 隐藏窗口,活动状态给令一个窗口
SW_MINIMIZE 最小化窗口,活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口,同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口,并将其激活
SW_SHOWMINIMIZED 最小化窗口,并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口,同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口,不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口,同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
若ShellExecute函数调用成功,则返回值为被执行程序的实例句柄。若返回值小于32,则表示出现错误
用法:
1.
这个函数能打开任何文件,甚至是桌面和URL快捷方式( .ink或 .url)。ShellExecute解析系统注册表HKEY_CLASSES_ROOT中所有的内容,判断启动那一个执行程序,并且启动一个新的实例或使用DDE将文件名连到一打开的实例。然后,ShellExecute 返回打开文件的应用的实例句柄。
例:打开一个叫iloveu.bmp的位图文件。
ShellExecute(Handle,'open','c:\iloveu.bmp',nil,nil,SW_SHOWNORMAL);
2.
打開Web頁面。当ShellExecute遇到文件名前面的“http:”时,可以判断出要打开的文件是Web文件,随之启动Internet Explorer 或者 Netscape Navigator 或者任何你使用的别的浏览器打开文件。
例:打開網頁:http://hi.baidu.com/yueyun889
ShellExecute(Handle,'open','http://hi.baidu.com/yueyun889',nil,nil,SW_SHOWNORMAL);
3.
ShellExecute還能識別其它協議,象FTP、GOPHER。甚至識別“mailto,如果文件名指向“mailto:Yun_Yue@intra.asus.com”,它將啟動電子郵件程序(Windows OutLook等)并打開一個新的待編輯郵件.
例:打開一封新郵件,新郵件的收件人為:Yun_Yue@intra.asus.com.
ShellExecute(Handle,'open','mailto:Yun_Yue@intra.asus.com',nil,nil,SW_SHOWNORMAL);
當然,還可以指定多個收件人:
ShellExecute(Handle,'open','mailto:Yun_Yue@intra.asus.com;Allen_Niu@intra.asus.com',nil,nil,SW_SHOWNORMAL);
4.打開一個新的應用程序:
ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);
5.打印記事本,并打開一個文件(系統能識別記事本應該程序的路徑,因此不需要使用絕對路徑)
ShellExecute(Handle, 'print', PChar('c:\test\test.doc'), nil, nil, SW_SHOW);
注意:可能你會看到Word暫時的被打開,但它會自動關閉
6.用Windows Explorer 打開一個目錄
ShellExecute(Handle, 'explore', PChar('c:\windows'), nil, nil, SW_SHOW);
7.運新一個DOS命令并立即返回
ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c copy file1.txt file2.txt'), nil, SW_SHOW);
8.運行一個DOS命令并保持DOS窗口存在
ShellExecute(Handle, 'open', PChar('command.com'), '/k dir', nil, SW_SHOW);