[marcoszorrilla]

Cada minuto?

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 := ParamStr(1) + '.bmp'
  else
    S := 'Screen.bmp';

  b.SaveToFile (s);

  b.Free;

end.

Ahora bien, mira a ver si puedes poner como disco duro la rueda de un tractor porque con lo que ocupa cada archivo lo tenemos claro.

Un Saludo.