VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

コミットチャージの値を取得する(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/09/14 20:16
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[システム関係][][]                                                  *
* キーワード：Windows タスクマナージャ,パフォーマンス,,,,　　                    *
***********************************************************************************

元質問：コミットチャージの値を取得する.. - わんこ  2007/08/21-14:08 No.9932

現在、VB6.0 のアプリケーションからタスクマネージャの「パフォーマンス」タブに表示されるコミットチャージの値の取得を行おうとしております。
コミットチャージの合計・制限値・最大値を取得したいのですが、取得可能なAPIをご存知であれば教えて下さい。

-----------------------------------------------------------------------------------
Re: コミットチャージの値を取得.. - 魔界の仮面弁士　2007/08/21-14:58 No.9933
-----------------------------------------------------------------------------------
Option Explicit
'SysMon.ocx を併用
Private Counters(1) As CounterItem
Private Sub Form_Load()
    SystemMonitor1.Visible = False
    With SystemMonitor1.Counters
        Set Counters(0) = .Add("\Memory\Commit Limit")
        Set Counters(1) = .Add("\Memory\Committed Bytes")
    End With
    Timer1.Interval = 700
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Format(Counters(0).Value / 1024, "#,0 KB")
    Label2.Caption = Format(Counters(1).Value / 1024, "#,0 KB")
End Sub