webbrowser 查看---源文件功能

Question

要求像IE的查看源文件一样, 用记事本方式打开的. 要跟IE查看一样的内容
不使用发送快捷方式,不使用保存文件方式再用记事本打开.解决马上给分!

Answer 1

http://support.microsoft.com/kb/175513

Answer 2

to jiangsheng , 以上源是C++的, 我要的是delphi 的.

Answer 3

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int IDM_VIEWSOURCE = 2139;
        HWND vHandle = CppWebBrowser1->Handle;
        vHandle = FindWindowEx(vHandle, NULL, "Shell DocObject View", NULL);
        vHandle = FindWindowEx(vHandle, NULL, "Internet Explorer_Server", NULL);
        SendMessage(vHandle, WM_COMMAND, IDM_VIEWSOURCE, (long)Handle);
}----------------procedure TForm1.Button1Click(Sender: TObject)
const
  IDM_VIEWSOURCE = 2139;
var
  vHandle: THandle;
begin
  vHandle := WebBrowser1.Handle;
  vHandle = FindWindowEx(vHandle, nil, "Shell DocObject View", nil);
  vHandle = FindWindowEx(vHandle, nil, "Internet Explorer_Server", nil);
  SendMessage(vHandle, WM_COMMAND, IDM_VIEWSOURCE, Handle);
end;

Answer 4

楼上的, 我是菜鸟  你的代码 编译后如下两行不通过,是否uses里要声明xxx?vHandle = FindWindowEx(vHandle, nil, "Shell DocObject View", nil);
  vHandle = FindWindowEx(vHandle, nil, "Internet Explorer_Server", nil);
-------------------------------------------------------------------------------改成这样仍不通过.
vHandle:= FindWindowEx(vHandle, nil, 'Shell DocObject View', nil);
  vHandle:= FindWindowEx(vHandle, nil, 'Internet Explorer_Server', nil);

Answer 5

//根据编译提示修改procedure TForm1.Button1Click(Sender: TObject);
const
  IDM_VIEWSOURCE = 2139;
var
  vHandle: THandle;
begin
  vHandle := WebBrowser1.Handle;
  vHandle := FindWindowEx(vHandle, 0, 'Shell DocObject View', nil);
  vHandle := FindWindowEx(vHandle, 0, 'Internet Explorer_Server', nil);
  SendMessage(vHandle, WM_COMMAND, IDM_VIEWSOURCE, Handle);
end;