コミットチャージの取得方法 (ID:16871)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 メモリ使用量は以下で取得できました。 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;