下面给出一段在 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;
...
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;
我已经试过用你所提供的代码来关闭资源管理器,但还是没用,我用的是win2000的系统,资源管理器的标题上是“我的文档”。不知道你还有没有其他方法能提供。谢谢。
按你的方法去改还是不行,用断点跟踪后发现程序能执行到SendMessage(ExeHandle,WM_Close,0,0) 那一句,但没有执行成功,不知是何原因,望请各位继续指教。