📄 tips15.htm
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -