fazer print screen automatico ? e capturar config do monitor

Question

to precisando fz o seguinte...eu gostaria de um comando e capturasse o tela atual da maquina(print screen) e mostrasse no meu programa... como se nada houvesse acontecido... no caso o meu aplicativo a...

Cebikyn · Answer

Declare esta fun��o no c�digo fonte de seu DPR:

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;

Ainda no c�digo do DPR declare Graphics na cl�usula USES e declare uma nova vari�vel do tipo TBitmap. Associe esta vari�vel ao bitmap retornado pela fun��o a cima (logo abaixo de Application.Initialize). Coloque um delay [ Sleep(100) ]. Localize a cria��o do form que receber� a img. Ap�s a linha localizada, desenhe o Bitmap criado em seu form da forma que achar conveniente. Chame o m�todo Repaint de seu form e o Free, do Bitmap.

Qualquer d�vida (ou se o c�digo n�o funcionar) responda o t�pico.

F�rum fazer print screen automatico ? e capturar config do monitor #207428