Löschen von ordner mit inhalt

[ims]

hi

Delphi-Quellcode:

uses 
ShellApi; 


function DelDir(dir: string): Boolean; 
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;

löscht verzeichnis samt inhalt... (lösung aus diesem thread.)


gruss, dave