使用Delphi启动和关闭外部应用程序_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

使用Delphi启动和关闭外部应用程序

作者：闵涛文章来源：闵涛的学习笔记点击数：651 更新时间：2009/4/23 18:24:53

　　Delphi与Windows平台紧密结合，编译代码快速高效。作为一种可视化的面向对象开发工具，Delphi可以帮助程序员更轻松、更快速地编写各种Windows应用程序。而且通过编程可以方便地调用其它语言编写的动态库或应用程序，并在不需要时关闭这些外部程序。这一点对许多编程人员非常有用，例如，在采用Delphi进行软件开发的同时，可能需要调用以前采用其它工具开发的应用程序，以免再次重新编写代码，或者需要调用Windows中的记事本和计算器等工具，以便在程序运行过程中记录信息或进行计算等。

　　在Delphi中，通过调用一组API函数是可以比较轻松地完成上述要求的。下面本文将以一个实际的例子详细地介绍一下实现外部应用程序启动和关闭的具体方法和步骤：

　　1. 创建一个应用程序，在应用程序的窗体上添加两个Tbutton组件和一个TopenDialog组件。设置其中一个Tbutton组件的Caption属性为“启动外部应用程序”、另一个Tbutton组件的Caption属性为“关闭已开启的外部应用程序”。设置TopenDialog组件的Filter属性为“可执行文件(*.exe)|*.exe”。

　　2. 实现外部应用程序的启动功能

　　⑴ 要启动外部应用程序，可以通过调用API函数WinExec来实现。该函数用于运行指定的应用程序。下面介绍一下该函数所需的参数和返回值：

UINT WinExec(

　LPCSTR lpCmdLine, file://命令行指针

　UINT uCmdShow file://应用程序的窗口风格

);

　　如果成功，返回值大于31。否则可能返回下列结果：

　　0 系统内存或资源不足

　　ERROR_BAD_FORMAT 该*.EXE文件无效

　　ERROR_FILE_NOT_FOUND 没找到指定的文件

　　ERROR_PATH_NOT_FOUND 没找到指定路径

　　⑵ 通过编写标题为“启动外部应用程序”组件的OnClick事件，来实现外部应用程序的启动，代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

str: string; file://存储指定的应用程序文件名

begin

if opendialog1.Execute then file://选择要调用的外部可执行程序

begin

str := opendialog1.FileName; file://获取可执行文件名

winexec(PChar(str), SW_SHOWNORMAL); file://启动指定的可执行程序

end;

end;

　　3. 关闭已开启的外部应用程序

　　⑴ 通过调用两个API函数，可以实现该功能。这两个函数分别为：

　　① FindWindow函数该函数用于查找与指定的类名和窗口名相匹配的高层窗口，如果查找成功，返回非0值，否则返回0。

　　② SendMessage函数此函数向一个或多个窗口发送指定的消息。在此通过发送WM_CLOSE消息来关闭指定的外部应用程序。

　　⑵ 通过编写标题为“关闭已开启的外部应用程序”组件的OnClick事件，来关闭已开启的外部应用程序。代码如下：

procedure TForm1.Button2Click(Sender: TObject);

var

hWndClose: HWnd; file://存储指定的外部应用程序窗口句柄

str: String; file://存储指定的外部应用程序的窗口名

begin

str := InputBox('提示','请输入应用程序名：',''); file://获取要关闭的应用程序窗口名

if str <> '' then begin

file://根据窗口名查找要关闭的窗口句柄

hWndClose := FindWindow(nil, PChar(str));

if hWndClose <> 0 then file://如果查找成功，则发送消息，关闭指定的窗口

SendMessage(hWndClose,WM_CLOSE,0,0);

else file://否则，给出提示信息

ShowMessage('没找到指定的应用程序，所以无法关闭！');

end;

end;

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：编程实现自动弹出和关闭CD托盘

下一篇教程：作非常规程序菜单掌握delphi高级秘籍

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……