How to determine .net version with Delphi 7

Question

How to determine .net version with Delphi 7 version?

Answer 1

You can check the Windows registry to determine which version of the network infrastructure is installed.

See this code

program DetectNetFrameWork; {$APPTYPE CONSOLE} uses Windows, Registry, SysUtils; const NetFrameworkv1 ='SOFTWARE\Microsoft\.NETFramework\policy\v1.0'; NetFrameworkv1_1 ='SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322'; NetFrameworkv2 ='SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727'; NetFrameworkv3 ='SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0'; NetFrameworkv3_5 ='SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5'; NetFrameworkv4 ='SOFTWARE\Microsoft\NET Framework Setup\NDP\v4'; function NetFrameworkInstalled(NetFrameWorkId:String): Boolean; var Reg: TRegistry; begin Result := False; Reg := TRegistry.Create(KEY_READ); try Reg.RootKey := HKEY_LOCAL_MACHINE; Result := Reg.KeyExists(NetFrameWorkId); finally Reg.Free; end end; function BoolToStr(Val : Boolean): String; begin if val then result := 'True' else result := 'False'; end; begin Writeln('Net Framework 1.0 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv1))); Writeln('Net Framework 1.1 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv1_1))); Writeln('Net Framework 2.0 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv2))); Writeln('Net Framework 3.0 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv3))); Writeln('Net Framework 3.5 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv3_5))); Writeln('Net Framework 4.0 Installed = '+BoolToStr(NetFrameworkInstalled(NetFrameworkv4))); Readln; end. 

You can check these links for more information.

• Discovering .NET with Delphi by Bob Swart
• How to determine which versions and service packs of the .NET Framework are installed?

Answer 2

How to determine which versions and service packs of the .NET Framework are installed?

Answer 3

Extending @RRUZ's answer to 4.5 and 4.6, GetDOTNETVersion returns the maximum installed version of .NET.

 function GetDOTNETVersion: string; function NetFrameworkInstalled(NetFrameWorkId: String): string; begin Result := '0'; with TRegistry.Create(KEY_READ) do try RootKey := HKEY_LOCAL_MACHINE; if KeyExists(NetFrameWorkId) then try OpenKeyReadOnly(NetFrameWorkId); Result := ReadString('Version'); if Result.IsEmpty then // v4 & v4.0 begin CloseKey; OpenKeyReadOnly(NetFrameWorkId+'\Client'); Result := ReadString('Version'); end; finally CloseKey; end; finally Free; end; end; const NetFrameworkv1 = 'SOFTWARE\Microsoft\.NETFramework\policy\v1.0'; NetFrameworkv1_1 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322'; NetFrameworkv2 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727'; NetFrameworkv3 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0'; NetFrameworkv3_5 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5'; NetFrameworkv4_0 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4.0'; NetFrameworkv4 = 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4'; begin Result := NetFrameworkInstalled(NetFrameworkv4); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv4_0); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv3_5); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv3); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv2); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv1_1); if Result.IsEmpty then Result := NetFrameworkInstalled(NetFrameworkv1); end;