tips15.htm
来自「对于学习很有帮助」· HTM 代码 · 共 56 行
HTM
56 行
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>得到内存的 Status</title><STYLE type=text/css>.f1 { FONT-SIZE: 9pt; LINE-HEIGHT: 13pt}A:link { TEXT-DECORATION: none}A:visited { TEXT-DECORATION: none}A:active { TEXT-DECORATION: none}A:hover { COLOR: #ff0000; TEXT-DECORATION: underline}</STYLE></head><body bgColor=#ffffff link=#008000 text=#0000ff vLink=#008000 marginwidth="0" marginheight="0"><Span class=f1><b>得到内存的 Status</b><p>function GetMemorySts:TMemoryStatus;<br>begin<br> ZeroMemory(@Result,SizeOf(Result));<br> Result.dwLength:=SizeOf(Result);<br> GlobalMemoryStatus(Result);<br>end;</p><p>TMemorySatus 的结构如下：<br>_MEMORYSTATUS = record<br> dwLength: DWORD;<br> dwMemoryLoad: DWORD;<br> dwTotalPhys: DWORD;<br> dwAvailPhys: DWORD;<br> dwTotalPageFile: DWORD;<br> dwAvailPageFile: DWORD;<br> dwTotalVirtual: DWORD;<br> dwAvailVirtual: DWORD;<br> end;<br>{$EXTERNALSYM _MEMORYSTATUS}<br>TMemoryStatus = _MEMORYSTATUS;</p><p><a href="tips14.htm" target="_self">前一节</a> <a href="index.htm" target="_self">返回</a><a href="tips16.htm" target="_self">下一节</a></p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?