Como puedo mostrar lo que estoy haciendo en una segunda pantalla

[[seoane]]

En este otro hilo hablamos de algo parecido, y usamos la misma solución que te propone Lepe, copiar la pantalla a intervalos regulares. Aunque veo por tu pregunta que no te parece una buena solución.

http://www.clubdelphi.com/foros/showthread.php?t=30776

[rmenor]

lo que yo quiero que haga es que la persona vea lo que yo le estoy señalando o marcando con el ratón con lo cual debería ser un reflejo segundo a segundo y evitando el parpadeo de la pantalla. ¿No habría alguna manera de ver lo que se ve en la pantalla como si fuera una capturadora de video?. Hay un programa que se llama UltraMonitor que hace mirror de la pantalla que quieras pero este es de pago y quisiera hacer algo parecido y màs adaptado a lo que necesito, que este no lo hace. En fin muchas gracias por las respuestas seguiré buscando, si alguien encuentra algo agradecería que me siguierais respondiendo.

[[Lepe]]

Acabo de probarlo y tanto una NVIDIA como una ATI, permite la clonación del monitor con teclas rápidas (lo he probado con F7 para un solo monitor y F8 para activar la clonación) deshabilitando la extensión del escritorio.

Lo que tu quieres se puede conseguir con los drivers de la tarjeta, maximizando el Mozilla y ocultando la barra de tareas, después activas la clonación.

Es cierto que hay componentes en torry, como ya te indiqué que puedan servirte, el hecho, es que el soporte de varios monitores en delphi, unidad Multimon.pas es muy escueta y no permite que hagas mucho más alla de lo ya comentado (delphi 6).

En cuanto ayuda de varios monitores, yo no he sabido encontrar ninguna (puede que tú tengas más suerte).

Saludos

[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.