Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Get Window Installation Path

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 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 Declare Function abGetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Const MAX_PATH = 160 Sub GetSysInfo()     Dim intMousePresent As Integer     Dim strBuffer As String     Dim intLen As Integer     Dim MS As MEMORYSTATUS     Dim SI As SYSTEM_INFO     strBuffer = Space(MAX_PATH)     intLen = abGetWindowsDirectory(strBuffer, MAX_PATH)     Debug.Print "WindowsDir" & Left(strBuffer, intLen) End Sub