Verzeichnisse löschen

[Alexander]

dann dürfte das mit dieser Funktion gehen:

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;

Viel Spass damit!

[edit]Delphi-Codetags eingefügt. Mfg. Gérome[/edit]