InnoSetup安装包制作事例

最新推荐文章于 2024-03-28 20:52:55 发布
最新推荐文章于 2024-03-28 20:52:55 发布
阅读量3k 收藏 3
点赞数 1
分类专栏： InnoSetup 文章标签： string 防火墙 integer exe delete types
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zst126/article/details/1926758
版权

;AUTHOR: zhangsongtao@xx.com.cn
;DATE  :     2007-06-04  - 2007-06-13
[Setup]
AppName=xx系统
AppVerName=xx系统 V2.0
AppPublisher=xx有限公司
AppPublisherURL=http://www.xx.com.cn
AppSupportURL=http://www.xx.com.cn
AppUpdatesURL=http://www.xx.com.cn
DefaultDirName= {code:GetInitPath}
DefaultGroupName=xx系统
DiskClusterSize = 512
LicenseFile=其它/协议声明.txt
OutputBaseFilename=xx_SetUp
SetupIconFile=其它/setup.ico
Compression=lzma
SolidCompression=yes
ExtraDiskSpaceRequired = 0
WindowVisible=yes
DisableProgramGroupPage=yes
ShowTasksTreeLines = yes

[Languages]
Name: "chinese"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "创建桌面快捷方式(&D)"; GroupDescription: "添加快捷方式：";

[Types]
Name:"full";Description:"完全安装"
Name:"custom";Description:"自定义安装";Flags:iscustom

[Components]
Name:"xx1";Description:"xx1";Types:full;ExtraDiskSpaceRequired:81920;Flags:disablenouninstallwarning
Name:"xx2设置";Description:"xx2设置";Types:full;ExtraDiskSpaceRequired:1933312;Flags:disablenouninstallwarning
Name:"xx3模块";Description:"xx3模块";Types:full;ExtraDiskSpaceRequired:2035712;Flags:disablenouninstallwarning
Name:"xx4模块";Description:"xx4模块";Types:full;ExtraDiskSpaceRequired:2179072;Flags:disablenouninstallwarning
Name:"xx5模块";Description:"xx5模块";Types:full;ExtraDiskSpaceRequired:3649536;Flags:disablenouninstallwarning
Name:"xx6模块";Description:"xx6模块";Types:full;ExtraDiskSpaceRequired:1908736;Flags:disablenouninstallwarning
Name:"xx7模块";Description:"xx7模块";Types:full;ExtraDiskSpaceRequired:1867776;Flags:disablenouninstallwarning

