Dar um Print screen via Delphi, como?

Delphi

03/09/2006

Olá pessoal,

Qual comando, ou qual tecla do código ascii deve ser usado para eu dar um print screen via Delphi para captuar a imagem no momento da execução?


Obrigado


Yallebr

Yallebr

Curtidas 0

Respostas

Aasn

Aasn

03/09/2006

Olá yallebr,

tente assim...

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;


ou assim...

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;


[]´s
AASN


GOSTEI 0
POSTAR