680
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
GoldProgramer 2003-12-03
- 打赏
- 举报
如果你的机器上装有Word则:
OLEObject myoleobject
myoleobject = CREATE OLEObject
if myoleobject.ConnectToObject("", "Word.application") = 0 then
MessageBox('Word版本', string(myoleobject.Version));
else
MessageBox('错误', '此机器上没装Word');
end if;
欢迎使用<<PB扩展组件1.00>>
http://www.csdn.net/cnshare/soft/19/19457.shtm
OLEObject myoleobject
myoleobject = CREATE OLEObject
if myoleobject.ConnectToObject("", "Word.application") = 0 then
MessageBox('Word版本', string(myoleobject.Version));
else
MessageBox('错误', '此机器上没装Word');
end if;
欢迎使用<<PB扩展组件1.00>>
http://www.csdn.net/cnshare/soft/19/19457.shtm
qxl12343 2003-12-03
- 打赏
- 举报
怎么读？
mittee 2003-12-03
- 打赏
- 举报
读取注册表
