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);
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