[Files]
Source: "FrameWork/dotnetfx.exe";DestDir: "{tmp}/FrameWork";Flags: ignoreversion promptifolder;AfterInstall:InstallFrame('{tmp}/FrameWork/dotnetfx.exe');
Source: "XX2/XX2.smf"; DestDir: "{app}/XX2模块"; Flags: ignoreversion promptifolder;Components:XX2
Source: "XX2/XX2.exe"; DestDir: "{app}/XX2模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX2;AfterInstall:OpenFireWallAfterInstallSystem('{app}/XX2模块/XX2.exe');
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX2模块";Flags:ignoreversion onlyifdoesntexist;Components:XX2
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX2模块";Flags:ignoreversion onlyifdoesntexist;Components:XX2
Source: "XX3系统/guide.smf"; DestDir: "{app}/XX3模块"; Flags: ignoreversion promptifolder;Components:XX3
Source: "XX3系统/XX3.exe"; DestDir: "{app}/XX3模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX3;AfterInstall:OpenFireWallAfterInstallGuide('{app}/XX3模块/XX3.exe');
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX3模块";Flags:ignoreversion onlyifdoesntexist;Components:XX3
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX3模块";Flags:ignoreversion onlyifdoesntexist;Components:XX3
Source: "XX4模块/XX4.smf"; DestDir: "{app}/XX4模块"; Flags: ignoreversion promptifolder;Components:XX4
Source: "XX4模块/BTPPrint.dll"; DestDir: "{app}/XX4模块"; Flags: ignoreversion promptifolder;Components:XX4
Source: "XX4模块/XX4.exe"; DestDir: "{app}/XX4模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX4;AfterInstall:OpenFireWallAfterInstallSeafood('{app}/XX4模块/XX4.exe');
Source: "XX4模块/POSDLL.dll"; DestDir: "{app}/XX4模块"; Flags: ignoreversion promptifolder;Components:XX4
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX4模块";Flags:ignoreversion onlyifdoesntexist;Components:XX4
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX4模块";Flags:ignoreversion onlyifdoesntexist;Components:XX4
Source: "XX1/caterServer.exe"; DestDir: "{sys}/CMSServer"; Flags: ignoreversion promptifolder;Components:cater_server;BeforeInstall:BeforeInstallServer('{sys}/CMSServer/caterServer.exe');AfterInstall:MyAfterInstall('{sys}/CMSServer/caterServer.exe');
Source: "XX5系统/POSDLL.dll"; DestDir: "{app}/XX5模块"; Flags: ignoreversion promptifolder;Components:XX5
Source: "XX5系统/account.smf"; DestDir: "{app}/XX5模块"; Flags: ignoreversion promptifolder;Components:XX5
Source: "XX5系统/XX5.exe"; DestDir: "{app}/XX5模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX5;AfterInstall:OpenFireWallAfterInstallXX5('{app}/XX5模块/XX5.exe');
Source: "XX5系统/BTPPrint.dll"; DestDir: "{app}/XX5模块"; Flags: ignoreversion promptifolder;Components:XX5
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX5模块";Flags:ignoreversion onlyifdoesntexist;Components:XX5
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX5模块";Flags:ignoreversion onlyifdoesntexist;Components:XX5
Source: "XX6系统/XX6.smf"; DestDir: "{app}/XX6模块"; Flags: ignoreversion promptifolder;Components:XX6
Source: "XX6系统/XX6.exe"; DestDir: "{app}/XX6模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX6;AfterInstall:OpenFireWallAfterInstallXX6('{app}/XX6模块/XX6.exe');
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX6模块";Flags:ignoreversion onlyifdoesntexist;Components:XX6
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX6模块";Flags:ignoreversion onlyifdoesntexist;Components:XX6
Source: "XX7系统/XX7.smf"; DestDir: "{app}/XX7模块"; Flags: ignoreversion promptifolder;Components:XX7
Source: "XX7系统/XX7.exe"; DestDir: "{app}/XX7模块"; Flags: ignoreversion promptifolder sortfilesbyextension;Components:XX7;AfterInstall:OpenFireWallAfterInstallHouse('{app}/XX7模块/XX7.exe');
Source: "Dll/mfc80u.dll";DestDir:"{app}/XX7模块";Flags:ignoreversion onlyifdoesntexist;Components:XX7
Source: "Dll/Microsoft.VC80.MFC.manifest";DestDir:"{app}/XX7模块";Flags:ignoreversion onlyifdoesntexist;Components:XX7
Source: "其它/CMS_HELP.doc"; DestDir: "{app}/其它"; Flags:ignoreversion sortfilesbyextension
Source: "其它/Readme.txt";DestDir: "{app}/其它"; Flags:isreadme
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[INI]
Filename: "{app}/xx.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.xx.com.cn"

[Messages]
BeveledLabel=xx公司2007版权所有,保留所有权利.

[Registry]
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/CMS";Flags:deletevalue uninsdeletekey
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"Driver";ValueData:"{sys}/sqlsrv32.dll";Flags:deletevalue uninsdeletekey
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"LastUser";ValueData:"cmsuser";Flags:deletevalue uninsdeletekey
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"Server";ValueData:{code:GetDataPage};Flags:deletevalue uninsdeletekey
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/ODBC Data Sources";ValueType:string;ValueName:"CMS";ValueData:"SQL Server";Flags:deletevalue uninsdeletevalue
Root:HKLM;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"InitPath";ValueData:"{app}";Flags:deletevalue uninsdeletekey
Root:HKCU;SubKey:"Software/ODBC/ODBC.INI/CMS";Flags:deletevalue uninsdeletekey
Root:HKCU;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"Driver";ValueData:"{sys}/sqlsrv32.dll";Flags:deletevalue uninsdeletekey
Root:HKCU;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"LastUser";ValueData:"cmsuser";Flags:deletevalue uninsdeletekey
Root:HKCU;SubKey:"Software/ODBC/ODBC.INI/CMS";ValueType:string;ValueName:"Server";ValueData:{code:GetDataPage};Flags:deletevalue uninsdeletekey
Root:HKCU;SubKey:"Software/ODBC/ODBC.INI/ODBC Data Sources";ValueType:string;ValueName:"CMS";ValueData:"SQL Server";Flags:deletevalue uninsdeletevalue

