Ver Mensaje Individual
  #4  
Antiguo 07-02-2006
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
Psee... Bonito truco que también hubieras encontrado aquí en el club, aunque yo prefiero éste:

Código Delphi [-]
var
  FileInfo: TShFileOpStruct;

begin
  FileInfo.Wnd := Handle;
  FileInfo.wFunc := FO_DELETE;
  FileInfo.pFrom := 'C:\Ruta\Con\Los\Archivos\*.cds';
  FileInfo.pTo := nil;
  FileInfo.fFlags := FOF_NOCONFIRMATION;

  ShFileOperation(FileInfo);
end;

// Saludos
Responder Con Cita