Delphi检测.Net版本

检测.Net环境，用C#或者VB来说，貌似不可行，因为他们的运行也需要.Net支持。用2.0写过，但在Win10下检测工具无法运行。C++没掰扯明白，所以用从未接触过的Delphi来实现。

目前网上检测.Net版本的方法很多，通常有检查Framework目录下的子目录、检查注册表。查看了下在安装了.Net的机器中会在HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\下有记录，比如V4.0 V3.5。所以我想从此处入手。

第一次使用Delphi，可能很多地方不规范或有错误，欢迎指正。

         

program U_Read;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Controls,
  Forms,
  Registry;

var
     path : string;

  function CheckNetFrameWork(sVersion:string): Boolean;
  var ff:boolean;
   sqlstr,DBServerName,DBName,DBID,DBPwd:string;  
   reg:TRegistry;  
  begin
    Result := False;
  try
    Reg:= TRegistry.Create;  
    try
      Reg.RootKey := HKEY_LOCAL_MACHINE ;
      if Reg.OpenKeyReadOnly('\Software\Microsoft\NET Framework Setup\NDP\'+sVersion) then  
      begin  
        Result := True;
        Reg.CloseKey;
      end  
    finally
      Reg.Free;  
    end;  
  except on e:exception do  
     writeLn(E.message);
  end;  
end;

begin
  if CheckNetFrameWork('v4') or CheckNetFrameWork('v4.0')   then
begin
  path :=ExtractFileDir(ParamStr(0))+'\U_DiskRead\U_DiskRead.exe';
  //writeLn('.NET FrameWork 4.0已安装');
end
else
begin
 path :=ExtractFileDir(ParamStr(0))+'\Microsoft .NET Framework 4.0\dotNetFx40_Full_x86_x64.exe';
   //writeLn();
end;
 WinExec(Pansichar(path),SW_SHOWNORMAL);
end.

代码极其简单，检测是否安装.Net 4.0 如果安装则运行指定程序，如果没有则运行.Net 安装包。

因为是检测工具，所以需要将控制台窗体隐藏，可以将{$APPTYPE CONSOLE}注释。

另外程序是面向用户的，所以需要修改程序的运行图标。

一般来说，在delphi中可以通过 Project – Options – Application 来加载图标，但是有时这个选项是灰掉的，特别在控制台程序中是不可用的。让它出现的方法如下：

在dpr文件uses部分添加 forms 
在begin之前添加 {$R *.res} 
在运行的部分添加 Application.Initialize;

第一次接触Delphi，感觉挺不错。后期继续研究。