サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
 |