[Icons]
Name: "{group}/{cm:UninstallProgram,xx系统}"; Filename: "{uninstallexe}"
Name: "{group}/{cm:ProgramOnTheWeb,xx有限公司}"; Filename: "{app}/xx.url"
Name: "{group}/xxx帮助文档"; Filename: "{app}/CMS_HELP.doc"; Flags:createonlyiffileexists;WorkingDir:"{app}"
Name: "{group}/XX2"; Filename: "{app}/XX2模块/XX2.exe"; Flags:createonlyiffileexists;WorkingDir:"{app}/XX2模块"
Name: "{group}/XX3模块"; Filename: "{app}/XX3模块/XX3.exe"; Flags:createonlyiffileexists;WorkingDir:"{app}/XX3模块"
Name: "{group}/XX4模块"; Filename: "{app}/XX4模块/XX4.exe"; Flags:createonlyiffileexists;WorkingDir:"{app}/XX4模块"
Name: "{group}/XX5模块"; Filename: "{app}/XX5模块/XX5.exe"; Flags:createonlyiffileexists ;WorkingDir:"{app}/XX5模块"
Name: "{group}/XX6模块"; Filename: "{app}/XX6模块/XX6.exe"; Flags:createonlyiffileexists;WorkingDir:"{app}/XX6模块"
Name: "{group}/XX7模块"; Filename: "{app}/XX7模块/XX7.exe"; Flags:createonlyiffileexists;WorkingDir:"{app}/XX7模块"
Name: "{userdesktop}/XX2"; Filename: "{app}/XX2模块/XX2.exe"; Tasks: desktopicon; Flags:createonlyiffileexists;WorkingDir:"{app}/XX2模块"
Name: "{userdesktop}/XX3模块"; Filename: "{app}/XX3模块/XX3.exe"; Tasks: desktopicon; Flags:createonlyiffileexists;WorkingDir:"{app}/XX3模块"
Name: "{userdesktop}/XX4模块"; Filename: "{app}/XX4模块/XX4.exe"; Tasks: desktopicon; Flags:createonlyiffileexists;WorkingDir:"{app}/XX4模块"
Name: "{userdesktop}/XX5模块"; Filename: "{app}/XX5模块/XX5.exe"; Tasks: desktopicon; Flags:createonlyiffileexists ;WorkingDir:"{app}/XX5模块"
Name: "{userdesktop}/XX6模块"; Filename: "{app}/XX6模块/XX6.exe"; Tasks: desktopicon; Flags:createonlyiffileexists ;WorkingDir:"{app}/XX6模块"
Name: "{userdesktop}/XX7模块"; Filename: "{app}/XX7模块/XX7.exe"; Tasks: desktopicon; Flags:createonlyiffileexists;WorkingDir:"{app}/XX7模块"

[UninstallDelete]
Type: files; Name: "{app}/xx.url"
Type: filesandordirs; Name: "{sys}/CMSServer";
Type: filesandordirs; Name: "{app}";

[Code]
{安装XX1程序前先停止服务}
var
    ErrorCodes: Integer;
procedure BeforeInstallServer(FileName:string);
begin
    ShellExec('open','sc','stop CMSserver','',SW_HIDE,ewNoWait,ErrorCodes);
    Sleep(2000);
    ShellExec('open','sc','delete CMSserver','',SW_HIDE,ewNoWait,ErrorCodes);
    Sleep(1000);
end;
{安装XX1程序后启动服务及打开防火墙允许程序通过}
var
    ErrorCode: Integer;
procedure MyAfterInstall(FileName:string);
var
    sPathServerExe: string;
    sPathServer: string;
    sPathServerFirewall: string;
