|
inno 根据windows版本判断所需的.net framework版本.iss
因使用C# 开发一个插件，使用.net framework 4 框架，需要.net framework支持，为了避免不同电脑安装的时候缺少.net framework，使用inno打包需要判断 windows版本和.net framework版本，根据不同的windows版本安装不同的.net framework支持。网上查了一下，只有单独判断.net framework版本的例子，然后就在前人的基础上，增加了一下windows版本判断，根据不同的windows版本，安装不同的.net framework支持，从而保证程序可用。
[Code]
//.net framework安装检查 —— 判断指定的.NET Framework版本及service pack是否已经安装
// 函数参数说明：
// 参数1：version – 指定待判断的.NET Framework版本【下面列举了对应关系】:
// ‘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
//
// 参数2：service – 指定待判断的service pack版本:
// 0 No service packs required
// 1, 2, etc. Service pack 1, 2, etc. required
function IsDotNetDetected(version: string; service: cardinal): boolean;
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;
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;
//判断windows版本
function MyGetWindowsVersion: String; // 获取 Windows 版本
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
// Windows7
if (Version.Major = 6) and (Version.Minor = 0) then
begin
Result := ‘VISTA’;
Exit;
end;
// Windows7
if (Version.Major = 6) and (Version.Minor = 1) then
begin
Result := ‘WIN7’;
Exit;
end;
// Windows XP
if (Version.Major = 5) and (Version.Minor >=1) then
begin
Result := ‘WINXP’;
Exit;
end;
// Windows 8
if (Version.Major = 6) and (Version.Minor >1) then
begin
Result := ‘WIN8’;
Exit;
end;
// Windows 10
if (Version.Major = 10) then
begin
Result := ‘WIN10’;
Exit;
end;
end;
// 根据不同windows版本，判断所需的.netframework版本
function InitializeSetup: Boolean;
var Path:string;
ResultCode: Integer;
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (MyGetWindowsVersion=‘XP’ ) then //或者 (Version.Major = 5)
begin
if IsDotNetDetected(‘v4’, 0) then
begin
Result := true;
End
Else
begin
if MsgBox('系统检测到您没有安装.Net Framework 4 版本，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then
begin
Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');
Exec(Path, 'http://download.microsoft.com/download/1/B/E/1BE39E79-7E39-46A3-96FF-047F95396215/dotNetFx40_Full_setup.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
MsgBox('请安装好.Net Framework环境后(4.0client-4.0Full)，再运行本安装包程序！',mbInformation,MB_OK);
Result := false;
Exit;
End
Else
begin
MsgBox('没有安装.Net Framework环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);
Result := false;
Exit;
end;
end;
end
else
begin
Result := true;
End;
if (MyGetWindowsVersion='WIN7' ) OR (MyGetWindowsVersion='VISTA' ) OR (MyGetWindowsVersion='WIN8' ) then //或者 (Version.Major = 6)
begin
if IsDotNetDetected(‘v4.5’, 0) or IsDotNetDetected(‘v4.5.1’, 0) or IsDotNetDetected(‘v4.5.2’, 0) or IsDotNetDetected(‘v4.6’, 0) or IsDotNetDetected(‘v4.6.1’, 0) or IsDotNetDetected(‘v4.6.2’, 0) or IsDotNetDetected(‘v4.7’, 0) or IsDotNetDetected(‘v4.7.1’, 0) or IsDotNetDetected(‘v4.7.2’, 0) then
begin
Result := true;
End
Else
begin
if MsgBox('系统检测到您没有安装.Net Framework 4.5-4.7.2版本，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then
begin
Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');
//4.5.2
Exec(Path, 'http://download.microsoft.com/download/B/4/1/B4119C11-0423-477B-80EE-7A474314B347/NDP452-KB2901954-Web.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
MsgBox('请安装好.Net Framework环境后(4.5-4.7.2)，再运行本安装包程序！',mbInformation,MB_OK);
Result := false;
Exit;
End
Else
begin
MsgBox('没有安装.Net Framework环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);
Result := false;
Exit;
end;
end;
end
else
begin
Result := true;
End;
if (MyGetWindowsVersion='10' ) then //或者 (Version.Major = 10)
begin
if IsDotNetDetected(‘v4.6.1’, 0) or IsDotNetDetected(‘v4.6.2’, 0) or IsDotNetDetected(‘v4.7’, 0) or IsDotNetDetected(‘v4.7.1’, 0) or IsDotNetDetected(‘v4.7.2’, 0) then
begin
Result := true;
End
Else
begin
if MsgBox('系统检测到您没有安装.Net Framework 4.6.1-4.8版本，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then
begin
Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe');
//4.6.2
Exec(Path, 'http://download.microsoft.com/download/D/5/C/D5C98AB0-35CC-45D9-9BA5-B18256BA2AE6/NDP462-KB3151802-Web.exe', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
MsgBox('请安装好.Net Framework环境后(4.6.1-4.8)，再运行本安装包程序！',mbInformation,MB_OK);
Result := false;
Exit;
End
Else
begin
MsgBox('没有安装.Net Framework环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);
Result := false;
Exit;
end;
end;
end
else
begin
Result := true;
End;
end;
|