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

解決

deldel 2005-08-04 10:05:31 No: 16865 IP: 192.*.*.*

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

編集削除

篠田雅夫 2005-08-04 11:24:05 No: 16866 IP: 192.*.*.*

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

編集削除

篠田雅夫 2005-08-04 11:25:45 No: 16867 IP: 192.*.*.*

補足

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

編集削除

篠田雅夫 2005-08-04 11:41:50 No: 16868 IP: 192.*.*.*

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

編集削除

篠田雅夫 2005-08-04 11:51:02 No: 16869 IP: 192.*.*.*

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

編集削除

deldel 2005-08-04 12:47:09 No: 16870 IP: 192.*.*.*

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

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

なんとかなりそうです。

編集削除

deldel 2005-08-04 13:19:20 No: 16871 IP: 192.*.*.*

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

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;

編集削除