Form - Capturar tela

Top  Previous  Next

//Esta rotina captura a tela e salva em um arquivo BMP

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Canvas: TCanvas;

  Bitmap: TBitmap;

  R : TRect;

begin

  Canvas := nil;

  Bitmap := nil;

  try

    R := Rect(00, Screen.Width, Screen.Height);

    Canvas := TCanvas.Create;

    Bitmap := TBitmap.Create;

    Bitmap.Width := R.Right;

    Bitmap.Height := R.Bottom;

    Canvas.Handle := GetDC(0);

    Bitmap.Canvas.CopyRect(R, Canvas, R);

    Bitmap.SaveToFile('c:\test.bmp');

  finally

    Canvas.Free;

    Bitmap.Free;

  end;

end;