掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コミットチャージの取得方法 (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.