InstallShiled Setup脚本收藏

最新推荐文章于 2021-08-19 18:31:17 发布

liul17

最新推荐文章于 2021-08-19 18:31:17 发布

阅读量1.7k

点赞数

文章标签：脚本 dll microsoft sqlserver string dialog

//===========================================================================
//
// File Name: Setup.rul
//
// Description: Blank setup main script file
//
// Comments: Blank setup is an empty setup project. If you want to
// create a new project via. step-by step instructions use the
// Project Assistant.
//
//===========================================================================
// Included header files ----------------------------------------------------
#include "ifx.h"
//原型创建卸载快捷方式
prototype CreateUninstallShortcut();
//注册第三方DLL函数
prototype CallRegsterThirdDLL();
prototype CallUnRegsterThirdDLL();
//先安装的组件函数
prototype SetupPreCompontDLLorExe();
//---------------------------------------------------------------------------
// OnFirstUIBefore
// 第一个窗体之前执行事件
// First Install UI Sequence - Before Move Data
//
// The OnFirstUIBefore event is called by OnShowUI when the setup is
// running in first install mode. By default this event displays UI allowing
// the end user to specify installation parameters.
//
// Note: This event will not be called automatically in a
// program...endprogram style setup.
//---------------------------------------------------------------------------
function OnFirstUIBefore()
number nResult, nLevel, nSize, nSetupType;
string szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;
string szName, szCompany, szTargetPath, szDir, szFeatures;
BOOL bLicenseAccepted;
begin
nSetupType = COMPLETE;
szDir = TARGETDIR;
szName = "";
szCompany = "";
bLicenseAccepted = FALSE;
//调用先安装的组件函数
SetupPreCompontDLLorExe();
// Beginning of UI Sequence
Dlg_Start:
nResult = 0;
Dlg_SdWelcome:
szTitle = "";
szMsg = "";
//{{IS_SCRIPT_TAG(Dlg_SdWelcome)
nResult = SdWelcome( szTitle, szMsg );
//}}IS_SCRIPT_TAG(Dlg_SdWelcome)
if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense2:
szTitle = "";
szOpt1 = "";
szOpt2 = "";
//{{IS_SCRIPT_TAG(License_File_Path)
szLicenseFile = SUPPORTDIR ^ "Eula.rtf";
//}}IS_SCRIPT_TAG(License_File_Path)
//{{IS_SCRIPT_TAG(Dlg_SdLicense2)
nResult = SdLicense2Rtf( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted );
//}}IS_SCRIPT_TAG(Dlg_SdLicense2)
if (nResult = BACK) then
goto Dlg_SdWelcome;
else
bLicenseAccepted = TRUE;
endif;
Dlg_SdRegisterUser:
szMsg = "";
szTitle = "";
//{{IS_SCRIPT_TAG(Dlg_SdRegisterUser)
// nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
//}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)
if (nResult = BACK) goto Dlg_SdLicense2;
Dlg_SetupType2:
szTitle = "";
szMsg = "";
nResult = CUSTOM;
//{{IS_SCRIPT_TAG(Dlg_SetupType2)
nResult = SetupType2( szTitle, szMsg, "", nSetupType, 0 ); //完整/自定义安装
//}}IS_SCRIPT_TAG(Dlg_SetupType2)
if (nResult = BACK) then
goto Dlg_SdRegisterUser;
else
nSetupType = nResult;
if (nSetupType != CUSTOM) then
szTargetPath = TARGETDIR;
nSize = 0;
FeatureCompareSizeRequired( MEDIA, szTargetPath, nSize );
if (nSize != 0) then
MessageBox( szSdStr_NotEnoughSpace, WARNING );
goto Dlg_SetupType2;
endif;
endif;
endif;
Dlg_SdAskDestPath2:
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType2;
szTitle = "";
szMsg = "";
if (nSetupType = CUSTOM) then
//{{IS_SCRIPT_TAG(Dlg_SdAskDestPath2)
nResult = SdAskDestPath2( szTitle, szMsg, szDir );
//}}IS_SCRIPT_TAG(Dlg_SdAskDestPath2)
TARGETDIR = szDir;
endif;
if (nResult = BACK) goto Dlg_SetupType2;
Dlg_SdFeatureTree:
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath2;
szTitle = "";
szMsg = "";
szFeatures = "";
nLevel = 2;
if (nSetupType = CUSTOM) then
//{{IS_SCRIPT_TAG(Dlg_SdFeatureTree)
nResult = SdFeatureTree( szTitle, szMsg, TARGETDIR, szFeatures, nLevel );
//}}IS_SCRIPT_TAG(Dlg_SdFeatureTree)
if (nResult = BACK) goto Dlg_SdAskDestPath2;
endif;
Dlg_SQLServer:
nResult = OnSQLServerInitialize( nResult );
if( nResult = BACK ) goto Dlg_SdFeatureTree;
Dlg_ObjDialogs:
nResult = ShowObjWizardPages( nResult );
if (nResult = BACK) goto Dlg_SQLServer;
Dlg_SdStartCopy2:
szTitle = "";
szMsg = "";
//{{IS_SCRIPT_TAG(Dlg_SdStartCopy2)
nResult = SdStartCopy2( szTitle, szMsg );
//}}IS_SCRIPT_TAG(Dlg_SdStartCopy2)
if (nResult = BACK) goto Dlg_ObjDialogs;
// Added in 11.0 - Set appropriate StatusEx static text.
SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );
return 0;
end;
//定义先安装的组件函数
function SetupPreCompontDLLorExe()
string szDotNetFx,SzLanguagePack;
string szAERRealVersion,szAERSpNumber;
string svNumber;
number nvType,nvSize;
string szOfficeLastProduct,svOfficeValue;
string szWinInstallerExe;
begin
//安装Window Installer 3.1 有哪些任兄知道的说一下谢谢!
//szWinInstallerExe=SUPPORTDIR ^ "WINDOWSINSTALLER-KB893803-V2-X86.EXE";
//RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
//if (RegDBKeyExist ("SOFTWARE//Classes//Msi.Package" ) < 0) then
// SdShowMsg("正在安装Window Installer 3.1,请稍候......",TRUE);
// LaunchAppAndWait(szWinInstallerExe,"",WAIT);
//endif;
//安装.NetFramework2.0
szDotNetFx = SUPPORTDIR ^ "dotnetfx.exe";
SzLanguagePack = SUPPORTDIR ^ "langpack.exe";
//szMDAC = SUPPORTDIR ^ "MDAC2.8.EXE"; //v1.1
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if (RegDBKeyExist ("SOFTWARE//Microsoft//.NETFramework//policy//v2.0" ) < 0) then
SdShowMsg("正在安装.Net2.0运行环境,请稍候......",TRUE);
LaunchAppAndWait(szDotNetFx,"",WAIT);
LaunchAppAndWait(SzLanguagePack,"",WAIT);
endif;
//安装MDAC2.8
//RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
//if (RegDBKeyExist ("SOFTWARE//Classes//MDACVer.Version.2.80" ) < 0) then
// LaunchAppAndWait(szMDAC,"",WAIT);
//endif;
//判断是否安装了ArcEngine9.2+SP3补丁包
szAERRealVersion="9.2";
szAERSpNumber="3";
nvSize=-1;
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if (RegDBGetKeyValueEx ("SOFTWARE//ESRI//ArcGIS Engine Runtime","RealVersion",nvType,svNumber,nvSize) < 0) then
MessageBox ("未安装ArcEngine9.2+SP3补丁包,请本安装完成后再安装!", SEVERE);
else
if(svNumber!=szAERRealVersion) then
MessageBox ("未安装ArcEngine9.2+SP3补丁包,请本安装完成后再安装!", SEVERE);
else
if(RegDBGetKeyValueEx ("SOFTWARE//ESRI//ArcGIS Engine Runtime","SPNumber",nvType,svNumber,nvSize) < 0) then
MessageBox ("未安装ArcEngine9.2+SP3补丁包,请本安装完成后再安装!", SEVERE);
else
if(svNumber!=szAERSpNumber) then
MessageBox ("未安装ArcEngine9.2+SP3补丁包,请本安装完成后再安装!", SEVERE);
endif;
endif;
endif;
endif;
//判断是否安装了Microsoft Office 2003 V11.0+SP2及以上版本
szOfficeLastProduct="11.0.7969.0"; //sp2 版本号
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if (RegDBKeyExist ("SOFTWARE//Microsoft//Office//11.0//Common//ProductVersion" ) < 0) then
MessageBox ("未安装Microsoft Office 2003 V11.0+SP2及以上版本,请本安装完成后再安装!", SEVERE);
else
if(RegDBGetKeyValueEx ("SOFTWARE//Microsoft//Office//11.0//Common//ProductVersion","LastProduct",nvType,svOfficeValue,nvSize) < 0) then
MessageBox ("未安装Microsoft Office 2003 V11.0+SP2及以上版本,请本安装完成后再安装!", SEVERE);
else
if(svOfficeValue<szOfficeLastProduct) then
MessageBox ("未安装Microsoft Office 2003 V11.0+SP2及以上版本,请本安装完成后再安装!", SEVERE);
endif;
endif;
endif;
end;
//注册第三方DLL函数
function CallRegsterThirdDLL()
string szDevExpress_Dll,szmicrosoft_mshtml_dll;
begin
//安装完后注册 DevExpress_Dll
szDevExpress_Dll = TARGETDIR ^ "//devexpress_dll//reg.bat";
//SdShowMsg("正在注册 DevExpress_Dll,请稍候......",TRUE);
//Delay(2);
if(LaunchAppAndWait(szDevExpress_Dll,"",WAIT)<0) then
endif;
//安装完后注册 microsoft_mshtml_dll
szmicrosoft_mshtml_dll = TARGETDIR ^ "//microsoft_mshtml_dll//reg.bat";
//SdShowMsg("正在注册 microsoft_mshtml_dll，请稍候......",TRUE);
//Delay(2);
if(LaunchAppAndWait(szmicrosoft_mshtml_dll,"",WAIT)<0) then
endif;
end;
//调用卸载第三方组件
function CallUnRegsterThirdDLL()
string szDevExpress_Dll,szmicrosoft_mshtml_dll;
begin
//安装完后注册 DevExpress_Dll
szDevExpress_Dll = TARGETDIR ^ "//devexpress_dll//unreg.bat";
//SdShowMsg("正在注册 DevExpress_Dll,请稍候......",TRUE);
//Delay(2);
if(LaunchAppAndWait(szDevExpress_Dll,"",WAIT)<0) then
endif;
//LaunchApp(szDevExpress_Dll,"");
//安装完后注册 microsoft_mshtml_dll
szmicrosoft_mshtml_dll = TARGETDIR ^ "//microsoft_mshtml_dll//unreg.bat";
//SdShowMsg("正在注册 microsoft_mshtml_dll，请稍候......",TRUE);
//Delay(2);
//NOWAIT
if(LaunchAppAndWait(szmicrosoft_mshtml_dll,"",WAIT) <0) then
endif;
end;
//定义创建卸载快捷方式
function CreateUninstallShortcut()
string strCmdLine;
LIST lstPath;
begin
// For an InstallScript installation:
strCmdLine = DISK1TARGET ^ "Setup.exe";
// For an InstallScript MSI installation:
strCmdLine = UNINSTALL_STRING;
// The path has to be handled differently if you are running
// an InstallScript MSI installation on Windows 9X.
if (SYSINFO.WIN9X.bWin9X ) then
lstPath = ListCreate( STRINGLIST );
StrGetTokens( lstPath, UNINSTALL_STRING, "/" );
ListGetFirstString( lstPath, strCmdLine );
LongPathToQuote( strCmdLine, TRUE );
strCmdLine = strCmdLine + " /M" + PRODUCT_GUID;
endif;
// Create the shortcut.
AddFolderIcon(FOLDER_PROGRAMS ^ "XXXXX系统","卸载XXXXX系统V1.0",strCmdLine,"",TARGETDIR ^ "//remove.ico",0,"",REPLACE);
end;
//---------------------------------------------------------------------------
// OnFirstUIAfter
//
// First Install UI Sequence - After Move Data
//
// The OnFirstUIAfter event called by OnShowUI 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.
//
// Note: This event will not be called automatically in a
// program...endprogram style setup.
//---------------------------------------------------------------------------
function OnFirstUIAfter()
STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
NUMBER bvOpt1, bvOpt2;
NUMBER bShowUpdateServiceDlg;
begin
ShowObjWizardPages(NEXT);
szTitle = "";
szMsg1 = "";
szMsg2 = "";
szOpt1 = "";
szOpt2 = "";
bvOpt1 = FALSE;
bvOpt2 = FALSE;
// Set this to true if you have the update service enabled, and if you want to check for updates.
// Note: the ISUS Starter Edition does not support checking for updates programatically. So,
// only set this to true if you have at least the ISUS Professional Edition.
bShowUpdateServiceDlg = FALSE;
//调用创建卸载快捷方式
CreateUninstallShortcut();
//调用第三方组件函数
CallRegsterThirdDLL();
//{{IS_SCRIPT_TAG(Dlg_SdDinishEx)
if ( BATCH_INSTALL ) then
SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
else
// If the update service is enabled, show finish dialog that includes
// update check option.
if( bShowUpdateServiceDlg && ( ENABLED_ISERVICES & SERVICE_ISUPDATE ) ) then
if( SdFinishUpdateEx( szTitle, szMsg1, szMsg2, szOpt1, szOpt2, TRUE ) ) then
// Don't check for updates in silent mode.
if( MODE != SILENTMODE ) then
UpdateServiceCheckForUpdates( "", FALSE );
endif;
endif;
else
SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bvOpt1 , bvOpt2 );
endif;
endif;
//}}IS_SCRIPT_TAG(Dlg_SdDinishEx)
end;
//---------------------------------------------------------------------------
// OnSetTARGETDIR
//
// OnSetTARGETDIR is called directly by the framework to initialize
// TARGETDIR to it's default value.
//
// Note: This event is called for all setups.
//---------------------------------------------------------------------------
function OnSetTARGETDIR()
number nId, nIgnore, nResult;
string szId, szTARGETDIR;
begin
// In maintenance mode the value of TARGETDIR is read from the log file.
if( MAINTENANCE ) then
return ISERR_SUCCESS;
endif;
// Set TARGETDIR to script default.
TARGETDIR = "<FOLDER_APPLICATIONS>//XXXX系统";
// Read TARGETDIR from the media.
nResult = MediaGetData( MEDIA, MEDIA_FIELD_TARGETDIR, nIgnore, szTARGETDIR );
// Use the TARGETDIR from the media if anything was read.
if( nResult >= ISERR_SUCCESS && StrLengthChars( szTARGETDIR ) ) then
TARGETDIR = szTARGETDIR;
endif;
// Customize the default TARGETDIR for multi-instance application.
// TODO: If you want something different customize the code below.
if( MAINT_OPTION = MAINT_OPTION_MULTI_INSTANCE && MULTI_INSTANCE_COUNT > 0) then
// Start with the current multi-instance count plus one.
nId = MULTI_INSTANCE_COUNT + 1;
// Find a unique TARGETDIR.
while( ExistsDir( TARGETDIR ) = EXISTS )
// Convert to string.
NumToStr( szId, nId );
// Update IFX_MULTI_INSTANCE_SUFFIX
IFX_MULTI_INSTANCE_SUFFIX = "_" + szId;
// Update TARGETDIR
TARGETDIR = TARGETDIR + IFX_MULTI_INSTANCE_SUFFIX;
// Update nId
nId = nId + 1;
endwhile;
endif;
end;
//---------------------------------------------------------------------------
// OnMoved
//
// The OnMoved event is called as a result of the setup calling
// FeatureTransferData or FeatureMoveData. The event is called when
// all file transfer operations are completed except for batch
// self-registration which is performed immediately after this event returns.
// During uninstallation this event sent after uninstallation is completed,
// therefore you should not modify system state in this event.
//---------------------------------------------------------------------------
function OnMoved()
begin
end;
//---------------------------------------------------------------------------
// OnSetUpdateMode
//
// OnSetUpdateMode is called directly by the framework to set the UPDATEMODE
// InstallShield system variable appropriately to control which UI events
// are called by OnShowUI.
//
// Note: This event is called for all setups.
//---------------------------------------------------------------------------
function OnSetUpdateMode()
number nIgnore, nMediaFlags, nInstalledVersion, nUpdateVersion, nResult;
string szVersion, szIgnore, szMsg;
begin
UPDATEMODE = FALSE; // Non-update mode by default.
// Added 11.5 - Don't set UPDATEMODE when running from Add/Remove
if( ADDREMOVE ) then
return ISERR_SUCCESS;
endif;
// Added 11.5 - Don't set UPDATEMODE when REMOVEONLY is specified
if( REMOVEONLY ) then
return ISERR_SUCCESS;
endif;
// Get the media flags.
MediaGetData( MEDIA, MEDIA_FIELD_MEDIA_FLAGS, nMediaFlags, szIgnore );
if( ! ( nMediaFlags & MEDIA_FLAG_UPDATEMODE_SUPPORTED ) ) then
return ISERR_SUCCESS; // Update mode not supported by the setup.
endif;
// TODO: If you are updating an application that was installed by a previous
// version of InstallShield, IFX_INSTALLED_VERSION will be empty, and
// VERSION_COMPARE_RESULT_NOT_INSTALLED will be returned by
// VerProductCompareVersions. Change the value of IFX_INSTALLED_VERSION (and
// IFX_INSTALLED_DISPLAY_VERSION) here based on application specific version
// information determined by the setup. Only do this if IFX_INSTALLED_VERSION
// is empty.
//if ( !StrLengthChars( IFX_INSTALLED_VERSION ) && MAINTENANCE ) then
// IFX_INSTALLED_VERSION = "X.XX.XXX";
// IFX_INSTALLED_DISPLAY_VERSION = IFX_INSTALLED_VERSION;
//endif;
// Verify that the installed version is valid.
if( !StrLengthChars( IFX_INSTALLED_VERSION ) && MAINTENANCE ) then
// If this error occurs, IFX_INSTALLED_VERSION needs to be set manually.
szMsg = SdLoadString( IDS_IFX_ERROR_UPDATE_NO_INSTALLED_VERSION );
MessageBox( szMsg, SEVERE );
abort;
endif;
// Verify that the product version is valid.
if( !StrLengthChars( IFX_PRODUCT_VERSION ) ) then
// If this error occures, IFX_PRODUCT_VERSION was not initialized correctly.
szMsg = SdLoadString( IDS_IFX_ERROR_UPDATE_NO_PRODUCT_VERSION );
MessageBox( szMsg, SEVERE );
abort;
endif;
// Do the version comparison.
nResult = VerProductCompareVersions();
// Make sure that valid data was returned by VerProductCompareVersions
if( nResult < ISERR_SUCCESS ) then
szMsg = SdLoadString( IDS_IFX_ERROR_UPDATE_VERSION_COMPARE_FAILURE );
MessageBox( szMsg, SEVERE );
abort;
endif;
// Set update mode if this is a differential media or the product is already installed and the versions do not match.
UPDATEMODE = ( nMediaFlags & MEDIA_FLAG_FORMAT_DIFFERENTIAL || ( MAINTENANCE && ( nResult != VERSION_COMPARE_RESULT_SAME ) ) );
end;
//---------------------------------------------------------------------------
// OnCheckMediaPassword
//
// Displays a password dialog if the media is password protected.
//
// Note: This event is called for all setups.
//---------------------------------------------------------------------------
function OnCheckMediaPassword()
string szResult, szMsg;
BOOL bValidated;
begin
// Check whether the setup author selected this option.
if( !SHOW_PASSWORD_DIALOG ) then;
return ISERR_SUCCESS;
endif;
// Check whether the password has been specified previously.
LogReadCustomString( MEDIA_PASSWORD_KEY, szResult );
if( FeatureValidate( MEDIA, "", szResult ) == 0 ) then
return ISERR_SUCCESS;
endif;
// "Back" button should be disabled.
Disable( BACKBUTTON );
// Attempt to validate the media.
bValidated = FALSE;
// Loop until the password is validated.
while( !bValidated )
// Prompt for password.
if( EnterPassword( "", "", szResult ) < ISERR_SUCCESS ) then
abort; // Failed to display password dialog
endif;
// Attempt to validate the media.
if( FeatureValidate( MEDIA, "", szResult ) == 0 ) then
// Store the media password for maintenance mode.
LogWriteCustomString( MEDIA_PASSWORD_KEY, szResult );
bValidated = TRUE;
else
szMsg = SdLoadString( IDS_IFX_ERROR_INVALID_MEDIA_PASSWORD );
MessageBox( szMsg, INFORMATION );
endif;
endwhile;
// Enable "Back" button.
Enable( BACKBUTTON );
end;
//---------------------------------------------------------------------------
// OnEnd
//
// The OnEnd event is called at the end of the setup. This event is not
// called if the setup is aborted.
//---------------------------------------------------------------------------
function OnEnd()
begin
end;
//---------------------------------------------------------------------------
// OnUninstall
//
// The OnUninstall event is called when the setup is run with the -uninst
// switch, in this case this is the only event that will be called.
//---------------------------------------------------------------------------
function OnUninstall()
string szIgnore, szMsg;
number nResult;
BOOL bOpt1, bOpt2;
begin
// Hide the initial progress dialog.
Disable( DIALOGCACHE );
// Show Uninstall Confirmation Dialog
if( MessageBox( SdLoadString( IFX_MAINTUI_MSG ), MB_YESNO ) != IDYES ) then
abort;
endif;
//调用反安装函数
CallUnRegsterThirdDLL();
// Remove all features.
FeatureRemoveAllInMediaAndLog();
// Added in 11.0, disable the cancel button during uninstall.
if( REMOVEALLMODE ) then
Disable( CANCELBUTTON );
endif;
// Added in 11.0 - Set appropriate StatusEx static text.
// Moved in 12.1 - Set before calling Enable( STATUSEX ) to ensure proper product name updating.
SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );
// Show Status
SetStatusWindow( 0, "" );
Enable( STATUSEX );
StatusUpdate( ON, 100 );
// Uninstall
nResult = FeatureTransferData( MEDIA );
// Handle move data error and abort if error occured.
if( nResult < ISERR_SUCCESS ) then
OnComponentError();
abort;
endif;
// Disable Status
Disable( STATUSEX );
// Show final dialog.
if ( BATCH_INSTALL ) then
SdFinishReboot( SdLoadString(IFX_SDFINISH_REMOVE_TITLE), SdLoadString(IFX_SDFINISH_REMOVE_MSG2), SYS_BOOTMACHINE, "", 0 );
else
SdFinish( SdLoadString(IFX_SDFINISH_REMOVE_TITLE), SdLoadString(IFX_SDFINISH_REMOVE_MSG1), "", "" , "", bOpt1 , bOpt2 );
endif;
end;

liul17

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
InstallShiled Setup脚本收藏

//=========================================================================== // // File Name: Setup.rul // // Description: Blank setup main script file // // Comments: Blank
复制链接

扫一扫