在 Delphi 中调用外部程序是常见的编程需求，这通常涉及到操作系统级别的交互。本文将详细介绍如何使用 Delphi 的内置函数来实现这一功能，包括 WinExec、ShellExecute 和 CreateProcess 函数，以及如何终止已启动的进程。
1. **WinExec 函数**：
WinExec 函数是最简单的调用外部程序的方法。在 Delphi 中，你可以直接调用这个函数来启动一个应用程序。例如，在按钮的点击事件中，以下代码会打开记事本程序：
```delphi
procedure TForm1.btnWinExecClick(Sender: TObject);
begin
WinExec('Notepad.exe', SW_MAXIMIZE);
end;
```
其中，'Notepad.exe' 是要调用的程序名，SW_MAXIMIZE 参数表示以最大化模式打开程序。
2. **ShellExecute 函数**：
ShellExecute 提供了更灵活的功能，它可以处理文件关联并打开文件关联的默认程序。以下是调用 ShellExecute 的示例代码：
```delphi
procedure TForm1.btnShellExecuteClick(Sender: TObject);
begin
ShellExecute(Application.Handle, 'Open', 'Notepad.exe', PChar('C:\AutoExec.bat'), nil, SW_SHOWNORMAL);
end;
```
在这个例子中，'Open' 表示操作类型，'Notepad.exe' 是要执行的程序，'C:\AutoExec.bat' 是要打开的文件，nil 表示无额外参数，SW_SHOWNORMAL 设置程序窗口为正常显示。
3. **CreateProcess 函数**：
CreateProcess 允许你对启动的进程有更细粒度的控制，包括指定工作目录、环境变量等。以下是调用 CreateProcess 的示例：
```delphi
procedure TForm1.btnCreateProcessOpenClick(Sender: TObject);
var
PI: TProcessInformation;
SI: TStartupInfo;
begin
FillChar(SI, sizeof(SI), #0);
with SI do
begin
cb := sizeof(SI);
dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
lptitle := nil;
wShowWindow := SW_SHOW;
end;
CreateProcess(PChar('C:\WINNT\Notepad.exe'), nil, nil, nil, true, DETACHED_PROCESS, nil, nil, SI, PI);
end;
```
CreateProcess 需要提供 TStartupInfo 和 TProcessInformation 结构来存储启动信息和进程信息。
4. **TerminateProcess 函数**：
当你需要终止由 CreateProcess 启动的进程时，可以使用 TerminateProcess。以下是如何使用 TerminateProcess 关闭已启动的 Notepad.exe 进程：
```delphi
procedure TForm1.btnCreateProcessCloseClick(Sender: TObject);
var
MyHandle: THANDLE;
begin
MyHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PI.dwProcessId);
TerminateProcess(MyHandle, 0);
end;
```
OpenProcess 获取要终止的进程的句柄，然后 TerminateProcess 结束该进程。
总结，Delphi 中调用外部程序有多种方法，可以根据实际需求选择合适的函数。WinExec 简单易用，适用于基本需求；ShellExecute 可以处理文件关联；CreateProcess 提供更多控制，适合复杂场景；而 TerminateProcess 则用于结束特定进程。这些函数的使用加深了 Delphi 应用程序与操作系统交互的能力，使得开发者能够更好地管理应用程序与外部程序的关系。
