×

关注微信公众号

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

[vb,vc,delphi] 用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
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=120120
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 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 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

发表于 昨天 19:17 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

发表于 昨天 19:13 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 昨天 19:30 | 显示全部楼层
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 昨天 19:16 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

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

本版积分规则