vb中怎样获取环境变量？

Question

rt

Answer 1

Private Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long''取得作業系統系統目錄
Private  Function GetSysDir() As String
Dim iRet As Long
Dim sPath As String * 255    iRet = GetSystemDirectory(sPath, 255)
    GetSysDir = StripTerminator(sPath)
End Function''去除字串多餘空字串
Private Function StripTerminator(ByVal sSplitString As String) As String
    StripTerminator = Left(sSplitString, InStr(sSplitString, vbNullChar) - 1)
End Function

Answer 2

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongConst MAXLENGTH = 45
Private m_sMachineName As String
Private m_iRet As Long
Private m_sResult As String * MAXLENGTHPrivate Sub Command2_Click()
InitMachineName
MsgBox m_sMachineName
End Sub'取的機器名稱
Private Sub InitMachineName()
Dim GetMachineName As String
    m_iRet = GetComputerName(m_sResult, MAXLENGTH)
    GetMachineName = StripTerminator(m_sResult)
    m_sMachineName = GetMachineName
End SubPrivate Function StripTerminator(ByVal sSplitString As String) As String
    StripTerminator = Left(sSplitString, InStr(sSplitString, vbNullChar) - 1)
End Function

Answer 3

在窗体上加入一个ListBox:Private Sub Form_Load()
    Dim EnvironValue As String, i As Integer
    i = 1
    Do
        EnvironValue = Environ(i)
        List1.AddItem EnvironValue
        i = i + 1
    Loop Until EnvironValue = ""
End Sub