节数 } MEMORYSTATUS, *LPMEMORYSTATUS;
　　下面是使用GlobalMemoryStatus函数的一个例子：
　　　 procedure TForm1.Button1Click(Sender: TObject);
　　　 var MemoryStatus: TMemoryStatus;
　　　 begin
　　　　 MemoryStatus.dwLength := sizeof(MemoryStatus);
　　　　 GlobalMemoryStatus(MemoryStatus);
　　　　 Label1.Caption := ''Total Physical Memory: '' + IntToStr(MemoryStatus.dwTotalPhys);
　　　 end;

获得消逝时间
　　 在测试硬件或软件的效率时或跟踪用户的响应速度时，需要测定消逝的时间。多数程序员使用一个TDateTime变量和Now函数来实现测定消逝时间的目的。 但是，一种更简单的方法是使用Windows API函数GetTickCount。GetTickCount函数返回从启动Windows后消逝的毫秒数。如果函数成功地返回，返回值就是从启动Windows后消逝的毫秒数。