'GET System Information
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private Declare Sub GetSystemInfo
Lib "kernel32" _
(lpSystemInfo As SYSTEM_INFO)
Private Sub Form_Load()
Dim SInfo As SYSTEM_INFO
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Get the system information
GetSystemInfo SInfo
'Print it to the form
Me.Print "Number of procesor:" + Str$(SInfo.dwNumberOrfProcessors)
Me.Print "Processor:" + Str$(SInfo.dwProcessorType)
Me.Print "Low memory address:" + Str$(SInfo.lpMinimumApplicationAddress)
Me.Print "High memory address:" + Str$(SInfo.lpMaximumApplicationAddress)
End Sub
Wednesday, April 29, 2009
Get System Information
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment