本帖最后由 kayoo 于 2012-02-25 04:02:02 编辑

解决方案 »

  1.   

    不是吧? 我这里测试 win7  正常速度也是秒取.你是不是被什么杀毒给控制了?procedure TForm1.Timer1Timer(Sender: TObject);
    var
      i : UINT;
    begin
      i := GetTickCount ;
      Label1.Caption := IntToHEX(  GetPixel(GetDC(0),Mouse.CursorPos.X,Mouse.CursorPos.Y) , 8 );
      label2.Caption := IntToStr( GetTickCount - i );
    end;
      

  2.   

    erhan大侠说的对,大概几百个GetPixel,但是XP下同样是秒取,几乎没有任何卡的感觉,我甚至用timer1秒取1次都可以。为啥WIN7就那么卡呢?还望指教
      

  3.   

    换台机子试试,难道装WIN7的机子问题?
      

  4.   

    尽量不要用GetPixel,请用ScanLine代替,后者直接操作内存,速度是前者的n倍!