Fórum Print Screen #166716

27/06/2003

0

Delphi

Oi Pessoal,
será que alguém sabe qual código representa a tecla Print Screen? Eu preciso desse recurso no meu programa, para q o usuário aperte um botão e eu salvo a tela automaticamente, em algum formato...
se alguém puder me ajudar,
valeu!


Hellen

Hellen

Responder

Posts

27/06/2003

Rodrigo_rcp

Conforme já respondido:

http://200.196.51.150/forum/viewtopic.php?t=11696&highlight=

coloque esse codigo no botão:

´Olha o codigo do PrintScreen eu também não consegui mas se é
para simular esse codigo funciona:

keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}

espero ter ajudado´


Responder

Gostei + 0

07/07/2003

Rodrigo_rcp 

function CaptureScreenRect( ARect: TRect ): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do
begin
Width := Right - Left;
Height := Bottom - Top;
ScreenDC := GetDC( 0 );
try
BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY ); 
finally
ReleaseDC( 0, ScreenDC ); 
end;
end;
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height)));

end;

end.



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar