[求助]项目发布后，需要安装必备的程序，如何办？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]项目发布后，需要安装必备的程序，如何办？

共有8343人关注过本帖树形打印复制链接主题：[求助]项目发布后，需要安装必备的程序，如何办？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/18 21:42:00 [显示全部帖子]

呃，要判断注册表才行。

1、去到 HKEY_CLASSES_ROOT\.pdf\ShellEx 看你的pdf的打开程序是什么；

2、搜索比如 49400A7C-81A8-4F52-8CCE-D54739EE87EC 的字符串，在 HKEY_CLASSES_ROOT\CLSID\{49400A7C-81A8-4F52-8CCE-D54739EE87EC} 找到它

3、如果能读取到值，就行

http://www.foxtable.com/help/topics/2051.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/19 9:20:00 [显示全部帖子]

比如，检测是否有 office2003

Dim rk = Microsoft.Win32.Registry.LocalMachine
Dim office2003 = rk.OpenSubKey("SOFTWARE\Microsoft\Office\11.0\Word\InstallRoot\")
Dim flag As Boolean = False
If office2003 IsNot Nothing Then
    Dim file03 = office2003.GetValue("Path").ToString()
    If FileSys.FileExists(file03 & "Excel.exe")
        flag= True
    End If

End If
msgbox(flag)

下一主题 >> << 上一主题

主题：[求助]项目发布后，需要安装必备的程序，如何办？