当我们需要让自己的程序判断系统目录和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