📄 setup.rul
字号:
// 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 = "C:\\mysql"; //PROGRAMFILES ^ @COMPANY_NAME ^ @PRODUCT_NAME; else svDir = "C:\\mysql"; //PROGRAMFILES ^ @COMPANY_NAME16 ^ @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: DialogShowSdShowInfoList //// //// Purpose: This function displays the general information list dialog. //// //// /////////////////////////////////////////////////////////////////////////////////function DialogShowSdShowInfoList() NUMBER nResult; LIST list; STRING szTitle, szMsg, szFile; begin szFile = SUPPORTDIR ^ "infolist.txt"; list = ListCreate( STRINGLIST ); ListReadFromFile( list, szFile ); szTitle = ""; szMsg = " "; nResult = SdShowInfoList( szTitle, szMsg, list ); ListDestroy( list ); return nResult; end;///////////////////////////////////////////////////////////////////////////////// //// Function: DialogShowSdAskDestPath //// //// Purpose: This function asks the user for the destination directory. //// /////////////////////////////////////////////////////////////////////////////////function DialogShowSdAskDestPath() NUMBER nResult; STRING szTitle, szMsg; begin szTitle = ""; szMsg = ""; nResult = SdAskDestPath( szTitle, szMsg, svDir, 0 ); TARGETDIR = svDir; return nResult; end;///////////////////////////////////////////////////////////////////////////////// //// Function: DialogShowSdSetupType //// //// Purpose: This function displays the standard setup type dialog. //// /////////////////////////////////////////////////////////////////////////////////function DialogShowSdSetupType() NUMBER nResult, nType; STRING szTitle, szMsg; begin switch (svSetupType) case "Typical": nType = TYPICAL; case "Custom": nType = CUSTOM; case "Compact": nType = COMPACT; case "": svSetupType = "Typical"; nType = TYPICAL; endswitch; szTitle = ""; szMsg = ""; nResult = SetupType( szTitle, szMsg, "", nType, 0 ); switch (nResult) case COMPACT: svSetupType = "Compact"; case TYPICAL: svSetupType = "Typical"; case CUSTOM: svSetupType = "Custom"; endswitch; return nResult; end;///////////////////////////////////////////////////////////////////////////////// //// Function: DialogShowSdComponentDialog2 //// //// Purpose: This function displays the custom component dialog. //// //// /////////////////////////////////////////////////////////////////////////////////function DialogShowSdComponentDialog2() NUMBER nResult; STRING szTitle, szMsg; begin if ((svSetupType != "Custom") && (svSetupType != "")) then return 0; endif; szTitle = ""; szMsg = ""; nResult = SdComponentDialog2( szTitle, szMsg, svDir, "" ); 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; NUMBER bOpt1, bOpt2; begin if (!BATCH_INSTALL) then bOpt1 = FALSE; bOpt2 = FALSE; szMsg1 = ""; szMsg2 = ""; szOption1 = ""; szOption2 = ""; nResult = SdFinish( szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2 ); return 0; endif; nDefOptions = SYS_BOOTMACHINE; szTitle = ""; szMsg1 = ""; szMsg2 = ""; nResult = SdFinishReboot( szTitle, szMsg1, nDefOptions, szMsg2, 0 ); return nResult; end; // --- include script file section ---#include "sddialog.rul"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -