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