- 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=102473)
-- 发布时间：2017/6/20 14:37:00
-- [分享]发布后主程序版权信息的解决方案
按照官方的帮助，编译发布后的EXE其实只是一个启动引导程序，真正启动的还是狐表的主程序，但是狐表的主程序图标问题很麻烦，总是一个统一的图标并且有狐表的版权信息，用户如果打开程序目录就看到了狐表的版权信息，如果能把狐表主程序的版权修正一个，显得软件更专业了，本人采用如下的方案：
1、修改狐表的启动主程序扩展名把扩展名修改成bat\\scr\\cmd等其它可执行文件，狐表的版权信息就暂时看不到了
2、建立桌面快捷方式，用VS写了一个自动在桌面建立快捷方式的程序，这样安装程序都可以省了，直接解压、点开建立快捷方式的程序，就可以用了。
不会用可以回帖，如果好用请回帖。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成桌面快捷方式.zip |
-- 发布时间：2017/6/20 14:46:00
--
这个问题困扰我很久，今天终于把它解决了，楼主太厉害了！
此主题相关图片如下：9999.png
-- 发布时间：2017/6/20 15:07:00
--
谢谢分享。生成桌面快捷方式，可以这样写代码
Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String = SpecialFolder.DesktopDirectory & "/test.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectFile
wshs.Save()
wshs = Nothing
wsh = Nothing
-- 发布时间：2017/8/29 10:57:00
--
老师，这段代码应该写在那里？
-- 发布时间：2017/8/29 11:44:00
--
以下是引用2900819580在2017/8/29 10:57:00的发言：
老师，这段代码应该写在那里？
老师，这段代码应该写在那里？
可以写到任何你想写的地方。比如AfterOpenProject事件。