[delphi]ShellExecute函數的用法

最新推荐文章于 2017-09-29 23:39:00 发布

aTian2009

最新推荐文章于 2017-09-29 23:39:00 发布

阅读量1.1k

点赞数

分类专栏： Delphi 文章标签： delphi 活动 windows dos internet file

Delphi 专栏收录该内容

97 篇文章 3 订阅

订阅专栏

转自 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窗口存在