VB 5/6-Tipp 0083: Systemkonfiguration (Speicher & Prozessor) auslesen
von ActiveVB
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: | Verwendete API-Aufrufe: | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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