Option Explicit
 'Константы
		Public Const PROCESSOR_INTEL_386 = 386
		Public Const PROCESSOR_INTEL_486 = 486
		Public Const PROCESSOR_INTEL_PENTIUM = 586
		Public Const PROCESSOR_MIPS_R4000 = 4000
		Public Const PROCESSOR_ALPHA_21064 = 21064
'Типы
		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
		Type OSVERSIONINFO
				dwOSVersionInfoSize As Long
				dwMajorVersion As Long
				dwMinorVersion As Long
				dwBuildNumber As Long
				dwPlatformId As Long
				szCSDVersion As String * 128
		End Type
		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
'Операторы Declare
		Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
			(LpVersionInformation As OSVERSIONINFO) As Long
		Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
			MEMORYSTATUS)
		Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _
			SYSTEM_INFO)