在Install Shield6.22下，反安装是不起作用的，在控制面板中的“添加删除程序”跟本不起作用。须要自行在注册表中写入反安装信息。在Install Shield的其它版本又没有这个问题。
1、开始菜单中增加卸载
在开始菜单中加一个ShortCut，Target设置为<DISK1TARGET>\setup.exe即可。
2、注册反安装
prototype RegUnInstall(STRING);
function RegUnInstall(szKey)
STRING svUninstLogFile;
begin
//反安装的注册
InstallationInfo(@COMPANY_NAME, @PRODUCT_NAME, @PRODUCT_VERSION, @PRODUCT_KEY);
DeinstallStart(TARGETDIR, svUninstLogFile, szKey, 0);
RegDBSetItem(REGDB_UNINSTALL_NAME, @PRODUCT_NAME);
DeinstallSetReference (TARGETDIR ^ @PRODUCT_KEY);
end;
3、设置反安装路径,用于添加/删除程序（仅用于6.22版）
prototype SetUnInstallPath();
function SetUnInstallPath()
NUMBER nResult;
STRING szProgramFolder, szItemName, szCommandLine, szWorkingDir, szIconPath;
STRING szShortCutKey, szProgram, szParam,svTmp, szKey;
begin
//写入反安装数据
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
//[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9D3ABC91-E361-4716-9529-22037C0950EF}]
szKey = "\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\" + PRODUCT_GUID;
szWorkingDir = WINDIR;
szProgramFolder = SHELL_OBJECT_FOLDER;
svTmp = PROGRAMFILES + "InstallShield Installation Information\\" + PRODUCT_GUID+ "\\setup.exe";
LongPathToQuote(svTmp, TRUE);
szParam = svTmp;
LongPathToShortPath(szParam);
svTmp = COMMONFILES + "InstallShield\\engine\\6\\Intel 32\\ctor.dll";
LongPathToShortPath(svTmp);
szProgram = "RunDll32" + " " + svTmp + ",LaunchSetup";
szCommandLine = szProgram + " " + szParam;
//RunDll32 D:\PROGRA~1\COMMON~1\INSTAL~1\ENGINE\6\INTEL3~1\ctor.dll,LaunchSetup "D:\Program Files\InstallShield Installation Information\PRODUCT_GUID+"\\setup.exe"
if (RegDBCreateKeyEx (szKey, "UninstallString") >= 0) then
if RegDBSetKeyValueEx (szKey, "UninstallString", REGDB_STRING, szCommandLine, -1) < 0 then
return -1;
endif;
endif;
end;
