谁有一个截取桌面部分区域坐标的demo！

Question

找一个简单一点实现的.网上很多代码无法看懂.. 谁有demo 可以贴出来.. 截图要保存成位图的.保存在本目录下!~.！~~ 想做一个连连看的外挂..想比图..但是做到这一步卡壳了..找了一个星期资料没解决.虽然有部分实例代码..但是自己没有能力改成自己想要的.. 高手不要见笑..有例子的发一个出来..谢谢了1~

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  b:tbitmap;
  r1,r2:Trect;
  c:TCanvas;
begin
  b:=tbitmap.Create;
  b.Width:=200;  //截取的宽
  b.Height:=200;//截取的高  r1.Left:=0;
  r1.Top:=0;  r1.Right:=b.Width;
  r1.Bottom:=b.Height;  r2.Left:=100;  //截取的X
  r2.Top:=100; //截取的Y  r2.Right:= r2.left+b.Width;
  r2.Bottom:= r2.Top+b.Width;  c :=TCanvas.Create;
  c.Handle:=GetDC(0);  b.Canvas.CopyRect(r1,c,r2);
  b.SaveToFile('d:\temp\t.bmp');  c.free;
  b.Free;end;

Answer 2

r2.Bottom:= r2.Top+b.Width;
应为
r2.Bottom:= r2.Top+b.Height;范兄笔误了