怎么用脚本创建一个卸载快捷方式，如何“完美卸载”

Share

IS自带的建立卸载快捷方式（Project A Assistant -> Application Shortcuts -> Create an uninstallation shortcut）是有问题的，会出现卸载不完全的现象。解决方法是写脚本:
Install Script -> After More Data -> OnFirstUIAfter 中添加：

1. 
   
2. STRING szFile;
   
3. NUMBER nResult;
   
4. 
   
5. szFile = UNINSTALL_STRING + “/UNINSTALL”;
   
6. nResult = StrFind(szFile,”.exe”);
   
7. 
   
8. if(nResult >= 0) then
   
9. StrSub(szMsg1, szFile, 0, nResult + 4);
   
10. StrSub(szMsg2, szFile, nResult + 4, 200);
    
11. 
    
12. LongPathToQuote(szMsg1, FALSE);
    
13. LongPathToQuote(szMsg2, FALSE);
    
14. 
    
15. szFile = “\” + szMsg1 + “\” + szMsg2;
    
16.         endif;
    
17.   
    
18.   AddFolderIcon(FOLDER_PROGRAMS ^ “AliProbe”, “Uninstall AliProbe”, szFile, WINDIR, WINDIR ^ “System32\\msiexec.exe”, 0, REPLACE);
    
19.    
    
20.   然后在OnMaintUIAfter()中添加：
    
21. 
    
22.   // 删除开始所有程序中的AliProbe文件夹
    
23.   DeleteProgramFolder(“AliProbe”);
    
24.   
    
25.   // 删除桌面上的快捷方式
    
26.   STRING szItemName = “AliProbe”;
    
27.   STRING szProgramFolder = FOLDER_DESKTOP;
    
28.   DeleteFolderIcon(szProgramFolder, szItemName);
    
29.   
    
30.   // 删除安装目录文件夹
    
31.   DeleteProgramFolder(TARGETDIR);
    
32.   
    
33. ? 向注册表写入安装路径
    
34. 
    
35. prototype AliprobeReg(); //声明函数
    
36. function AliprobeReg()   
    
37. number nRootKey,nType,nSize;
    
38. string szKey,szNumName,szNumValue,szClass;
    
39. begin     
    
40.   //修改注册表
    
41.   nRootKey = HKEY_LOCAL_MACHINE;
    
42.   RegDBSetDefaultRoot (nRootKey);     //置根为nRootKey
    
43.   //注册子项
    
44.   szKey="SOFTWARE\\Aliprobe\";
    
45.   if RegDBKeyExist(szKey) < 0 then    //不存在“SOFTWARE\\Aliprobe”，创建这个项
    
46.      RegDBCreateKeyEx(szKey,"");
    
47.   endif;
    
48.   //初始化每个键的公共值
    
49.   nType=REGDB_STRING;
    
50.   nSize=-1;
    
51.   //注册安装路径
    
52.   szNumName="PATH";
    
53.   szNumValue=TARGETDIR;
    
54.     RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    
55. end;
    
56. 
    
57. 在OnInstallFilesActionAfter（）中调用上面的函数。
    
58. 
    

复制代码

安装结束后启动进程和readme文件
在OnFirstUIAfter()中添加：

1. szMsg1 = "AliProbe已经安装完成";
   
2.     szMsg2 = "";
   
3. bOpt1  = TRUE;
   
4. bOpt2  = TRUE;
   
5. szOption1 = "打开readme文件";
   
6. // szOption2 = "启动Aliprobe";     
   
7. szOption2 = "";
   
8. nResult = SdFinish(szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2);   
   
9. 
   
10. if(bOpt1) then   
    
11.      if(FindFile(TARGETDIR, "readme.txt", szFile) = 0) then
    
12.       LaunchApp(WINDIR^"Notepad.exe", TARGETDIR^"readme.txt");
    
13.      endif;
    
14.     endif;
    
15.    
    
16.     if(bOpt2) then
    
17.      if(FindFile(TARGETDIR, "AliProbe.exe", szFile) = 0) then
    
18.       LaunchApp(TARGETDIR^"AliProbe.exe", "");
    
19.      endif;      
    
20.     endif;

复制代码