Como eliminar una carpeta y todos sus archivos? Ayudaa

[Supra]

Buenas
es que quiero crear una aplicacion que al ejecutarse borre una determinada carpeta es que no se quien o por que siempre me aparese una carpeta y quiero hacer la aplicacion inbisible que al arancar e sistema operativo se arranque el programa eso ya esta resuelto ahora solamente falta saber como borro esa carpeta y todo su contenido ¿se puede? ¿ Como?
de antemano gracias salu2

[German]

Uses SysUtils

...

procedure EliminaCarpeta(Carpeta:String);
var 
I: Integer;
DirInfo: tSearchRec;
begin
  I := FindFirst(Carpeta+'*.*', faAnyFile, DirInfo);
  while I = 0 do
  begin
    DeleteFile(pChar(Carpeta+DirInfo.Name));
    I := FindNext(DirInfo);
  end;
  FindClose(DirInfo);
  RemoveDir(Carpeta);
end;

EliminarCarpeta('C:\Mis documentos\Temporal\');

Salu2.

[salvica]

Creo que esto solo vale si la carpeta "no tiene subcarpetas"

En este mismo foro (trucos / Ficheros, Discos) tienes la implementación del "DelTree" del DOS (en recursivo)
http://www.clubdelphi.com/vertruco.php?id=310

Saludos

[Supra]

creo que ya lo arregle pero detodos modos gracias

[ginasil]

Empezado por salvica

Creo que esto solo vale si la carpeta "no tiene subcarpetas"

En este mismo foro (trucos / Ficheros, Discos) tienes la implementación del "DelTree" del DOS (en recursivo)
http://www.clubdelphi.com/vertruco.php?id=310

Saludos

esto ya no esta disponible?

[dec]

Hola,

Empezado por ginasil

esto ya no esta disponible?

Busca por "borrar" en los trucos y verás que aparecen varios que pueden servirte.