inno setup net vc 环境检测 apahce php jdk mssql server 打包成安装包

最新推荐文章于 2024-06-11 18:07:16 发布
最新推荐文章于 2024-06-11 18:07:16 发布
阅读量795 收藏 3
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/tjjingpan/article/details/104657360
版权

 将sqlserver安装配置文件打包到setup.exe中

OutPut中所需要的文件及文件夹

 

inno setup脚本文件需要用到的文件

所有到到脚本文件

autoInstallapache.bat

@echo off
cd ..
set apacheroot=%~dp0%apache
echo %apacheroot%
cd %apacheroot% 
bin\httpd -k install
bin\httpd -k start

autoInstalljdk.bat

@echo off
cd ..
set jdkpath=%~dp0%javasdk
echo %jdkpath%
wmic ENVIRONMENT where "name='JAVA_HOME'" delete
wmic ENVIRONMENT create name="JAVA_HOME",username="<system>",VariableValue="%jdkpath%"
wmic ENVIRONMENT where "name='PATH' and username='<system>'" set VariableValue="%PATH%;%%JAVA_HOME%%\bin;%%JAVA_HOME%%\jre\bin;"

autoUnInstallapache.bat

 

@echo off
cd ..
set apacheroot=%~dp0%apache
echo %apacheroot%
cd %apacheroot% 
bin\httpd -k stop
bin\httpd -k uninstall

 

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!


#define MyAppName "平台"
#define MyAppVersion "1.0"
#define MyAppPublisher "责任公司"
#define MyAppURL "http://www.aaa.com"

[Languages]
Name: "chs"; MessagesFile: "compiler:Languages\ChineseSimplified.isl"

