Delphi如何关闭外部程序

在Delphi中，要实现关闭外部程序的功能，可以使用两个API函数：FindWindow和PostMessage（或SendMessage）。

使用FindWindow函数获取窗口句柄

FindWindow函数主要用来通过窗口类或窗口标题来获取一个窗口的句柄。一般情况下，通过窗口标题来获取窗口句柄更为常用。

例如，下面的代码可以用来获取标题为“无标题 - 记事本”的窗口句柄：

var
  hWnd: HWND;
begin
  hWnd : FindWindow(nil, '无标题 - 记事本');
end;

使用PostMessage函数发送消息

PostMessage函数可以向指定句柄的窗口发送消息。在Windows系统中，操作是通过消息机制来执行的。例如，如果要最小化一个窗口，需要先向该窗口发送一个最小化的消息，窗口才会根据消息执行相应的操作。

因此，我们可以使用PostMessage函数手动向窗口发送消息来实现关闭程序的功能。例如，下面的代码可以向前面获取到的窗口句柄发送一个关闭消息（WM_CLOSE），从而关闭程序：

var
  hWnd: HWND;
begin
  // 获取窗口句柄
  hWnd : FindWindow(nil, '无标题 - 记事本');
  // 向窗口发送关闭消息
  PostMessage(hWnd, WM_CLOSE, 0, 0);
end;

需要注意的是，SendMessage函数也可以实现相同的效果，但与PostMessage不同的是，SendMessage发送消息后会等待消息执行的结果。如果消息执行不成功，程序可能会挂起。因此，我们更推荐使用PostMessage函数来关闭外部程序。

以上就是使用Delphi关闭外部程序的方法介绍。通过使用FindWindow函数获取窗口句柄，并使用PostMessage函数向窗口发送关闭消息，我们可以实现关闭外部程序的功能。

下面是代码的优化版：

var
  hWnd: HWND;
begin
  // 获取窗口句柄
  hWnd : FindWindow(nil, '无标题 - 记事本');
  // 如果找到了窗口，则向窗口发送关闭消息
  if hWnd <> 0 then
    PostMessage(hWnd, WM_CLOSE, 0, 0)
  else
    ShowMessage('未找到指定标题的窗口！');
end;

运行后，可以看到效果图中展示了找到指定标题窗口和未找到指定标题窗口的情况。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。