我在网看到一个在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编辑过]