怎样获得系统资源的占用率！！！!

Question

Private Const GFSR_SYSTEMRESOURCES = 0
Private Declare Function GetFreeResources Lib "RSRC32" Alias "_MyGetFreeSystemResources32@4" (ByVal lWhat As Long) As Long
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.Print "可用系统资源: " & CStr(GetFreeResources(GFSR_SYSTEMRESOURCES)) & "%"
    Me.AutoRedraw = False
End Sub

Answer 1

Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long能顯示出系統佔有率,但此API函數主要功能不是爲了顯示系統佔有率.