急，为什么在屏幕上取点的颜色和画点运行很慢啊，特别是在2K和XP里很慢，而98很快？

Question

急，为什么在屏幕上取点的颜色和画点运行很慢啊，特别是在2K和XP里很慢，而98很快？
co1:=getpixel(getdc(0),i,j);
co2:=getpixel(getdc(0),i,j);
if co1<>co2 then cn:=SetPixel(getdc(0),i,j,200);

Answer 1

就是在屏幕上直接画600个点的颜色需要10秒，几台2k，xp机器都这样。

Answer 2

你用timer来取的吧？procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval :=1;
。co1:=getpixel(getdc(0),i,j);
co2:=getpixel(getdc(0),i,j);
if co1<>co2 then cn:=SetPixel(getdc(0),i,j,200);。
end;
把延时该到1就可以了
timer1.Interval :=1;