Процессор

[dasker]

Люди...
Крик души.
Как узнать частоту процессора.
в api есть функция
Public Declare Function GetCPInfo Lib "kernel32" Alias "GetCPInfo" (ByVal CodePage As Long, lpCPInfo As CPINFO) As Long
но она работать не хочет.

[Dmitriy2003]

Уважаемый Вы БЫ хоть описание функции почитали ->

The GetCPInfo function retrieves information about any valid installed or available code page.

что значит -> возвращает информацию об установленных и доступных кодовых страницах.

А при чем тут процессор

Хотя дествительно довольно многие АПИ финкции не носят информативности в своем имени, а что делать кому сейчас легко ???

----------------------------------------------------------------------------------
Ну маленький совет, юзайте WMI - примеры можно в инете раздобыть запросто. (и не нодо говорить что мол Win98 и.т.д.)

[Demonx]

Offtop GetCPInfo - GetCodePagesInfo

[Ничи]

Люди...
Крик души.
Как узнать частоту процессора.
в api есть функция
Public Declare Function GetCPInfo Lib "kernel32" Alias "GetCPInfo" (ByVal CodePage As Long, lpCPInfo As CPINFO) As Long
но она работать не хочет.

Все гениальное просто:

Option Explicit

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const ERROR_SUCCESS As Long = 0&
Public Const REG_DWORD As Long = 4

Public Function GetDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dim keyhand As Long
r = RegOpenKey(hKey, strPath, keyhand)
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
If lValueType = REG_DWORD Then
GetDword = lBuf
End If
End If
r = RegCloseKey(keyhand)
End Function

Private Sub Form_Load()
CpuSpeed = GetDword(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
End Sub

[Мамонт]

Неделю назад мною создавалась идентичная тема!!
http://bbs.vbstreets.ru/search.php юзай!