Datei sicher löschen

[isilive]

Ich hab die erste Version mal weitergeschrieben und das ganze läuft sehr gut - mit AssignFile.
Hat ein "Filestream mit fs.WriteBuffer" Vorteile gegenüber "AssignFile und Blockwrite"? (Performance?)
Kann ich bei AssignFile auch ein FlushFileBuffers umsetzen (Dazu brauch ich aber ein Filehandle) ?

Delphi-Quellcode:

  
AssignFile(f, Name3);
Reset(f, 1);
...
Buffer[j] := random(256);           //Buffer mit Random Data füllen
BlockWrite (f, Buffer, Buffersize);

Delphi-Quellcode:

fs := TFileStream.Create(filename, fmOpenReadWrite or fmShareExclusive);
...   buffer := StringofChar(Fillchars[i], BLOCK_SIZE);
...   fs.WriteBuffer(buffer[1], BLOCK_SIZE);
...   FlushFileBuffers(fs.Handle);