安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access使用API获取64位windows系统 32位的系统路径 (Syswow64)目录的函数

2017-07-22 23:02:00
zstmtony
原创
682

Access使用API获取64位windows系统 32位的系统路径 (Syswow64)目录的函数

我们知道如果是windows 64位系统,则 默?#31995;?#31995;统目录是system32

但如果我们需要访问它的32位系统目录,则是Syswow64 (这个名称有时容易让人混淆)

那如何用VBA使用API获取这个目录呢,下面写了一个获取的函数供大家使用


OptionExplicit
PublicConst MAX_PATH = 260
'作者:tmtony-Office交流网
DeclareFunction GetSystemDirectory Lib "kernel32" Alias"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)As Long
Public Function MyGetSystemDirectory() as String
    Dim S As String, Length As Long
    S = String(MAX_PATH, 0)
    Length = GetSystemDirectory(S, MAX_PATH)
    S = Left(S, InStr(S, Chr(0)) - 1)
    MyGetSystemDirectory=S  'Windows System 系统路径 
End Sub

Sub Main()
    Msgbox MyGetSystemDirectory()
End Sub


如果是 想获取 64位的系统目录(System32),则可以参考这里的技巧文章

http://www.dvzne.live/access-function/141.html

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.22
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假