Use esta função e adapte-a as suas necessidades:
procedure CapturaAreaTrab(NomeArq : String);
var
Bitmap : TBitmap;
DC : hDc;
DesktopRect : TRect;
DesktopCanvas : TCanvas;
HoraAtu : DWord;
begin
// esconde a aplicação - não queremos que apareça na tela
Application.MainForm.Hide;
// da
Olá
Alguém sabe como dar um printscreen na tela atula e guardar a imagem
num componente TImage, tempo de execução ??
Tentei de alguma formas mas não consegui.
Agradeço a resposta
Até mais
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas,
2 matches
Mail list logo
