|
Public Declare Sub GlobalMemoryStatus Lib "kernel32" _
(lpBuffer As MemoryStatus) Public Const Reg_DWORD = 4 Public Const HKEY_DYN_DATA = &H80000006 Public Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOfProcessors As Long dwProcessorType As Long dwAllocatedGranularity As Long dwReserved As Long End Type Public Type MemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Public Declare Sub GetSystemInfo Lib "kernel32" _ (lpSystemInfo As SYSTEM_INFO) Public Const PROCESSOR_INTEL_386 = 386 Public Const PROCESSOR_INTEL_486 = 486 Public Const PROCESSOR_INTEL_586 = 586 Public Const PROCESSOR_MIPS_R4000 = 4000 Public Const PROCESSOR_ALPHA_21064 = 21064 Public Const PROCESSOR_ARCHITECTURE_INTEL = 0 Public Const PROCESSOR_ARCHITECTURE_MIPS = 1 Public Const PROCESSOR_ARCHITECTURE_ALPHA = 2 Public Const PROCESSOR_ARCHITECTURE_PPC = 3 Public Const PROCESSOR_ARCHITECTURE_UNKNOWN = &HFFFF Public Const GFSR_SYSTEMRESOURCES = &H0 Public Const GFSR_GDIRESOURCES = &H1 Public Const GFSR_USERRESOURCES = &H2 Public Const RES_INFO = 2 Declare Function RegOpenKey Lib "advapi32.dll" Alias _ "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey _ As String, phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hkey As Long) As Long Declare Function cpu_speed Lib "cpu32.dll" () As Integer Declare Function cpu_id Lib "cpu32.dll" () As Integer Declare Function fpu_id Lib "cpu32.dll" () As Integer Global Const FPUInternal = -1 Global Const FPUNone = 0 Global Const FPU8087 = 1 Global Const FPU80287 = 2 Global Const FPU80387 = 3 Global Const CPU8088 = 0 Global Const CPU8086 = 1 Global Const CPU80268 = 2 Global Const CPU80386 = 3 Global Const CPU80486 = 4 Global Const CPUPentium = 5 Global Const CPUPII = 6 Questa e' una parte del codice di un esempio per creare un OCX che riporti informazioni dettagliate sul sistema utilizzato. |