ab.com コミュニティ

Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" () As Word

Declare Sub GetCPUStart lib "resinfo" alias "GetCpuStart" ()
> Declare Sub GetCPUStop lib "resinfo" alias "GetCpuStop" ()

> Delphiは昔ブラウザコントロールをペタっと貼り付けてブラウザを作ったぐらいで何も分からないのですけど、GetCpuUsage関数のDeclareが間違ってるんじゃないでしょうか？
> [code]Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" () As Word[/code]
> GetCpuUsage関数に引数はなく戻り値を利用するんだと思います。説明にも[b]CPU使用率を返します[/b]と書いてありますし。
>
> 追記。
>
> [code]Declare Sub GetCPUStart lib "resinfo" alias "GetCpuStart" ()
> Declare Sub GetCPUStop lib "resinfo" alias "GetCpuStop" ()[/code]
> おそらくこうでしょうね。Dunctionではありません(笑)

あっ、"Dunction" になってる…
F が小文字になっているのを、
修正したときに打ち間違ったようですね…

ありがとうございます
おかげでちゃんと表示されるようになりました。

Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" () As Word

Declare Sub GetCPUStart lib "resinfo" alias "GetCpuStart" ()
Declare Sub GetCPUStop lib "resinfo" alias "GetCpuStop" ()

Delphiは昔ブラウザコントロールをペタっと貼り付けてブラウザを作ったぐらいで何も分からないのですけど、GetCpuUsage関数のDeclareが間違ってるんじゃないでしょうか？
[code]Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" () As Word[/code]
GetCpuUsage関数に引数はなく戻り値を利用するんだと思います。説明にも[b]CPU使用率を返します[/b]と書いてありますし。

追記。

[code]Declare Sub GetCPUStart lib "resinfo" alias "GetCpuStart" ()
Declare Sub GetCPUStop lib "resinfo" alias "GetCpuStop" ()[/code]
おそらくこうでしょうね。Dunctionではありません(笑)

Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" (Usage As Word) As long
Declare Function GetCPUStart lib "resinfo" alias "GetCpuStart" () As long
Declare Dunction GetCPUStop lib "resinfo" alias "GetCpuStop" () As long

'--------------------------------------------------------------------------------

'Create イベント内

dim Usage as long
dim cpu[256] as char
GetCPUStart()
GetCPUUsage(VarPtr(Usage))
wsprintf(cpu,"%d％",Usage)
SetWindowText(GetDlgItem(hMainWnd,Static1),cpu)

SetTimer(hMainWnd,0,1000,0)

'--------------------------------------------------------------------------------

'Timer イベント内

dim Usage as long
dim cpu[256] as char
GetCPUUsage(VarPtr(Usage))
wsprintf(cpu,"%d％",Usage)
SetWindowText(GetDlgItem(hMainWnd,Static1),cpu)

'--------------------------------------------------------------------------------

'Destroy イベント内

GetCPUStop()
MEMINFO_DestroyObjects()
PostQuitMessage(0)

タイトルの通りなのですが、
"[url=http://www.vector.co.jp/soft/win95/prog/se116476.html]リソース取得 DLL[/url]" で CPU 使用率を取得しようとしたのですが、
うまくいきません。

[hide][code]Declare Function GetCPUUsage lib "resinfo" alias "GetCpuUsage" (Usage As Word) As long
Declare Function GetCPUStart lib "resinfo" alias "GetCpuStart" () As long
Declare Dunction GetCPUStop lib "resinfo" alias "GetCpuStop" () As long

'--------------------------------------------------------------------------------

'Create イベント内

dim Usage as long
dim cpu[256] as char
GetCPUStart()
GetCPUUsage(VarPtr(Usage))
wsprintf(cpu,"%d％",Usage)
SetWindowText(GetDlgItem(hMainWnd,Static1),cpu)

SetTimer(hMainWnd,0,1000,0)

'--------------------------------------------------------------------------------

'Timer イベント内

dim Usage as long
dim cpu[256] as char
GetCPUUsage(VarPtr(Usage))
wsprintf(cpu,"%d％",Usage)
SetWindowText(GetDlgItem(hMainWnd,Static1),cpu)

'--------------------------------------------------------------------------------

'Destroy イベント内

GetCPUStop()
MEMINFO_DestroyObjects()
PostQuitMessage(0)[/code][/hide]

このようにしたのですがずっと 0% のままになってしまいます。
どうしてでしょうか？

お手数ですが DLL の解説は、
DLL のダウンロード先の URL をハイパーリンクに指定しましたので、
ダウンロードしてください。