×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 4145|回复: 19

用API获得Windows目录和系统system目录

[复制链接]

该用户从未签到

发表于 2007-9-29 11:09:56 | 显示全部楼层 |阅读模式
获得Windows目录需要API的GetWindowsDirectory函数,获得Windows的系统System目录需要APIGetSystemDirectory函数。
  如下示例当窗体加载时即可获得上述两个路径名。
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpbuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpbuffer As String, ByVal nSize As Long) As Long
Dim SYSDIR, WINDIR As String

Private Sub Form_Load()
Dim dir As String * 255
Dim a, b As Integer
a = GetSystemDirectory(dir, 255)
dir = Left(dir, a)
a = Len(dir)
b = 1
Do While b <= a
If Mid(dir, b, 1) = " " Then Exit Do
b = b + 1
Loop
SYSDIR = Mid(dir, 1, b - 1)当前操作系统的Windows系统目录System路径

a = GetWindowsDirectory(dir, 255)
dir = Left(dir, a)
a = Len(dir)
b = 1
Do While b <= a
If Mid(dir, b, 1) = " " Then Exit Do
b = b + 1
Loop
WINDIR = Mid(dir, 1, b - 1)’当前操作系统的Windows路径
End Sub

该用户从未签到

发表于 2009-5-21 01:26:09 | 显示全部楼层
多谢。。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2009-7-11 09:46:45 | 显示全部楼层
呵呵
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2009-7-14 11:32:40 | 显示全部楼层
好强大~~
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2009-7-14 13:58:34 | 显示全部楼层
代码太多,学习VB是不是太难?
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-10 11:35:51 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-10 11:38:27 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-10 10:47:02 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-10 10:51:55 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-10 11:02:49 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:17:32 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:13:35 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:48:48 | 显示全部楼层
好帖子要收藏
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:30:22 | 显示全部楼层
教程网我挺你
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:16:24 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则