Tirando um print da tela do computador delphi7

Nessa aula vamos aprender a tirar um printscreen com uma aplicção desenvolvida em ambiente de programação delphi7...

1º) Adicione um panel (Standard).
2º) Adicione um button (Standard) dentro do panel.
3º) Adicione uma image (Additional).

Organize assim:

Organização:

Panel::> Align:::> alTop
Button::> Dentro do panel. 
Image::> Align:::> alClient
Image::> center:::> True
Image::> Proportional:::> True




-------------------------------------------------------------------------------------------
Agora vá na Users e adicione isso:

-------------------------------------------------------------------------------------------
Depois de ter feito essa declaração vamos programar o evento OnClick do Button1:
Dê um duplo click no "button1", apague o Begin e coloque isso:

Var bitmap : tbitmap;
  jpg : tjpegimage;
  dc : hdc;
  desktoprect : trect;
  desktopcanvas : tcanvas;
  x, y : integer;

begin
 dc:=getdc(getdesktopwindow);
 try
 desktopcanvas:=tcanvas.create;
 bitmap:=tbitmap.create;
 jpg:=tjpegimage.create;
 try
 bitmap.Width:=Screen.Width; 
 bitmap.Height:=Screen.Height; 
 desktopcanvas.handle:=dc;
 desktoprect:=rect(0,0,Screen.Width,Screen.Height);//Tamanho da tela de captura.
 bitmap.canvas.CopyRect(desktoprect,desktopcanvas,desktoprect);
  with jpg do
  begin
  compressionquality:=100; 
  assign(bitmap);
  compress;
  savetofile('C:\screen.jpg'); 
  Image1.Picture.LoadFromFile('c:\screen.jpg');
  end;
 finally
 bitmap.free;
 desktopcanvas.free;
 end;
 finally
 releasedc(getdesktopwindow,dc);
 end;

Observem que ele vai salvar a imagem no disco local (c:\), e depois vai exibir a imagem salva no componente "Image"...

Curtam e digam o que acharam do tutorial...