My Friend tell me to using GetSystemInfo api function to get a couple information :
- Number of procesor
- ProcessorType
- Low memory address -> MinimumApplicationAddress
- High memory address -> MaximumApplicationAddress
but i didn't know how to use this function.
anyone know how to do this???
please help me to solve my question, any help and suggestion will appreciated much.
Thank you very much.


Recommended Answers

All 4 Replies

try this following code vega :

Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
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 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
    MsgBox "Number of procesor:" + Str$(SInfo.dwNumberOrfProcessors) & vbCrLf & _
    "Processor:" + Str$(SInfo.dwProcessorType) & vbCrLf & _
    "Low memory address:" + Str$(SInfo.lpMinimumApplicationAddress) & vbCrLf & _
    "High memory address:" + Str$(SInfo.lpMaximumApplicationAddress)
    Unload Me
End Sub
commented: Worked like charm +1
commented: me :condused: +1
commented: Approve +1

tell me if this code worked...

commented: you know this code worked perfect +1

Works like a charm :)

glad to it worked...
Happy coding friend :)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.