解决部分电脑上无法更新的问题

自动安装运行库不再在线下载

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="114" />
-    <add key="VersionName" value="3.2.5" />
+    <add key="VersionCode" value="115" />
+    <add key="VersionName" value="3.2.6" />
     <!--皮肤样式 0白 1蓝 2黑色 -->
     <add key="SkinStyle" value="0" />
     <!--是否输出视频记录日志：0否-->

XHWK.WKTool/AppUpdateWin.xaml.cs

@@ -1,6 +1,7 @@
 using System;
 using System.Diagnostics;
 using System.IO;
+using System.Management;
 using System.Windows;
 using System.Windows.Input;
 
@@ -82,27 +83,29 @@ namespace XHWK.WKTool
             progress_sp.Visibility = Visibility.Collapsed;
             content_sv.Visibility = Visibility.Visible;
             button_bottom.Visibility = Visibility.Visible;
+
             try
             {
-                using (Process process = new Process())
+                using (var managementClass = new ManagementClass("Win32_Process"))
                 {
-                    process.StartInfo.FileName = filepath;
-                    process.StartInfo.CreateNoWindow = true;
-                    process.StartInfo.UseShellExecute = false;
-                    process.StartInfo.RedirectStandardOutput = true;
-                    process.StartInfo.RedirectStandardError = true;
-
-                    process.Start();
+                    var processInfo = new ManagementClass("Win32_ProcessStartup");
+                    processInfo.Properties["CreateFlags"].Value = 0x00000008;
+
+                    var inParameters = managementClass.GetMethodParameters("Create");
+                    inParameters["CommandLine"] = filepath;
+                    inParameters["ProcessStartupInformation"] = processInfo;
+
+                    var result = managementClass.InvokeMethod("Create", inParameters, null);
+                    if ((result != null) && ((uint)result.Properties["ReturnValue"].Value != 0))
+                    {
+                        Console.WriteLine("Process ID: {0}", result.Properties["ProcessId"].Value);
+                    }
                 }
             }
             catch (Exception)
             {
             }
-            Dispatcher.Invoke(new Action(() =>
-            {
-                Environment.Exit(0);
-            }));
-            Close();
+            Environment.Exit(0);
         }
 
         public void downloadError(int position, string msg)

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

@@ -3,7 +3,7 @@
 
 #define MyAppName "星火微课"  
 #define MyAppDir "xhwk"
-#define MyAppVersion "3.2.5"
+#define MyAppVersion "3.2.6"
 #define MyAppPublisher "河南星火燎原软件科技有限公司"
 #define MyAppURL "http://www.xhkjedu.com/"
 #define MySourcePath "D:\Project\CSharp\xhwkclient\XHWK.WKTool\bin\x86\Debug\"
