VFP9获得Windows虚拟内存(页面值)大小

VFP9获得Windows虚拟内存(页面值)大小

分类： VFP - API·WMI·ActiveX应用 2008-04-24 17:31 1318人阅读 评论(4) 收藏 举报

MyGetPageFileVal()
 

Function MyGetPageFileVal
    lnPageFileVal=0
    For I=67 To 90 &&循环C盘到Z盘
        If Directory(Chr(I)+":/RECYCLED",1) &&如果存在回收站,说明此分区存在.此句要求是VFP9,VFP9以下没有第2个参数.
            lnFileNum=Adir(gaFile,Chr(I)+":/*.SYS",'S')
            For J=1 To lnFileNum
                If gaFile(J,1)="PAGEFILE.SYS"
                    lnPageFileVal=lnPageFileVal+gaFile(J,2) &&单位是字节
                Endif
            Endfor
        Endif
    Endfor
    Return lnPageFileVal/1024/1024 &&单位是M
Endfunc