begin
    sPathServerExe := ExpandConstant('"{sys}/CMSServer/caterServer.exe"');
    sPathServerExe := 'create CMSserver binpath= ' + sPathServerExe;
    sPathServer := ExpandConstant('"{sys}/CMSServer/"');
    sPathServerFirewall := ExpandConstant('"{sys}/CMSServer/caterServer.exe"');
    sPathServerFirewall := 'firewall set allowedprogram ' + sPathServerFirewall + ' CMSServer ENABLE';
    ShellExec('open','sc',sPathServerExe,sPathServer,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(1000);
    ShellExec('open','sc','config CMSserver depend= MSSQLSERVER','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(1000);
    ShellExec('open','sc','config CMSserver start= auto','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(1000);
    ShellExec('open','sc','start CMSserver','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(2000);
    ShellExec('open','netsh','firewall set portopening TCP 1433 SQLServer ENABLE','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    ShellExec('open','netsh',sPathServerFirewall,sPathServer,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','ServerFlag','001server');
end;

{XX2模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallSystem(FileName:string);
var
    sPathSysSet: string;
    sPathSysSetExe: string;
begin
    sPathSysSetExe := ExpandConstant('"{app}/XX2模块/XX2.exe"');
    sPathSysSetExe := 'firewall set allowedprogram ' + sPathSysSetExe + ' CMSXX2 ENABLE';
    sPathSysSet := ExpandConstant('"{app}/XX2模块/"');
    ShellExec('open','netsh',sPathSysSetExe,sPathSysSet,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','SysSetFlag','002sysset');
end;
{XX3模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallGuide(FileName:string);
var
    sPathGuide: string;
    sPathGuideExe: string;
begin
    sPathGuideExe := ExpandConstant('"{app}/XX3模块/XX3.exe"');
    sPathGuideExe := 'firewall set allowedprogram ' + sPathGuideExe + ' CMSXX3模块 ENABLE';
    sPathGuide := ExpandConstant('"{app}/XX3模块/"');
    ShellExec('open','netsh',sPathGuideExe,sPathGuide,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','GuideFlag','003guide');
end;
{XX4模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallSeafood(FileName:string);
var
    sPathSeafood: string;
    sPathSeafoodExe: string;
begin
    sPathSeafoodExe := ExpandConstant('"{app}/XX4模块/XX4.exe"');
    sPathSeafoodExe := 'firewall set allowedprogram ' + sPathSeafoodExe + ' CMSXX4模块 ENABLE';
    sPathSeafood := ExpandConstant('"{app}/XX4模块/"');
    ShellExec('open','netsh',sPathSeafoodExe,sPathSeafood,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','OtherFlag','004other');
end;
{XX5模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallXX5(FileName:string);
var
    sPathXX5: string;
    sPathXX5Exe: string;
begin
    sPathXX5Exe := ExpandConstant('"{app}/XX5模块/XX5.exe"');
    sPathXX5Exe := 'firewall set allowedprogram ' + sPathXX5Exe + ' CMSXX5模块 ENABLE';
    sPathXX5 := ExpandConstant('"{app}/XX5模块/"');
    ShellExec('open','netsh',sPathXX5Exe,sPathXX5,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','AccountFlag','005account');
end;
{XX6模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallXX6(FileName:string);
var
  sPathXX6Exe:string;
  sPathXX6:string;
begin
    sPathXX6 := ExpandConstant('"{app}/XX6模块/"');
    sPathXX6Exe := ExpandConstant('"{app}/XX6模块/XX6.exe"');
    sPathXX6Exe := 'firewall set allowedprogram ' + sPathXX6Exe + ' CMSXX6模块 ENABLE';
    ShellExec('open','netsh',sPathXX6Exe,sPathXX6,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','XX6Flag','006bksms');
end;
{XX7模块安装时,在防火墙中设置为例外程序}
procedure OpenFireWallAfterInstallHouse(FileName:string);
var
    sPathXX7:string;
    sPathXX7Exe:string;
begin
    sPathXX7Exe := ExpandConstant('"{app}/XX7模块/XX7.exe"');
    sPathXX7Exe := 'firewall set allowedprogram ' + sPathXX7Exe + ' CMSXX7模块 ENABLE';
    sPathXX7 := ExpandConstant('"{app}/XX7模块/"');
    ShellExec('open','netsh',sPathXX7Exe,sPathXX7,SW_HIDE,ewNoWait,ErrorCode);
    Sleep(800);
    //用于判断是否已经安装过该模块
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS','XX7Flag','007warehouse');
end;

{安装前初始化Page输入页面}
var
    Page: TInputQueryWizardPage;
    ServerIP:string;
procedure InitializeWizard;
begin
    ServerIP := ''
    Page := CreateInputQueryPage(wpSelectComponents, '配置本地数据源','用于本机程序连接XX1', '输入要连接的数据库XX1IP地址');
    Page.Add('XX1IP(如 192.168.0.1):',False);
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'Server',ServerIP);
    Page.Values[0] := ServerIP;
end;

{以‘.’分4段判断IP地址格式是否正确}
function CheckIP(IpValue:string):Boolean;
var
    ArrayIP:string;
    i:Integer;
    j:Integer;
    S:string;
    S1:string;
    S2:string;
    S3:string;
    MidValue:string;
    MidValue1:string;
    MidValue2:string;
    MidValue3:string;
    Result0:Boolean;
    Result1:Boolean;
    Result2:Boolean;
    Result3:Boolean;
begin
    S := ''
    S1 := ''
    S2 := ''
    S3 := ''
    MidValue := ''
    MidValue1 := ''
    MidValue2 := ''
    MidValue3 := ''
    ArrayIP := IpValue;
    //判断第1段值位于0--255
    for i:= 1 to length(ArrayIP) do
    if ArrayIP[i] = '.' then
    begin
        j := i;
    for i:= j+1 to length(ArrayIP) do
    begin
        MidValue := MidValue + ArrayIP[i];
    end;
    for i:= 1 to j-1 do
        S := S + ArrayIP[i];
        if StrToIntDef(S,-1) >= 0 then
        begin
             if StrToIntDef(S,-1) <= 255 then
             begin
                  Result0 := True;
             end else begin
                  Result0 := False;
             end;
        end else begin
             Result0 := False;
        end;
        break;
    end;
    //判断第2段值位于0--255
    for i:= 1 to length(MidValue) do
    if MidValue[i] = '.' then
    begin
        j:= i;
        for i:= j+1 to length(MidValue) do
    begin
        MidValue1 := MidValue1 + MidValue[i];
    end;
    for i:= 1 to j-1 do
        S1 := S1 + MidValue[i];
        if StrToIntDef(S1,-1) >= 0 then
        begin
             if StrToIntDef(S1,-1) <= 255 then
             begin
                  Result1 := True;
             end else begin
                  Result1 := False;
             end;
        end else begin
             Result1 := False;
        end;
        break;
    end;
    //判断第3段值位于0--255
    for i:= 1 to length(MidValue1) do
    if MidValue1[i] = '.' then
    begin
        j:= i;
        for i:= j+1 to length(MidValue1) do
    begin
        MidValue2 := MidValue2 + MidValue1[i];
    end;
    for i:= 1 to j-1 do
        S2 := S2 + MidValue1[i];
        if StrToIntDef(S2,-1) >= 0 then
        begin
             if StrToIntDef(S2,-1) <= 255 then
             begin
                  Result2 := True;
             end else begin
                  Result2 := False;
             end;
        end else begin
             Result2 := False;
        end;
        break;
    end;
    //判断第4段位于0--255
    if StrToIntDef(MidValue2,-1) >= 0then
    begin
         if StrToIntDef(MidValue2,-1) <= 255 then
         begin
              Result3 := True;
         end else begin
              Result3 := False;
         end;
    end else begin
         Result3 := False;
    end;
    if ( Result0 = True ) then
    begin
         if ( Result1 = True ) then
         begin
              if( Result2 = True ) then
              begin
                   if( Result3 = True ) then
                   begin
                        Result := True;
                   end else begin
                        Result := False;
                   end;
              end else begin
                   Result := False;
              end;
         end else begin
              Result := False;
         end;
    end else begin
        Result := False;
    end;
end;

{用于判断Page页面的输入框是否为空及判断是否选择的模块为空及某模块是否已经安装}
function NextButtonClick(CurPageID: Integer): Boolean;
var
    ServerFlag:string;
    SysSetFlag:string;
    GuideFlag:string;
    OtherFlag:string;
    AccountFlag:string;
    XX6Flag:string;
    XX7Flag:string;
    strInfo:string;
    selectComponents:string;
begin
    if( CurPageID = Page.ID ) then
    begin
        if( Page.Values[0] = '' ) then
        begin
             MsgBox('IP地址不能为空，必须输入数据库XX1的IP地址！',mbError,MB_OK);
             Result := False;
        end
        else if ( CheckIP(Page.Values[0]) = False ) then
        begin
             MsgBox('IP地址不正确，请重新输入！',mbError,MB_OK);
             Result := False;
        end else begin
             if MsgBox('您输入的IP地址是' + Page.Values[0] + '，继续请按[是]，取消请按[否]！', mbConfirmation, MB_YESNO ) = IDYES then begin
             Result := True;
             end else begin
             Result := False;
             end;
        end;
    end
    else if ( CurPageID = wpSelectComponents ) then
    begin//begin
       strInfo := ''
       selectComponents := WizardSelectedComponents(false);
       if ( selectComponents = '' ) then begin
            MsgBox('必须选择一个模块进行安装！',mbError,MB_OK);
            Result := False;
       end else
       begin
            if ( pos('cater_server',selectComponents) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'ServerFlag',ServerFlag);
                 if ServerFlag = '001server' then
                 begin
                      strInfo := strInfo + '          ' + 'XX1' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('cmssyssetting',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'SysSetFlag',SysSetFlag);
                 if SysSetFlag = '002sysset' then
                 begin
                      strInfo := strInfo + '          ' + 'XX2'+ #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('cateringguide',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'GuideFlag',GuideFlag);
                 if GuideFlag = '003guide' then
                 begin
                      strInfo := strInfo + '          ' + 'XX3模块' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('cateringservice',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'OtherFlag',OtherFlag);
                 if OtherFlag = '004other' then
                 begin
                      strInfo := strInfo + '          ' + 'XX4模块' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('acount',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'AccountFlag',AccountFlag);
                 if AccountFlag = '005account' then
                 begin
                      strInfo := strInfo + '          ' + 'XX5模块' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('bksms',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'XX6Flag',XX6Flag);
                 if XX6Flag = '006bksms' then
                 begin
                      strInfo := strInfo + '          ' + 'XX6模块' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            if ( pos('warehouse',WizardSelectedComponents(false)) > 0 ) then
            begin
                 RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'XX7Flag',XX7Flag);
                 if XX7Flag = '007warehouse' then
                 begin
                      strInfo := strInfo + '          ' + 'XX7模块' + #10 + #10;
                 end
                 else begin
                      strInfo := strInfo;
                 end
            end
            //判断
            if strInfo <> '' then
            begin
                 if Msgbox( '安装程序发现下列模块已经安装：'+ #10 + #10 + strInfo + '再次安装将覆盖已存在模块,无论如何也要继续吗？',mbConfirmation,MB_YESNO) = IDYES then
                 begin
                      Result := True;
                 end
                 else
                 begin
                      Result := False;
                 end
            end
            else begin
                 Result := True;
            end
       end;
    end//end
    else begin
    Result := True;
    end;
end;

{如果本机已经安装过该系统，则跳过选择路径页面}
function ShouldSkipPage(PageID: Integer): Boolean;
begin
    Result := False;
    if PageID = wpSelectDir then
    begin
         if RegKeyExists(HKEY_CURRENT_USER, 'Software/ODBC/ODBC.INI/CMS') then
            Result := True;
    end;
end;

{获取Page页面输入框中的输入IP值}
function GetDataPage(Param: String): String;
begin
  { Return the IP }
      Result := Page.Values[0];
end;

{卸载前初始化}
function InitializeUninstall(): Boolean;
begin
    Result := True;
end;

{自定义函数，在确定删除程序后首先把防火墙中的例外程序删除}
function UninstallTrue(Param:string):string;
var
    sPathDeleteServer:string;
    sPathDSysSet:string;
    sPathDGuide:string;
    sPathDSeafood:string;
    sPathDAccount:string;
    sPathDBks:string;
    sPathDWarehouse:string;
begin
    {停止并删除XX1服务，把该XX1程序从防火墙的例外中删除}
    sPathDeleteServer := ExpandConstant('"{sys}/CMSServer/caterServer.exe"');
    sPathDeleteServer := 'firewall delete allowedprogram ' + sPathDeleteServer;
    sPathDSysSet := ExpandConstant('"{app}/XX2模块/XX2.exe"');
    sPathDSysSet := 'firewall delete allowedprogram ' + sPathDSysSet;
    sPathDGuide := ExpandConstant('"{app}/XX3模块/XX3.exe"');
    sPathDGuide := 'firewall delete allowedprogram ' + sPathDGuide;
    sPathDSeafood := ExpandConstant('"{app}/XX4模块/XX4.exe"');
    sPathDSeafood := 'firewall delete allowedprogram ' + sPathDSeafood;
    sPathDAccount := ExpandConstant('"{app}/XX5模块/XX5.exe"');
    sPathDAccount := 'firewall delete allowedprogram ' + sPathDAccount;
    sPathDBks := ExpandConstant('"{app}/XX6模块/XX6.exe"');
    sPathDBks := 'firewall delete allowedprogram ' + sPathDBks;
    sPathDWarehouse := ExpandConstant('"{app}/XX7模块/XX7.exe"');
    sPathDWarehouse := 'firewall delete allowedprogram ' + sPathDWarehouse;
    ShellExec('open','netsh','firewall delete portopening TCP 1433','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    ShellExec('open','netsh',sPathDeleteServer,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    ShellExec('open','sc','stop CMSserver','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(1000);
    ShellExec('open','sc','delete CMSserver','',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX2程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDSysSet,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX3程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDGuide,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX4模块的程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDSeafood,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX5程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDAccount,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX6程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDBks,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
    {把XX7程序从防火墙的例外中删除}
    ShellExec('open','netsh',sPathDWarehouse,'',SW_HIDE,ewNoWait,ErrorCode);
    Sleep(500);
end;

{当确定卸载时,开始执行}
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usUninstall:
        begin
             UninstallTrue('');
        end;
     end;
end;

{当前安装未完成，点取消按钮，在提示框中选择确定时把已经安装的部分全部删除}
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
    if( CurPageID = wpInstalling ) then
    begin
          Cancel := False;
          Confirm := False;
          if( ExitSetupMsgBox = True ) then
          begin
              if RegKeyExists(HKEY_CURRENT_USER, 'Software/ODBC/ODBC.INI/CMS') then
              begin
                    Cancel := True;
                    Confirm := False;
              end
              else begin
              UninstallTrue('');
              RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE,'Software/ODBC/ODBC.INI/CMS');
              Cancel := True;
              Confirm := False;
              end
          end;
    end;
end;

{安装路径:如果未安装，默认路径，如果已经安装过，使用原路径覆盖}
function GetInitPath(Param:string): String;
var InitPath:string;
begin
    if RegKeyExists(HKEY_CURRENT_USER, 'Software/ODBC/ODBC.INI/CMS') then
    begin
         RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software/ODBC/ODBC.INI/CMS', 'InitPath',InitPath);
         Result := InitPath;
    end
    else
    begin
         Result := ExpandConstant('{pf}/餐饮管理系统');
    end;
end;

{安装前判断所安装的机器是否有Framework，如果有，则不安装，没有，则先安装Framework}
Procedure InstallFrame(FileName:string);
var ResultCode:Integer;
begin
    if RegKeyExists(HKEY_LOCAL_MACHINE,'Software/Microsoft/.NETFramework') then
    begin
    end
    else begin
       if Msgbox('安装程序检测到本机尚未安装FrameWork,为确保程序正确运行,请点击确定按钮完成FrameWork的安装!',mbConfirmation,MB_OKCANCEL) = IDOK then
       begin
           if not ShellExec('open',ExpandConstant('"{tmp}/FrameWork/dotnetfx.exe"'),'',ExpandConstant('"{tmp}/FrameWork/"'),SW_SHOW,ewWaitUntilTerminated, ResultCode) then
           begin
           SysErrorMessage(ResultCode);
           end
       end
       else begin
          Msgbox('FrameWork未安装,安装程序可能不能正确运行!',mbConfirmation,MB_OK);
       end
    end;
end;
 

toddzst
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
innosetup安装前的准备函数InitializeSetup()
甜筒八部 的专栏
06-24 3358
//重载安装程序初始化函数，判断是否已经安装新版本，是则禁止安装 function InitializeSetup() : boolean; begin #ifndef PortableBuild #ifdef OnlyInstallNewVersion if is_installed_before() then begin if is_installing_older_version() then begin MsgBox(CustomMessage('init_se...
Inno Setup 制作软件安装包
qq_54495232的博客
02-23 98
Inno Setup 制作安装包教程
inno setup仿大厂安装包，脚本和安装包都可运行
03-11
inno setup安装包 可运行的脚本
Inno Setup 发布安装包设置关联文件icon图标，设置系统变量
m0_37775797的博客
03-28 574
中，可以cmd输入程序名直接运行：ValueName要为“path”，否则无效。1.关联文件图标设置方法：“.xxx”为关联文件后缀。2.将当前程序的安装路径添加到系统的环境变量。
inno setup 用法汇总
爱技术、爱生活、爱健康
05-03 1621
如何测试一个SQL Server ODBC驱动程序连接使用的是5。如何检测是否和哪个版本的MS Access安装。如何检测安装版本的Acrobat Reader。如何创建和修改与ADO的Access MDB。如何创建一个映射驱动器使用的网络连接对话框。启动，停止，安装，删除功能的NT服务。如何安装Windows媒体播放器9。如何防止用户选择安装空格的文件夹。Inno Setup可视化编辑。如何创建的ODBC DSN 2。如何检测IE浏览器安装的版本。如何检测安装的MDAC版本。如何检测安装的ADSI版本。
inno setup 安装界面进度条控制
linlin003的专栏
06-05 4190
用inno setup制作安装包会发现一个问题。默认安装时候的进度条只是文件提取的进度。当文件提取完成了进度条就已经100%这时候如果你[Run]里面运行的东西比较多，就会显得安装进度100%之后一直卡在那里，卡了半天才弹出安装完成界面。那如何解决这个问题呢？经过一番搜索，发现这个并没有什么好的控制方法，只有一些Workaround。思路就是在提取文件一开始，修改进度条刻度的最大值，比如把最大值扩...
使用Inno SetUp制作安装包
qq_37443862的博客
05-16 1574
使用Inno SetUp制作安装包前言准备工作1.打开Inno SetUp编译器进入欢迎界面弹出脚本向导页面2.设置应用程序信息3.指定应用程序文件位置点击浏览寻找exe文件选择之前制作好的exe文件添加必要的文件或者文件夹4.应用程序快捷方式设置5.安装程序安装模式设置6.编译设置7.开始编译脚本8.等待安装包编译完成9.查看生成的安装包总结 前言 　　使用NetBeans写了一个类似按键精灵的java程序，想给朋友用，但是朋友的电脑上并没有安装java环境。没办法，只能将java程序制作成exe安装.
开源软件Inno Setup安装包制作所需资源
08-04
使用Inno Setup制作安装包的基本步骤如下： 1. **安装Inno Setup**：首先，需要下载并安装Inno Setup，这将提供编译器以及可能的额外工具。 2. **编写安装脚本**：使用文本编辑器或ISSI，编写安装脚本，指定软件...
Inno Setup安装包制作教程集锦
02-01
Inno Setup安装包制作教程集锦 Inno Setup安装包制作教程集锦_轻狂志_20100728
innosetup安装包制作工具
03-15
本工具可以用来对Qt/Mfc/DirectUI开发的界面程序，制作setup.exe安装包，然后对外发布只需要发布setup.exe安装包即可，然后用户可一键安装。
Inno Setup 安装包制作工具
09-22
Inno Setup是一款强大的安装包制作工具，主要用于创建Windows平台下的应用程序安装程序。这款开源软件以其易用性、灵活性和自定义能力在IT行业中受到了广泛欢迎。Inno Setup不仅支持基本的安装、卸载功能，还提供了...
使用Inno setup 制作安装包 安装包脚本调用动态链接库实现特殊处理
11-29
本篇将深入探讨如何利用Inno Setup来制作安装包，并通过安装脚本调用动态链接库（DLL）以实现特定功能。 一、Inno Setup基础 Inno Setup是一个开源的安装包制作工具，它支持创建自解压可执行文件、传统安装程序和...
inno setup制作安装包时添加系统和用户环境变量（Path路径）
12-07
主要功能是使用inno setup制作安装包时，在安装完成之后实现将指定路径添加到用户和系统环境变量的Path中。下载文件后，请参考文件头部的说明进行操作。如有问题，请联系我：wb__sz@163.com。感谢原版作者Jared ...
innosetup安装包+中文语言包
11-14
InnoSetup是一款流行的安装制作工具，它被广泛用于创建Windows应用程序的安装程序。这款软件以其简单易用的脚本语法和强大的功能集而受到开发者们的青睐。标题中的"innosetup安装包+中文语言包"表明我们拥有Inno...
Inno Setup6.2安装包制作学习软件
最新发布
05-13
《Inno Setup6.2安装包制作学习软件详解》 Inno Setup是一款广泛使用的Windows平台下的安装包制作工具，尤其适合个人开发者和小型团队。它以其简洁易用的界面、强大的脚本支持以及灵活的定制功能深受用户喜爱。在这...
inno setup介绍（转）
weixin_30552635的博客
09-30 494
inno setup介绍（转） 使 用 笔 记1、Inno Setup 是什么？Inno Setup 是一个免费的 Windows 安装程序制作软件。第一次发表是在 1997 年，Inno Setup 今天在功能设置和稳定性上的竞争力可能已经超过一些商业的安装程序制作软件。关键功能:★ 支持现在所有正在使用的 32 位 Windows 版本: ...
Inno Setup脚本中对正整数字符串的判断
TonyZhang的专栏
10-20 3458
今天，在制作打包脚本的时候，遇到了整xing
[Other] Inno Setup 使用心德-一个完整的项目 包括.NET组建捆绑 去空格等
QiuJuer
12-16 2939
最近安排我弄程序的打包工作，然后叫我接触Inno Setup打包软件。 说实话，第一次弄，什么都不懂，就不断Baidu，当然很多都没有，只有看文档了！ 前面打包程序部分都还好，都完成了，但是后来说要捆绑组建，这个可把我难住了，最开始我是把组建添加进去，然后安装程序后启动组建安装，这样的缺陷多的数不清。 而后，把组建捆绑到tmp中安装，但是也是存在问题，因为用户要是在安装过程中取消了，
Inno Setup使用教程(3)
蓝剑专栏
07-27 3290
[UninstallDelete] 段  该段是可选的。该段是用来定义一些附加的除了那些被安装的应用程序之外的要被卸载程序删除的文件或目录。使用该段来删除由你的应用程序创建的 .INI 文件是一个常用的办法。卸载程序在卸载过程的最后一步处理这些项。  这是一个 [UninstallDelete] 段的示例：  [UninstallDelete]  Type: files; Name: "{win}
Inno Setup 安装包制作指南
"Inno Setup 是一款免费的Windows安装程序制作工具，提供详细的中文帮助文档，适合用于创建安装包。该教程涵盖了从基础使用到高级功能的全方位指导，包括脚本格式、各段参数、Pascal脚本以及安装和卸载过程的控制。...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值