Artigos Delphi 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