CPU-Geschwindigkeit ermitteln Dieser Tipp zeigt, wie man die Prozessorgeschwindigkeit (CPU) ermittelt
Autor:   Microsys Kramer	Bewertung:     [ Jetzt bewerten ]	Views:  2.323
www.access-paradies.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesem Code lässt sich die Prozessorgeschwindigkeit (CPU) ermitteln. Hierzu wird der entsprechende Eintrag einfach aus der Windows-Registry ausgelesen.

Fügen Sie nachfolgenden Code in ein Modul ein.

Option Explicit
 
' Benötigte API-Deklarationen 
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
 
Private Const sCPURegKey = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
 
Private Declare Function RegOpenKey Lib "advapi32" _
  Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, _
  ByVal lpSubKey As String, _
  phkResult As Long) As Long
 
Private Declare Function RegQueryValueEx Lib "advapi32" _
  Alias "RegQueryValueExA" ( _
  ByVal hKey As Long, _
  ByVal lpValueName As String, _
  ByVal lpReserved As Long, _
  lpType As Long, _
  lpData As Any, _
  lpcbData As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32" ( _
  ByVal hKey As Long) As Long

Public Function GetCPUSpeed() As String
  On Error GoTo Err_GetCPUSpeed
 
  Dim hKey        As Long
  Dim cpuSpeed    As Long
 
  ' Registry öffnen
  Call RegOpenKey(HKEY_LOCAL_MACHINE, sCPURegKey, hKey)
 
  ' Wert auslesen
  Call RegQueryValueEx(hKey, "~MHz", 0, 0, cpuSpeed, 4)
 
  ' Registry wieder schließen
  Call RegCloseKey(hKey)
 
  If cpuSpeed < 1000 Then
    GetCPUSpeed = Format(cpuSpeed, "##0.##") & " MHz"
  Else
    GetCPUSpeed = Format((cpuSpeed / 1000), "##0.##") & " GHz"
  End If
 
Exit_GetCPUSpeed:
  Exit Function
 
Err_GetCPUSpeed:
  GetCPUSpeed = "Die CPU-Geschwindigkeit konnte nicht ermittelt werden"
  Resume Exit_GetCPUSpeed
End Function