webbrowser 如何调用 保存网页对话框

[代码跳动]

const
IDM_SAVEAS = 71;
var
vHandle: THandle;
begin
vHandle :=webbrowser.Handle;
vHandle := FindWindowEx(vHandle, 0, 'Shell DocObject View', nil);
vHandle := FindWindowEx(vHandle, 0, 'Internet Explorer_Server', nil);
SendMessage(vHandle, WM_COMMAND, IDM_SAVEAS, Handle);
end;
=============================================================
如上代码弹出的是保存html文件对话框,我要如题像IE的保存网页一样

另一问题: 所有在webbrowser里的连接都在webbrows里显示,无论属性是_blank等,不弹IE打开.

[iuIRCClient]

第一个问题等别人帮你回答吧。
第二个问题，你需要拦截webbrowser的页面内的link上的click事件，把url取出来用自已的webbrowser窗口再打开。也许有其它更容易的办法，如在webbrowser开新窗口newwindow之类的事件里处理。这只是思路。

[蒋晟]

1 那个是IE自己的，浏览器控件没有
2 处理NewWindow2

[jinjazz]

1\Webbrowser.ExecWeb(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);

[rainstormmaster]

2 有NewWindow3的话，就处理NewWindow3

[代码跳动]

jinjazz(近身剪)

1\Webbrowser.ExecWeb(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);
1\Webbrowser.ExecWb(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);

ExecWeb 是 Execwb ,呵呵! 结贴,给分!