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

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