Capturar pantallas como video

[nemesio]

Si quieres grabar pantallas tipo fotografía, lo puedes hacer de la siguiente manera:

Código Delphi [-]
 
procedure Capturar_Pantalla;
var
  c: TCanvas;
  r: TRect;
  Foto: TBitmap;
  FotoJPEG : TJPEGImage;
  x,y,Letra,Numero:integer;
  Ruta:String;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    Ruta:=ExtractFileDir(Application.ExeName)+'\images\';
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Foto := TBitmap.Create;       
    Foto.Width  := Screen.Width;
    Foto.Height :=Screen.Height;
    Foto.Canvas.CopyRect(r, c, r);
   //  Convertir la captura de pantalla a jpg
    FotoJPEG := TJPEGImage.Create;
    FotoJPEG.Assign(Foto);
    randomize;
    Letra:=random(27);
    numero:=random(2000);
    FotoJPEG.SaveToFile(Ruta+IntTostr(numero)+'.jpg');
  finally
    ReleaseDC(0, c.Handle);
    Foto.Free;
    FotoJPEG.Free;
    c.Free;
  end;
end;

Solo tienes que activar un Timer y cada cierto tiempo le tomas "Fotografías" a la pantalla.

Saludos

[jars]

Gracias nemesio, ahora dime, hay alguna manera de setear la resolucion de pantalla? Como podría grabar en otros formatos como PNG o GIF o algun otro, es para darle al usuario la posibilidad de mejorar la calidad a costa de ocupar mas espacio o bajar calidad para no ocupar tanto. Gracias

[nemesio]

Si, en los foros vas a encontrar bastantes ejemplos de como cambiar la resolución de la pantalla desde tu aplicación, tambien como grabar en otros formatos de imagenes. En el ejemplo que te di, sale como hacerlo a Jpeg solamente, pero solo es cuestión de adaptar los otros formatos. No olvides incluir en el uses la unidad JPEGS.

[jars]

si, gracias ya lo probe y funciona correctamente, me falta podr setear resolucion y otros formatos.