No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCOS DELPHI] Capturar la Imagen del escritorio.

delphi

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,S
	RCCOPY);
	    Result.Modified:=True;
	  finally
	    ReleaseDC(0,Desktop);
	  end;
	  except
	    Result.Free;
	    Result:=nil;
	  end;
	end;

Uso

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  Image1.Picture.Bitmap:=GetScreenShot;
	end;

Editado por sir.dev.a.lot, 23 agosto 2016 - 01:55 .