İşlemcinin Hızını Öğrenme!

'Diğer Programlama Dilleri' forumunda acemihacker tarafından 3 Temmuz 2018 tarihinde açılan konu

  1. acemihacker

    acemihacker Ötüken Yolcusu Bronz Üye

    Mesaj:
    205
    Beğeniler:
    74
    Cinsiyet:
    Erkek
    Kod:
    function RDTSC : Int64; assembler;
    asm
        db $0F, $31 
    end;
    function RDQPC : Int64;
    begin
      QueryPerformanceCounter(result);
    end;
    function CPUSpeed : Integer;
    var
      f,tsc,pc : Int64;
    begin
      if QueryPerformanceFrequency(f) then
      begin
        Sleep(0);
        pc := RDQPC;
        tsc := RDTSC;
        Sleep(100);
        pc := RDQPC-pc;
        tsc := RDTSC-tsc;
        result := round(tsc*f/(pc*1000000));
      end
      else
        result := -1;
    end;
    Kullanımı

    Kod:
    showmessage(Format('%d Mhz', [CPUSpeed]));
    
    ALINTIDIR!
     

Bu Sayfayı Paylaş