Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB6 | 18.05.11 |
Unterstützt der Prozessor 64-Bit? Eine kleine Funktion, mit der sich ermitteln lässt, ob der verwendete Prozessor 64-Bit Anwendungen unterstützt. | ||
Autor: Dieter Otter | Bewertung: | Views: 7.501 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe von WMI lassen sich sehr viele System-Informationen ermitteln. Heute stellen wir eine Funktion vor, mit der sich ermitteln lässt, ob der im System verwendete Prozessor 64-Bit tauglich ist.
' Prüft, ob der Prozessor 64-Bit unterstützt Public Function Is64BitProc() As Boolean Dim oWMI As Object Dim oItems As Object Dim oItem As Object ' Fehelrbehandlung On Error GoTo ErrHandler ' WMI-Objekt erstellen Set oWMI = GetObject("winmgmts:\\.\root\CIMV2") ' Prozessor-Daten auslesen Set oItems = oWMI.ExecQuery("SELECT * FROM Win32_Processor") For Each oItem In oItems Is64BitProc = (oItem.DataWidth >= 64) Next On Error GoTo 0 ErrHandler: ' Objekte freigeben Set oItem = Nothing Set oItems = Nothing Set oWMI = Nothing End Function
Die Funktion gibt den Wert True zurück, wenn der Prozessor 64-Bit unterstützt - andernfalls False.