ab.com コミュニティ

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)