Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Datei sicher löschen

    Delphi
    by shmia, 9. Jun 2009
  procedure ShredderFile(const filename:string);
  const
  Fillchars: array of char = (Char($00), Char($FF), Char($00), Char($F0), Char($0F), Char($00));
  BLOCK_SIZE = 8096;
  var
  fs : TStream;
  buffer : String;
  i, j : Integer;
  begin
  fs := TFileStream.Create(filename, fmOpenReadWrite or fmShareExclusive);