'Dieser Code-Abschnitt funktioniert nur ab .NET 4!
Imports Microsoft.Win32                 'für die RegistryKey-Klasse
Imports Microsoft.VisualBasic.Devices   'für SysInfo
 
Private Function IRGENDWAS
    Dim BasisSchlüssel As RegistryKey
    Dim UnterSchlüssel As RegistryKey
 
    'Prüfen ob es sich um ein 64-Bit oder 32-Bit Betriebsystem handelt
    'Im Grunde genommen will ich nur wissen, wie ich diese If-Anweisung ändern 
    ' muss:
    '--------------------------------------------------------------------------
    If Enviroment.Is64BitOperatingSystem = True Then
        BasisSchlüssel = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
                                                 RegistryView.Registry64)
    '--------------------------------------------------------------------------
    'Der Rest würde auch unter .NET 3.5 passen
        UnterSchlüssel = BasisSchlüssel.OpenSubKey("SOFTWARE\Microsoft" & _
                                                       "\Windows" & _
                                                       "NT\CurrentVersion", _
                                                       False)
 
    Else 'Andernfalls (32-Bit)
            UnterSchlüssel = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft" & _
                                                              "\Windows" & _
                                                              "NT\CurrentVersi" & _
                                                              "n", False)
    End If
 
    .
    .
    .
End Function

if IntPtr.Size = 8 then

BasisSchlüssel = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
                                                 RegistryView.Registry64)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Imports System.Runtime.InteropServices
 
    <DllImport("kernel32.dll", SetLastError:=True, _
      CallingConvention:=CallingConvention.Winapi)> _
    Public Function IsWow64Process( _
        ByVal hProcess As Long, _
        ByRef Wow64Process As Boolean) As Long
    End Function
    Private Function Is64BitOperatingSystem() As Boolean
        If IntPtr.Size = 8 Or IntPtr.Size = 4 And _
          Is32BitProcessOn64BitProcessor() Then
            Return True
        Else
            Return False
        End If
    End Function
    Private Function Is32BitProcessOn64BitProcessor() As Boolean
        Dim RetVal As Boolean
        IsWow64Process(Process.GetCurrentProcess().Handle, RetVal)
        Return RetVal
    End Function

Zitat:

Andersrum wenn du etwa RegistryView.Registry64 verwendest wird unbedingt aus der 64Bit Registry gelesen (es sei denn es ist ein 32Bit OS, wo es nur eine 32Bit Registry gibt)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist