Capturando a imagem da tela [screen-shot] e salvando-a para um arquivo

Capturando a imagem da tela [screen-shot] e salvando-a para um arquivo

  agosto 06, 2017    Ana Paula Novello

---

Captura a imagem do desktop, retornando um objeto do tipo TBitmap. A partir dele, é possível salvar a imagem para um arquivo ou apresentar o resultado em um formulário, através de um componente Image. Por exemplo, use esse recurso para criar um relatório de erros, que salve o estado atual da tela do usuário quando uma exceção não tratada ocorrer.

function CapturaTela: TBitmap;
var
     dc:hdc;
     cv:TCanvas;

begin
     result := TBitmap.Create;
     result.Width := Screen.Width;
     result.Height := Screen.Height;
     dc := GetDc(0);
     cv := TCanvas.Create;
     cv.Handle := DC;
     result.Canvas.CopyRect(Rect(
     0, 0,Screen.Width,Screen.Height),
     cv,Rect(0,0,Screen.Width, Screen.Height));
     cv.Free;
     ReleaseDC (0, DC);
end;

{ Exemplos de utilização / Captura a tela e salva para o disco }

CapturaTela.SaveToFile('tela.bmp');

{ Exibe a tela em um componente Image }

Image1.Picture.Assign(CapturaTela);

Artigo origem: http://www.devmedia.com.br/artigo-clube-delphi-60-60-dicas-e-solucoes-em-delphi/12364