返回系统路径的api函数是什么？

Question

返回系统路径的api函数是什么?怎么用啊？

Answer 1

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
                        (ByVal lpBuffer As String, ByVal nSize As Long) As Long'********************************************************************************
'** 函数功能：读取系统目录路径
'** 调用语法: GetSysDir()
'** 参数说明:
'** 返 回 值:
'**         String      :系统目录
'** 处理说明:
'**         调用API函数GetSystemDirectory
'******************************************************************************
Public Function GetSysDir() As String
    Dim sysDir$
    Dim strTmp As String
    
    sysDir = String$(128, " ")
    GetSystemDirectory sysDir$, 127
    strTmp = Trim(sysDir$)
    GetSysDir = Left(strTmp, Len(strTmp) - 1)
End Function