有什么Api可以取CPu的主频、内存和显存的

Question

应该不是太难的问题吧，小弟资料缺乏，请救急！

Answer 1

给个信箱,我发个WindowsAPI电子书籍给你.

Answer 2

xiaoyan21(明月心) :
  [email protected].收到就给分，谢谢了！

Answer 3

Function TMain.GetCPUSpeed: Double;
const 
  DelayTime = 500; 
var 
  TimerHi, TimerLo: DWORD; 
  PriorityClass, Priority: Integer; 
begin 
try 
  PriorityClass := GetPriorityClass(GetCurrentProcess); 
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10); 
  asm 
    dw 310Fh
    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);
  except
  end; 
end;var
  FMemStat:TMemoryStatus;
  FMemoryLoad:DWORD;
  FTotalPhys:DWORD;
  FAvailPhys:DWORD;
  FTotalPageFile:DWORD;
  FAvailPageFile:DWORD;
  FTotalVirtual:DWORD;
  FAvailVirtual:DWORD;
begin
  ZeroMemory(@FMemStat,SizeOf(FMemStat));
  FMemStat.dwLength:=SizeOf(FMemStat);
  GlobalMemoryStatus(FMemStat);
  FMemoryLoad := FMemStat.dwMemoryLoad;
  FTotalPhys := FMemStat.dwTotalPhys;
  FAvailPhys := FMemStat.dwAvailPhys;
  FTotalPageFile := FMemStat.dwTotalPageFile;
  FAvailPageFile := FMemStat.dwAvailPageFile;
  FTotalVirtual := FMemStat.dwTotalVirtual;
  FAvailVirtual := FMemStat.dwAvailVirtual;
end;

Answer 4

//==============================================================================
//获得ＣＰＵ速度****************************************************************
//==============================================================================
function GetCPUSpeed: Double;
const DelayTime = 500;
var TimerHi, TimerLo: DWORD;
    PriorityClass, Priority: Integer;
begin
  try
    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);
  except
    Result := 0;
  end;
end;//==============================================================================
//获得内存状态******************************************************************
//==============================================================================
function GetMemoryStatus:TMemoryStatus;
begin
  ZeroMemory(@Result,SizeOf(Result));
  Result.dwLength:=SizeOf(Result);
  GlobalMemoryStatus(Result);
  {内存状态 type TMemoryStatus = record
                                   dwLength: DWORD;
                                   dwMemoryLoad: DWORD;
                                   dwTotalPhys: DWORD;
                                   dwAvailPhys: DWORD;
                                   dwTotalPageFile: DWORD;
                                   dwAvailPageFile: DWORD;
                                   dwTotalVirtual: DWORD;
                                   dwAvailVirtual: DWORD;
                                 end;
  }
end;

Answer 5

xiaoyan21(明月心) :
我也要一份电子文档。[email protected]