Quick Tips: Capturando a Tela com Delphi (Print Screen)

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Olá Pessoal, aqui estamos para mais uma quick tips

Olá Pessoal, aqui estamos para mais uma quick tips. Para não perder o costume vamos aqui falar um pouco sobre Delphi. Nesta Tips vamos aprender a simular um Print Screen, isso mesmo. Vamos aprender a capturar a tela em que estamos trabalhando com o Delphi.

Para isso crie uma nova aplicação no Delphi. Adicione um panel, um button e um Timage. Abaixo segue uma sugestão de tela:

Feito isso, vamos criar uma função que será responsável por realizar a captura. Sendo assim declare a seguinte função na seção implementation do nosso form. Veja:

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);

A função utiliza a classe TCanvas para poder extrair a imagem da tela. Usamos o método CopyRect para copiar a imagem da tela para a propriedade Canvas da classe TBitMap, que é o nosso retorno.

Por fim vamos a implementação do clique do botão. Veja abaixo:

procedure TForm1.BitBtn1Click(Sender: TObject)
begin
  Image1.Picture.Assign(CapturaTela);
  Image1.Picture.SaveToFile('tela.bmp');
end;

Agora basta rodar a aplicação:

O clicar no botão:

Então é isso. Grande abraço e até a próxima !!!

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?