tszs5.htm

来自「Delphi文摘精华」· HTM 代码 · 共 36 行

HTM
36
字号
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>如何在 Delphi 应用程序中, 去关闭外部已开启的应用程序?</title></head><body><blockquote>  <p>下面给出一段在 Delphi 中关闭“计算器”程序为例:<br>  ...<br>  var<br>  &nbsp; HWndCalculator : HWnd;<br>  begin<br>  &nbsp;&nbsp; // find the exist calculator window<br>  &nbsp; HWndCalculator := Winprocs.FindWindow(nil, '计算器');</p>  <pre>   // close the exist Calculator }  if HWndCalculator &lt;&gt; 0 then       SendMessage(HWndCalculator, WM_CLOSE, 0, 0);end;</pre>  <pre>在此特意再摘录一段 Win32 SDK 中的说明文字:</pre>  <pre>Typically, an application sends the WM_CLOSE message beforedestroying awindow, giving the window the opportunity to prompt the user for confirmation before the window is destroyed.A window that includes a System menu automatically receives the WM_CLOSE message when the user chooses the Close command from the menu. If the user confirms that the window should be destroyed,the application calls DestroyWindow.         [END]                                   </pre></blockquote><p> </p></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?