谁能解说一下这个API的使用

Question

Private Sub Command1_Click()
Dim str As String
Dim nsize As Long
str = String(MAX_PATH, 0)
nsize = GetSystemDirectory(str, MAX_PATH)
str = Left(str, InStr(str, Chr(0)) - 1)
MsgBox "windows system Â·¾¶=" & str, , "Ìáʾ´°¿Ú"End Sub

Answer 1

GetSystemDirectory:获得系统目录了,一般在注册组件时,需要用到

Answer 2

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long这个函数能取得Windows系统目录（System目录）的完整路径名。在这个目录中，包含了所有必要的系统文件。根据微软的标准，其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中，往往需要管理员权限才可对这个目录进行写操作返回值Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度lpBuffer -------  String，用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSize ----------  Long，lpBuffer字串的最大长度

Answer 3

GetSystemDirectory,这个函数是用来获取系统目录的,一般做安装时注册组件会用到