还是任务栏菜单右击显示狐表字样的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 还是任务栏菜单右击显示狐表字样的问题

共有3131人关注过本帖树形打印复制链接主题：还是任务栏菜单右击显示狐表字样的问题

zpx_2012

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

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

还是任务栏菜单右击显示狐表字样的问题 发帖心情

Post By：2014/9/25 18:56:00 [只看该作者]

按狐爸说的三种方式之一，在advanced installer中添加了注册表项后打包好的程序第一次安装后注册表上已经正确显示自己的标题了，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140925184508.jpg

但问题时用户运行项目过后再次查看注册表那里又变回狐表的标题了，难道程序运行时会重写注册表。有什么办法才能让程序运行后还是保留自己的标题。

谢谢！

有点甜

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

加好友

发短信

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

Post By：2014/9/25 19:06:00 [只看该作者]

你可以在程序的afterOpenProject里面加入修改注册表的代码。

zpx_2012

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

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

Post By：2014/9/29 21:26:00 [只看该作者]

在项目属性的afteropenproject中加了如下代码，发布后的项目打开后右击任务栏标题还是显示foxtable,问题出在哪里，谢谢！

'----更改任务栏右击显示标题------

Dim pth As String = ProjectPath & "foxtable.exe"

Dim bt As String = Registry.GetValue("HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\Shell\MuiCache",pth,"")

If bt <> "abc(abc软件)" Then

Registry.SetValue("HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\Shell\MuiCache",pth,"abc(abc软件)")

End If

有点甜

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

加好友

发短信

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

Post By：2014/9/29 21:28:00 [只看该作者]

需要刷新使注册表生效，笨一点的方法是重启电脑。

有点甜

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

加好友

发短信

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

Post By：2014/9/29 21:30:00 [只看该作者]

立即刷新系统代码

全局代码

Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long)

Private Const SHCNE_ASSOCCHANGED = &H8000000

Private Const SHCNF_IDLIST = &H0

Public Sub Refresh() '立即刷新系统!!!

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)

End Sub

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

主题：还是任务栏菜单右击显示狐表字样的问题