手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>delphi>列表

启动外部程序并等待它结束

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

如果在你的软件中留下了你的网页地址和邮件地址,你肯定希望人们点击它就会启动浏览器或者电子邮件软件。这其实就是如何启动外部软件的问题,很简单,不是吗?不过,如果我问你,如何启动外部程序并等待它结束,你还能告诉我吗?

其实,这是一个“古老”的话题,在WIN95时代就被讨论过了。不过,既然这么多人不知道,我感觉还是有必要再讨论一下。

一、为什么要启动外部程序

也许,你想让你的程序完成全部的功能。不过,无论从物力还是人力上,你都应养成资源共享的习惯。更好的考虑是,充分利用已有的程序,而让你的程序专注于某一方面的功能。比如说,浏览器负责打开网页,让人们浏览,当遇到下载的任务时,可以交给更专业的下载软件去做。你也可能在你的程序里留下了你的主页和邮箱地址,你希望有人点击它们时就分别启动浏览器和电子邮件。在某些情况下,你需要外部程序处理后,再进行下一步的工作,这时就会遇到启动外部程序并等待它结束的问题。

二、预备知识

启动外部程序我们可以使用函数Winexec、ShellExecute和ShellExecuteEx。我推荐大家使用函数ShellExecute,因为它既灵活,又简单。看看下面的例子,用法就清楚了:

*: 启动一个程序

ShellExecute(Handle,''''open'''',PChar(''''c:\test\app.exe''''),

nil,nil,SW_SHOW);

* 启动记事本 (因为记事本在系统路径下,所以不必写完整的路径名了):

ShellExecute(Handle, ''''open'''', PChar(''''notepad''''),

nil, nil, SW_SHOW);

* 启动记事本并加载一个纯文本文件:

ShellExecute(Handle, ''''open'''', PChar(''''notepad''''),

PChar(''''c:\test\readme.txt'''', nil, SW_SHOW);

* 使用记事本打开一个纯文本文件 (请确定*.txt文件被关联到记事本):

ShellExecute(Handle, ''''open'''', PChar(''''c:\test\readme.txt''''),

nil, nil, SW_SHOW);

* 使用默认浏览器打开网址:

ShellExecute(Handle, ''''open'''', PChar(''''http://www.festra.com/''''),

nil, nil, SW_SHOW);

* 打印一个文件:

ShellExecute(Handle, ''''print'''', PChar(''''c:\test\readme.txt''''),

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!