.NET - Detect framework

From ISXKB

(Difference between revisions)
Jump to: navigation, search
(Code reformatted and simplyfied)
(External links: CodeProject link according to NG added)
Line 54: Line 54:
== External links ==
== External links ==
-
[http://support.microsoft.com/kb/315291 MSKB - How to detect the installed version of the .NET Framework]
+
*[http://support.microsoft.com/kb/315291 MSKB - How to detect the installed version of the .NET Framework]
 +
*[http://www.codeproject.com/KB/install/dotnetinstallerforinno.aspx .NET Framework 1.1 Installer for Innosetup] at CodeProject
[[Category:Applications]]
[[Category:Applications]]

Revision as of 13:08, 14 March 2009

Detect if the .NET framework is installed, and open a browser window with the download URL if it is not.

Code provided by AG and Matej Cerk

[Setup]
AppName=NETFramewrok
AppVerName=NETFramewrok
DefaultDirName={pf}\NETFramewrok
DisableStartupPrompt=true
 
[Code]

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
  NetFrameWorkInstalled : Boolean;
  Result1 : Boolean;
begin
  NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.0');
  if NetFrameWorkInstalled then
  begin
    Result := true;
  end else
  begin
    NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.1');
    if NetFrameWorkInstalled then
    begin
      Result := true;
    end else
    begin
      Result1 := MsgBox('This setup requires the .NET Framework. Please download and install the .NET Framework and run this setup again. Do you want to download the framwork now?',
        mbConfirmation, MB_YESNO) = idYes;
      if Result1 =false then
      begin
        Result:=false;
      end else
      begin
        Result:=false;
        ShellExec('open',
          'http://download.microsoft.com/download/a/a/c/aac39226-8825-44ce-90e3-bf8203e74006/dotnetfx.exe',
          '','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
      end;
    end;
  end;
end;

See also

External links

Personal tools
Ads: