Captura pantalla

[walito]

gracias!
ahora me pongo a ver esos link!!

muchas gracias

walter

[dec]

Hola,

Bueno. Tiene que constar que se me ocurrió acaso demasiado rápido una posible forma de atacar el problema que te ocupa. Lo cierto es que sigo pensando que puede ser un comienzo ir por donde digo, pero, también creo que puede haber otras formas de entrarle al tema y tal vez más acertadas: he tratado de conseguir algo durante poco tiempo, es verdad, pero, me costaba más de lo que en un primer momento hubiera pensado. Cosas.

[marcoszorrilla]

Prueba esto:

Código Delphi [-]
program GetScrnBmp;

uses
  Windows,
  Graphics;

{$R *.RES}

var
  B: TBitmap;
  S: string;

begin

  B := TBitmap.Create;

  B.Width := GetSystemMetrics(SM_CXSCREEN);    {Screen.Width}
  B.Height := GetSystemMetrics(SM_CYSCREEN);   {Screen.Height}

  BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);


  if ParamStr(1) <> '' then
    S := 'C:\Seguro\'+ParamStr(1) + '.bmp'
  else
    S := 'C:\Seguro\'+'Screen.bmp';

  b.SaveToFile (s);

  b.Free;

end.

Un Saludo.

[walito]

gracias, ahora lo pruebo y cuento que paso

[Delfino]

El prcedimiento de marcos funciona perfectamente,
ahora pregunto, se puede desde una app Delphi hacer q se capture la pantalla pero sin la app Delphi? q en el bitmap resultante no aparezca el escritorio con todo lo q contiene pero la app Delphi q mando el comando no aparezca..

[[seoane]]

Empezado por Delfino

El prcedimiento de marcos funciona perfectamente,
ahora pregunto, se puede desde una app Delphi hacer q se capture la pantalla pero sin la app Delphi? q en el bitmap resultante no aparezca el escritorio con todo lo q contiene pero la app Delphi q mando el comando no aparezca..

Una solucion sencilla seria sacar nuestro formulario de en medio mientras capturamos la pantalla.

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Ocultamos el formulario
  Visible:= FALSE;
  Application.ProcessMessages;

  // Capturamos la pantalla con el codigo de marcos

  // Volvemos a mostrar el formulario
  Visible:= TRUE;
end;

[Delfino]

Le he puesto el siguiente codigo:

Código Delphi [-]
Visible := False;
Application.ProcessMessages;
Bmp := TBitmap.Create;
try
 Bmp.FreeImage; 
 Bmp.Width := GetSystemMetrics(SM_CXSCREEN);    //Screen.Width
 Bmp.Height := GetSystemMetrics(SM_CYSCREEN);   //Screen.Height
 BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, GetDc(0), 0, 0, SRCCOPY);
 Bmp.SaveToFile (ChangeFileExt(Application.ExeName,'.bmp'));
 finally
  Bmp.Free;                           
 end; 
Visible := True ;

Pero por desgracia lo hace correctamente solo la primera vez de su ejecucion, las siguientes veces muestra la ventana del programa no se pq, alguna idea?