NapsTer

Professional

السلام عليكم ورحمة الله وبركاته
كود يقوم بأظهار لك سرعة المعالج .. . ~ :rolleyes:

function getcpuspeed: Double;
const
delaytime = 500; //الوقت يحسب باجزاء الثانية
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;
مثال للاستخدام يمكننا أن نضعها في الزر ..~

begin
labelcpuspeed.caption := format('cpu speed: %f mhz', [getcpuspeed]);
end;

:rolleyes::rolleyes:
 

المواضيع المشابهة


رد: حساب سرعة المعالج ... ~ بالدلفي حصرياً

بارك الله فيك
تم اضافته الى المفظلة والتطبيق بوقت لاحق
شكرا لك يا مبرمجنا المبدع
تحياتي لك
 


رد: حساب سرعة المعالج ... ~ بالدلفي حصرياً

يعطيك الف عافية
ان شاء الله اجربه باقرب وقت
 


رد: حساب سرعة المعالج ... ~ بالدلفي حصرياً

الله يعطيك العـافيةة ي خوي ..
موضوع توب
تقبل مروري ..​
 


رد: حساب سرعة المعالج ... ~ بالدلفي حصرياً

الله يعطيك العافية

مشكوووووووووووووووووور يا غالي ع هل الموضوع المتميز
 


رد: حساب سرعة المعالج ... ~ بالدلفي حصرياً

يعطيك الف عافية
ان شاء الله جاري التجربة :)
 

عودة
أعلى