boinc/win_build/installer/Script Files/setup.rul

718 lines
23 KiB
Plaintext
Executable File

////////////////////////////////////////////////////////////////////////////////
//
// IIIIIII SSSSSS
// II SS InstallShield (R)
// II SSSSSS (c) 1996-1997, InstallShield Software Corporation
// II SS (c) 1990-1996, InstallShield Corporation
// IIIIIII SSSSSS All Rights Reserved.
//
//
// This code is generated as a starting setup template. You should
// modify it to provide all necessary steps for your setup.
//
//
// File Name: Setup.rul
//
// Description: InstallShield script
//
// Comments: This template script performs a basic setup on a
// Windows 95 or Windows NT 4.0 platform. With minor
// modifications, this template can be adapted to create
// new, customized setups.
//
////////////////////////////////////////////////////////////////////////////////
// Include header file
#include "sdlang.h"
#include "sddialog.h"
////////////////////// string defines ////////////////////////////
#define UNINST_LOGFILE_NAME "Uninst.isu"
#define BOINC_GUI_EXE "boinc_gui.exe"
#define README_TXT "readme.txt"
#define WM_DESTROY 2
//////////////////// installation declarations ///////////////////
// ----- DLL prototypes -----
// your DLL prototypes
// ---- script prototypes -----
// generated
prototype ShowDialogs();
prototype MoveFileData();
prototype HandleMoveDataError( NUMBER );
prototype ProcessBeforeDataMove();
prototype ProcessAfterDataMove();
prototype SetupRegistry();
prototype SetupFolders();
prototype CleanUpInstall();
prototype SetupInstall();
prototype SetupScreen();
prototype CheckRequirements();
prototype DialogShowSdWelcome();
prototype DialogShowSdLicense();
prototype DialogShowSdAskDestPath();
prototype DialogShowSdSelectFolder();
prototype DialogShowSdSelectLanguage();
prototype DialogShowSdFinishReboot();
// your prototypes
// generated
BOOL bWinNT, bIsShellExplorer, bInstallAborted, bIs32BitSetup;
STRING svDir;
STRING svName, svCompany, svSerial;
STRING szAppPath;
STRING svAppPath;
STRING svSetupType;
// your global variables
BOOL bLaunchBoincAtStartup;
BOOL bSetAsDefaultScreensaver;
STRING szProgram;
NUMBER nResult;
///////////////////////////////////////////////////////////////////////////////
//
// MAIN PROGRAM
//
// The setup begins here by hiding the visible setup
// window. This is done to allow all the titles, images, etc. to
// be established before showing the main window. The following
// logic then performs the setup in a series of steps.
//
///////////////////////////////////////////////////////////////////////////////
program
Disable( BACKGROUND );
CheckRequirements();
SetupInstall();
SetupScreen();
if (ShowDialogs()<0) goto end_install;
if (ProcessBeforeDataMove()<0) goto end_install;
if (MoveFileData()<0) goto end_install;
if (ProcessAfterDataMove()<0) goto end_install;
if (SetupRegistry()<0) goto end_install;
if (SetupFolders()<0) goto end_install;
end_install:
CleanUpInstall();
// If an unrecoverable error occurred, clean up the partial installation.
// Otherwise, exit normally.
if (bInstallAborted) then
abort;
endif;
// Configure launching at startup
if (bLaunchBoincAtStartup) then
svDir = TARGETDIR ^ BOINC_GUI_EXE;
LongPathToQuote ( svDir , TRUE );
szProgram = svDir + " -min";
AddFolderIcon( FOLDER_STARTUP, "BOINC", szProgram, TARGETDIR, "", 0, "", REPLACE);
else
DeleteFolderIcon( FOLDER_STARTUP, "BOINC" );
endif;
// Set default screen saver
if ( bSetAsDefaultScreensaver ) then
if ( bWinNT ) then
svDir = WINDIR ^ "boinc.scr";
LongPathToQuote( svDir, TRUE );
nResult = RegDBSetDefaultRoot (HKEY_CURRENT_USER);
nResult = RegDBSetKeyValueEx ("Control Panel\\Desktop", "SCRNSAVE.EXE", REGDB_STRING, svDir, -1);
else
svDir = WINDIR ^ "system.ini";
LongPathToQuote ( svDir, TRUE );
nResult = ConfigFileLoad ( svDir );
nResult = ConfigAdd ("boinc.scr", WINDIR, "SCRNSAVE.EXE", AFTER );
nResult = ConfigFileSave ( svDir );
endif;
endif;
// Launch BOINC
if (bLaunchBoincAtStartup) then
ChangeDirectory(TARGETDIR);
svAppPath = TARGETDIR ^ BOINC_GUI_EXE;
LongPathToQuote( svAppPath, TRUE );
LaunchApp( svAppPath, "" );
endif;
endprogram
///////////////////////////////////////////////////////////////////////////////
// //
// Function: ShowDialogs //
// //
// Purpose: This function manages the display and navigation //
// the standard dialogs that exist in a setup. //
// //
///////////////////////////////////////////////////////////////////////////////
function ShowDialogs()
NUMBER nResult;
begin
Dlg_Start:
// beginning of dialogs label
Dlg_SdWelcome:
nResult = DialogShowSdWelcome();
if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense:
nResult = DialogShowSdLicense();
if (nResult = BACK) goto Dlg_SdWelcome;
Dlg_SdAskDestPath:
nResult = DialogShowSdAskDestPath();
if (nResult = BACK) goto Dlg_SdLicense;
Dlg_SdSelectFolder:
nResult = DialogShowSdSelectFolder();
if (nResult = BACK) goto Dlg_SdAskDestPath;
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: ProcessBeforeDataMove //
// //
// Purpose: This function performs any necessary operations prior to the //
// actual data move operation. //
// //
///////////////////////////////////////////////////////////////////////////////
function ProcessBeforeDataMove()
STRING svLogFile;
NUMBER nResult, count;
HWND client_win;
begin
InstallationInfo( @COMPANY_NAME, @PRODUCT_NAME, @PRODUCT_VERSION, @PRODUCT_KEY );
svLogFile = UNINST_LOGFILE_NAME;
nResult = DeinstallStart( svDir, svLogFile, @UNINST_KEY, 0 );
if (nResult < 0) then
MessageBox( @ERROR_UNINSTSETUP, WARNING );
endif;
// TODO: add boinc_cli.exe check to this
// if boinc_gui.exe instance is running, tell it to quit
client_win = FindWindow( "BOINCWindowClass", "" );
if (client_win != 0) then // Send message to PARENT window to quit
SendMessage(client_win, WM_DESTROY, 0, 0);
for count = 1 to 5 // Wait up to 5 seconds for client to quit
client_win = FindWindow( "BOINCWindowClass", "" );
if (client_win != 0) then
Delay(1);
endif;
endfor;
client_win = FindWindow( "BOINCWindowClass", "" );
if (client_win != 0) then // Couldn't kill the old client
MessageBox( "A BOINC client is still running on this \nsystem. You must close it before installing \na new version. Right click the blue \nBOINC icon, select Exit, and then \nrun this installer again.", SEVERE );
abort;
endif;
endif;
szAppPath = TARGETDIR; // TODO : if your application .exe is in a subdir of TARGETDIR then add subdir
if ((bIs32BitSetup) && (bIsShellExplorer)) then
RegDBSetItem( REGDB_APPPATH, szAppPath );
RegDBSetItem( REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY );
RegDBSetItem( REGDB_UNINSTALL_NAME, @UNINST_DISPLAY_NAME );
endif;
// TODO : update any items you want to process before moving the data
//
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: MoveFileData //
// //
// Purpose: This function handles the data movement for //
// the setup. //
// //
///////////////////////////////////////////////////////////////////////////////
function MoveFileData()
NUMBER nResult, nDisk;
begin
nDisk = 1;
SetStatusWindow( 0, "" );
Disable( DIALOGCACHE );
Enable( STATUS );
StatusUpdate( ON, 100 );
nResult = ComponentMoveData( MEDIA, nDisk, 0 );
HandleMoveDataError( nResult );
Disable( STATUS );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: HandleMoveDataError //
// //
// Purpose: This function handles the error (if any) during the move data //
// operation. //
// //
///////////////////////////////////////////////////////////////////////////////
function HandleMoveDataError( nResult )
STRING szErrMsg, svComponent , svFileGroup , svFile;
begin
svComponent = "";
svFileGroup = "";
svFile = "";
switch (nResult)
case 0:
return 0;
default:
ComponentError ( MEDIA , svComponent , svFileGroup , svFile , nResult );
szErrMsg = @ERROR_MOVEDATA + "\n\n" +
@ERROR_COMPONENT + " " + svComponent + "\n" +
@ERROR_FILEGROUP + " " + svFileGroup + "\n" +
@ERROR_FILE + " " + svFile;
SprintfBox( SEVERE, @TITLE_CAPTIONBAR, szErrMsg, nResult );
bInstallAborted = TRUE;
return nResult;
endswitch;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: ProcessAfterDataMove //
// //
// Purpose: This function performs any necessary operations needed after //
// all data has been moved. //
// //
///////////////////////////////////////////////////////////////////////////////
function ProcessAfterDataMove()
begin
// TODO : update self-registered files and other processes that
// should be performed after the data has been moved.
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: SetupRegistry //
// //
// Purpose: This function makes the registry entries for this setup. //
// //
///////////////////////////////////////////////////////////////////////////////
function SetupRegistry()
NUMBER nResult;
STRING svPath;
STRING svArgPath;
STRING svDir;
STRING svSoftwareStr;
begin
svPath = TARGETDIR ^ BOINC_GUI_EXE;
svArgPath = "\"" + TARGETDIR ^ BOINC_GUI_EXE + "\" -min";
svDir = TARGETDIR;
if ( bWinNT ) then
nResult = RegDBSetDefaultRoot (HKEY_CURRENT_USER);
else
nResult = RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
endif;
nResult = RegDBCreateKeyEx ("SOFTWARE\\BOINC", "ClientPath");
nResult = RegDBSetKeyValueEx ("SOFTWARE\\BOINC", "ClientPath", REGDB_STRING, svPath, -1);
nResult = RegDBCreateKeyEx ("SOFTWARE\\BOINC", "ClientDir");
nResult = RegDBSetKeyValueEx ("SOFTWARE\\BOINC", "ClientDir", REGDB_STRING, svDir, -1);
svPath = WINDIR;
LongPathToQuote( svPath, TRUE );
nResult = RegDBCreateKeyEx ("SOFTWARE\\BOINC", "WinDir");
nResult = RegDBSetKeyValueEx ("SOFTWARE\\BOINC", "WinDir", REGDB_STRING, svPath, -1);
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
//
// Function: SetupFolders
//
// Purpose: This function creates all the folders and shortcuts for the
// setup. This includes program groups and items for Windows 3.1.
//
///////////////////////////////////////////////////////////////////////////////
function SetupFolders()
NUMBER nResult;
STRING svPath;
STRING szProgram;
begin
// Added by Eric 11/12/02
svPath = TARGETDIR ^ BOINC_GUI_EXE;
LongPathToQuote ( svPath , TRUE );
AddFolderIcon ( SHELL_OBJECT_FOLDER , "BOINC" , svPath , TARGETDIR , "" , 0 , "" , REPLACE );
// Added by Eric 12/12/02
svPath = TARGETDIR ^ UNINST_LOGFILE_NAME;
LongPathToQuote ( svPath , TRUE );
szProgram = UNINST;
szProgram = szProgram + " -f" + svPath;
AddFolderIcon ( SHELL_OBJECT_FOLDER , "Remove BOINC" , szProgram , WINDIR , "" , 0 , "" , REPLACE );
// Added by Eric 01/27/03
svPath = TARGETDIR ^ README_TXT;
LongPathToQuote ( svPath , TRUE );
AddFolderIcon ( SHELL_OBJECT_FOLDER , "BOINC README" , svPath , WINDIR , "" , 0 , "" , REPLACE );
nResult = CreateShellObjects( "" );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: CleanUpInstall //
// //
// Purpose: This cleans up the setup. Anything that should //
// be released or deleted at the end of the setup should //
// be done here. //
// //
///////////////////////////////////////////////////////////////////////////////
function CleanUpInstall()
begin
if (bInstallAborted) then
return 0;
endif;
DialogShowSdFinishReboot();
if (BATCH_INSTALL) then // ensure locked files are properly written
CommitSharedFiles(0);
endif;
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: SetupInstall //
// //
// Purpose: This will setup the installation. Any general initialization //
// needed for the installation should be performed here. //
// //
///////////////////////////////////////////////////////////////////////////////
function SetupInstall()
begin
Enable( CORECOMPONENTHANDLING );
bInstallAborted = FALSE;
if (bIs32BitSetup) then
svDir = PROGRAMFILES ^ @PRODUCT_NAME;
else
svDir = PROGRAMFILES ^ @PRODUCT_NAME16; // use shorten names
endif;
TARGETDIR = svDir;
SdProductName( @PRODUCT_NAME );
Enable( DIALOGCACHE );
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: SetupScreen //
// //
// Purpose: This function establishes the screen look. This includes //
// colors, fonts, and text to be displayed. //
// //
///////////////////////////////////////////////////////////////////////////////
function SetupScreen()
begin
Enable( FULLWINDOWMODE );
Enable( INDVFILESTATUS );
SetTitle( @TITLE_MAIN, 24, WHITE );
SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION ); // Caption bar text.
Enable( BACKGROUND );
Delay( 1 );
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: CheckRequirements //
// //
// Purpose: This function checks all minimum requirements for the //
// application being installed. If any fail, then the user //
// is informed and the setup is terminated. //
// //
///////////////////////////////////////////////////////////////////////////////
function CheckRequirements()
NUMBER nvDx, nvDy, nvResult;
STRING svResult;
begin
bWinNT = FALSE;
bIsShellExplorer = FALSE;
// Check screen resolution.
GetExtents( nvDx, nvDy );
if (nvDy < 480) then
MessageBox( @ERROR_VGARESOLUTION, WARNING );
abort;
endif;
// set 'setup' operation mode
bIs32BitSetup = TRUE;
GetSystemInfo( ISTYPE, nvResult, svResult );
if (nvResult = 16) then
bIs32BitSetup = FALSE; // running 16-bit setup
return 0; // no additional information required
endif;
// --- 32-bit testing after this point ---
// Determine the target system's operating system.
GetSystemInfo( OS, nvResult, svResult );
if (nvResult = IS_WINDOWSNT) then
// Running Windows NT.
bWinNT = TRUE;
// Check to see if the shell being used is EXPLORER shell.
if (GetSystemInfo( OSMAJOR, nvResult, svResult ) = 0) then
if (nvResult >= 4) then
bIsShellExplorer = TRUE;
endif;
endif;
elseif (nvResult = IS_WINDOWS95 ) then
bIsShellExplorer = TRUE;
endif;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: DialogShowSdWelcome //
// //
// Purpose: This function handles the standard welcome dialog. //
// //
// //
///////////////////////////////////////////////////////////////////////////////
function DialogShowSdWelcome()
NUMBER nResult;
STRING szTitle, szMsg;
begin
szTitle = "";
szMsg = "";
nResult = SdWelcome( szTitle, szMsg );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: DialogShowSdLicense //
// //
// Purpose: This function displays the license agreement dialog. //
// //
// //
///////////////////////////////////////////////////////////////////////////////
function DialogShowSdLicense()
NUMBER nResult;
STRING szTitle, szMsg, szQuestion, szLicenseFile;
begin
szLicenseFile = SUPPORTDIR ^ "license.txt";
szTitle = "";
szMsg = "";
szQuestion = "";
nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: DialogShowSdAskDestPath //
// //
// Purpose: This function asks the user for the destination directory. //
// //
///////////////////////////////////////////////////////////////////////////////
function DialogShowSdAskDestPath()
NUMBER nResult, nvType, nvSize;
STRING szTitle, szMsg;
begin
szTitle = "";
szMsg = "";
if ( bWinNT ) then
RegDBSetDefaultRoot (HKEY_CURRENT_USER);
RegDBGetKeyValueEx ("SOFTWARE\\BOINC", "ClientDir", nvType, svDir, nvSize);
else
RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
RegDBGetKeyValueEx ("SOFTWARE\\BOINC", "ClientDir", nvType, svDir, nvSize);
endif;
nResult = SdAskDestPath( szTitle, szMsg, svDir, 0 );
TARGETDIR = svDir;
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: DialogShowSdSelectFolder //
// //
// Purpose: This function displays the standard folder selection dialog. //
// //
// //
///////////////////////////////////////////////////////////////////////////////
function DialogShowSdSelectFolder()
NUMBER nResult;
STRING szTitle, szMsg;
begin
if (SHELL_OBJECT_FOLDER = "") then
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
endif;
szTitle = "";
szMsg = "";
nResult = SdSelectFolder( szTitle, szMsg, SHELL_OBJECT_FOLDER );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
// //
// Function: DialogShowSdFinishReboot //
// //
// Purpose: This function will show the last dialog of the product. //
// It will allow the user to reboot and/or show some readme text. //
// //
///////////////////////////////////////////////////////////////////////////////
function DialogShowSdFinishReboot()
NUMBER nResult, nDefOptions;
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
begin
bLaunchBoincAtStartup = TRUE;
bSetAsDefaultScreensaver = TRUE;
szMsg1 = "";
szMsg2 = "";
szOption1 = "Run BOINC at Startup";
szOption2 = "Set BOINC as your default screensaver";
nResult = SdFinish( szTitle, szMsg1, szMsg2, szOption1, szOption2, bLaunchBoincAtStartup, bSetAsDefaultScreensaver );
return 0;
end;
// --- include script file section ---
#include "sddialog.rul"