测试环境发版

XHWK.WKTool/App.config

@@ -5,12 +5,12 @@
   </startup>
   <appSettings>
     <!--0正式 1测试-->
-    <add key="IsDebug" value="0" />
+    <add key="IsDebug" value="1" />
     <!--参数是否加密 0不加密 1加密-->
     <add key="IsParameterEncryption" value="0" />
     <!--版本号-->
-    <add key="VersionCode" value="105" />
-    <add key="VersionName" value="3.1.11" />
+    <add key="VersionCode" value="106" />
+    <add key="VersionName" value="3.1.12" />
     <!--皮肤样式 0白 1蓝 2黑色 -->
     <add key="SkinStyle" value="0" />
     <!--是否输出视频记录日志：0否-->

XHWK.WKTool/App.xaml.cs

@@ -507,9 +507,9 @@ namespace XHWK.WKTool
 
         private static void HandleException(Exception ex)
         {
-            MessageBox.Show("出错了，请与开发人员联系：" + ex.Message);
             //记录日志
             LogHelper.WriteErrLog("未捕获异常：" + ex.Message, ex);
+            Current.Shutdown();
         }
 
         #region 数据保存和读取
@@ -707,8 +707,6 @@ namespace XHWK.WKTool
 
         #endregion 服务地址数据
 
-        #region 内存处理 -创建人：赵耀 -创建时间：2020年8月12日
-
         /// <summary>
         /// 内存释放压缩
         /// </summary>
@@ -717,24 +715,7 @@ namespace XHWK.WKTool
         protected override void OnStartup(StartupEventArgs e)
         {
             RegisterEvents();
-            new Thread(o =>
-            {
-                while (true)
-                {
-                    try
-                    {
-                        //FreeMemoryHelper.SetDate();
-                        FreeMemoryHelper.ReallocateMemory();
-                        Thread.Sleep(20000);//暂定每20秒释放一次
-                    }
-                    catch (Exception ex)
-                    {
-                        LogHelper.WriteErrLog("【释放内存（MyApp）" + ex.Message, ex);
-                    }
-                }
-            }).Start();
+            base.OnStartup(e);
         }
-
-        #endregion 内存处理 -创建人：赵耀 -创建时间：2020年8月12日
     }
 }

星火微课/星火微课-正式.iss

@@ -3,7 +3,7 @@
 
 #define MyAppName "星火微课"  
 #define MyAppDir "xhwk"
-#define MyAppVersion "3.1.10"
+#define MyAppVersion "3.1.12"
 #define MyAppPublisher "河南星火燎原软件科技有限公司"
 #define MyAppURL "http://www.xhkjedu.com/"
 #define MySourcePath "D:\Project\CSharp\xhwkclient\XHWK.WKTool\bin\x86\Debug\"
@@ -56,6 +56,63 @@ Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Fil
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
 
 [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]);
+  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
+            // 软件没在运行
+            Result:= true;
+            Exit;
+         end;
+      end;
+  end;
+  Result :=true;
+end;
+
+// 开始页下一步时判断软件是否运行
+function NextButtonClick(CurPageID: Integer): Boolean;
+begin
+  if 1=CurPageID then begin
+      Result := KDetectSoft('{#MyAppExeName}');
+      Exit;
+  end; 
+  Result:= true;
+end;
+
+// 卸载时关闭软件
+function InitializeUninstall(): Boolean;
+begin
+  Result := KDetectSoft('{#MyAppExeName}');
+end;
+
+
 // 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:
@@ -181,3 +238,6 @@ begin
         end;   
     end;
 end;
+
+[CustomMessages]
+chinesesimp.checkSoftTip=安装程序检测到将安装的软件正在运行！%n%n点击"确定"终止软件后继续操作，否则点击"取消"。

星火微课/星火微课-测试.iss

@@ -3,7 +3,7 @@
 
 #define MyAppName "星火微课"  
 #define MyAppDir "xhwk"
-#define MyAppVersion "3.1.7"
+#define MyAppVersion "3.1.12"
 #define MyAppPublisher "河南星火燎原软件科技有限公司"
 #define MyAppURL "http://www.xhkjedu.com/"
 #define MySourcePath "D:\Project\CSharp\xhwkclient\XHWK.WKTool\bin\x86\Debug\"
@@ -55,7 +55,62 @@ Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Fil
 [Run]
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
 
-[Code]  
+[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]);
+  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
+            // 软件没在运行
+            Result:= true;
+            Exit;
+         end;
+      end;
+  end;
+  Result :=true;
+end;
+
+// 开始页下一步时判断软件是否运行
+function NextButtonClick(CurPageID: Integer): Boolean;
+begin
+  if 1=CurPageID then begin
+      Result := KDetectSoft('{#MyAppExeName}');
+      Exit;
+  end; 
+  Result:= true;
+end;
+
+// 卸载时关闭软件
+function InitializeUninstall(): Boolean;
+begin
+  Result := KDetectSoft('{#MyAppExeName}');
+end;
+
 // 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:
@@ -181,3 +236,7 @@ begin
         end;   
     end;
 end;
+
+
+[CustomMessages]
+chinesesimp.checkSoftTip=安装程序检测到将安装的软件正在运行！%n%n点击"确定"终止软件后继续操作，否则点击"取消"。