VBNet - Форум - сведения о системе....

Вопрос: сведения о системе.... Добавлено: 02.02.04 19:24

Автор вопроса: ZoomerSD | ICQ: 148640473

Господа прогамисты, подскажите пожалуйста, как мне определить такие вещи:
Полная версия виндовс(Windows XP Professional Build такой-то)
Количество жёстких дисков, и их размер
Количество оперативной памяти
Процессор(AMD Athlon 750 MHz например)
Пожалуйста, кто чем можеть, подскажите.....

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #1

Добавлено: 02.02.04 21:22

Есть куча контролов на эту тему, у меня парочка есть, но винду он тебе не вычеслят...т.к они вооще для NT/95/98 преднозначены

Ответить

Номер ответа: 2
Автор ответа:

Artificial Intelligence

ICQ: 275368971

Вопросов: 8
Ответов: 131

Профиль | | #2

Добавлено: 03.02.04 12:39

'Возвращает номер версии Windows...
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long

Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      ' Maintenance string for PSS usage
End Type

'Возвращает информацию о системе
Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

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

Ответить

Номер ответа: 3
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #3

Добавлено: 03.02.04 13:00

StrikeR а если не контролами?

Artificial Intelligence что-то я не все понял в твоих кодах, первый всё время ноль возвращает, а второй числа(как и должен) но встаёт вопрос, как их расшифровать....

Ответить

Номер ответа: 4
Автор ответа:

Artificial Intelligence

ICQ: 275368971

Вопросов: 8
Ответов: 131

Профиль | | #4

Добавлено: 03.02.04 13:35

GetVersionEx

Dim OSInfo As OSVERSIONINFO
Dim PIDAs String

'Set the structure size
OSInfo.dwOSVersionInfoSize = Len(OSInfo)

'Get the Windows version
Ret& = GetVersionEx(OSInfo)

'Print the information to the form
Select Case OSInfo.dwPlatformId
        Case 0
                   PID = "Windows 32s "
        Case 1
                   PID = "Windows 95/98"
        Case 2
                   PID = "Windows NT "

End Select

Print "OS: " & PID
Print "Win version:" & str$(OSInfo.dwMajorVersion) & "." & LTrim(str(OSInfo.dwMinorVersion))

Print "Build: " & str(OSInfo.dwBuildNumber)

GetSystemInfo

Dim SInfo As SYSTEM_INFO

GetSystemInfo SInfo

Print "Number of procesor:" + str$(SInfo.dwNumberOrfProcessors)
Print "Processor:" + str$(SInfo.dwProcessorType)
Print "Low memory address:" + str$(SInfo.lpMinimumApplicationAddress)

Print "High memory address:" + str$(SInfo.lpMaximumApplicationAddress)

Ответить

Страница: 1 |