如何使安装程序在桌面上建立快捷方式.txt

VB技巧问答10000例 VB技巧问答10000例

VB展 开 与 打 包 向 导 生 成 的 安 装 程 序 的 工 作 步 骤 是 这 样 的 ： 先 运 行 Setup.exe， 这 个 程 序 将 VB的 运 行 库 安 装 到 用 户 的 机 器 上 ， 然 后 再 调 用 Setup1.exe。 Setup1.exe是 由 VB写 的 (正 是 这 个 原 因 所 以 要 先 安 装 VB的 运 行 库 )， 其 源 程 序 可 以 在 VB98\Wizards\PDWizard\Setup1中 找 到 。 所 以 如 果 你 对 VB的 安 装 程 序 不 满 ， 就 可 以 直 接 修 改 Setup1.vbp。 对 于 你 的 问 题 ， 在 VB中 可 以 打 开 Setup1.vbp， 然 后 修 改 Setup1.frm的 Form_Load事 件 ， 在 其 中 可 以 找 到 如 下 几 行 ： 
     ' 
     ' Create program icons (or links, i.e. shortcuts). 
     ' 
     If (fMainGroupWasCreated = True) Or ((cIcons > 0) And TreatAsWin95()) 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中 ） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我 的 程 序 ", gstrDIR_DEST + "MyProg.exe", "" 
    （ VB 6.0中 ） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我 的 程 序 ", gstrDIR_DEST + "MyProg.exe", "", True, "$(Programs)" 
    重 新 编 译 Setup1.vbp， 用 Setup1.exe替 换 原 来 的 Setup1.exe即 可 。 
<END>