Access爱好者--
所属分类: 实用API 作者: 共享 更新日期:2003-10-14 8:39:08 阅读次数:103

获取windows安装路径


在Access中用这个函数:
Environ("windir")
可得出windows的安装路径

用api就麻烦一点:
在模块里声明API函数:
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
Dim Length As Long
Dim WinPath As String
Dim SysPath As String
Length = GetWindowsDirectory(s, Len(s))
WinPath = Left(s, Length)
Length = GetSystemDirectory(s, Len(s))
SysPath = Left(s, Length)
MsgBox "Windows安装路径是:" & WinPath
MsgBox "system路径是:" & SysPath


--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链