［声明］

Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA" (ByVal lpSrc As String, ByVal lpDst As String, ByVal nSize As Long) As Long

［说明］

扩充环境字串。具体操作过程与命令行处理的所为差不多。也就是说，将由百分号封闭起来的环境变量名转换成那个变量的内容。比如，“%path%”会扩充成完整路径。在vb里经常用于为新进程创建一个环境块

［参数表］

lpSrc ---------- String，欲扩充的字串

lpDst ---------- String，扩充过后的字串

nSize ---------- Long，lpDst的长度。注意预先对lpDst进行初始化，使其与这个长度相符

示例

Dim s$, dl&

Dim y As String * 5?

s$ = "%PATH%"

dl& = ExpandEnvironmentStrings(s$, y, 499)

Print y

［返回值］

Long，lpDst要求的缓冲区的大小。如nSize小于这个数字（也就是说，缓冲区太小，以至不能全容下扩充过后的字串），那么lpDst不会被载入。可利用这个结果改变字串的大小。零表示遇到错误。会设置GetLastError