如何使用Delphi 7检测.net框架版本

看到这段代码

program DetectNetFrameWork;

{$APPTYPE CONSOLE}

uses
  Windows,Registry,SysUtils;

const
NetFrameworkv1   ='SOFTWAREMicrosoft.NETFrameworkpolicyv1.0';
NetFrameworkv1_1 ='SOFTWAREMicrosoftNET Framework SetupNDPv1.1.4322';
NetFrameworkv2   ='SOFTWAREMicrosoftNET Framework SetupNDPv2.0.50727';
NetFrameworkv3   ='SOFTWAREMicrosoftNET Framework SetupNDPv3.0';
NetFrameworkv3_5 ='SOFTWAREMicrosoftNET Framework SetupNDPv3.5';
NetFrameworkv4   ='SOFTWAREMicrosoftNET Framework SetupNDPv4';


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.

你可以查看这些链接了解更多信息

> Detecting .NET with Delphi by Bob Swart
> How to detect what .NET Framework versions and service packs are installed?