如何在安装后的程序组中加入卸载!!
解决方案 »
- 关于DEDE的使用。
- 为何我用cxGrid把数据导出到Excel中提示"Unsupported Export type"错误信息?
- 用TDatabase连接sybase,提示:Client id not unique ,请问是怎么回事?
- 字符串转化为十六进制,如何做呢?把dd:='C0';转化为十六进制如何做呢?
- 问题多多
- Borland的丑陋嘴脸终于暴露出来了,看看它们有多龌龊!
- 谁能解决Flash.OCX(V1.0)的不足?
- 棘手问题,delphi从sql server 2000中调用数据的问题(着急,倾力奉献)
- 关于过程的参数传递问题
- 急救!!如何用delphi实现对注册表的查找操作?
- 问一个很菜的问题:如何获取memo中的单个字符串,我只能得到整行字符串.(Delphi菜鸟)
- 怎样为一个动态生成的控件添加事件?
创建后也可以手动添加,在“FileGroup”选项里
然后执行如下命令:
progrom files\\InstallShield Installation Information\\{id}\setup.exe
的方法不行,根本就没有setup.exe文件。to: longagoer我找不到'FileGroup”选项,你用的是哪一个版本的,我用的是install8.0
但是如果紧紧这样写还不行,因为如果机器上有两个操作系统的话,容易出现错误!如果你用Install Shield professional 6.X,那么Script可以这样写:
在OnFirstUIAfter中写:
//变量声明不写了,自己写吧; //在上面的文件夹中创建 卸载**** 的快捷方式
if GetDisk(FOLDER_PROGRAMS,szCommandLine) < 0 then
SprintfBox (WARNING, '', "不能获得系统磁盘驱动器名称!: %s", szCommandLine);
endif;
szCommandLine = szCommandLine+"\\Program Files\\InstallShield Installation Information\\{B6740EE9-42AA-44C6-9E8B-89497DF3E5F3}\\"^"Setup.exe";
szCommandLine = "\""+szCommandLine+"\"";
szWorkingDir = TARGETDIR;
szIconPath = "";
nIcon = 0;
szShortCutKey ="";
szFolderName = szMainFolderName^"卸载";
if ((nError=AddFolderIcon(FOLDER_PROGRAMS,szFolderName,szCommandLine,szWorkingDir,szIconPath,nIcon,szShortCutKey,REPLACE))<0) then
SprintfBox(INFORMATION,"错误","函数调用失败,错误代码:%d",nError);
endif;
szMainFolderName:='你的开始菜单中的目录名’{B6740EE9-42AA-44C6-9E8B-89497DF3E5F3}
是你的GUID
我知道再执行一次就有了
可如何把卸载加到程序组里呢,还有你总不能让别人老是执行你的setup.exe吧,特别是对菜鸟级的用户。
progrom files\\InstallShield Installation Information\\{id}\setup.exe
的方法不行,根本就没有setup.exe文件。