请问，有没有可以获取cpu信息的windows api?比如，cpu占有率，cpu空闲时间等(100分)

wqhuo · 2001-05-31

D:/Program Files/Borland/Borland Shared/MSHelp/pdh.hlp 慢慢看...

DragonPC_??? · 2001-11-08

http://www.delphibbs.com/delphibbs/dispq.asp?lid=565450

baidie · 2003-03-24

getsysteminfo

zxbyh · 2003-03-24

在注册表中 "HKEY_LOCAL_MACHINE/hardware/DESCRIPTION/System/CentralProcessor/0" 对应VendorIndentifier的值 program CpuSpeed; uses SysUtils, Windows, Dialogs; function GetCpuSpeed: Comp; var   t: DWORD;   mhi, mlo, nhi, nlo: DWORD;   t0, t1, chi, clo, shr32: Comp; begin   shr32 := 65536;   shr32 := shr32 * 65536;   t := GetTickCount;   while t = GetTickCount do begin end;   asm     DB 0FH     DB 031H     mov mhi,edx     mov mlo,eax   end;   while GetTickCount < (t + 1000) do begin end;   asm     DB 0FH     DB 031H     mov nhi,edx     mov nlo,eax   end;   chi := mhi; if mhi < 0 then chi := chi + shr32;   clo := mlo; if mlo < 0 then clo := clo + shr32;   t0 := chi * shr32 + clo;   chi := nhi; if nhi < 0 then chi := chi + shr32;   clo := nlo; if nlo < 0 then clo := clo + shr32;   t1 := chi * shr32 + clo;   Result := (t1 - t0) / 1E6; end; begin   MessageDlg(Format('%.1f MHz', [GetCpuSpeed]), mtConfirmation, [mbOk], 0); end. -------------------------------------------------------------------------------- function GetCPUSpeed: Double; const   DelayTime = 500; // measure time in ms var   TimerHi, TimerLo: DWORD;   PriorityClass, Priority: Integer; begin   PriorityClass := GetPriorityClass(GetCurrentProcess);   Priority := GetThreadPriority(GetCurrentThread);     SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);   SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);     Sleep(10);   asm   dw 310Fh // rdtsc   mov TimerLo, eax   mov TimerHi, edx   end;   Sleep(DelayTime);   asm   dw 310Fh // rdtsc   sub eax, TimerLo   sbb edx, TimerHi   mov TimerLo, eax   mov TimerHi, edx   end;     SetThreadPriority(GetCurrentThread, Priority);   SetPriorityClass(GetCurrentProcess, PriorityClass);     Result := TimerLo / (1000.0 * DelayTime); end;   -------------------------------------------------------------------------------- function RDTSC : Int64; assembler; asm   db $0F, $31 // opcode for RDTSC end; function RDQPC : Int64; begin   QueryPerformanceCounter(result); end; function CPUSpeed : Integer; var   f,tsc,pc : Int64; begin   if QueryPerformanceFrequency(f) then   begin   Sleep(0);   pc := RDQPC;   tsc := RDTSC;   Sleep(100);   pc := RDQPC-pc;   tsc := RDTSC-tsc;   result := round(tsc*f/(pc*1000000));   end   else   result := -1; end; --------------------------------------------------------------------------------     由于使用RDTSC操作码，因此以下函数只能返回Pentium或者更高芯片的速度。另一种解决方法是使用WinAPI中的QueryPerformanceCounter或者QueryPerformanceFrequency函数。     function GetCPUSpeed: real;     function IsCPUID_Available: Boolean; assembler; register;   asm   PUSHFD { direct access to flags not possible, only via stack }   POP EAX { flags to EAX }   MOV EDX,EAX { save current flags }   XOR EAX,$200000 { not ID bit }   PUSH EAX { onto stack }   POPFD { from stack to flags, with not ID bit }   PUSHFD { back to stack }   POP EAX { get back to EAX }   XOR EAX,EDX { check if ID bit affected }   JZ @exit { no, CPUID not availavle }   MOV AL,True { Result=True }   @exit:   end;     function hasTSC: Boolean;   var   Features: Longword;   begin   asm   MOV Features,0 { Features = 0 }     PUSH EBX   XOR EAX,EAX   DW $A20F   POP EBX     CMP EAX,$01   JL @Fail     XOR EAX,EAX   MOV EAX,$01   PUSH EBX   DW $A20F   MOV Features,EDX   POP EBX   @Fail:   end;     hasTSC := (Features and $10) <> 0;   end;     const   DELAY = 500;   var   TimerHi, TimerLo: Integer;   PriorityClass, Priority: Integer;   begin   Result := 0;   if not (IsCPUID_Available and hasTSC) then Exit;   PriorityClass := GetPriorityClass(GetCurrentProcess);   Priority := GetThreadPriority(GetCurrentThread);     SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);   SetThreadPriority(GetCurrentThread,   THREAD_PRIORITY_TIME_CRITICAL);     SleepEx(10, FALSE);     asm   DB $0F { $0F31 操作码是Pentium指令集中的RDTSC }   DB $31 { 返回64位整数 }   MOV TimerLo,EAX   MOV TimerHi,EDX   end;     SleepEx(DELAY, FALSE);     asm   DB $0F { $0F31 操作码是Pentium指令集中的RDTSC }   DB $31 { 返回64位整数 }   SUB EAX,TimerLo   SBB EDX,TimerHi   MOV TimerLo,EAX   MOV TimerHi,EDX   end;     SetThreadPriority(GetCurrentThread, Priority);   SetPriorityClass(GetCurrentProcess, PriorityClass);   Result := TimerLo / (1000 * DELAY);   end;

请问，有没有可以获取cpu信息的windows api?比如，cpu占有率，cpu空闲时间等(100分)

bobbycai

Unregistered / Unconfirmed

wqhuo

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

baidie

Unregistered / Unconfirmed

zxbyh

Unregistered / Unconfirmed

Similar threads