WIN API-VFP获取系统内存信息

来源：互联网发布：苹果mac电源线编辑：程序博客网时间：2024/05/22 15:12

Declare GlobalMemoryStatus In kernel32 String @lpBuffer
lpBuffer=Replicate(Chr(0),250)
=GlobalMemoryStatus(@lpBuffer)
Clear
=_display("缓冲区长度(字节) ...........................:", 1)
=_display("目前内存管理系统的繁忙程序(1-100)%. ........:", 5)
=_display("物理内存的总数(字节) .......................:", 9)
=_display("目前物理内存的可用数(字节) .................:",13)
=_display("硬盘上页面文件的总数(字节) .................:",17)
=_display("目前硬盘上页面文件的可用数(字节) ...........:",21)
=_display("进程虚空间中用户空间的总数(字节) ...........:",25)
=_display("目前本进程虚空间中用户空间的可用数(字节) ...:",29)

Procedure _display(lcCaption,lnOffs)
?lcCaption+Transform(buf2dword(Substr(lpBuffer,lnOffs,4)),"999,999,999,999,999,999")
Return
Endproc

Function buf2dword(lcBuffer)
    Return;
        Asc(Substr(lcBuffer,1,1))+;
        Asc(Substr(lcBuffer,2,1))*256+;
        Asc(Substr(lcBuffer,3,1))*65536+;
        Asc(Substr(lcBuffer,4,1))*16777216
Endfunc