[delphi]ShellExecute函數的用法

 

转自 http://hi.baidu.com/yueyun889/blog/item/7d0c327fb556e00b29388a3c.html

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);

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值