主题：[求助]检测环境

.net 版本

Dim fn As String = Filesys.GetParentPath(SpecialFolder.System) & "\Microsoft.NET\Framework"
If FileSys.DirectoryExists(fn) Then
    For Each dir As String In FileSys.GetDirectories(fn)
        output.show(filesys.GetName(dir))
    Next

Else

    msgbox("没有安装")
End If

sqlserver

Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
Dim DataTable As System.Data.DataTable = instance.GetDataSources()
If DataTable.Rows.Count = 0 Then
    msgbox("没有检测到sqlserver")
Else
    For Each Row As data.DataRow In DataTable.Rows
        output.show(Row("ServerName"))
    Next
End If

系统版本

msgbox(System.Environment.OSVersion.VersionString)

Microsoft Windows NT 3.1 (1993-2000) 
Microsoft Windows NT 3.5 (1994-1995) 
Microsoft Windows NT 3.51 (1995-2001)
Microsoft Windows NT 4.0 (1996-2007) 
Microsoft Windows 2000 (Windows NT 5.0) (1999) (2000-2010) 
Microsoft Windows XP (Windows NT 5.1) (2001-2014) 
Microsoft Windows Server 2003 (Windows NT 5.2) (2003-2015) 
Microsoft Windows Server 2003 R2 (Windows NT 5.2) (2006-2015)
Microsoft Windows Vista (Windows NT 6.0) (2006-2017) 
Microsoft Windows Server 2008 (Windows NT 6.0) (2008-2018) 
Microsoft Windows 7 (Windows NT 6.1) (2009-2020) 
Microsoft Windows Server 2008 R2 (Windows NT 6.1) (2009-2018) 
Microsoft Windows 8 (Windows NT 6.2) (2012-2023) 
Microsoft Windows Server 2012(Windows NT 6.2) (2012-2023) 
Microsoft Windows Phone 8 (Windows NT 6.2) (2012-2014) 
Microsoft Windows 8.1 (Windows NT 6.3) (2013-2023)
Microsoft Windows Server 2012 R2 (Windows NT 6.3) (2013-2023)

 制作安装程序的时候，是无法检测你那些东西。

 检测你可以在foxtable里面检测，不满足就不打开项目。