Datei schreiben mit Beliebieger größe ?

[rantanplan99]

Damit erzeugst du eine (fast) beliebig grosse Datei aufs Byte genau in null-komma-nix. Einfach eine Datei erstellen, mit Fileseek zu deiner gewünschten Dateigrösse-1 springen, und ein Byte schreiben und die Datei schliessen - Fertig.

Die "Daten" von Dateianfang bis Dateigrösse-1 entsprechend den alten Daten die zufällig gerade in den entsprechenden Sektoren auf der Platte stehen. Also unter umständen sind das deine gelöschen (geheimen) Daten. Also für Sicherheitsfanatiker ist das nix.

Delphi-Quellcode:

const
  cData: Char = '#';
var
  iFileHandle: Integer;
  iFileSize: Integer;
  sFileName: TFilename;
begin
  sFileName := 'c:\test.dat';  // <-- Der Dateiname
  iFileSize := 1234567;        // <-- Die Dateigrösse

  try
    iFileHandle := FileCreate(sFileName);
    FileSeek(iFileHandle, iFileSize - 1,0);
    FileWrite(iFileHandle, cData, 1);
  finally
    FileClose(iFileHandle);
  end;
end;

rantanplan