之前写马的时候有用到，现在贴出来给
大家看看，希望对大家有用，或者用的时候直接来圣剑之家找吧，呵呵。
模块：
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
窗体:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private iValue As String
Private cValue As String
Public Function GetWinPath() As String
cValue = Space(260)
iValue = GetWindowsDirectory(cValue, Len(cValue))
GetWinPath = Left(cValue, iValue)
End Function
Private Sub Form_Load()
MsgBox GetWinPath()
End Sub
调用就是GetWinPath() 嘿嘿， 够简单吧
