跟踪屏幕像素颜色。<br><br>在Form中放一 TLabel(Label1),再放置一定时器(TTimer).<br>然后粘贴以下定时器代码即可运行。<br>当鼠标在屏幕的任何位置移动时,Label中显示鼠标所指<br>像素的颜色(十六进制 RGB 格式)。<br><br>///////////////以下是定时器的处理代码:<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br> P: TPoint;<br> co: TColor;<br> ScreenDC : HDC;<br> fBitmap : TBitmap;<br>begin<br> GetCurSorPos(P);<br> fBitmap := TBitmap.Create;<br> fBitmap.Width := 1;<br> fBitmap.Height := 1;<br> ScreenDC:=CreateDC('DISPLAY',nil,nil,nil);<br> BitBlt(FBitmap.Canvas.Handle, 0,0,<br> FBitmap.Width, FBitmap.Height,<br> ScreenDC, p.x,p.y, SRCCOPY);<br> DeleteDC(ScreenDC);<br> label1.caption:=inttohex(fbitmap.canvas.pixels[0,0],8);<br> fBitmap.Free<br>end;<br><br>