【结贴】文档关联

vagrant

try
          vWord := CreateOleObject('Word.Application');
     vDoc := vWord.Documents.Open(filename);
          vword.visible :=true;
        except
          ShowMessage('你没有安装office软件！');
          Exit;
        end;
         
oledummy1 := wdKeyP;
  oledummy2 := wdKeyControl;
  key_code := Vword.BuildKeyCode(oledummy1,oledummy2);
  If true Then
  Vword.FindKey[key_code].Disable;

vagrant

我的代码如上，就是会出现有时候可以控制ctrl+p,有时候控制不了，帮分析下

zfang

你仅仅用上面的代码，并不能按你说的有时好有时不好，根本就是不能屏蔽。

你翻出你之前提的帖子，我给你的那个代码加上（屏蔽工具栏的打印按钮）

vagrant

那个我只是没有上传上来，但控制ctrl+p这段代码应该就够了啊

zfang

关键是你现在的那个不行，而我的那个可以，难道不是这样吗？
你就按我给你说的思路去试验一下吧。

vagrant

try
        vWord := GetActiveOleObject('Word.Application');
        vDoc := vWord.Documents.Open(filename);
        vword.visible :=true;
      except
        try
          vWord := CreateOleObject('Word.Application');//创建Word线程
          vDoc := vWord.Documents.Open(filename);
          vword.visible :=true;
        except
          ShowMessage('你没有安装office软件！');
          Exit;
        end;
      //end;
      end;
   {这里加上下面链接的代码，也就是说要配合着用，才可以屏蔽快捷键}
  oledummy1 := wdKeyP;
  oledummy2 := wdKeyControl;
  key_code := Vword.BuildKeyCode(oledummy1,oledummy2);
  If true Then
  Vword.FindKey[key_code].Disable;

vagrant

完整的不就是这样吗？我就是这样做的

zfang

.......怎么说你好呢，我给你链接。
http://bbs.justep.com/forum.php?mod=viewthread&tid=29556
这个帖子都解决过的，你非自己倒腾出问题来。

vagrant

我现在写了两个pas文件，在“生成“注册文件”_TLB_reg.pas
拷贝控件文件到Importer目录；
按照Test.bat文件来创建一个批处理文件，替换TEST为你的文件名；
运行这个批处理文件，生成的具有名空间的动态库.dll和注册文件_TLB_reg.pas在Lib目录下。”到这一步的时候提示：无效的word2000，如果我只引入一个pas的时候就是正常的，请帮忙解决

zfang

已经跟楼主电话沟通过。