vb获取系统信息:VB中判断并获取系统目录和windows目录来源: 发布时间:星期四, 2008年9月25日 浏览:142次 评论:0
当我们需要让自己的程序判断系统目录和windows目录的名字。这时可以调用windowsapi函数getsystemdirectory和getwindowsdirectory。
声明: ’获取系统目录 以下是引用片段: publicdeclarefunctiongetsystemdirectorylib’kernel32’alias’getsystemdirectorya’_ (byvallpbufferasstring,byvalnsizeaslong)aslong ’获取windows目录 以下是引用片段: declarefunctiongetwindowsdirectorylib’kernel32’alias’getwindowsdirectorya’_ (byvallpbufferasstring,byvalnsizeaslong)aslong 调用: ’检查系统目录 以下是引用片段: publicfunctiongetsystempath()asstring dimpasstring*80 dimlengthaslong dimpathasstring length=getsystemdirectory(p,len(p)) path=left(p,length) getsystempath=path endfunction ’检查windows目录 以下是引用片段: publicfunctiongetwindowspath()asstring dimpasstring*80 dimlengthaslong dimpathasstring length=getwindowsdirectory(p,len(p)) path=left(p,length) getwindowspath=path endfunction 0
相关文章
读者评论发表评论 |