InstallShield 安装完成后执行某些操作并将其删除

admin

1. //安装完成后执行某些操作并将其删除
   
2. function OnFirstUIAfter()
   
3. begin   
   
4.   TARGETDIR = PROGRAMFILES ^@COMPANY_NAME ^@PRODUCT_NAME;  
   
5.   LaunchAppAndWait(TARGETDIR^"FtpConfig.bat","" ,WAIT);
   
6.   DeleteFile("FtpConfig.bat");
   
7. end;
   
8. //验证序列号
   
9. 在function OnFirstUIBefore()中的
   
10. Dlg_SdRegisterUserEx:里nResult下面添加:
    
11. if  szSerial!=("e43f2811-6643-4742-8c0a-08a9db9df188") && (nResult = NEXT) then  
    
12.      MessageBox( "您录入的注册码不正确！", WARNING );
    
13.      goto start;
    
14.      endif;
    
15. //卸载程序
    
16. function OnMoved()
    
17. STRING szWorkingDir,szIconPath,szItemName,svTmp,szParam;
    
18. STRING szProgram,szCommandLine,szShortCutKey,szProgramFolder;
    
19. NUMBER nResult,nFlag,nIcon;
    
20. begin
    
21. if !MAINTENANCE then
    
22. szProgramFolder =FOLDER_PROGRAMS+@PRODUCT_NAME;
    
23. szWorkingDir    = TARGETDIR;
    
24. szIconPath      = PROGRAMFILES^@COMPANY_NAME ^@PRODUCT_NAME+'\\uninstall.ICO';
    
25. nIcon           =0;
    
26. szItemName      = "卸载little-oa";
    
27. //szProgram       = szIconPath;
    
28. svTmp  = PROGRAMFILES+"InstallShield Installation Information\"+PRODUCT_GUID+"\\setup.exe";
    
29. LongPathToQuote(svTmp, TRUE);
    
30. szParam         = svTmp;
    
31. LongPathToShortPath(szParam);
    
32. svTmp  = COMMONFILES+"InstallShield\\engine\\6\\Intel 32\\ctor.dll";
    
33. LongPathToShortPath(svTmp);
    
34. szProgram       = "RunDll32"+" "+ svTmp+",LaunchSetup";
    
35. szCommandLine = szProgram + " " + szParam;
    
36. //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"
    
37. //szProgramFolder中的@PRODUCT_NAME要与开始->程序->()->shortcut中的()的名称要一样,这样卸载才能加到开始->程序->()中去.
    
38. if (AddFolderIcon(szProgramFolder, szItemName, szCommandLine, szWorkingDir,
    
39.                    szIconPath, nIcon, szShortCutKey, nFlag) < 0) then
    
40.     return -1;
    
41. endif;
    
42. AddFolderIcon(szProgramFolder, szItemName, szCommandLine, szWorkingDir,
    
43.                    szIconPath, nIcon, szShortCutKey, nFlag);
    
44. nResult = CreateShellObjects( "" );
    
45.   
    
46. if nResult <0 then
    
47.   return nResult;
    
48. else              
    
49.   ShowProgramFolder (szProgramFolder,SW_SHOW);
    
50.   return nResult;
    
51. endif;
    
52. 
    
53. endif;
    
54. end;

复制代码