Borrar carpetas en delphi7

[Kivan]

Muchas gracias Roman esto me funciona a la perfeccion cuando le meto directamente la ruta en la funcion (ej: deletefolder ('.\data\edit'); ), pero en cambio cuando le asigno el valor del string mediante una variable
(ej : cadena:= '.\data\edit';
deletefolder (cadena); )
me da un fallo que me dice lo siguiente : No se puede eliminar Archivo: No se puede leer del disco o archivo de origen , No entiendo el por qué de ese fallo cuando se supone que a la funcion le pasas el mismo string. Me podrian dar una explicacion? Gracias.

[Kivan]

Ya he resuelto mi duda al final he usado la siguiente funcion:

--------------------------------------------------------------------------

Código Delphi [-]
uses ShellAPI;
 
Function DelTree(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
   StrPCopy(DirBuf, DirName) ;
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;
    fFlags := fFlags or FOF_SILENT;
   end; 
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
   except
    Result := False;
  end;
end;

--------------------------------------------------------------------------

Espero que en un futuro le sirva a la gente como me ha servido a mi. Gracias de nuevo por la ayuda que me habeis proporcionado.

[Dragon]

Hola a todos estoy usando esas funciones que han comentado porque quiero borrar todos los dias unas carpetas con sus archivos y lo ejecuto mediante las tareas de windows.

El problema es que cuando la sesión del ordenador es la de administrador todo funciona bien pero cuando es un usuario avansado o usuario el programa se ejecuta pero no hace nada.

Tienen idea de como solucionar esto???.
Ya les estoy dando las gracias.

[DarKraZY]

¿¿Es posible que este usuario que comentas (que tiene los permisos de usuario y usuario avanzado) no tenga permiso de escritura sobre esa carpeta??

[Dragon]

Hola de nuevo, el usuario si tiene permiso en esa carpeta para guarda, leer y borrar en todas las que se encuentren dentro de ella.
Gracias.