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

[AirFish]

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

[AirFish]

xiaoyan21(明月心) :
[e-mail].收到就给分，谢谢了！

[ehom]

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;

[xiaoyan21]

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

[quark]

//==============================================================================
//获得ＣＰＵ速度****************************************************************
//==============================================================================
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;

[nvzishanhun123456789]

我也要，谢谢，[e-mail]

[batbit]

xiaoyan21(明月心) :
我也要一份电子文档。[e-mail]