ScanClient/tool/打包/script/HJY v5.iss

  ; 脚本由 Inno Setup 脚本向导 生成！
  ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
     
  #define MyAppName "慧教研扫描客户端"
  #define MyAppVersion "1.9.43"
  #define MyAppPublisher "SW"
  #define MyAppURL "https://www.jkydata.com/"
  #define MyAppExeName "HXX.Scanner.Starter.exe"

  [Setup]
  ; 注: AppId的值为单独标识该应用程序。
  ; 不要为其他安装程序使用相同的AppId值。
  ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{84895A7B-88D1-4AB6-8382-6EF0E36850C8}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}

;AppVerName=慧教研扫描客户端

AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\慧教研\{#MyAppName}
DefaultGroupName=\慧教研\
DisableProgramGroupPage=yes
;LicenseFile=D:\packing\资源\安装协议2.txt
OutputDir=D:\1          
OutputBaseFilename=慧教研扫描客户端 安装程序 {#MyAppVersion}
SetupIconFile=D:\packing\resource\desk.ico     
Compression=lzma
SolidCompression=yes
ShowLanguageDialog=no
UninstallDisplayIcon={app}\卸载.ico


VersionInfoVersion={#MyAppVersion}
VersionInfoTextVersion={#MyAppVersion}
VersionInfoCompany=慧教研 soft, Inc.
VersionInfoCopyright=慧教研 soft, Inc.

[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
;Name: "english"; MessagesFile: "compiler:Languages\English.isl"

[Tasks]
;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: "D:\packing\files\test\*"; DestDir: "{app}\"; Flags: ignoreversion recursesubdirs



;下面不动
Source: "D:\packing\资源\UpdateIcon.dll"; Flags: solidbreak dontcopy
Source: "D:\packing\资源\卸载.ico"; DestDir: "{app}"; Flags: ignoreversion


; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[Icons]

Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; 
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}" 
;Name: "{group}\{cm:UninstallProgram, {#MyAppName}}"; Filename: "{uninstallexe}"; IconFilename: C:\Users\Administrator\Desktop\打包\资源\卸载.ico
Name: "{group}\卸载 {#MyAppName}"; Filename: "{uninstallexe}"; IconFilename: {app}\卸载.ico



[Messages]
ConfirmUninstall=您真的想要从电脑中卸载[慧教研扫描客户端]吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.

[Registry]
;Root: HKLM ;SubKey:"SOFTWARE\Cobabys\ManageCloud";ValueType:dword;ValueName:INSTALL;ValueData:10 ;Flags:uninsdeletevalue

Root: HKCR ;SubKey:"scannerClient";ValueType:string;ValueName:@;ValueData:"scannerClient" ;Flags:uninsdeletevalue
Root: HKCR ;SubKey:"scannerClient";ValueType:string;ValueName:URL Protocol;ValueData:"" ;Flags:uninsdeletevalue            
Root: HKCR ;SubKey:"scannerClient\DefaultIcon";ValueType:string;ValueName:;ValueData:"{app}\{#MyAppExeName},1" ;Flags:uninsdeletevalue   
Root: HKCR ;SubKey:"scannerClient\Shell\Open\command";ValueType:string;ValueName:;ValueData:"""{app}\{#MyAppExeName}"" ""1%""";Flags:uninsdeletevalue

Root: HKCU; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType:string;ValueName:"{app}\{#MyAppExeName}";ValueData:"RUNASADMIN"

[code] 
//插件函数用法    
//参数: 句柄(插件错误对话框的父句柄), exe文件完整路径名称, (exe文件中要替换的)图标资源名称, 图标文件的完整路径名称, (exe中要替换的图标资源所在)语系 
//返回值: 成功 = True, 失败 = False         
function UpdateIcon(const hWnd: Integer; const exeFileName, exeIcon, IcoFileName: String; wlangID: DWORD): Boolean;   
external 'UpdateIcon@files:UpdateIcon.dll stdcall';  

//替换卸载程序的图标
function UpdateUninstIcon(const IcoFileName: String): Boolean;   
begin                                                                      
       //要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标,其它参数类似！
       Result:= UpdateIcon(MainForm.Handle, '', '', IcoFileName, 0);                 
       //替换卸载图标                                                
end; 

procedure CurStepChanged(CurStep: TSetupStep); 
var                      
  sIcon: String; 
var
uninspath, uninsname, NewUninsName, MyAppName: string;
    
begin             

//////////////////////////////////
//下面是修改卸载程序图标
//////////////////////////////////


               
       //注意: 替换卸载程序的图标，必须是在卸载程序生成之前！   
       //安装图标与卸载图标的格式与大小一致，否则可能会导致卸载程序出错！  
       if CurStep=ssInstall then
          begin           
              sIcon:= ExpandConstant('{tmp}\卸载.ico'); //定义卸载图标  
              ExtractTemporaryFile(ExtractFileName(sIcon)); //释放卸载图标    
              //要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标！
              UpdateUninstIcon(sIcon);//替换卸载图标  
          end;    
          
               
//////////////////////////////////
 //下面是修改卸载程序名字
 //////////////////////////////////

//  if CurStep=ssDone then
//    begin
    // 指定新的卸载文件名（不包含扩展名），请相应修改！
//    NewUninsName := '卸载 库贝幼儿安全管理系统 服务端';
    // 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！
//    MyAppName := '{#MyAppName}';
    // 以下重命名卸载文件
//    uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));
//    uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);
//    RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');
//    RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');


  // 以下修改相应的注册表内容
//    if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1') then
//        begin
//          RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1', 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');
//          RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1', 'QuietUninstallString', '"' + uninspath + NewUninsName + '.exe" /SILENT');
//        end;
//    end;
     
end;           


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
//    'v4.7'          .NET Framework 4.7
//    'v4.7.1'        .NET Framework 4.7.1
//    'v4.7.2'        .NET Framework 4.7.2
//    'v4.8'          .NET Framework 4.8
//
// 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 before Win10 November Update
          'v4.6.2': versionRelease := 394802; // 394806 before Win10 Anniversary Update
          'v4.7':   versionRelease := 460798; // 460805 before Win10 Creators Update
          'v4.7.1': versionRelease := 461308; // 461310 before Win10 Fall Creators Update
          'v4.7.2': versionRelease := 461808; // 461814 before Win10 April 2018 Update
          'v4.8':   versionRelease := 528040; // 528049 before Win10 May 2019 Update
        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;
 //////////////////////////////////
 //检测.NET环境，检测程序是否安装过
 //////////////////////////////////
function InitializeSetup: Boolean;

  //声明变量
//  var Isbl: boolean;        
 // var Isstr: string;
 var 
 Path: string;
 url:string;
 ResultCode: Integer;

  begin

  //////////////////////////////////
  //检测.NET环境
 //////////////////////////////////    

    Result := true;

    if(not IsDotNetDetected('v4.6.1',0)) then
      begin
          url := 'https://oss.jkydata.com/000000/NDP461-KB3102436-x86-x64-AllOS-ENU.exe'
          Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');
          Exec(Path, url , '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

          MsgBox('请安装好.Net Framework 4.6.1环境后，再运行本安装包程序！',mbInformation,MB_OK);
          Result := false;
      end

  //  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\.NETFramework\v4.0') then
  //   begin
  //       Result := true;
  //       MsgBox('aabb',mbInformation,MB_OK);
  //   end
  //  else
  //    begin
 //        MsgBox('请安装.Net Framework 4.6环境！',mbInformation,MB_OK);
 //        Result := false;
 //     end;




  //////////////////////////////////
  //检测程序是否安装过
 //////////////////////////////////

 // 注意下方要与安装时创建的注册表信息一致
//     begin      
 //       Isbl := true;             
 //       Isstr := '欢迎';
 //       if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Cobabys\ManageCloud', 'INSTALL') then
  //         begin
 //           MsgBox('软件已安装过，如果需要重新安装,请先卸载再安装！',mbConfirmation, MB_OK);
 //           isbl := false;
 //         end; 
 //
 //       Result := Isbl;             
 //     end;       
      
  end;