@@ -18,7 +18,6 @@
 AppId={{5869900A-3BE4-463E-B0A6-462AA7454AE2}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
-;AppVerName={#MyAppName} {#MyAppVersion}
 AppPublisher={#MyAppPublisher}
 AppPublisherURL={#MyAppURL}
 AppSupportURL={#MyAppURL}
@@ -44,6 +43,8 @@ Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{
 Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone; OnlyBelowVersion: 6.1; Check: not IsAdminInstallMode
 
 [Files]
+Source: "D:\Tools\runtime\vc_redist.x86.exe"; DestDir: "{app}\runtime"; Check: NeedInstallVC
+Source: "D:\Tools\runtime\NDP452-KB2901954-Web.exe"; DestDir: "{app}\runtime";
 Source: "{#MySourcePath}{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
 Source: "{#MySourcePath}*"; Excludes: "\Log\*,\Temp,\Data";DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
 
@@ -53,37 +54,28 @@ Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: de
 Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
 
 [Run]
+Filename: "{app}\runtime\vc_redist.x86.exe"; Parameters: /q; WorkingDir: {app}; Flags: skipifdoesntexist; StatusMsg: "Install Microsoft Visual C++ Runtime ..."; Check: NeedInstallVC
+Filename: "{app}\runtime\NDP452-KB2901954-Web.exe"; WorkingDir: {app}; Flags: skipifdoesntexist; StatusMsg: "Install .Net Framework ..."; Check: NeedInstallDotNet
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
 
 [Code]  
-function CheckVC():boolean;
-var Path:string; 
-      ResultCode: Integer;  
+function NeedInstallVC(): Boolean;
 begin
+// 这里，不同版本运行环境对应的GUID不同
   if RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{01FAEC41-B3BC-44F4-B185-5E8475AEB855}', 'Version') 
-  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{77EB1EA9-8E1B-459D-8CDC-1984D0FF15B6}', 'Version') 
-  then  
-    begin  
-      Result := true;   
-    end  
-  else  
-  begin  
-    if MsgBox('系统检测到您没有安装VC++环境，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then  
-      begin  
-        Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');   
-        Exec(Path, 'https://xhkjedu.oss-cn-huhehaote.aliyuncs.com/runtime/vc_redist.x86.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);   
-        MsgBox('请安装好VC++环境后，再运行本安装包程序！',mbInformation,MB_OK);   
-        Result := false;   
-      end  
-    else  
-      begin  
-        MsgBox('取消后请手动安装VC2015-2019环境！',mbInformation,MB_OK);   
-        Result := true;   
-      end;   
-  end;
+  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{77EB1EA9-8E1B-459D-8CDC-1984D0FF15B6}', 'Version')
+  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5720EC03-F26F-40B7-980C-50B5D420B5DE}', 'Version')
+    then
+      begin
+        Result := false;
+      end
+    else
+      begin
+        Result := true;
+      end;
+  Result := true;
 end;
 
-
 function IsInstallDotNet(version: string; service: cardinal): boolean;
 var
     key, versionKey: string;
@@ -145,86 +137,16 @@ begin
 end;
 
 // 检查.Net是否安装
-function CheckDotNet : Boolean;
-var Path:string;   
-    ResultCode: Integer;   
+function NeedInstallDotNet : Boolean;
 begin  
   if IsInstallDotNet('v4.5.2', 0) then  
     begin  
-        Result := true; 
+        Result := false; 
     end  
   else  
     begin  
-      if MsgBox('系统检测到您没有安装.Net Framework4.5.2，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then  
-        begin  
-          Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');   
-          Exec(Path, 'https://xhkjedu.oss-cn-huhehaote.aliyuncs.com/runtime/NDP452-KB2901907-x86-x64-AllOS-ENU.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);   
-          MsgBox('请安装好.Net Framework环境后，再运行本安装包程序！',mbInformation,MB_OK);   
-          Result := false;   
-        end  
-      else  
-        begin  
-          MsgBox('没有安装.Net Framework环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);   
-          Result := false;   
-        end;   
-    end;
-end;
-
-function InitializeSetup: Boolean;
-begin
-  Result := CheckDotNet();
-  Result := CheckVC();
-end;   
-
-
-// 自定义函数，判断软件是否运行，参数为需要判断的软件的exe名称
-function CheckSoftRun(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
-            // 终止程序
-           ShellExec('open', ExpandConstant('{cmd}'), strCmdKill, '', SW_HIDE, ewNoWait, ErrorCode);
-           Result:= true;// 继续安装
-         end else begin
-            // 软件没在运行
-            Result:= true;
-         end;
-      end;
-  end;
-  Result :=true;
-end;
-
-// 开始页下一步时判断软件是否运行
-function NextButtonClick(CurPageID: Integer): Boolean;
-begin
-  if 1=CurPageID then begin
-      Result := CheckSoftRun('{#MyAppExeName}');
-  end 
-  else begin
-      Result:= true;
-   end;
-end;
-
-// 卸载时关闭软件
-function InitializeUninstall(): Boolean;
-begin
-  Result := CheckSoftRun('{#MyAppExeName}');
+        Result := true; 
+    end 
 end;
 
 

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

@@ -1,9 +1,9 @@
 ; 脚本由 Inno Setup 脚本向导 生成！
 ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
 
-#define MyAppName "星火微课"  
-#define MyAppDir "xhwk"
-#define MyAppVersion "3.2.0"
+#define MyAppName "星火微课测试版"  
+#define MyAppDir "xhwk_test"
+#define MyAppVersion "3.2.6"
 #define MyAppPublisher "河南星火燎原软件科技有限公司"
 #define MyAppURL "http://www.xhkjedu.com/"
 #define MySourcePath "D:\Project\CSharp\xhwkclient\XHWK.WKTool\bin\x86\Debug\"
@@ -15,10 +15,9 @@
 ; 注: AppId的值为单独标识该应用程序。
 ; 不要为其他安装程序使用相同的AppId值。
 ; (若要生成新的 GUID，可在菜单中点击 "工具|生成 GUID"。)
-AppId={{5869900A-3BE4-463E-B0A6-462AA7454AE2}
+AppId={{B0C27451-3A3D-4819-9277-8C53517FA787}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
-;AppVerName={#MyAppName} {#MyAppVersion}
 AppPublisher={#MyAppPublisher}
 AppPublisherURL={#MyAppURL}
 AppSupportURL={#MyAppURL}
@@ -44,8 +43,10 @@ Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{
 Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone; OnlyBelowVersion: 6.1; Check: not IsAdminInstallMode
 
 [Files]
+Source: "D:\Tools\runtime\vc_redist.x86.exe"; DestDir: "{app}\runtime"; Check: NeedInstallVC
+Source: "D:\Tools\runtime\NDP452-KB2901954-Web.exe"; DestDir: "{app}\runtime";
 Source: "{#MySourcePath}{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
-Source: "{#MySourcePath}*"; Excludes: "ffmpeg.exe,\Log\*,\Temp,\Data";DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
+Source: "{#MySourcePath}*"; Excludes: "\Log\*,\Temp,\Data";DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
 
 [Icons]
 Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
@@ -53,92 +54,28 @@ Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: de
 Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
 
 [Run]
+Filename: "{app}\runtime\vc_redist.x86.exe"; Parameters: /q; WorkingDir: {app}; Flags: skipifdoesntexist; StatusMsg: "Install Microsoft Visual C++ Runtime ..."; Check: NeedInstallVC
+Filename: "{app}\runtime\NDP452-KB2901954-Web.exe"; WorkingDir: {app}; Flags: skipifdoesntexist; StatusMsg: "Install .Net Framework ..."; Check: NeedInstallDotNet
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
 
 [Code]  
-// 自定义函数，判断软件是否运行，参数为需要判断的软件的exe名称
-function CheckSoftRun(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 := CheckSoftRun('{#MyAppExeName}');
-      Exit;
-  end; 
-  Result:= true;
-end;
-
-// 卸载时关闭软件
-function InitializeUninstall(): Boolean;
-begin
-  Result := CheckSoftRun('{#MyAppExeName}');
-end;
-
-function CheckVC():boolean;
-var Path:string; 
-      ResultCode: Integer;  
+function NeedInstallVC(): Boolean;
 begin
+// 这里，不同版本运行环境对应的GUID不同
   if RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{01FAEC41-B3BC-44F4-B185-5E8475AEB855}', 'Version') 
-  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{77EB1EA9-8E1B-459D-8CDC-1984D0FF15B6}', 'Version') 
-  then  
-    begin  
-      Result := true;   
-    end  
-  else  
-  begin  
-    if MsgBox('系统检测到您没有安装VC++环境，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then  
-      begin  
-        Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');   
-        Exec(Path, 'https://xhkjedu.oss-cn-huhehaote.aliyuncs.com/runtime/vc_redist.x86.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);   
-        MsgBox('请安装好VC++环境后，再运行本安装包程序！',mbInformation,MB_OK);   
-        Result := false;   
-      end  
-    else  
-      begin  
-        MsgBox('取消后请手动安装VC2015-2019环境！',mbInformation,MB_OK);   
-        Result := true;   
-      end;   
-  end;
+  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{77EB1EA9-8E1B-459D-8CDC-1984D0FF15B6}', 'Version')
+  or RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5720EC03-F26F-40B7-980C-50B5D420B5DE}', 'Version')
+    then
+      begin
+        Result := false;
+      end
+    else
+      begin
+        Result := true;
+      end;
+  Result := true;
 end;
 
-
 function IsInstallDotNet(version: string; service: cardinal): boolean;
 var
     key, versionKey: string;
@@ -200,37 +137,14 @@ begin
 end;
 
 // 检查.Net是否安装
-function CheckDotNet : Boolean;
-var Path:string;   
-    ResultCode: Integer;   
+function NeedInstallDotNet : Boolean;
 begin  
   if IsInstallDotNet('v4.5.2', 0) then  
     begin  
-        Result := true; 
+        Result := false; 
     end  
   else  
     begin  
-      if MsgBox('系统检测到您没有安装.Net Framework4.5.2，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then  
-        begin  
-          Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');   
-          Exec(Path, 'https://xhkjedu.oss-cn-huhehaote.aliyuncs.com/runtime/NDP452-KB2901907-x86-x64-AllOS-ENU.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);   
-          MsgBox('请安装好.Net Framework环境后，再运行本安装包程序！',mbInformation,MB_OK);   
-          Result := false;   
-        end  
-      else  
-        begin  
-          MsgBox('没有安装.Net Framework环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);   
-          Result := false;   
-        end;   
-    end;
-end;
-
-function InitializeSetup: Boolean;
-begin
-  Result := CheckDotNet();
-  Result := CheckVC();
-end; 
-
-
-[CustomMessages]
-chinesesimp.checkSoftTip=安装程序检测到将安装的软件正在运行！%n%n点击"确定"终止软件后继续操作，否则点击"取消"。
+        Result := true; 
+    end 
+end;