当前位置 : 主页 > 编程语言 > delphi >

本人亲测-inno setup打包EXE(较完整实例)

来源:互联网 收集:自由互联 发布时间:2021-06-23
; 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 "消息助手, Inc."#define MyAppURL

; 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 "消息助手, Inc."#define MyAppURL "http://www.newhero.com.cn/"#define MyAppExeName "消息助手.exe"[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.); 打包时需要生成一个新的GUID(UUID uuid = UUID.randomUUID();System.out.println(uuid);)AppId={{85773db6-6d50-40ad-9371-c0f603bb1f31}AppName={#MyAppName}AppVersion={#MyAppVersion}AppVerName={#MyAppName} {#MyAppVersion}AppPublisher={#MyAppPublisher}AppPublisherURL={#MyAppURL}AppSupportURL={#MyAppURL}AppUpdatesURL={#MyAppURL}DefaultDirName={pf}\{#MyAppName}DisableProgramGroupPage=yesOutputBaseFilename=消息助手 ;默认开始菜单名DefaultGroupName=消息助手 Compression=lzmaSolidCompression=yesDisableFinishedPage=yesAlwaysRestart=no[Languages]Name: "chinesesimp"; MessagesFile: "compiler:Languages\chinesesimp.isl"[Files]Source: "E:\innosetup\*"; DestDir: "{app}"; Flags: ignoreversionSource: "E:\innosetup\kpsignx.dll"; DestDir: "C:\Windows\System32"; Flags: ignoreversionSource: "E:\innosetup\kpsignx.dll"; DestDir: "C:\Windows\SysWOW64"; Flags: ignoreversion; NOTE: Don‘t use "Flags: ignoreversion" on any shared system files[Icons]Name: "{userdesktop}\消息助手"; Filename: "{app}\消息助手.exe"; IconFilename: "{app}\favicon.ico"Name: "{group}\消息助手"; Filename: "{app}\消息助手.exe";Name: "{group}\卸载消息助手"; Filename: "{app}\unins000.exe"[Run];Filename: "{app}\{#MyAppExeName}"; Flags: nowait postinstall skipifsilentFilename:"{app}\kpsignx.bat";Parameters:"-open";自定义不同语言文本[CustomMessages]chinesesimp.checkSoftTip=安装程序检测到将安装的软件正在运行!%n%n点击"确定"终止软件后继续操作,否则点击"取消"。[Code]   // 自定义函数,判断软件是否运行,参数为需要判断的软件的exe名称  function KDetectSoft(strExeName: String): Boolean;  // 变量定义  var ErrorCode: Integer;  var bRes: Boolean;  var strFileContent: AnsiString;  var strTmpPath: String;  // 临时目录  var strTmpFile: String;  // 临时文件,保存查找软件数据结果  var strCmdFind: String;  // 查找软件命令  var strCmdKill: String;  // 终止软件命令  begin    strTmpPath := GetTempDir();    strTmpFile := Format(‘%sfindSoftRes.txt‘, [strTmpPath]);    strCmdFind := Format(‘/c tasklist /nh|find /c /i "%s" > "%s"‘, [strExeName, strTmpFile]);    strCmdKill := Format(‘/c taskkill /f /t /im %s‘, [strExeName]);    //ShellExec(‘open‘, ExpandConstant(‘{cmd}‘), ‘/c taskkill /f /t /im 你的软件名.exe‘, ‘‘, SW_HIDE, ewNoWait, ErrorCode);    //bRes := ShellExec(‘open‘, ExpandConstant(‘{cmd}‘), ‘/c tasklist /nh|find /c /i "你的软件名.exe" > 0.txt‘, ‘‘, SW_HIDE, ewWaitUntilTerminated, ErrorCode);    bRes := ShellExec(‘open‘, ExpandConstant(‘{cmd}‘), strCmdFind, ‘‘, SW_HIDE, ewWaitUntilTerminated, ErrorCode);    if bRes then begin        bRes := LoadStringFromFile(strTmpFile, strFileContent);        strFileContent := Trim(strFileContent);        if bRes then begin           if StrToInt(strFileContent) > 0 then begin              if MsgBox(ExpandConstant(‘{cm:checkSoftTip}‘), mbConfirmation, MB_OKCANCEL) = IDOK then begin               // 终止程序               ShellExec(‘open‘, ExpandConstant(‘{cmd}‘), strCmdKill, ‘‘, SW_HIDE, ewNoWait, ErrorCode);               Result:= true;// 继续安装              end else begin               Result:= false;// 安装程序退出               Exit;              end;           end else begin              //MsgBox(‘软件没在运行‘, mbInformation, MB_OK);              Result:= true;              Exit;           end;        end;    end;    Result :=true;  end;               // 卸载时关闭软件  function InitializeUninstall(): Boolean;  begin    Result := KDetectSoft(‘消息助手.exe‘);  end;//安装包百度搜索 inno setup 下载即可,汉化将chinesesimp.isl文件放到Languages下面即可汉化(此汉化包是给打包以后的安装包汉化的,不是本软件等的汉化包)

上一篇:没有了
下一篇:delphi窗体按钮灰化禁用
网友评论