Ver Mensaje Individual
  #5  
Antiguo 15-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Pues otro más para la colección:

Código Delphi [-]
uses ShellApi;

procedure RemoveFolder(Folder: String);
var
  FileInfo: TShFileOpStruct;

begin
  FileInfo.Wnd := 0;
  FileInfo.wFunc := FO_DELETE;
  FileInfo.pFrom := PChar(Folder);
  FileInfo.pTo := nil;
  FileInfo.fFlags := FOF_NOERRORUI or FOF_NOCONFIRMATION;

  ShFileOperation(FileInfo);
end;

// Saludos
Responder Con Cita