Hi,

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

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

markieren

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;

hmm das mit den 4Gb pro file wusst ich auch noch nich... deshalb spaggt mein DiskFiller auch immer ab *gg

Thx für den Tipp mit den mehreren Dateien

Mal eine Frage:

Wie siehts mit existierenden Dateien aus? Werden die überschrieben, kann da was kaputt gehen (an existierenden Dateien?)

Wenn du eine gültige Datei auf der Platte mit $00 überschreibst, oder den FAT-Eintrag ausradierst, was denkst du wird wohl passieren? Richtig, die Datei wird nicht mehr gefunden (FAT-Eintrag weg) oder ist ganz einfach ungültig.

Greetz
alcaeus

Achso, ich hatte mir den Code nicht so genau angesehen! D.h. mit dem Code kann man eine bestimmte Datei überschreiben, ich dachte die Festplatte (freie Stellen) überschreiben und somit säubern.