下面给出一段在 Delphi 中关闭“计算器”程序为例:
...
var
HWndCalculator : HWnd;
begin
// find the exist calculator window
HWndCalculator := Winprocs.FindWindow(nil, '计算器');
// close the exist Calculator }
if HWndCalculator <> 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;
在此特意再摘录一段 Win32 SDK 中的说明文字:
Typically, an application sends the WM_CLOSE message before
destroying 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]