procedure TForm1.Button4Click(Sender: TObject);

begin

    DrawTrans(Image1.Canvas, 0,0, Image2.Picture.Bitmap, clBlack, clSilver);

end;

21.   获取CPU速度

  function GetCpuSpeed: Extended;

var

    t, mhi, mlo, nhi, nlo: dword;

    shr32 : comp;

begin

    shr32 := 65536;

    shr32 := shr32 * 65536;

    t := GetTickCount;

    while t = GetTickCount do ;

      asm

      DB 0FH,031H // rdtsc

      mov mhi,edx

      mov mlo,eax

    end;

    while GetTickCount < (t + 1000) do ;

      asm

      DB 0FH,031H // rdtsc

      mov nhi,edx

      mov nlo,eax

    end;

    Result := ((nhi * shr32 + nlo) - (mhi * shr32 + mlo)) / 1E6;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

    label1.Caption := FloatToStr(GetCpuSpeed) + ''''mhz'''';

end;

暂时只是写了这么多，以后会逐步更新添加

上一页  [1] [2] [3]