| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 743 人关注过本帖
标题:[求助]打包安装出现问题
只看楼主 加入收藏
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
 问题点数:0 回复次数:7 
[求助]打包安装出现问题

我在网看到一个在Step1工程改几个地方可以实现安装时能自动在桌面上生成程序的快捷方式的例子如下:

直接用VB打包,可以这样做:

一、打开VB98\Wizards\PDWizard\Setup1\setup1.vbp工程。

二、打开名称为 basSetup1 的标准模块,声明两个公用变量:
Public lnkName As String
Public lnkPath As String

三、在上面打开的 basSetup1 标准模块中找到“CreateShellLink”过程,并找到下面的的内容:
If fSuccess Then
If fLog Then
CommitAction
End If
Else
在If...Else之间加上:
If InStr(strLinkPath, ".EXE") Or InStr(strLinkPath, ".exe") Then
If lnkName = "" Then
lnkName = strLinkName
lnkpath = strLinkPath
End If
End If

四、打开名称为frmSetup1的代码窗口,并在Form_Load 事件中找到以下内容:
'
' Create program icons (or links, i.e. shortcuts).
'
If fMainGroupWasCreated Or (cIcons > 0) Then
ShowStaticMessageDialog ResolveResString(resPROGMAN)
CreateIcons gsICONGROUP
'
' Do the same for other sections in SETUP.LST if you've added your own.
'
'CreateIcons "MySection"
'CreateIcons "MyOtherSection"
'
End If
在If... End If中加上:
(VB 5.0中)
If MsgBox("是否要创建桌面上快捷方式?", 32 + 4, "创建桌面快捷方式") = vbYes Then
OSfCreateShellLink "..\..\Desktop", lnkName, lnkPath, ""
End If

(VB 6.0中)
If MsgBox("是否要创建桌面快捷方式?", 32 + 4, "创建桌面快捷方式") = vbYes Then
OSfCreateShellLink "..\..\Desktop", lnkName, lnkPath, "", True, "$(Programs)"
End If

五、保存工程,并重新编译Setup1.vbp,用新编译的Setup1.exe替换原来的VB98\Wizards\PDWizard\Setup1.exe。

可是生成打包文件后,安装出错Path or File Not Found那是什么会事,之前没用这个都没有问题.

图片附件: 游客没有浏览图片的权限,请 登录注册

[此贴子已经被作者于2007-1-17 11:00:01编辑过]

搜索更多相关主题的帖子: 打包 模块 String 工程 Public 
2007-01-17 10:59
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
沒有嘗試過```

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2007-01-17 11:27
lht99101
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-11-24
收藏
得分:0 
没用过这种方法,关注!!!!
2007-01-17 15:47
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
有人能帮个忙吗?怎么在安装的时候加入桌面快捷方式

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-01-18 10:15
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
为什么我打开Step1工程没有做任何的修改,再生存SETUP1.EXE文件都会出现上面的问题,请问各位何解

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-01-18 10:50
dkp88
Rank: 1
等 级:新手上路
帖 子:235
专家分:5
注 册:2004-10-18
收藏
得分:0 

兄弟,用第三方软件,我用过,挺好用的!安装方便,没有错误,不过你要把编写的程序所需要的OCX文件都要放到安装目录下,这样就可以防止在没有VB软件的环境中运行!!


学程序真有味!
2007-01-18 11:23
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
我用了N个...都是垃圾来的...网上说得怎么怎么好...都是假的...

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-01-18 12:39
土层
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-1-25
收藏
得分:0 

是不太好用,会出现汉化问题

2007-01-25 12:47
快速回复:[求助]打包安装出现问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018983 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved