capturar parte de la pantalla

[[seoane]]

El siguiente codigo copia todo lo que se encuentre dentro del recuadro de la imagen, incluida la propia imagen y otras imagenes mas pequeñas que se encuentren sobre ella.

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: Tbitmap;
begin
  bmp:= Tbitmap.Create;
  try
    // Supongo que la imagen se llama Image1
    bmp.Width:= Image1.Width;
    bmp.Height:= Image1.Height;    
    BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,Canvas.Handle,Image1.Left,Image1.Top,SRCCOPY);
    bmp.SaveToFile('c:\test.bmp');
  finally
    bmp.free; 
  end;
end;

Otra posible solucion seria crear un bitmap e ir copiando sobre el una a una las imagenes, esta seria una forma mas correcta de hacerlo pero tambien llevaria mas trabajo.

Espero que te sirva