怎样用VB获取操作系统的安装路径以及操作系统的版本号
问题点数：20、回复次数：4Top
1 楼zytang（zytang）回复于 2001-01-15 20:46:00 得分 10
系统安装路径，使用API函数：
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
系统版本号：
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
给点分吧？穷死了。
Top
2 楼yousoft（悠游在线）回复于 2001-01-15 21:20:00 得分 5
用zytang说的API是可以的。
其实读取注册表HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion中的version可以得到更详细的版本
读取HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Setup
中的sourcepath可以得到安装路径Top
3 楼zytang（zytang）回复于 2001-01-15 21:38:00 得分 0
高，我怎么没想到Top
4 楼sbm（▁▂▃▄▅▇█）回复于 2001-01-16 08:49:00 得分 5
Option Explicit
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpbuffer As String, ByVal nSize As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpbuffer As String, ByVal nSize As Long) As Long
Public Const MAX_PATH = 260
Public WinPath As String
Public WinSysPath As String
Public Sub GetSysPath()
Dim Buffer As String
Buffer = Space(MAX_PATH)
If GetSystemDirectory(Buffer, Len(Buffer)) <> 0 Then
WinSysPath = Trim(Buffer)
End If
Buffer = Space(MAX_PATH)
If GetWindowsDirectory(Buffer, Len(Buffer)) <> 0 Then
WinPath = Trim(Buffer)
End If
End Sub
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
