Guardado Sucesivo De Capturas De Imagen

[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.

[Niko]

jejejeje, ke tal?

gracias por tu respuesta, pensandolo bien, llevas razón, y si lo hago en jpg ke ocupa menos???

se puede hacer???

gracias.

Bye

[marcoszorrilla]

Hagas lo que hagas el problema vendrá siendo el mismo si guardas cada minuto, en una hora tendrás ya 60 archivos, calcula.

En formato Bmp una pantalla puede ocupar casi 2 Mb.

Un Saludo.

[DarkByte]

Podrías eliminar las imágenes iguales (cosa complicada), o las más antiguas...