我用VB打包，请问如何将快捷方式放到系统桌面上？

用VB自己的带的工具打包。 问题点数：20、回复次数：10Top

1 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2004-04-01 12:29:22 得分 10

C:\Program   Files\Microsoft   Visual   Studio\VB98\Wizards\PDWizard\Setup1  
   
  此目录下的工程是VB自带打包安装程序的源码,可以自己修改.  
   
  ========  
   
  If   (fMainGroupWasCreated   =   True)   Or   ((cIcons   >   0)   And   TreatAsWin95())   Then  
          ShowStaticMessageDialog   ResolveResString(resPROGMAN)  
          CreateIcons   gsICONGROUP  
           
          Dim   sProgramsPath   As   String  
          Dim   sDesktopPath   As   String  
           
          sProgramsPath   =   GetSpecialFolder(sfidPROGRAMS)  
          sDesktopPath   =   GetSpecialFolder(sfidDESKTOP)  
          sProgramsPath   =   sProgramsPath   &   "\"   &   gstrAppName   &   "\"   &   gstrAppName   &   ".lnk"  
          sDesktopPath   =   sDesktopPath   &   "\"   &   gstrAppName   &   ".lnk"  
   
          FileCopy   sProgramsPath,   sDesktopPath  
  End   If  
   
  将此代码复制到安装程序   frmSetup1窗口代码中   460   行左右的地方,重新编译,将生成的setup1.exe文件替打包生成的SUPPORT目录下的文件后,运行目录里面的BAT(批处理)文件重新打包就行了!!Top

2 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2004-04-01 12:31:09 得分 0

有很多人都说VB自带的打包生成的安装程序很难看,其实这个完全可以自己更改,包括里面的窗口背景色,完全可以做出比INSTALL   SHIELD及其他安装程序更专业的安装程序!!  
   
  并且随心所欲,毕竟是VB自己写的安装程序嘛~~~~~~Top

3 楼wumylove1234（毁于随）回复于 2004-04-01 12:44:45 得分 1

无此功能！Top

4 楼nik_Amis（...）回复于 2004-04-01 13:04:47 得分 1

同意cuizm   VB的Setup自己改起来很好用  
  Top

5 楼niuhaiyuan（暗黑天使）回复于 2004-04-01 13:17:52 得分 0

不了解  
   
  可否介绍一下Top

6 楼liujiayu10（活着就好）回复于 2004-04-01 13:56:59 得分 1

请用INSTALL   SHIELD打包Top

7 楼jackclh（艺海游鱼）回复于 2004-04-01 14:15:15 得分 1

还是用Wise打包比较省事又简单,你不妨试试.Top

8 楼chuting（学习的动力）回复于 2004-04-01 14:35:31 得分 0

向cuizm(射天狼)   学习Top

9 楼planetike（胜哥哥）回复于 2004-04-01 15:14:14 得分 5

建议使用setupbuild或是wise都不错的.  
  如何建立快捷方式？  
   
  Private   Declare   Function   fCreateShellLink   Lib   "vb5stkit.DLL"   (ByVal   lpstrFolderName   As   String,   ByVal   lpstrLinkName   As   String,   ByVal   lpstrLinkPath   As   String,   ByVal   lpstrLinkArgs   As   String)   As   Long  
   
  Private   Sub   MakeShortCuts()  
   
  Dim   lReturn   As   Long  
  Dim   MyPath   As   String  
  Dim   MyName   As   String  
  MyPath   =   App.Path  
  MyName   =   App.EXEName  
  '增加到桌面  
  lReturn   =   fCreateShellLink("..\..\Desktop",   "Shortcut   to   Net   Timer",   MyPath   &   "\"   &   MyName,   "")  
  '增加到启动组  
  lReturn   =   fCreateShellLink("\启动",   "Shortcut   to   Net   Timer",   MyPath   &   "\"   &   MyName,   "")  
   
  End   SubTop

10 楼happywqw（键盘跳蚤）回复于 2004-04-02 02:52:06 得分 1

趁这些工具还没收费(破解的诶)的时候，还是用现成的吧！setupbuild/wise   Installation   /InstallShield/...，呵呵！～Top

相关问题

• 安装
• vb
• 文件
• sprogramspath
• sdesktoppath
• 打包
• fcreateshelllink
• gstrappname
• lreturn
• 安装程序

• 帖主：fralee625
• cuizm
• wumylove1234
• nik_Amis
• liujiayu10
• jackclh
• planetike
• happywqw

• Visual Basic类图书
• Visual Basic类源码下载