当前系统目录

来源： 作者： 出处：巧巧读书 2006-09-24 进入讨论组

• 关 键 词：
• director
• windows

　　声明：
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
例子：
Dim S As String * 80, Length As Long
Dim WinPath As String, SysPath As String
Length = GetWindowsDirectory(S, Len(S))
WinPath = Left(S, Length)
Length = GetSystemDirectory(S, Len(S))
SysPath = Left(S, Length)

WinPath 为 Windows 的所在目录，SysPath 为 System 所在目录。收藏地址:http://www.qqread.com/vb/z231722.html 更多内容请看系统优化大全、系统安全设置、系统安装手册专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：带图象的下拉菜单

较新的文章：导入注册表设置