'Beispiel: VB .Net - .Net Framework - Installiertes Service Pack aus der Registry ermitteln ' Option Explicit On Option Strict On Imports Microsoft.Win32 Imports System.Environment Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.Text = "Testform <.Net Framework - Installiertes Service Pack aus der Registry ermitteln>" Me.CenterToScreen() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim Version As String = ServicePack.GetServicePackNumber() If Version = Nothing Then Throw New Exception("Error...") Else MessageBox.Show(Version, "Info") End If End Sub End Class Public Class ServicePack Private Shared ReadOnly Property MajorVersion() As Integer Get Return Version.Major() End Get End Property Private Shared ReadOnly Property MinorVersion() As Integer Get Return Version.Minor() End Get End Property Private Shared ReadOnly Property BuildVersion() As Integer Get Return Version.Build() End Get End Property Private Shared _frameworkversion As String = _ "v" & _ MajorVersion.ToString() & "." & _ MinorVersion.ToString & "." & _ BuildVersion.ToString() Private Shared Property FrameworkVersion() As String Get Return _frameworkversion End Get Set(ByVal value As String) _frameworkversion = value End Set End Property Public Shared ReadOnly Property GetServicePackNumber() As String Get Return Framework_GetServicePack() End Get End Property Private Shared Function Framework_GetServicePack() As String Dim hKey As RegistryKey = Nothing Const Path As String = "SOFTWARE\Microsoft\NET Framework Setup\NDP\" Try hKey = Registry.LocalMachine.OpenSubKey(Path & FrameworkVersion, False) Return hKey.GetValue("SP").ToString() Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") Finally If hKey IsNot Nothing Then hKey.Close() End Try Return Nothing End Function End Class