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

与Delphi Windows平台紧密结合，编译代码快速高效。Delphi作为一种可视化的面向对象开发工具，可以帮助程序员更方便快捷地编写各种Windows应用程序。而且通过编程，可以方便的调用其他语言编写的动态库或者应用，不需要的时候关闭这些外部程序。这对很多程序员来说非常有用。比如使用Delphi进行软件开发时，可能需要调用之前其他工具开发的应用程序，以免再次重写代码，或者调用Windows中的记事本、计算器等工具，在程序运行过程中记录信息或进行计算。
在Delphi中，通过调用一组API函数就可以轻松完成上述要求。以下文章将通过一个实际例子详细介绍启动和关闭外部应用程序的具体方法和步骤:

1.创建应用程序。

将两个Tbutton组件和一个TopenDialog组件添加到应用程序的窗体中。将一个Tbutton组件的Caption属性设置为“启动外部应用程序”，将另一个Tbutton组件的Caption属性设置为“关闭打开的外部应用程序”。将TopenDialog组件的Filter属性设置为“可执行文件(*。exe)|*。exe”。

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

⑵要启动一个外部应用，可以调用API函数WinExec。该函数用于运行指定的应用程序。以下是该函数所需的参数和返回值:

uintwinexec(
lpcstr lpcmdline，file://命令行指针
UINT uCmdShow file://应用程序的窗口样式
)；

如果成功，返回值大于31。否则，可能会返回以下结果:0系统内存或资源不足
ERROR _ BAD _ FORMAT *。EXE文件无效
ERROR_FILE_NOT_FOUND指定的文件
ERROR_PATH_NOT_FOUND指定的路径

⑵通过编写名为“启动外部应用程序”组件的OnClick事件来启动外部应用程序，代码如下:

程序TForm1。Button1Click(发件人:to object)；
var
str:string；File:// Store指定的应用程序文件名
begin
if open dialog 1 . execute then file://选择要调用的外部可执行程序
begin
str:= open dialog 1 . filename；File://获取可执行文件名称
winexec (pchar (str)，SW _ show normal)；File:// Start指定的可执行程序
end；
end；

3。关闭打开的外部应用程序。

⑵该功能可以通过调用两个API函数来实现。这两个功能是:

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

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

⑵通过编写名为“关闭已打开的外部应用程序”的组件的OnClick事件，关闭已打开的外部应用程序。代码如下:

程序TForm1。Button2Click(发送方:to object)；
var
HWnd close:HWnd；File:// Store指定的外部应用程序窗口句柄
str:String；File:// Store指定外部应用程序的窗口名
begin
str:= InputBox(' prompt '，'请输入应用程序名:'，' ')；File://获取要关闭的应用程序窗口名
if str ' ' then begin
file://根据窗口名找到要关闭的窗口句柄
hwnd close:= Findwindow(nil，pchar(str))；
如果hWndClose 0 then file://如果搜索成功，发送消息并关闭指定窗口
sendmessage (hwnd close，WM _ close，0，0)；
else file://否则，给出一条消息
ShowMessage('指定的应用程序无法关闭，因为没有找到！');
end；
end；