Print Screen Area Especifica

Delphi

09/04/2005

Ola,
Gostaria de saber de como tirar print screen de uma area especifica dando as coordenadas.


Gok52

Gok52

Curtidas 0

Respostas

Gok52

Gok52

09/04/2005

up


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

09/04/2005

1, vamos copiar a imagem para um Bitmap, então declare um variavel DeskTop como TBitmap, crie ela e arrume o tamanho, Width e height de acordo com o tamanho da area a ser ´fotografada´

depois, use o comando BitBlt

var 
  DC: HDC; 
begin 
  DC := GetDC(GetDeskTopWindow); 
  try 
    BitBlt(DeskTop.Canvas.Handle, 0, 0, Width, Height, DC, X, Y, SRCCOPY); 
  finally 
    ReleaseDC(GetDeskTopWindow, DC); 
  end;


altere X, Y, Width e Height para os valores da coordenada desejada


GOSTEI 0
POSTAR