Borrar un directorio con contenido

[serg]

Empezado por delphi.com.ar

No entendi..... ¿hay algún cambio a mi código?

NO, ES SOLO QUE ME EQUIVOQUÉ
PERDÓN.
PERO SI TENGO UN PROBLEMA.
NO PUEDO BORRAR EL DIRECTORIO SI RECIEN ESCRIBÍ UN ARCHIVO EN ÉL, SUPONGO QUE DEBO LIBERARLO DE MEMORIA ANTES, PORQUE WINDOWS ME DICE QUE HAY OTRO PROGRAMA USANDOLO. EL CODIGO QUE USÉ ES ESTE:

codigo delphi[-]
procedure TFmain.RemoveFolder(folder:string);
var
sr: TSearchRec;
n: Integer;
begin
n:=FindFirst(folder+'\*.*', faAnyFile, sr);
while n=0 do
begin
if (sr.Name <> '..')and(sr.Name <> '.')
then
begin
if not(sr.Attr = faDirectory)
then
deletefile(folder+'\'+sr.name) ;
end;
n := FindNext(sr);
end;
SysUtils.FindClose(sr);
folder := ExcludeTrailingBackslash(folder);
if DirectoryExists(folder) then
Win32Check(RemoveDir(folder));
end;

GRACIAS DE ANTEMANO

[delphi.com.ar]

No vas a poder borrar una carpeta si no puedes borrar todos los archivos contenidos por ella, y no podrás borrar un archivo si esta en uso. Si tu programa lo esta usando solo tienes que cerrar el archivo. Muchas veces sucede que hay diálogos que tienen abiertas carpetas, entonces algunas versiones de windows no te dejan borrar estos directorios por ese motivo, otra precaución puede ser cambiar el currentpath de la aplicación.

Saludos!

Saludos!

[Neftali [Germán.Estévez]]

Truco 232.

NOTA: Hoy estoy vago.