Dateien löschen

[stoxx]

Zitat von Kinimod8:

Hi,

wie kann ich Dateien richtig löschen? Also die Sektoren und so überschreiben...

na die Datei einfach byteweise mit irgendwelchem Müll füllen.
Es gibt da so Richtlinien dafür, mit welchen Werten man das machen soll (mehrmals hintereinander)

hier mal code von mir, um eine ganze Festplatte zu "leeren"
der Code wird aber keinen schönheitspreis gewinnen, sorry

Code:

procedure TForm1.Button1Click(Sender: TObject);
var bf : array [1..200] of file of byte;
    pfad : string;
    pfad1 : string;
    buf : array [1..50000] of byte;
    i : integer;
    geschrieben : integer;
    floop : integer;
begin
label1.Caption := 'Status: Die Datei 1 wird erstellt (Hexwert 00)';
pfad :=  ediname.text;

for i:= 1 to 50000 do
begin
buf[i] := $FF;
end;

// mehrere Dateien, wegen fat > 4GB DAteien problem
for floop := 1 to 200 do
begin
pfad1 := pfad + inttostr(floop);
assignfile(bf[floop], pfad1);
rewrite(bf[floop]);
i := 0;
repeat
 inc(i);
 application.ProcessMessages;
 blockwrite(bf[floop],buf, sizeof(buf), geschrieben);
 //if i mod 100 = 0  then caption :=  inttostr(i);
until (geschrieben <> sizeof(buf)) or (i = 30000);

if geschrieben <> sizeof(buf) then break;

closefile(bf[floop]);
end;   // von for

label1.caption := 'Status: Fertig !';



end;