巨难问题：Delphi7窗体使用WebBrowser播放PPT，如何屏蔽“该文档已被修改,是否保存”对话框？

Question

本帖最后由 mengbo 于 2011-02-28 11:28:33 编辑

Answer 1

先把ppt属性改为只读再打开？

Answer 2

用过OLE接口, 将PPT对象的DisplayAlert置为false即可.

Answer 3

看看调用ppt文件类型时的命令行参数有什么不同
一般在注册表的，好像是与mime什么的有关

Answer 4

我之前试过OLEContainer的方式没办法播放PPT，不知道你说的OLE接口是指什么？
麻烦指点更详细一点，谢谢！

Answer 5

WebBrowser1.Navigate('file:///c:\test.pps');
我是这样调用的，按理来讲PPS文件是不可编辑的格式，但用IE打开浏览就确实会提示保存，怪。

Answer 6

从注册表查一查，*.pps的调用方式（程序，命令行参数）
该程序是不是有其它命令行可以使得不会修改和保存

Answer 7

只知道PPS可以设置是用PowerPoint外部打开，还是在WebBrowser中打开的注册项，该注册项是可以选择是编辑模式，还是浏览模式？我选择的是浏览模式，现在是在浏览模式下提示PPT已被修改，提示保存？其它真不晓得还有什么注册项了。

Answer 8

Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8]
"BrowserFlags"=dword:80000024[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.RTF.8]
"BrowserFlags"=dword:80000024[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.12]
"BrowserFlags"=dword:80000024[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.DocumentMacroEnabled.12]
"BrowserFlags"=dword:80000024[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8]
"BrowserFlags"=dword:80000A00[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.12]
"BrowserFlags"=dword:80000A00[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.SheetMacroEnabled.12]
"BrowserFlags"=dword:80000A00[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.SheetBinaryMacroEnabled.12]
"BrowserFlags"=dword:80000A00[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.8]
"BrowserFlags"=dword:800000A0[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.12]
"BrowserFlags"=dword:800000A0[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.ShowMacroEnabled.12]
"BrowserFlags"=dword:800000A0[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShow.8]
"BrowserFlags"=dword:800000A0[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShow.12]
"BrowserFlags"=dword:800000A0[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShowMacroEnabled.12]
"BrowserFlags"=dword:800000A0
修改注册表。
为什么我的webbroswer打开ppt不会显示工具栏。。

Answer 9

在“在PPT内点击链接并切换页面”这个页面导航前，把IE的编辑模式关闭 “EditMode(false)”，就不会弹出“保存修改结果”对话框了。本人不懂Pascal，C#代码如下：
        void EditMode(bool bEdit)
        {
            if (this.webBrowserBody.Document != null) {
                mshtml.IHTMLDocument2 doc = this.webBrowserBody.Document.DomDocument as mshtml.IHTMLDocument2;                if (doc != null)
                    doc.designMode = bEdit ? "on" : "off";
            }
        }
希望以上内容能给你带来帮助。

Answer 10

我用Office Viewer OCX控件，很好用，PPT也能播放，能打开所有的Office文件

Answer 11

http://download.csdn.net/detail/unicorn_dsx/263955

Answer 12

var
  doc: _Document;
begin
  WebBrowser1.Document.QueryInterface(_Document,doc);
  if doc <> nil then
    doc.Saved := true; 
end;