Simular Print Screen
Oi pessoal,
Preciso de uma dica,
como simular o precionamento da tecla Print Screen.
Na verdade o que quero nao é tao simples assim, gostaria de mostrar a tela em um Timage.
A ideia foi,
simular o Print Screen depois colar o resultado no Timage,
o problema é que nao sei o codigo da tecla e nem utilizar o picture.loadFromClipboardFormat.
se alguem puder me ajudar eu agradeço.
Gean Carlos. :)
Preciso de uma dica,
como simular o precionamento da tecla Print Screen.
Na verdade o que quero nao é tao simples assim, gostaria de mostrar a tela em um Timage.
A ideia foi,
simular o Print Screen depois colar o resultado no Timage,
o problema é que nao sei o codigo da tecla e nem utilizar o picture.loadFromClipboardFormat.
se alguem puder me ajudar eu agradeço.
Gean Carlos. :)
Ggean
Curtidas 0
Respostas
Marcelo Saviski
24/02/2003
Faça assim
CopyRect(bounds(-left,-top,800-left,600-top),Image1.Picture.Bitmap.Canvas,bounds(0,0,image1.width,image1.height))
isso para um monitor de 600x800
CopyRect(bounds(-left,-top,800-left,600-top),Image1.Picture.Bitmap.Canvas,bounds(0,0,image1.width,image1.height))
isso para um monitor de 600x800
GOSTEI 0
Nildo
24/02/2003
nao precisa. Esse codigo coloca a Tela em um TImage:
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;
Image1.Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;
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;
Image1.Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;
GOSTEI 0
Ggean
24/02/2003
A melhor coisa dessa comunidade é ter a certeza de que sua mensagem será respondida, Por pessoas que realmente querem ajudar.
Obrigado pessoal !!!
Gean Carlos.
Obrigado pessoal !!!
Gean Carlos.
GOSTEI 0
Nildo
24/02/2003
:D
GOSTEI 0
Ggean
24/02/2003
[img]C:\Meus documentos\Minhas imagens\Computador13.gif[/img]
GOSTEI 0
Ggean
24/02/2003
GOSTEI 0