Verzeichnisse loeschen die Nicht leer sind ?

[richard_boderich]

ok leute,
erstmal dank für eure antworten. habe etwas gefunden das funktioniert

Delphi-Quellcode:

function DelDir(dir: string): Boolean; 
uses 
ShellApi; 
... 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_DELETE; 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION; 
    pFrom  := PChar(dir + #0); 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end;

soweit sogut. aber ich moechte saemtliche geloeschten dateien in einem log protokollieren, was nicht geht, da ich nach dem anstoßen der funktion
keinen einfluss mehr darauf habe?

muellt er mir bei dieser funktion den nich den windows papierkorb voll ?