コミットチャージの取得方法

解決

deldel 2005-08-04 19:05:31 No: 16865

タスクマネージャのパフォーマンスの欄にある、
コミットチャージの合計などを取得したいのですが、
どなたかわかる方おられませんでしょうか？
過去ログなど探しても、見つかりませんでした；；

篠田雅夫 2005-08-04 20:24:05 No: 16866

検索エンジンにてキーワードを WMI でしらべてみては！
今日も暑いぞ。

篠田雅夫 2005-08-04 20:25:45 No: 16867

補足

http://www.microsoft.com/japan/technet/scriptcenter/scripts/misc/wmi/mswmvb17.mspx

篠田雅夫 2005-08-04 20:41:50 No: 16868

ここもヒントになるかも
http://www.milkstand.net/fsgarage/archives/000650.html

篠田雅夫 2005-08-04 20:51:02 No: 16869

これが答えかもしれない
http://www.phrack.org/phrack/59/p59-0x10.txt

deldel 2005-08-04 21:47:09 No: 16870

篠田雅夫さん、ありがとうございました。
WMIとは・・・全く知らない世界でした。
大変勉強になりました。なんか、世界が広がりそうです^^;

私も色々探しまして、ここがすごく参考になりました。
http://homepage3.nifty.com/KENCH/open/wmi/delphi_wmi.htm

なんとかなりそうです。

deldel 2005-08-04 22:19:20 No: 16871

メモリ使用量は以下で取得できました。

uses OleServer, WbemScripting_TLB, ActiveX, ComObj;

var
  Locator: ISWbemLocator;
  Services: ISWbemServices;
  OsSet: ISWbemObjectSet;
  tmpEnum: IEnumVariant;
  Value: Cardinal;
  OS: OleVariant;
begin
  Locator := CreateOleObject('WbemScripting.SWbemLocator') as ISWbemLocator;
  Services := Locator.ConnectServer('.', '', '', '', '', '', 0, nil);
  OsSet := Services.ExecQuery('Select * From Win32_OperatingSystem', 'WQL', wbemFlagReturnImmediately, nil);

tmpEnum:= OsSet._NewEnum as IEnumVariant;

  tmpEnum.Next(1, OS, Value);
  try
    ibPer := Trunc((OS.SizeStoredInPagingFiles - OS.FreeSpaceInPagingFiles) / OS.SizeStoredInPagingFiles * 100);
    saPer := IntToStr(ibPer) + '% ';
  except
  end;