GetPixel在XP下很快,为什么WIN7就很卡? 本帖最后由 kayoo 于 2012-02-25 04:02:02 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不是吧? 我这里测试 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; erhan大侠说的对,大概几百个GetPixel,但是XP下同样是秒取,几乎没有任何卡的感觉,我甚至用timer1秒取1次都可以。为啥WIN7就那么卡呢?还望指教 换台机子试试,难道装WIN7的机子问题? 尽量不要用GetPixel,请用ScanLine代替,后者直接操作内存,速度是前者的n倍! 没分了,请教个查询问题 关于整个项目中“数据模块”调用问题? 怎样将数字与字符串区分开? 有的网页栏目并不能输入网址就能直接进入,能不能编程实现呢? delphi中调用标准c接口(dll)的问题! delphi中是否有类似vb中的那个split的函数? 求助!!!!!Delphi如何处理TabSheet中Form的KeyDown事件 各位前辈,能给介绍几本学习delphi的好书吗?? 编译错误(按照李唯的书照抄,可还是报错!!) 有关数据库字符型记录的显示问题,有点难,请大家帮忙。谢谢。 有难度的问题来了,录制鼠标动作,并回放,不使用Hook 一句话问题
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;