InstallShield製作ASP安裝程式(6)
看人家用使用InstallShield製作ASP安裝程式(6)
(文件類別:) 2002-2-5
////////////////////////////////////////////////////////////////////////////// // // FUNCTION: OnFirstUIAfter // // EVENT: FirstUIAfter event is sent after file transfer, when installation // is run for the first time on given machine. In this event handler // installation usually displays UI that will inform end user that // installation has been completed successfully. // /////////////////////////////////////////////////////////////////////////////// function OnFirstUIAfter() STRING szTitle, szMsg1, szMsg2, szOption1, szOption2,szCmdLine; NUMBER bOpt1, bOpt2; begin szCmdLine = TARGETDIR ^"mkwebdir.vbs "+"-c localhost -w 1 -v WebApp," + TARGETDIR ; if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then MessageBox ("不能建立WEB 虛擬目錄.",SEVERE); endif; Disable(STATUSEX); bOpt1 = FALSE; bOpt2 = FALSE; szMsg1 = SdLoadString(IFX_SDFINISH_MSG1); szMsg2 = ""; szOption1 = ""; szOption2 = ""; szTitle = ""; SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2); return 0; end; ////////////////////////////////////////////////////////////////////////////// // // FUNCTION: OnMaintUIBefore // // EVENT: MaintUIBefore event is sent when end user runs installation that // has already been installed on the machine. Usually this happens // through Add/Remove Programs applet. In the handler installation // usually displays UI allowing end user to modify existing installation // or uninstall application. After this function returns, // ComponentTransferData is called to perform file transfer. // /////////////////////////////////////////////////////////////////////////////// function OnMaintUIBefore() NUMBER nResult,nLevel,nType; STRING szTitle,szMsg,svDir,szComponents,svResult,szCaption; 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 ); // SetColor(BACKGROUND,RGB (0, 128, 128)); // Enable( FULLWINDOWMODE ); // Enable( BACKGROUND ); nType = MODIFY; Dlg_Start: Disable(BACKBUTTON); nResult = SdWelcomeMaint(szTitle, szMsg, nType); Enable(BACKBUTTON); Dlg_SdComponentTree: if (nResult = MODIFY) then szTitle = ""; szMsg = ""; svDir = TARGETDIR; szComponents = ""; nLevel = 2; nResult = SdComponentTree(szTitle, szMsg, svDir, szComponents, nLevel); if (nResult = BACK) goto Dlg_Start; // setup default status SetStatusWindow(0, ""); Enable(STATUSEX); StatusUpdate(ON, 100); elseif (nResult = REMOVEALL) then svResult = SdLoadString(IFX_MAINTUI_MSG); szCaption = SdLoadString(IFX_ONMAINTUI_CAPTION); nResult = SprintfBox(MB_OKCANCEL,szCaption,"%s",svResult); if (nResult = IDCANCEL) then goto Dlg_Start; elseif(nResult = IDOK) then // setup default status SetStatusWindow(0, ""); Enable(STATUSEX); StatusUpdate(ON, 100); //-->Remove all components ComponentRemoveAll(); endif; elseif (nResult = REPAIR) then // setup default status SetStatusWindow(0, ""); Enable(STATUSEX); StatusUpdate(ON, 100); //-->Reinstall Logged Components ComponentReinstall(); endif; end; /////////////////////////////////////////////////////////////////////////////// // // FUNCTION: OnMaintUIAfter // // EVENT: MaintUIAfter event is sent after file transfer, when end user runs // installation that has already been installed on the machine. Usually // this happens through Add/Remove Programs applet. // In the handler installation usually displays UI that will inform // end user that maintenance/uninstallation has been completed successfully. // /////////////////////////////////////////////////////////////////////////////// function OnMaintUIAfter() STRING szTitle, szMsg1, szMsg2, szOption1, szOption2; NUMBER bOpt1, bOpt2; begin Disable(STATUSEX); bOpt1 = FALSE; bOpt2 = FALSE; szMsg1 = SdLoadString(IFX_SDFINISH_MAINT_MSG1); szMsg2 = ""; szOption1 = ""; szOption2 = ""; szTitle = SdLoadString(IFX_SDFINISH_MAINT_TITLE); SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2); return 0; end; /////////////////////////////////////////////////////////////////////////////// // // FUNCTION: OnMoving // // EVENT: Moving event is sent when file transfer is started as a result of // ComponentTransferData call, before any file transfer operations // are performed. // /////////////////////////////////////////////////////////////////////////////// function OnMoving() STRING szAppPath; begin // Set LOGO Compliance Application Path // TO DO : if your application .exe is in a subfolder of TARGETDIR then add subfolder szAppPath = TARGETDIR; RegDBSetItem(REGDB_APPPATH, szAppPath); RegDBSetItem(REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY); end; // --- include script file section --- |
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/631872/viewspace-823713/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- InstallShield製作ASP安裝程式(5)
- InstallShield製作ASP安裝程式(4)
- InstallShield製作ASP安裝程式(3)
- InstallShield製作ASP安裝程式(2)
- InstallShield製作ASP安裝程式(1)
- InstallShield X製作安裝程式
- InstallShield製作升級安裝包
- InstallShield Express for delphi製作安裝程式定製BDE引擎 (轉)Express
- 製作asp.net的安裝程式ASP.NET
- Installshield製作更新安裝包
- InstallShield6.3安裝檔案製作要點 (轉)
- 教你如何製作程式安裝包
- InstallShield中如何製作靜默安裝包-IntallScript或InstallScript MSI工程型別型別
- 自己編寫安裝製作程式 (轉)
- java 應用程式 安裝程式製作(要帶jvm)JavaJVM
- 使用NSIS製作安裝包
- Redhat kickstart 安裝光碟製作Redhat
- RedHat DVD安裝盤製作Redhat
- 升級安裝包的製作
- win10怎麼製作安裝u盤_win10安裝U盤製作教程Win10
- U盤如何製作win10安裝盤|win10安裝U盤製作方法Win10
- DMG Canvas 4.0.7 DMG安裝包製作Canvas
- Mac OS製作Ubuntu安裝U盤MacUbuntu
- 製作iPhone PXL安裝包的方法iPhone
- Mac 製作 win10 安裝盤MacWin10
- 隨身碟如何製作win10安裝盤|win10安裝隨身碟製作方法Win10
- 製作yum源及安裝賽門鐵克
- Debian安裝包的簡單製作
- 7z製作自解壓安裝包
- 本地yum庫製作及本地安裝DockerDocker
- Python 模組的製作,釋出,安裝Python
- 《ASP網頁製作教程》筆記網頁筆記
- 怎樣製作win10的iOS映象安裝U盤_製作win10 iso映象安裝U盤教程Win10iOS
- 如何製作python安裝模組(setup.py)Python
- VS2010 製作安裝包
- 系統安裝引導盤的製作(轉)
- Windows CE/Pocket PC安裝盤的製作 (轉)Windows
- linux製作安裝包的兩種方法Linux