delphi判断.net FrameWork是否已安装
判断系统中.NET FrameWork已安装版本的方法很多，比如检查C:\Windows\Microsoft.NET\Framework\下的子目录，但是子目录往往是包含版本号，比如v2.0.50727、v4.0.30319，当然网上也有一些是判断注册表中的HKEY_LOCAL_MACHINE\Software\Microsoft\.NETFramework下的子目录，这个和判断系统文件一样下面都显示的版本号，
经过发现，安装了.NET FrameWork会在HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\下有记录，比如V4.0 V3.5
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
ShowMessage(E.message);
end;
end;
调用的地方传入版本号即可
if CheckNetFrameWork(‘v4‘) or CheckNetFrameWork(‘v4.0‘) then
begin
ShowMessage(‘.NET FrameWork 4.0已安装‘);
end;
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
