Simular Print Screen
24/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
24/02/2003
Marcelo Saviski
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
Responder
24/02/2003
Nildo
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;
Responder
24/02/2003
Ggean
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
