以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目发布后，需要安装必备的程序，如何办？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65597)
--  作者：黄训良
--  发布时间：2015/3/18 21:31:00
--  [求助]项目发布后，需要安装必备的程序，如何办？

项目发布后，需要安装必备的程序，如何做个智能的提醒？

比如，需要安装Office，Adobe Reader。
--  作者：有点甜
--  发布时间：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

 
--  作者：黄训良
--  发布时间：2015/3/18 23:02:00
--  
搜索注册表项的代码如何写？
--  作者：Bin
--  发布时间：2015/3/19 8:37:00
--  
看2楼帮助
--  作者：有点甜
--  发布时间：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)