Deltree...

[Perio]

Hola:
Como andan gente del foro...
Les comento cual es mi problema, tengo que eliminar un directorio con todo su contenido desde una aplicacion en delphi 7, para windows XP.
Estoy utilizando las siguientes funciones, pero no obtengo el resultado que espero:

Código Delphi [-]
procedure Deltree(folder : pchar);
var
T:TSHFileOpStruct;
X: Integer;
begin
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:= folder;
fFlags:= FOF_ALLOWUNDO or FOF_SILENT ;
end;
SHFileOperation(T);
end;
Function DelTree2(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;

procedure removerDirectorio(dir : pchar)
begin
RmDir(dir);
error := IOResult;
if error = 0
then ShowMessage('Directory removed OK')
else ShowMessageFmt('Directory removal failed with error %d',[error]);
end;

procedure removerDirectorio2(dir : pchar)
begin
// Remove this directory
if RemoveDir(dir)
then ShowMessage('TestDir removed OK')
else ShowMessage('TestDir remove failed with error : '+
IntToStr(GetLastError));
end;






Ninguna de estas opciones funciona correctamente cuando le paso el path desde un string. Este codigo lo disparo desde un boton y para que me elimine el directorio tengo que correr el proceso mas de dos veces... es muy raro.
El path que le paso como parametro lo armo yo a pata, no se si tendra algo que ver esto. Este se arma en forma correcta, eso asta verificado.
Cualquier sugerencia es bienvenida, la veradad ya no se que probar.
PD: Pido disculpas, hace un tiempo hice un topic similar, pero este es otro problema que me surgio.

Saludos
Perio

[delphi.com.ar]

Fíjate si te sirve algo de este hilo: Borrar un directorio con contenido

Saludos!