请问如何在未安装VISIO的计算机上用程序绘制VISIO图? 1. 请问如何在未安装VISIO的计算机上用程序绘制VISIO图?2. 如果不可能,请问如何检测是否安装了VISIO? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1.不能把;2.visiso安装后会向注册表中写入一些东西,你到注册表里搜索它留下的信息就可以判断他是否安装了。 不安装肯定是不能绘制的。检测的办法很多,可以推荐你一种常用的方法,你按照安装来调用,在Create的时候加一个try,如果Create失败,就表示没有安装 代码如下:procedure TForm1.Button1Click(Sender: TObject);var VioObj:Variant;begin try VioObj:=CreateOleObject('Visio.Application'); VioObj.quit; except showmessage('Visio没有安装'); end;end; 谢谢各位,估计是不可能的.已改为TRY/EXCEPT模式. 我不知以上各位为什么给楼主一个否定的答案?在未安装VISIO的计算机上用程序绘制VISIO图,我认为可以的呀!分析VISIO文件格式,然后绘图。当然了前提是需要知道该文件的格式。 我不知以上各位为什么给楼主一个否定的答案?在未安装VISIO的计算机上用程序绘制VISIO图,我认为可以的呀!分析VISIO文件格式,然后绘图。当然了前提是需要知道该文件的格式。欢迎来信讨论:QQ 573827574 email [email protected] viso自2002起就支持XML格式,你可以存成vdx,然后自己解析修改 自己解析格式?如果是专业的软件,需要这方面的要求(比如Wps兼容Word的格式等),有这个必要,如果仅仅是简单的应用,那就没这个必要,我想一般的软件应该美这个必要。因为要求一个软件的格式不知要花多少时间和精力,而且毫不夸张的说不是每个人想要就就能研究明白的!与其花大量时间和精力去研究这个东西,还不如把他们用在如何将软件做的更加方便易用与稳定上面,更加实惠。 仅仅为做一些简单应用,要求客户购买office才是最不实惠的,除非你习惯用D版,并且还得给客户提供D版office的XML早就公开了,并且MS提供了详细的文档,要是还觉得不明白,可真是“夸张”了http://msdn2.microsoft.com/en-us/library/aa176902(office.11).aspx 已采用TRY来做. 分析VISIO格式实在太头痛.谢谢各位.该技术已应用到我的软件AutoFlowchart中,可以根据源码生成流程图,并导出到VISIO中. !!!!!!北京地区小型Delphi聚会 请问大家谁有《delphi信息系统开发实例精选》书中介绍的程序的源代码? 怎么加特殊字符串到发送的数据头部? 怎样用Delphi6写小票打印程序? 老生常谈的问题... 有关用ADOQuery1来添加记录的问题(简单) 在DELPHI中如何将实数型转换成整型?请帮忙? 请教一个设计思路问题,是否会造成系统的滥用。请大家多提意见。 在delphi中如何改变左右声道? 小白求问 才开始学 搞不懂啊 拜求各位大佬 在问个小问题,只有20分了..不要见怪了. 根据窗口句柄,如何获得程序的目录?
2.visiso安装后会向注册表中写入一些东西,你到注册表里搜索它留下的信息就可以判断他是否安装了。
检测的办法很多,可以推荐你一种常用的方法,你按照安装来调用,在Create的时候加一个try,如果Create失败,就表示没有安装
procedure TForm1.Button1Click(Sender: TObject);
var
VioObj:Variant;
begin
try
VioObj:=CreateOleObject('Visio.Application'); VioObj.quit;
except
showmessage('Visio没有安装');
end;
end;
http://msdn2.microsoft.com/en-us/library/aa176902(office.11).aspx
谢谢各位.
该技术已应用到我的软件AutoFlowchart中,可以根据源码生成流程图,并导出到VISIO中.