InstallShield製作ASP安裝程式(5)
看人家用使用InstallShield製作ASP安裝程式(5)
(文件類別:) 2002-2-5
//////////////////////////////////////////////////////////////////////////////// // // IIIIIII SSSSSS // II SS InstallShield (R) // II SSSSSS (c) 1996-1999, 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. With minor // modifications, this template can be adapted to create // new, customized setups. // //////////////////////////////////////////////////////////////////////////////// // Include header files #include "ifx.h" //DO NOT REMOVE ////////////////////// string defines //////////////////////////// //////////////////// installation declarations /////////////////// // ----- DLL function prototypes ----- // your DLL function prototypes // ---- script function prototypes ----- // your script function prototypes // your global variables ////////////////////////////////////////////////////////////////////////////// // // FUNCTION: OnFirstUIBefore // // EVENT: FirstUIBefore event is sent when installation is run for the first // time on given machine. In the handler installation usually displays // UI allowing end user to specify installation parameters. After this // function returns, ComponentTransferData is called to perform file // transfer. // /////////////////////////////////////////////////////////////////////////////// function OnFirstUIBefore() NUMBER nResult,nSetupType; STRING szTitle, szMsg; STRING szLicenseFile, szQuestion; STRING svName, svCompany, svSerial; STRING szDir; STRING szfolder; STRING szComponents, szTargetdir; NUMBER nLevel; begin //To Do: if you want to enable background, window title, and caption bar title // SetTitle( @TITLE_MAIN, 24, WHITE ); // SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION ); // Enable( FULLWINDOWMODE ); // Enable( BACKGROUND ); // SetColor(BACKGROUND,RGB (0, 128, 128)); //預設值設定 TARGETDIR = "C:InetpubwwwrootWebApp"; szDir = TARGETDIR; SHELL_OBJECT_FOLDER = @FOLDER_NAME; svName = "Daniel"; svCompany = "N/A"; svSerial = "111-1111111"; Dlg_Start: // beginning of dialogs label Dlg_SdWelcome: szTitle = ""; szMsg = ""; nResult = SdWelcome( szTitle, szMsg ); if (nResult = BACK) goto Dlg_Start; Dlg_SdLicense: szLicenseFile = SUPPORTDIR ^ "license.txt"; szTitle = ""; szMsg = ""; szQuestion = ""; nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile ); if (nResult = BACK) goto Dlg_SdWelcome; Dlg_SdRegisterUserEx: szMsg = ""; szTitle = ""; nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial ); //驗證序列號 if (svSerial !="111-1111111") then MessageBox ("InValid Serial!",WARNING); goto Dlg_SdRegisterUserEx; endif; if (nResult = BACK) goto Dlg_SdLicense; Dlg_SdAskDestPath: szTitle = ""; szMsg = ""; nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 ); TARGETDIR = szDir; if (nResult = BACK) goto Dlg_SdRegisterUserEx; Dlg_SdComponentTree: if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath; szTitle = ""; szMsg = ""; szTargetdir = TARGETDIR; szComponents = ""; nLevel = 2; if (nSetupType = CUSTOM) then nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel); if (nResult = BACK) goto Dlg_SdAskDestPath; endif; Dlg_SdSelectFolder: szfolder = SHELL_OBJECT_FOLDER; szTitle = ""; szMsg = ""; nResult = SdSelectFolder( szTitle, szMsg, szfolder ); SHELL_OBJECT_FOLDER = szfolder; if (nResult = BACK) goto Dlg_SdComponentTree; // setup default status SetStatusWindow(0, ""); Enable(STATUSEX); StatusUpdate(ON, 100); return 0; end; |
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/631872/viewspace-823712/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- Installshield製作更新安裝包
- win10怎麼製作安裝u盤_win10安裝U盤製作教程Win10
- U盤如何製作win10安裝盤|win10安裝U盤製作方法Win10
- Debian安裝包的簡單製作
- DMG Canvas 4.0.7 DMG安裝包製作Canvas
- Mac 製作 win10 安裝盤MacWin10
- 隨身碟如何製作win10安裝盤|win10安裝隨身碟製作方法Win10
- oracle linux使用安裝盤製作本地yumOracleLinux
- Python 模組的製作,釋出,安裝Python
- 怎樣製作win10的iOS映象安裝U盤_製作win10 iso映象安裝U盤教程Win10iOS
- 使用CheckInstall從原始碼製作RPM安裝包原始碼
- Linux下使用makeself製作一鍵安裝包Linux
- 製作yum源及安裝賽門鐵克
- win10原版ISO映象如何製作安裝光碟_製作win10原版ISO映象安裝光碟圖文詳解Win10
- 怎樣製作win10的iOS映象安裝隨身碟_製作win10 iso映象安裝隨身碟教程Win10iOS
- win10系統製作mac10.11安裝u盤的方法_win10如何製作mac os x 10.11安裝u盤Win10Mac
- macOS Big Sur系統製作安裝啟動盤教程Mac
- linux/OSX中“DD”命令製作ISO映象作業系統安裝U盤Linux作業系統
- pyqt5+gdal製作s57轉geojson小程式QTJSON
- DataGraph for Mac安裝包 MacOS圖形圖表製作軟體Mac
- 如何製作uefi win10安裝盤啟動U盤Win10
- 如何製作win10啟動u盤安裝系統Win10
- 安卓.9圖片製作安卓
- 如何製作uefi win10安裝盤啟動隨身碟Win10
- Packaging.DebUOS 專門為 dotnet 應用製作 UOS 安裝包
- Asp.NetCore程式釋出到CentOs(含安裝部署netcore)–最佳實踐(二)ASP.NETNetCoreCentOS
- ShaderWeaver使用教程5-火焰製作
- H5製作跑馬燈H5
- windows10建立U盤安裝介質流程_win10 U盤安裝介質如何製作WindowsWin10
- 如何製作H5頁面?分享簡單實用H5頁面製作教程H5
- centos 8定製安裝CentOS
- 運維軟體PE工具箱下載附製作、安裝教程運維
- H5新手製作教程!手把手教你製作一個企業宣傳H5H5
- PE裝機工具-U深度製作
- InstallShield 打包後,啟動軟體
- H5製作技術總結H5
- 網站製作中常見的10個 HTML5 程式碼片段整理網站HTML
- windows10建立隨身碟安裝介質流程_win10 隨身碟安裝介質如何製作WindowsWin10
- 安卓製作日期選擇器Datepicker安卓