http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FWindows_API%2FWindow_InstallationVBA/Excel/Access/Word/Windows API/Window Installation - История изменений2026-04-05T12:01:07ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Windows_API/Window_Installation&diff=1939&oldid=prev в 16:33, 26 мая 20102010-05-26T16:33:00Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Windows_API/Window_Installation&diff=1940&oldid=prevAdmin: 1 версия2010-05-26T12:48:32Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Get system temp directory==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type MEMORYSTATUS<br />
dwLength As Long<br />
dwMemoryLoad As Long<br />
dwTotalPhys As Long<br />
dwAvailPhys As Long<br />
dwTotalPageFile As Long<br />
dwAvailPageFile As Long<br />
dwTotalVirtual As Long<br />
dwAvailVirtual As Long<br />
End Type<br />
Type SYSTEM_INFO<br />
dwOemID As Long<br />
dwPageSize As Long<br />
lpMinimumApplicationAddress As Long<br />
lpMaximumApplicationAddress As Long<br />
dwActiveProcessorMask As Long<br />
dwNumberOrfProcessors As Long<br />
dwProcessorType As Long<br />
dwAllocationGranularity As Long<br />
dwReserved As Long<br />
End Type<br />
Declare Function abGetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long<br />
Public Const MAX_PATH = 160<br />
Sub GetSysInfo()<br />
Dim intMousePresent As Integer<br />
Dim strBuffer As String<br />
Dim intLen As Integer<br />
Dim MS As MEMORYSTATUS<br />
Dim SI As SYSTEM_INFO<br />
<br />
strBuffer = Space(MAX_PATH)<br />
intLen = abGetTempPath(MAX_PATH, strBuffer)<br />
Debug.Print "TempDir" & Left(strBuffer, intLen)<br />
<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get temp folder file path==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal Buffer As String) As Long<br />
Public Sub Test()<br />
Dim Buffer As String * 255<br />
Call GetTempPath(255, Buffer)<br />
Debug.Print Buffer<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get Window Installation Path==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type MEMORYSTATUS<br />
dwLength As Long<br />
dwMemoryLoad As Long<br />
dwTotalPhys As Long<br />
dwAvailPhys As Long<br />
dwTotalPageFile As Long<br />
dwAvailPageFile As Long<br />
dwTotalVirtual As Long<br />
dwAvailVirtual As Long<br />
End Type<br />
Type SYSTEM_INFO<br />
dwOemID As Long<br />
dwPageSize As Long<br />
lpMinimumApplicationAddress As Long<br />
lpMaximumApplicationAddress As Long<br />
dwActiveProcessorMask As Long<br />
dwNumberOrfProcessors As Long<br />
dwProcessorType As Long<br />
dwAllocationGranularity As Long<br />
dwReserved As Long<br />
End Type<br />
Declare Function abGetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long<br />
Public Const MAX_PATH = 160<br />
Sub GetSysInfo()<br />
Dim intMousePresent As Integer<br />
Dim strBuffer As String<br />
Dim intLen As Integer<br />
Dim MS As MEMORYSTATUS<br />
Dim SI As SYSTEM_INFO<br />
<br />
strBuffer = Space(MAX_PATH)<br />
intLen = abGetWindowsDirectory(strBuffer, MAX_PATH)<br />
Debug.Print "WindowsDir" & Left(strBuffer, intLen)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get Windows System Path==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type MEMORYSTATUS<br />
dwLength As Long<br />
dwMemoryLoad As Long<br />
dwTotalPhys As Long<br />
dwAvailPhys As Long<br />
dwTotalPageFile As Long<br />
dwAvailPageFile As Long<br />
dwTotalVirtual As Long<br />
dwAvailVirtual As Long<br />
End Type<br />
Type SYSTEM_INFO<br />
dwOemID As Long<br />
dwPageSize As Long<br />
lpMinimumApplicationAddress As Long<br />
lpMaximumApplicationAddress As Long<br />
dwActiveProcessorMask As Long<br />
dwNumberOrfProcessors As Long<br />
dwProcessorType As Long<br />
dwAllocationGranularity As Long<br />
dwReserved As Long<br />
End Type<br />
Declare Function abGetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long<br />
Public Const MAX_PATH = 160<br />
Sub GetSysInfo()<br />
Dim intMousePresent As Integer<br />
Dim strBuffer As String<br />
Dim intLen As Integer<br />
Dim MS As MEMORYSTATUS<br />
Dim SI As SYSTEM_INFO<br />
<br />
strBuffer = Space(MAX_PATH)<br />
intLen = abGetSystemDirectory(strBuffer, MAX_PATH)<br />
Debug.Print "SystemDir" & Left(strBuffer, intLen)<br />
End Sub<br />
</source></div>Admin