[Setup]
; NOTE: The value of AppId uniquely identifies this application. Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{60A75221-BCC5-447F-B69D-F12EFD3DCAA3}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={autopf}\myprograme
DefaultGroupName={#MyAppName}
; Uncomment the following line to run in non administrative install mode (install for current user only.)
;PrivilegesRequired=lowest
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
WizardStyle=modern
ArchitecturesAllowed=x64
ArchitecturesInstallIn64BitMode=x64
LicenseFile=LICENSE.txt
AlwaysRestart=yes


[Files]
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
Source: "{src}\apache\*"; DestDir: "{app}\apache";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\php\*"; DestDir: "{app}\php";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\javasdk\*"; DestDir: "{app}\javasdk";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\msodbcsql.msi"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\vc_redist.x64.exe"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\autoInstallapache.bat"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\autoInstalljdk.bat"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\autoUnInstallapache.bat"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "{src}\www\*"; DestDir: "{app}\www";Flags: external igNoreversion recursesubdirs createallsubdirs
Source: "ConfigurationFile_simple.ini";Flags: dontcopy noencryption
Source: "{src}\sqlserverdata\*"; DestDir: "{app}";Flags: external igNoreversion recursesubdirs createallsubdirs


[Run]
Filename: "{src}\sqlserver_2012_xpr_x64_sp1\SETUP.EXE"; Parameters: "/ConfigurationFile={tmp}\ConfigurationFile_simple.ini"; Description: "sqlserver";Flags: waituntilterminated
Filename: "{app}\msodbcsql.msi"; Parameters: "/qb IACCEPTMSODBCSQLLICENSETERMS=YES"; Description: "msodbcsql"; Flags:shellexec waituntilterminated

;设置java环境变量
Filename: "{app}\autoInstalljdk.bat";Flags: runascurrentuser waituntilterminated    


[Code]
var
CheckNetEvnPageID:Integer;//CheckNetEvnPage的PageID
//CheckNetEvnPageBtnInstall:Tbutton;//安装net46按钮
CheckNetEvnPageDotNetLbl:TLabel; //显示DotNet是否安装标签
CheckNetEvnPageVC14x64NetLbl:TLabel; //显示DotNet是否安装标签
InstalledShowInfoPageID:Integer;

//*****************************************************************************************************
//net环境检察函数
function IsDotNetDetected(version: string; service: cardinal): boolean;
// Indicates whether the specified version and service pack of the .NET Framework is installed.
//
// version -- Specify one of these strings for the required .NET Framework version:
//    'v1.1'          .NET Framework 1.1
//    'v2.0'          .NET Framework 2.0
//    'v3.0'          .NET Framework 3.0
//    'v3.5'          .NET Framework 3.5
//    'v4\Client'     .NET Framework 4.0 Client Profile
//    'v4\Full'       .NET Framework 4.0 Full Installation
//    'v4.5'          .NET Framework 4.5
//    'v4.5.1'        .NET Framework 4.5.1
//    'v4.5.2'        .NET Framework 4.5.2
//    'v4.6'          .NET Framework 4.6
//    'v4.6.1'        .NET Framework 4.6.1
//    'v4.6.2'        .NET Framework 4.6.2
//
// service -- Specify any non-negative integer for the required service pack level:
//    0               No service packs required
//    1, 2, etc.      Service pack 1, 2, etc. required
var
    key, versionKey: string;
    install, release, serviceCount, versionRelease: cardinal;
    success: boolean;
begin
    versionKey := version;
    versionRelease := 0;

    // .NET 1.1 and 2.0 embed release number in version key
    if version = 'v1.1' then begin
        versionKey := 'v1.1.4322';
    end else if version = 'v2.0' then begin
        versionKey := 'v2.0.50727';
    end

    // .NET 4.5 and newer install as update to .NET 4.0 Full
    else if Pos('v4.', version) = 1 then begin
        versionKey := 'v4\Full';
        case version of
          'v4.5':   versionRelease := 378389;
          'v4.5.1': versionRelease := 378675; // 378758 on Windows 8 and older
          'v4.5.2': versionRelease := 379893;
          'v4.6':   versionRelease := 393295; // 393297 on Windows 8.1 and older
          'v4.6.1': versionRelease := 394254; // 394271 on Windows 8.1 and older
          'v4.6.2': versionRelease := 394802; // 394806 on Windows 8.1 and older
        end;
    end;

    // installation key group for all .NET versions
    key := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\' + versionKey;

    // .NET 3.0 uses value InstallSuccess in subkey Setup
    if Pos('v3.0', version) = 1 then begin
        success := RegQueryDWordValue(HKLM, key + '\Setup', 'InstallSuccess', install);
    end else begin
        success := RegQueryDWordValue(HKLM, key, 'Install', install);
    end;

    // .NET 4.0 and newer use value Servicing instead of SP
    if Pos('v4', version) = 1 then begin
        success := success and RegQueryDWordValue(HKLM, key, 'Servicing', serviceCount);
    end else begin
        success := success and RegQueryDWordValue(HKLM, key, 'SP', serviceCount);
    end;

    // .NET 4.5 and newer use additional value Release
    if versionRelease > 0 then begin
        success := success and RegQueryDWordValue(HKLM, key, 'Release', release);
        success := success and (release >= versionRelease);
    end;

    result := success and (install = 1) and (serviceCount >= service);
end;
//*****************************************************************************************************

//*****检测vc环境方法**************
function IsVc14x64Detected():boolean;
var
str,CurVer:string;
begin
          RegQueryStringValue(HKLM, 'SOFTWARE\WOW6432Node\Microsoft\VisualStudio\14.0\VC\Runtimes\x64', 'Version', CurVer);
          str := Copy(CurVer,2,2);
          log(str);
          if str = '14' then
              begin
                  Result := true;
              end 
              else begin
                  Result := false;
              end;  
end;
//*****检测vc环境方法**************



//****************安装VC14X64方法***********************************************
procedure InstallVc14X64;
var srcpath:string;
ResultCode:Integer;
begin
      //同安装setup同目录下的文件{src}
       srcpath :=  ExpandConstant('{src}\vc_redist.x64.exe');
       Exec(srcpath, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
end;
//****************安装VC14X64方法***********************************************



procedure CheckNetEvnPageBtnVcInstallOnClick(Sender:TObject);
var
vc46installpackpath:string;
begin
vc46installpackpath:=ExpandConstant('{src}\vc_redist.x64.exe');
    if NOT  IsVc14x64Detected then begin
                if FileExists(vc46installpackpath) then begin
                     //MsgBox('文件存在', mbInformation, MB_OK);
                     InstallVc14X64;//调用安装InstallVc14X64方法。 
                end else   MsgBox(vc46installpackpath +'文件不存在。', mbInformation, MB_OK);
    end else
            MsgBox('系统已安装VC14X64环境,不需要安装', mbInformation, MB_OK);
end;




//**安装DotNet46方法************************
procedure InstallDotNet46;
var
srcpath:string;
ResultCode:Integer;
begin
       //同安装setup同目录下的文件{src}
       srcpath :=  ExpandConstant('{src}\NDP46-KB3045557-x86-x64-AllOS-ENU.exe');
       Exec(srcpath, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
       log(srcpath);
end;
//**安装DotNet46方法************************


//**************
procedure CheckNetEvnPageBtnInstallOnclick(Sender:TObject);
begin
      if NOT  IsDotNetDetected('v4.6',0)  then begin
            MsgBox('没有安装net46环境', mbInformation, MB_OK);

      end else
            MsgBox('系统已安装net46环境', mbInformation, MB_OK);
end;

//***************************************************************************************

procedure InstallDotNet46ButtonOnClick(Sender:TObject);
var
net46installpackpath:string;
begin
net46installpackpath :=  ExpandConstant('{src}\NDP46-KB3045557-x86-x64-AllOS-ENU.exe');
    if NOT  IsDotNetDetected('v4.6',0) then begin
                if FileExists(net46installpackpath) then begin
                     //MsgBox('文件存在', mbInformation, MB_OK);
                     InstallDotNet46;//调用安装DotNet46方法。 
                end else   MsgBox(net46installpackpath +'文件不存在。', mbInformation, MB_OK);
    end else
            MsgBox('系统已安装net46环境,不需要安装', mbInformation, MB_OK);
end;


procedure CheckNetEvnPageBtnVcCheckOnClick(Sender:TObject);
begin
    if NOT   IsVc14x64Detected     then begin
                MsgBox('vc14x64没有安装', mbInformation, MB_OK);
    end else
                MsgBox('vc14x64已安装', mbInformation, MB_OK);
end;

//*******************AboutButtonOnClick****************************************
procedure AboutButtonOnClick(Sender: TObject);
begin
  MsgBox('华远智能信息发布系统V1.0。', mbInformation, mb_Ok);
end;
//*******************AboutButtonOnClick****************************************


//*********创建自定义向导页面**************************************************
procedure CreateTheWizardPages;
var
CheckNetEvnPage:TwizardPage;//net环境检测页面
CheckNetEvnPageBtn:Tbutton;//检查按钮
CheckNetEvnPageBtnInstall:Tbutton;//安装net46按钮

CheckNetEvnPageBtnVcInstall:Tbutton;//安装vc环境按钮

InstalledShowInfoPage:TwizardPage;
InstalledShowInfoPageLbl1:Tlabel;//请使用谷歌浏览器登录
InstalledShowInfoPageLbl2:Tlabel;//http://localhost:18080
InstalledShowInfoPageLbl3:Tlabel;//用户名:admin,密码:admin
InstalledShowInfoPageLbl4:Tlabel;
InstalledShowInfoPageLbl5:Tlabel;
InstalledShowInfoPageLbl6:Tlabel;



CheckNetEvnPageBtnVcCheck:Tbutton;
begin
  {net环境检查}
  CheckNetEvnPage:=CreateCustomPage(wpLicense, '环境检查', '安装环境是必须的。');
  CheckNetEvnPageID:=CheckNetEvnPage.ID;


  CheckNetEvnPageDotNetLbl:=TLabel.Create(CheckNetEvnPage);
  CheckNetEvnPageDotNetLbl.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageDotNetLbl.Caption:='dotnet46';

  CheckNetEvnPageBtn:=TButton.Create(CheckNetEvnPage);
  CheckNetEvnPageBtn.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageBtn.Caption:='检测net环境';
  CheckNetEvnPageBtn.Onclick:=@CheckNetEvnPageBtnInstallOnclick;
  CheckNetEvnPageBtn.Top:= CheckNetEvnPageDotNetLbl.Top;
  CheckNetEvnPageBtn.Left:= CheckNetEvnPageDotNetLbl.Left + 200;



  CheckNetEvnPageBtnInstall:=TButton.Create(CheckNetEvnPage);
  CheckNetEvnPageBtnInstall.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageBtnInstall.Caption:='安装net环境';
  CheckNetEvnPageBtnInstall.Onclick:=@InstallDotNet46ButtonOnClick;
  CheckNetEvnPageBtnInstall.Top:= CheckNetEvnPageBtn.Top;
  CheckNetEvnPageBtnInstall.Left:= CheckNetEvnPageBtn.Left + 200;


  CheckNetEvnPageVC14x64NetLbl:=TLabel.Create(CheckNetEvnPage);
  CheckNetEvnPageVC14x64NetLbl.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageVC14x64NetLbl.Caption:='VC16X64';
  CheckNetEvnPageVC14x64NetLbl.Top:= CheckNetEvnPageDotNetLbl.Top + 40;

  
  CheckNetEvnPageBtnVcCheck:=TButton.Create(CheckNetEvnPage);
  CheckNetEvnPageBtnVcCheck.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageBtnVcCheck.Caption:='检测vc环境';
  CheckNetEvnPageBtnVcCheck.Onclick:=@CheckNetEvnPageBtnVcCheckOnClick;
  CheckNetEvnPageBtnVcCheck.Top:= CheckNetEvnPageBtn.Top + 40;
  CheckNetEvnPageBtnVcCheck.Left:= CheckNetEvnPageBtn.Left 

  CheckNetEvnPageBtnVcInstall:=TButton.Create(CheckNetEvnPage);
  CheckNetEvnPageBtnVcInstall.Parent:=CheckNetEvnPage.Surface;
  CheckNetEvnPageBtnVcInstall.Caption:='安装vc环境';
  CheckNetEvnPageBtnVcInstall.Onclick:=@CheckNetEvnPageBtnVcInstallOnClick;
  CheckNetEvnPageBtnVcInstall.Top:= CheckNetEvnPageBtn.Top + 40;
  CheckNetEvnPageBtnVcInstall.Left:= CheckNetEvnPageBtn.Left + 200 

  
  {安装完显示信息}
  InstalledShowInfoPage:=CreateCustomPage(wpInstalling, '安装完成', '已安装成功,请详细阅读操作手册。');
  //InstalledShowInfoPage:=CreateCustomPage(CheckNetEvnPageID, '安装完成', '已安装成功,请详细阅读操作手册。');
  InstalledShowInfoPageID:=InstalledShowInfoPage.ID;
  InstalledShowInfoPageLbl1:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl1.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl1.Caption:='请使用谷歌浏览器登录';

  InstalledShowInfoPageLbl2:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl2.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl2.Caption:='http://localhost:18080';
  InstalledShowInfoPageLbl2.Top:=InstalledShowInfoPageLbl1.Top;
  InstalledShowInfoPageLbl2.Left:=InstalledShowInfoPageLbl1.Left + 200;
  InstalledShowInfoPageLbl2.Font.Color:=clBlue;
  InstalledShowInfoPageLbl2.Font.Style:=[fsUnderline];


  InstalledShowInfoPageLbl3:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl3.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl3.Caption:='用户名:admin,密码:admin';
  InstalledShowInfoPageLbl3.Top:=InstalledShowInfoPageLbl1.Top  + 20;
  InstalledShowInfoPageLbl3.Left:=InstalledShowInfoPageLbl1.Left + 200;


  InstalledShowInfoPageLbl4:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl4.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl4.Caption:='请详细阅读:';
  InstalledShowInfoPageLbl4.Top:=InstalledShowInfoPageLbl1.Top  + 60;
  InstalledShowInfoPageLbl4.Left:=InstalledShowInfoPageLbl1.Left;

  
  InstalledShowInfoPageLbl5:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl5.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl5.Caption:='华远智能信息发布系统操作手册.pdf';
  InstalledShowInfoPageLbl5.Top:=InstalledShowInfoPageLbl4.Top;
  InstalledShowInfoPageLbl5.Left:=InstalledShowInfoPageLbl1.Left + 200;
  InstalledShowInfoPageLbl5.Font.Color:=clBlue;
  InstalledShowInfoPageLbl5.Font.Style:=[fsUnderline];




  
  InstalledShowInfoPageLbl6:=TLabel.Create(InstalledShowInfoPage);
  InstalledShowInfoPageLbl6.Parent:=InstalledShowInfoPage.Surface;
  InstalledShowInfoPageLbl6.Caption:='请记住这些关键信息，以后会经常用到。';
  InstalledShowInfoPageLbl6.Top:=InstalledShowInfoPageLbl5.Top + 60;
  InstalledShowInfoPageLbl6.Font.Color:=clRed;


   
end;
//************创建自定义向导页面结束*********************************************** 




//*********点击URLLabel事件****************************************************
procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExecAsOriginalUser('open', 'http://www.hysy-it.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
//*********点击URLLabel事件****************************************************

procedure CreateAboutButtonAndURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
var
  AboutButton: TNewButton;
  URLLabel: TNewStaticText;
begin
  AboutButton := TNewButton.Create(ParentForm);
  AboutButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
  AboutButton.Top := CancelButton.Top;
  AboutButton.Width := CancelButton.Width;
  AboutButton.Height := CancelButton.Height;
  AboutButton.Anchors := [akLeft, akBottom];
  AboutButton.Caption := '&关于...';
  AboutButton.OnClick := @AboutButtonOnClick;
  AboutButton.Parent := ParentForm;

  URLLabel := TNewStaticText.Create(ParentForm);
  URLLabel.Caption := 'www.hysy-it.com';
  URLLabel.Cursor := crHand;
  URLLabel.OnClick := @URLLabelOnClick;
  URLLabel.Parent := ParentForm;
  { Alter Font *after* setting Parent so the correct defaults are inherited first }
  URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
  URLLabel.Font.Color := clHotLight
  URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
  URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
  URLLabel.Anchors := [akLeft, akBottom];
end;
//**************************CreateAboutButtonAndURLLabel*******************

//***************************************************************************************
procedure InitializeWizard();
begin
   WizardForm.LICENSEACCEPTEDRADIO.Checked:=true;
   CreateTheWizardPages;
   CreateAboutButtonAndURLLabel(WizardForm, WizardForm.CancelButton);
end;
//***************************************************************************************


procedure InitializeUninstallProgressForm();
begin
  CreateAboutButtonAndURLLabel(UninstallProgressForm, UninstallProgressForm.CancelButton);
end;



//*****************************************************************************************
function NextButtonClick(CurPageID:Integer): Boolean;
begin
  if CurpageId=CheckNetEvnPageID then
    begin
           if not IsDotNetDetected('v4.6', 0) then begin
            MsgBox('系统没有net46环境，请安装net46环境。', mbInformation, MB_OK);
            end else
                  if not IsVc14x64Detected then begin
                          MsgBox('系统没有vc14x64环境，请安装vc14x64环境。', mbInformation, MB_OK);

                  end else
                      result:=true;
    end else
    result:=true;
end;
//*********************************************************************************************

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      begin
        //MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall is about to start.', mbInformation, MB_OK)
        // ...insert code to perform pre-uninstall tasks here...
      end;
    usPostUninstall:
      begin
        //MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);
        // ...insert code to perform post-uninstall tasks here...
      end;
  end;
end;


//**********************************************************
//文件内容替换方法
//    SrcFIle:文件路径   
//    sFrom:源字符
//    STo: 填的的字符
procedure FileReplace(SrcFile, sFrom, sTo: String);
var
    UnicodeStr:String;
    FileContent: AnsiString;
begin
    //Load srcfile to a string
    LoadStringFromFile(SrcFile, FileContent);
    //Replace Fraomstring by toString in file string content
    //StringChange (sTo,'/', '\');
    UnicodeStr :=String(FileContent);
    StringChangeEx (UnicodeStr, sFrom, sTo,True);
    //Replace old content srcfile by the new content
    DeleteFile(SrcFile);
    SaveStringToFile(SrcFile,UnicodeStr, True);
end;
//**********************************************************



//************************************************************
procedure CurStepChanged(CurStep: TSetupStep);
var
fileName:String;
SRVROOTPATH:String;//apahce 工作目录
WWWPATH:String; //网站目录
PHPPATH:String; //http-php.conf
PHPINIPATH:String;//php.ini 的扩展目录
ErrorCode: Integer;


begin
  SRVROOTPATH :=ExpandConstant('{app}\apache');
  WWWPATH :=ExpandConstant('{app}\www');
  PHPPATH:=ExpandConstant('{app}');
  PHPINIPATH:=ExpandConstant('{app}\php\ext');
  //SqlserverIni:=ExpandConstant('{app}\sqlserverdata');

  //复制完文件后执行
  if CurStep=ssPostInstall then
  begin
     filename := ExpandConstant('{app}\apache\conf\httpd.conf');
     FileReplace(filename, '@@SRVROOT@@',SRVROOTPATH);

     filename := ExpandConstant('{app}\apache\conf\httpd.conf');
     FileReplace(filename, '@@www@@',WWWPATH);

     filename := ExpandConstant('{app}\apache\conf\extra\httpd-php.conf');
     FileReplace(filename, '@@php@@',PHPPATH);

     filename := ExpandConstant('{app}\php\php.ini');
     FileReplace(filename, '@@extensiondir@@',PHPINIPATH);

  end;

  if CurStep=ssDone   then
  begin
      ShellExecAsOriginalUser('open', 'http://localhost:18080', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  end;

end;
//****************************************************************


//主要是程序调用“下一步”，然后在ShouldSkipPage函数中进行跳过。
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpReady then
  result := true;
end;

function InitializeSetup: Boolean;
begin
  // Show the contents of Readme.txt (non Unicode) in a message box

  ExtractTemporaryFile('ConfigurationFile_simple.ini');
  //log(ExpandConstant('{tmp}\ConfigurationFile_simple.ini'));
  Result := True;
end;


procedure CurPageChanged(CurPageID: Integer);
var 
SQLSERVERDATAPATH:string;
SqlInifilename:string;
ResultCode:Integer;


begin
  if CurPageID=wpInstalling then begin
        //修改SQLSERVER实例安装路径
      SQLSERVERDATAPATH:=ExpandConstant('{app}\sqlserverdata'); 
      SqlInifilename := ExpandConstant('{tmp}\ConfigurationFile_simple.ini');
      FileReplace(SqlInifilename, '@@INSTANCEDIR@@',SQLSERVERDATAPATH);
  end;

  if CurPageID=InstalledShowInfoPageID then begin
      Exec(ExpandConstant('{app}\autoInstallapache.bat'),'','',SW_SHOW,ewWaitUntilTerminated,ResultCode);//重启apache脚本
  end;    
end;

 

tjjingpan
关注
Inno Setup 检测已安装的.NET Framework 版本
weixin_30429201的博客
08-22 829
翻译自：http://kynosarges.org/DotNetVersion.html 由Jordan Russell 写的Inno Setup是一个伟大的安装脚本程序，但缺乏一个内置的函数来确定安装在目标机器上的.NET Framework版本。幸运的是，它很容易使用Pascal脚本语言来实现这样的功能。 脚本 在下面的 Inno Setup的 脚本代码块，函数IsDotNe...
innosetup打包附带sql2000/framework
11-19
inno setup打包中附带有sql/framework打包 程序卸载等。
inno setup检测并静默安装vcredist_x86和vcredist_x64的打包源码及源文件
03-03
inno setup检测并静默安装vcredist_x86和vcredist_x64的打包源码及源文件！ 我使用的inno setup 5.5.9
Inno Setup 检查安装VS2005运行环境
TragicGuy的专栏
09-23 4148
Inno Setup可以在程序安装时，通过检查注册表判断出VS2005运行环境是否已经安装[其他版本类似]，如果没有安装，则将其安装。 #define MySourceDir "E:\MyAppSourceRoot" [Files] ; VC Redistribute Source: "{#MySourceDir}\vc2005redist\vcredist_x86.exe"; Des
inno setup 检测.net环境
木頭子
05-15 1658
inno setup 检查当前 .NET Framework 环境并安装 大约分为两种方式 安装过程中连接官网下载地址 下载到本地 进行安装（看网络带宽 微软官网国内有时不灵） 将脱机安装文件和安装包打包在一起 安装时直接读取本地文件进行安装（安装包文件会很大 毕竟.net环境也在里面） 参考网址 1. 微软官网：.NET Framework 部署指南（针对开发人员） 2. 官网inno setup 打包教程： Installing .NET Framework 4.5 automatically
inno setup打包多个exe、msi 自动检测.net framework并安装
weixin_43848954的博客
11-14 2344
新建一个空白脚本 #define MyAppName "传奇霸业" #define MyAppVersion "1.8.8.8" #define MyAppPublisher "霸业科技" #define MyAppURL "https://www.baye.com/" #define MyAppExeName "BY.exe" [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (若要生成新的 GUID，可在菜单.
InnoSetup判断是否需要安装vc_redist.x64
最新发布
ZaiLuShang2121的博客
06-11 247
【代码】InnoSetup判断是否需要安装vc_redist.x64。
inno setup制作安装包时添加系统和用户环境变量（Path路径）
12-07
主要功能是使用inno setup制作安装包时，在安装完成之后实现将指定路径添加到用户和系统环境变量的Path中。下载文件后，请参考文件头部的说明进行操作。如有问题，请联系我：wb__sz@163.com。感谢原版作者Jared ...
inno setup仿大厂安装包，脚本和安装包都可运行
03-11
这个“inno setup仿大厂安装包”是一个示例，展示了如何使用Inno Setup创建类似大厂级别的专业安装包。 Inno Setup的主要特点包括： 1. **定制化安装过程**：通过编写脚本（.iss文件），你可以定义安装程序的外观...
Inno setup5.5 web环境集成打包
08-16
使用Inno Setup5.5的集成打包 其中包括JDK1.8（配置环境变量） Tomcat8 Mysql5.7 Navicat12及注册机
【innoSetup反向打包】innoextract
04-21
Inno Setup是一个为Microsoft Windows应用程序创建安装程序的工具。innoextract允许在非Windows系统下提取此类安装程序，而无需使用wine运行实际的安装程序。innoextract 目前支持由 Inno Setup 1.2.10 到 6.2.1 ...
inno setup改变环境变量脚本
09-01
inno setup改变环境变量脚本 在安装过程中自动添加环境变量，卸载时自动删除添加的环境变量
我想用inno setup检测用户电脑是否安装了.net framework
程序猿
04-09 2098
我想用inno setup检测用户电脑是否安装了.net framework，如何通过.net framework的注册表信息来判别，但是它的信息写在了这个HKEY_LOCAL_MACHINE目录下，而访问这个HKEY_LOCAL_MACHINE需要管理员的权限才行。我本机测试（我的操作系统是xp，32位），不管是admin还是user，都可以访问得到里面的信息。我发送到64位的的win7系统的电
Inno Setup 判断.NET是否安装
tcmtang的博客
11-19 2574
Inno Setup 判断.NET是否安装，如未安装则提示下载安装，且不继续执行安装步骤： [Code] function IsDotNetDetected(version: string; service: cardinal): boolean; // Indicates whether the specified version and service pack of the .NET Fram
InnoSetup打包检测.netFramework的问题
dsp_daiyujie的专栏
08-30 1206
[code]function InitializeSetup: Boolean;   var Path:string ;        ResultCode: Integer;        dotNetV4RegPath:string;        dotNetV4DownUrl:string;        dotNetV4PackFile:string;      
inno setup实现.net环境检测、开机启动、桌面快捷方式的示例
jasonbeer470的博客
03-17 370
1.支持xp系统运行的innosetup版本为5.x.x,下载地址http://files.jrsoftware.org/is/5/ 2.脚本代码如下： ; Demonstrates copying 3 files and creating an icon. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!...
inno setup安装制作软件详细使用步骤(含检测net版本环境)
ohdajing的博客
08-06 6630
一、下载inno setup软件(环境设置) 官方下载地址:https://jrsoftware.org/isinfo.php 我这里有个现成的inno setup下载包,可自提: 链接：https://pan.baidu.com/s/1vk_O9TgPGwBszqr5IXTU7w 提取码：xzvw net4.6.1版本:https://www.microsoft.com/en-us/download/details.aspx?id=49981 二、安装inno setup软件 1、先将要打包.
Inno 安装前检测.net framework 4.0
weixin_33906657的博客
03-23 794
[Files] //存在netframework的目录Source: "D:\LF\Vega\NetFramework\dotNetFx40_Full_x86_x64.exe"; DestDir: "{tmp}"; Flags: ignoreversion [Code]function IsDotNetDetected(version: string; service: cardinal...
用Inno Setup来解决.NetFramework框架安装问题
周公（周金桥）的专栏
03-01 3031
前段时间朋友接了一个项目，具体是开发一个安装在局域网内的软件，这个软件会定时连接局域网内的服务器来更新本地客户端的一些信息，因为在局域网内存在着多种不同的Windows版本，从WindowsXP、Windows2003及Windows2008到Windows7等，这个软件采用VS2008/.Net Framework2.0开发，因为有些系统默认没有安装.Net Framework2.0，所以在运行...
Inno Setup打包.NET Winform程序及自动检测环境
"这篇文档提供了使用Inoo Setup打包.NET Winform程序源代码的详细过程，主要功能是自动检查目标计算机是否已经安装了.NET Framework 2.0和SQL Server。如果未安装，程序会检查特定目录是否存在安装程序，如果存在则...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值