Ich schreib es ma so um:Kaeru Gaman hat geschrieben:MVXA hat geschrieben:und wenn er die Demo hat, bzw. die APIs noch nicht von Fred eingebunden wurden? Gibt es -_-.
Die APIs noch nicht von Fred für PB nativ aufrufbar inportiert hat.
HeheWer misst misst Mist.
Code: Alles auswählen
Procedure.l CalcCPUSpeed()
DelayTime = 500
TimerHi = 0
TimerLo = 0
PriorityClass = GetPriorityClass_(GetCurrentProcess_())
Priority = GetThreadPriority_(GetCurrentThread_())
SetPriorityClass_(GetCurrentProcess_(),100)
SetThreadPriority_(GetCurrentThread_(),15)
Sleep_(10)
!CPUID
!DW 310Fh ; rdtsc
MOV TimerLo, EAX
MOV TimerHi, EDX
Sleep_(DelayTime)
!CPUID
!DW 310Fh
SUB EAX, TimerLo
SUB EDX, TimerHi
MOV TimerLo, EAX
MOV TimerHi, EDX
SetPriorityClass_(GetCurrentProcess_(),Priority)
SetThreadPriority_(GetCurrentThread_(),PriorityClass)
ProcedureReturn (TimerLo / (1000.0 * DelayTime))
EndProcedure
Code: Alles auswählen
MOV TimerLo, EAX
MOV TimerHi, EDX