Inno setup B_S程序打包脚本,包括创建WEB站点.docVIP

Inno setup B_S程序打包脚本,包括创建WEB站点 Inno setup B/S程序打包脚本，包括创建WEB站点 ; 脚本由 Inno Setup 脚本向导 生成！ ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！ [Setup] AppName=发票打印 AppVerName=发票打印 1.5 AppPublisher=公司 AppPublisherURL=网址 AppSupportURL=网址 AppUpdatesURL=网址 DefaultDirName={pf}\wwwroot ; DisableDirPage=yes DefaultGroupName=发票打印 AllowNoIcons=yes OutputDir=C:\Documents and Settings\Administrator\桌面 OutputBaseFilename=发票打印程序 Compression=lzma SolidCompression=yes [Code] const IISServerName = localhost; IISServerNumber = 678; var selectIisSqlPage: TInputOptionWizardPage; inputPortPage : TInputQueryWizardPage; //createIISPage : TOutputMsgWizardPage; procedure iisButtonOnClick(Sender: TObject); begin //MsgBox(This demo shows some features of the WizardForm object and the various VCL classes., mbInformation, mb_Ok); if MsgBox(系统将要在IIS上面创建WEB站点,要继续吗?, mbInformation, mb_YesNo) = idNo then Exit; //MsgBox(WizardDirValue, mbInformation, mb_Ok); end; procedure sqlButtonOnClick(Sender: TObject); begin MsgBox(This demo shows some features of the WizardForm object and the various VCL classes., mbInformation, mb_Ok); end; procedure InitializeWizard; //var //iisButton,sqlButton:TButton; begin { 创建安装IIS及数据库页面 } selectIisSqlPage := CreateInputOptionPage(wpInstalling, 执行安装后任务, 是否在此创建站点?, 您可以在程序安装完成后手动创建站点,但是推荐在此创建,否则请点击下一步, False, False); selectIisSqlPage.Add(创建WEB站点); inputPortPage := CreateInputQueryPage(selectIisSqlPage.ID, 创建WEB站点, 请录入创建WEB站点端口, 请录入创建WEB站点端口,IP地址默认为localhost，请确认端口未被占用,点击下一步继续); inputPortPage.Add(iisport:, False); inputPortPage.Values[0] := 8888; end; function NextButtonClick(CurPageID: Integer): Boolean; var //I: Integer; IIS, WebSite, WebServer, WebRoot: Variant; randNum,ErrorCode: Integer; begin { 当选择创建站点时执行动作 } if CurPageID = inputPortPage.ID then begin if selectIisSqlPage.SelectedValueIndex = 0 then begin //MsgBox(inputPortPage.Values[0], mbError, MB_OK); //MsgBox(WizardDirValue, mbError, MB_OK); {开始创建IIS站点} try