Wednesday, April 29, 2009

Get System Information

'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



 

No comments:

Post a Comment