Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0083: Systemkonfiguration (Speicher & Prozessor) auslesen

 von 

Beschreibung 

Etwas hochgegriffen ist die Überschrift ja schon, tatsächlich läßt sich hiermit die Größe des freien und totalen physischen Speichers und der Auslagerungsdatei erfahren. Zudem wird Auskunft gegeben über die Anzahl der Prozessoren und deren Typ.

Schwierigkeitsgrad:

Schwierigkeitsgrad 2

Verwendete API-Aufrufe:

GetSystemInfo, GlobalMemoryStatus

Download:

Download des Beispielprojektes [2,53 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Es muss ein Verweis auf 'Standard OLE Types' gesetzt werden.
' Es muss ein Verweis auf 'Microsoft DAO 3.0 Object Library' gesetzt werden.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Listen-Steuerelement "List1"

Option Explicit

Private Declare Sub GlobalMemoryStatus Lib "kernel32" _
        (lpBuffer As MEMORYSTATUS)
        
Private Declare Sub GetSystemInfo Lib "kernel32" _
        (lpSystemInfo As SYSTEM_INFO)

Private Type MEMORYSTATUS
  dwLength As Long
  dwMemoryLoad As Long
  dwTotalPhys As Long
  dwAvailPhys As Long
  dwTotalPageFile As Long
  dwAvailPageFile As Long
  dwTotalVirtual As Long
  dwAvailVirtual As Long
End Type

Private Type SYSTEM_INFO
  dwOemID As Long
  dwPageSize As Long
  lpMinimumApplicationAddress As Long
  lpMaximumApplicationAddress As Long
  dwActiveProcessorMask As Long
  dwNumberOfProcessors As Long
  dwProcessorType As Long
  dwAllocationGranularity As Long
  dwReserved As Long
End Type

Const PROCESSOR_INTEL_386 = 386
Const PROCESSOR_INTEL_486 = 486
Const PROCESSOR_INTEL_PENTIUM = 586
Const PROCESSOR_INTEL_860 = 860
Const PROCESSOR_MIPS_R2000 = 2000
Const PROCESSOR_MIPS_R3000 = 3000
Const PROCESSOR_MIPS_R4000 = 4000
Const PROCESSOR_ALPHA_21064 = 21064
Const PROCESSOR_PPC_601 = 601
Const PROCESSOR_PPC_603 = 603
Const PROCESSOR_PPC_604 = 604
Const PROCESSOR_PPC_620 = 620

Private Sub Form_Load()
  Dim AA$
  Dim Memory As MEMORYSTATUS
  Dim SysInf As SYSTEM_INFO
    
    '### Speicherkonfiguration
    Memory.dwLength = Len(Memory)
    Call GlobalMemoryStatus(Memory)
    
    With List1
      .AddItem "phys. Mem " & vbTab & Memory.dwTotalPhys
      .AddItem "phys. Mem frei" & vbTab & Memory.dwAvailPhys
      .AddItem "Ausl. Mem" & vbTab & Memory.dwTotalPageFile
      .AddItem "Ausl. Mem frei" & vbTab & Memory.dwAvailPageFile
    End With
    
    '### Prozessor
    Call GetSystemInfo(SysInf)
    List1.AddItem "Prozessoren" & vbTab & SysInf.dwNumberOfProcessors
    
    Select Case SysInf.dwProcessorType
      Case PROCESSOR_INTEL_386:  AA = "386"
      Case PROCESSOR_INTEL_486:  AA = "486"
      Case PROCESSOR_INTEL_PENTIUM:  AA = "Pentium"
      Case PROCESSOR_INTEL_860: AA = "Intel 860"
      Case PROCESSOR_MIPS_R2000: AA = "MIPS R2000"
      Case PROCESSOR_MIPS_R3000: AA = "MIPS R3000"
      Case PROCESSOR_MIPS_R4000: AA = "MIPS R3000"
      Case PROCESSOR_ALPHA_21064: AA = "ALPHA 21064"
      Case PROCESSOR_PPC_601:  AA = "PPC 601"
      Case PROCESSOR_PPC_603:  AA = "PPC 603"
      Case PROCESSOR_PPC_604:  AA = "PPC 604"
      Case PROCESSOR_PPC_620: AA = "PPC 620"
    End Select
    
    List1.AddItem "Prozessortyp" & vbTab & AA
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 7 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von am 28.11.2007 um 16:06

Hmm...
Leider nich mehr ganz up to date.
Gibt es evtl. eine erweiterte Liste mit den aktuellen Prozessoren ?

Kommentar von keinplan am 21.08.2005 um 12:15

warum lese ich nicht einfach nur die registrie aus die shadow angegeben hat?
scheint doch die einfachere variante zu sein

Kommentar von The Shadow am 15.04.2004 um 11:21

Wenn man genauere Infomationen über den Prozessor haben will kann man bei Win XP in der Registry nachsehen:
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0

Kommentar von MVXA am 13.11.2003 um 21:12

ich glaubs ja wohl nicht ! Das Programm erkennt meinen AMD Athlon XP 2000+ als einen Intel Pentium Prozessor !

Kommentar von Movergan am 08.08.2003 um 20:46

Ich hab 'nen AMD Athlon 1700+ und der Tipp zeigt "Pentium".

Kommentar von Martin Schmitt am 10.05.2002 um 15:59

Hallo!
Wie kann ich den Typ erweitern das dieses Programm auch AMD Prozessoren erkennt samt der Geschwindigkeitsangabe? Also das die Ausgabe z.B. lautet : Athlon 900 oder so...
Vielen Dank im Voraus für eine Antwort!

Kommentar von DrChef am 20.01.2002 um 23:31

sorry aber dieser Tipp behauptet ich hab nen Pentium