Fórum Dar um Print screen via Delphi, como? #328530

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
  R := Rect( 0, 0, Screen.Width, Screen.Height );
  DC := GetWindowDC( GetDeskTopWindow );
  Canv := TCanvas.Create;
  Canv.Handle := DC;
  Canvas.CopyRect( R, Canv, R );
  ReleaseDC( GetDeskTopWindow, DC );
end;  

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
  keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}   
end;