FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Deltree...
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
__________________
|
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|