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

使用API获取windows系统路径(System32)目录的函数

2017-07-22 22:41:00
zstmtony
原创
621

Access VBA 使用API获取windows系统路径(System32)目录的函数

(如果是windows  64位系统,则获取的是 64位的系统目录)


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

如果是windows 64位,想获取 32位的系统目录呢。则可以参考这里

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

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
风暴魔域怎么交易 四灵APP 追书好事成双小说陈明 全民突击特级枪械觉醒卡 金鱼怎么养 御龙在天怎么升级最快 魂斗罗归来赛迪 三剑客免费试玩 神龙碎片援彩金 球球大作战id空白代码