函数原型

参数说明

函数声明(VB声明 易语言声明)

应用

函数原型

UINT WINAPI GetSystemDirectory(

__out LPTSTR lpBuffer,

__in UINT uSize

);

参数说明

这个函数能取得Windows系统目录（System目录）的完整路径名。在这个目录中，包含了所有必要的系统文件。根据微软的标准，其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中，往往需要管理员权限才可对这个目录进行写操作

返回值

　Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度

参数表

　参数 类型及说明

lpBuffer String，用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成“路径”字符串的长度+1。通常至少要为这个缓冲区分配MAX_PATH个字符的长度

nSize Long，lpBuffer字串的最大长度

函数声明

VB声明

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

易语言声明

.版本 2

.DLL命令 GetSystemDirectoryA, 整数型, "kernel32", "GetSystemDirectoryA", , 取系统目录。Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度

.参数 lpBuffer, 文本型, , 缓冲区

.参数 nSize, 整数型, , 缓冲区长度

应用

.版本 2

.子程序 取系统目录_API, 文本型

.局部变量 缓冲区, 文本型

.局部变量 长度, 整数型

缓冲区 = 取空白文本 (260)

长度 = GetSystemDirectoryA (缓冲区, 260)

返回 (缓冲区)

VB应用示例

Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal strBuffer As String, ByVal lngSize As Long) As Long '定义API

Public Function TheSystemDir() As String

Dim strBuffer As String

Dim l As Long

strBuffer = Space(255) '建立缓冲区为225个空格

l = GetSystemDirectory(strBuffer, 255)

TheSystemDir = Left(strBuffer, l) '取其中一部分

End Function

'调用时使用以下代码即可

TheSystemDir