Delphi - Eliminar archivos del disco duro desde Delphi

 
Vista:

Eliminar archivos del disco duro desde Delphi

Publicado por Emilio (1 intervención) el 30/03/2005 21:18:03
Necesito que alguien me ayude. Deseo eliminar archivos y carpetas del disco Duro como lo hace Windows pero el codigo me falla;
ya he intentado con varias funciones como
DeleteFile(Filename: string):Boolean;
y OpenFile() pero no eliminan el archivo. Cualquiera que desee hecharme una mano le doy las gracias por adelantado.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar archivos del disco duro desde Delphi

Publicado por Elena (330 intervenciones) el 30/03/2005 21:30:16
procedure TForm1.eliminararchivo(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;

Luego para llamar el procedimiento pones lo sgte:
EliminarArchivo('C:\Eliel.txt');

Suerte!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar