Beliebig große leere Dateien erzeugen

[freak4fun]

Ich mach es so:

Delphi-Quellcode:

var
  lBuffer: array [0..524287] of Byte;

...

  ZeroMemory(@lBuffer, SizeOf(lBuffer));
  lFileStream.Seek(0, soFromBeginning);

  while (not FExit) do
    begin
      lFileStream.WriteBuffer(lBuffer, SizeOf(lBuffer));
      FExit := (lFileStream.Size div (1024 * 1024) >= lMaxFileSize) or
               (GetFreeDiskSpace(Drive) < MBLeft);
    end;

MfG
freak