Delphi Open Tools Api实例研究（二）_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi Open Tools Api实例研究（二）

作者：闵涛文章来源：闵涛的学习笔记点击数：1990 更新时间：2009/4/23 18:36:41

finally

CloseFile(DocumentFile);

end;

//注意，我们用到了IOTAActionServices的OpenFile方法来打开刚才保存的文档

ActionServices.OpenFile(MoudleFilePath+''''DocumentFile.txt'''');

end;

end

else

messagebox(IDEHandle,''''There isn''''''''''''''''t Active Project.'''',''''DocCreator'''',MB_ICONWARNING);

end;

其余的代码（如向IDE添加菜单等和上次的类似），在这里我们就省略不写出来了，你可以参看上一篇文章（连接： http://www.csdn.net/develop/read_article.asp?id=21725 ），也可以给我来信得到代码（地址和上一次的一样）。最后当我们完成代码编写时，我们就可以将它编译成dll文件。现在来看看我们怎么来安装我们的插件：首先退出delphi，打开注册表，在HKEY_CURRENT_USER/Software/Borland/Delphi/7.0/Experts键下新建立一个字符串类型的值，名称为我们的插件的名称，值为我们编译得到的dll的路径。现在重新启动delphi，怎么样，插件开始工作了吧。有了这个办法后相信我们可以很容易的为我们的插件创建安装程序和反安装程序（无非就是简单的操作注册表而已，当你再次推出delphi，并在注册表中删除刚才建立的值，重启delphi会发现插件已经卸载了），使其变的对用户更友好，也可以更加方便我们的发布。最后再做一点说明：关于调试dll插件的说明，我建议不要在编码过程中返太多的错误（指运行时的），你会发现你会为调式插件而不得不一次次的启动、关闭delphi，这是一件相当烦人的事情（把我害惨了），我建议你可以先把插件作为上一次的组件包形式进行测试和调式，这样不用重启delphi，当调式成功后再改为dll形式的。另外这次的插件依然以delphi7为基础，在低版本的delphi中可能会有错误。最后说明的是，这个插件可能会使delphi在退出的时候产生一个AV错误，我暂时还没有解决这个问题（希望高人指教），虽然我使用了string类型，但我也的确引用了sharemem单元。我也尝试在Terminate参数中向其赋一个退出释放资源的函数，但问题依旧。

在文章的最后我向大家推荐一些我最近发现的一些关于OTA的相当不错的网站和资料：

http://www.gexperts.org/opentools/ 在这里你将会得到一份OTA的FAQ，相当不错。

http://www.tempest-sw.com/opentools/ 一些老版本的OTA资料

http://home.quicknet.nl/qn/prive/rapp/delphi/delphi.html OTA部分接口的相关资料和例子

http://www.frasersoft.net/program/ delphi的OTA帮助补丁（非官方），但相当不全

最后祝大家新年愉快。J

上一页 [1] [2]