No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Borrar un archivo Permanentemente.

delphi

Procedure WipeFile(filename: String);
	Var
	 buffer: Array [0..4095] of byte;
	 max, n: LongInt;
	 i: Integer;
	 fs: TFileStream;
 
	 Procedure RandomizeBuffer;
	 Var
	   i: Integer;
	 Begin
	   For i:= Low(buffer) to High(buffer) Do
	     buffer[i] := Random(256);
	 End;
 
	Begin
	 fs:= TFilestream.Create(filename, fmOpenReadWrite or fmShareExclusive);
	 try
	   For i:= 1 to 3 Do Begin
	     RandomizeBuffer;
	     max := fs.Size;
	     fs.Position := 0;
	     While max > 0 Do Begin
	       If max > Sizeof(buffer) Then
	         n:= sizeof(buffer)
	       Else
	         n:= max;
	       fs.Write( Buffer, n );
	       max := max - n;
	     End;
	     FlushFileBuffers(fs.handle);
	   End;
	 finally
	   fs.free;
	 end;
	 Deletefile(filename);
	End;

Saludos!