Como puedo mostrar lo que estoy haciendo en una segunda pantalla

[rmenor]

yo no quiero clonar la pantalla entera solo la aplicación que yo le diga, la que yo este ejecutando en ese momento o le diga al programa que esta permitida su clonación en el otro monitor.

[rmenor]

esto si podría ser una aproximación de lo que quiero hacer pero que no coja lo que ve del raton sinó que quede estático y se vea solo el programa que yo estoy usando.

[[seoane]]

Usando como base el ejemplo19, cambiamos el codigo por este otro:

Código Delphi [-]
procedure Copiar(DestDc: HDC; Zoom: Integer);
var
  SrcWindow: THandle;
  SrcDC: HDC;
  SrcRect: TRect;
  Ancho, Alto: Integer;
begin
  // Obtenemos las coordenadas de la ventana activa
  GetWindowRect(GetForegroundWindow,SrcRect); 
  // Lo intersecamos con el area de trabajo
  IntersectRect(SrcRect,SrcRect,Screen.WorkAreaRect);
  SrcWindow:= GetDesktopWindow;
  if SrcWindow <> 0 then
  begin
    SrcDC:= GetDC(SrcWindow);
    if SrcDC <> 0 then
    try
      Ancho:= SrcRect.Right - SrcRect.Left;
      Alto:= SrcRect.Bottom - SrcRect.Top;
      StretchBlt( DestDC, 0, 0, Ancho * Zoom, Alto * Zoom, SrcDC, SrcRect.Left,
        SrcRect.Top, Ancho, Alto, SRCCOPY);
    finally
      ReleaseDC(SrcWindow,SrcDC);
    end;
  end;
end;

procedure TfrmMain.tbZoomChange(Sender: TObject);
begin
  pbZoom.Canvas.FillRect(pbZoom.Canvas.ClipRect);
end;

// Esto es lo mismo de antes solo que ahora no pasamos las coordenadas a la funcion Copiar
procedure TfrmMain.RelojTimer(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  if btnCopiar.Checked then
  begin
    Copiar(pbZoom.Canvas.Handle,tbZoom.Position);
  end;

  if btnBorrar.Checked then
  begin
    pbZoom.Canvas.FillRect(pbZoom.Canvas.ClipRect);
    Copiar(pbZoom.Canvas.Handle,tbZoom.Position);
  end;

  if btnBuffer.Checked then
  begin
    Bitmap:= TBitmap.Create;
    try
      Bitmap.Canvas.Brush.Color:= pbZoom.Canvas.Brush.Color;
      Bitmap.Width:= pbZoom.Width;
      Bitmap.Height:= pbZoom.Height;
      Bitmap.Canvas.FillRect(pbZoom.Canvas.ClipRect);
      Copiar(Bitmap.Canvas.Handle,tbZoom.Position);
      pbZoom.Canvas.Draw(0,0,Bitmap);
    finally
      Bitmap.Free;
    end;
  end;
end;

Puede que esto se aproxime un poco mas a lo que buscas.

[rmenor]

Esto es lo que quiero, gracias, solo me faltará hacer alguna rutina que le indique si la venta activa tiene permisos de visualización o no y si no los tiene que mantenga la anterior que si que los tenía.
Te estaré eternamente agradecido. Un saludo.

[rmenor]

todavía no esta terminado pero aquí os dejo como ha quedado lo que me habeis ayudado a hacer, en próximas versiones desecharé lo del zoom porque no lo necesito y solo necesito que copie usando el buffer. Deciros que para que funcione bien necesitais tener 2 monitores. Muchas gracias.