InstallShield 2010 打包实例 - 图文(6)

return 0; end;

3： OnFirstUIAfter事件部分

//---------------------------------------------------------------------------

// OnFirstUIAfter //

// The OnFirstUIAfter event called by the framework after the file transfer

// of the setup when the setup is running in first install mode. By default

// this event displays UI that informs the end user that the setup has been // completed successfully.

//---------------------------------------------------------------------------

function OnFirstUIAfter()

STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2; BOOL bOpt1, bOpt2;

STRING szSrcFile1; STRING szSrcFile2;

STRING szTarFolder1; STRING szTarFolder2;

STRING szOption1; STRING szOption2;

STRING szExeFile; STRING szDocFile; NUMBER nResult;

STRING szfilename,szFolder ,szmsg1,szmsg2; NUMBER nresult;

STRING svStartDir; NUMBER nSize,nRet; STRING szFeatureName1 ; STRING szFeatureName2 ; STRING szFeatureName3 ; STRING szFeatureName4 ;

STRING szDir1; STRING szDir2;

begin

Disable(STATUSEX); szFeatureName1 =\ szFeatureName2 =\ szFeatureName3 =\

szFeatureName4 =\

nSize=MAX_PATH;

MsiGetProperty ( ISMSI_HANDLE , \, svStartDir , nSize);

szDir1 = TARGETDIR; if (0 = ExistsDir(szDir1)) then

StrSub(szDir2,szDir1,0,StrLength(szDir1)-1);

endif ;

if (FeatureIsItemSelected(MEDIA, szFeatureName1)=1) then

XCopyFile (svStartDir^\bTableSpace.bat\, szDir2 , COMP_NORMAL );

XCopyFile (svStartDir^\ace.sql\, szDir2, COMP_NORMAL );

LaunchAppAndWait ( TARGETDIR^\TableSpace.bat\, \,LAAW_OPTION_WAIT );

bat\

DeleteFile (TARGETDIR^\

DeleteFile (TARGETDIR^\

endif;

if (FeatureIsItemSelected(MEDIA, szFeatureName2)=1) then

XCopyFile (svStartDir^\ata.bat\, szDir2 , COMP_NORMAL );

XCopyFile (svStartDir^\, szDir2 , COMP_NORMAL );

XCopyFile (svStartDir^\bat\, szDir2 , COMP_NORMAL );

LaunchAppAndWait ( TARGETDIR^\ata.bat\, \,LAAW_OPTION_WAIT );

DeleteFile (TARGETDIR^\ DeleteFile (TARGETDIR^\ DeleteFile (TARGETDIR^\ endif;

if (FeatureIsItemSelected(MEDIA, szFeatureName3)=1) then

if (RegDBKeyExist (\reme\\\\6.8.0\< 0) then

LaunchAppAndWait (svStartDir^\s\\\\MapInfo\\\\mapxtremeTRIAL.exe\, \,LAAW_OPTION_WAIT );

XCopyFile (svStartDir^\\\\\mapxtreme680.lic\, \Files\\\\Common Files\\\\MapInfo\\\\MapXtreme\\\\6.8.0\, COMP_NORMAL ); DeleteFile ( INSTALLDIR^\Info\\\\mapxtreme680.lic\);

endif;

endif;

if (FeatureIsItemSelected(MEDIA, szFeatureName4)=1) then

LaunchAppAndWait ( svStartDir^\credist_x86.exe\, \,LAAW_OPTION_WAIT ); endif;

szfilename = UNINSTALL_STRING +\/UNINSTALL\ nresult = StrFind(szfilename,\

if nresult >=0 then

StrSub(szmsg1,szfilename,0,nresult + 4); StrSub(szmsg2,szfilename,nresult + 4,200); LongPathToQuote(szmsg1, FALSE );