innosetup 判断电脑有没有安装.netFramework

最新推荐文章于 2020-08-06 17:52:12 发布

aa1991

最新推荐文章于 2020-08-06 17:52:12 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： MFC

本文链接：https://blog.youkuaiyun.com/aa1991/article/details/9295363

MFC 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一种使用Delphi编写的安装程序脚本，该脚本能够检查目标计算机上是否已安装.NET Framework 2.0。如果没有安装，则会自动下载并执行安装程序。此外，还提供了一个卸载现有程序的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[code]
function CheckDotNet2_0():boolean;
begin
Result:=not RegKeyExists(HKLM,'SOFTWARE/Microsoft/.NETFramework/policy/v2.0');
end;
function InitializeSetup(): Boolean;
var Path:string;
ResultCode: Integer;
begin
if CheckDotNet2_0() then
begin
ExtractTemporaryFile('dotnetfx20.exe');
Exec(ExpandConstant('{tmp}/dotnetfx20.exe'),'', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
end;
Result:=true;
end;

[Files]
.........
Source: "F:/周公的专栏/dotnetfx20.exe"; DestDir: "{tmp}"; Flags: ignoreversion
; 周公的专栏友情提示:dotnetfx20.exe并不会拷贝到安装后的目录中，而是在临时目录中，这样重启机器之后就会被删除掉 

[code]
function CheckDotNet2_0():boolean;
begin
Result:=not RegKeyExists(HKLM, 'SOFTWARE/Microsoft/.NETFramework/policy/v2.0');
end;

function InitializeSetup(): Boolean;
var Path:string;
    ResultCode: Integer;
begin
  if CheckDotNet2_0() then
  begin
    ExtractTemporaryFile('dotnetfx20.exe');
    Exec(ExpandConstant('{tmp}/dotnetfx20.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
  end;
  Result:=true;
end;

参考这个
procedure
InitializeWizard();
var 
ResultStr: String;
    ResultCode:
Integer;
begin
  if
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\你的程序名_is1',
'UninstallString', ResultStr)
then
  begin
    ResultStr := RemoveQuotes(ResultStr);
    Exec(ResultStr,
'', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
  end;
end;