Quick Tips : Simular um Print Screen em Delphi

Olá galera, nesta Quick Tips, irei mostrar como simular um Print Screen, e jogar a imagem em um TImage, no Delphi.

Vamos ao exemplo

Criando uma nova aplicação VCL Forms Application.

Adicione:

TButton  ( BtnCapturar )

TImage ( ImgCaputurado )

AutoSize = True

Iremos criar agora uma function para capturar a tela

function FrmPrincipal.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;

OnClick BtnCapturar.

procedure TFrmPrincipal.BtnCapturarClick(Sender: TObject);

begin

ImgCaputurado.Picture.Assign(CapturaTela);

ImgCaputurado.Picture.SaveToFile('tela.bmp');

end;

end.

Conclusão

Ao executarmos a aplicação e clicarmos no botão poderemos ver que toda a tela do seu computador agora esta armazenada no Timage, e salvo junto com o executável com o nome tela.bmp.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br