var
ExeHandle:Thandle;
begin
ExeHandle :=FindWindow(nil,'我的文档');//'我的文档'是窗口标题名称
if ExeHandle <> 0 then
postMessage(ExeHandle, WM_CLOSE, 0, 0);
end;
ExeHandle:Thandle;
begin
ExeHandle :=FindWindow(nil,'我的文档');//'我的文档'是窗口标题名称
if ExeHandle <> 0 then
postMessage(ExeHandle, WM_CLOSE, 0, 0);
end;
POSTMESSAGE(FINDWINDOW('CabinetWClass',NIL),wm_close,0,0);//关闭"我的电脑'打开的窗口