YNLSZ'S BLOG » 函数 http://blog.katesoft.com 心情随笔，工作动态，摄影作品 Wed, 23 May 2012 01:15:07 +0000 en hourly 1 http://wordpress.org/?v=3.3.2 获得CPU速度的Delphi 函数 http://blog.katesoft.com/2007/07/%E8%8E%B7%E5%BE%97cpu%E9%80%9F%E5%BA%A6%E7%9A%84delphi%E5%87%BD%E6%95%B0/?utm_source=rss&utm_medium=rss&utm_campaign=%25E8%258E%25B7%25E5%25BE%2597cpu%25E9%2580%259F%25E5%25BA%25A6%25E7%259A%2584delphi%25E5%2587%25BD%25E6%2595%25B0 http://blog.katesoft.com/2007/07/%E8%8E%B7%E5%BE%97cpu%E9%80%9F%E5%BA%A6%E7%9A%84delphi%E5%87%BD%E6%95%B0/#comments Thu, 19 Jul 2007 14:29:28 +0000 ynlsz http://blog.katesoft.com/?p=223 这个有意思，虽然是个老程序了，对于3Ghz的CPU算的还是很准的envy


function TscSystemInfo.GetCPUSpeed : Double;
const
IntDelayTime = 500; // time in ms
var
TimerHi, TimerLo: DWORD;
IntPriorityClass, IntPriority: Integer;
begin
IntPriorityClass := GetPriorityClass(GetCurrentProcess);
IntPriority := 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(IntDelayTime);
asm
dw 310Fh
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;

SetThreadPriority(GetCurrentThread, IntPriority);
SetPriorityClass(GetCurrentProcess, IntPriorityClass);

Result := TimerLo / (1000.0 * IntDelayTime);
end;


相关文章:

]]> http://blog.katesoft.com/2007/07/%E8%8E%B7%E5%BE%97cpu%E9%80%9F%E5%BA%A6%E7%9A%84delphi%E5%87%BD%E6%95%B0/feed/ 0