Ordner löschen?

[cruiser]

Hier mal ein Schnipselchen dazu:

löscht Dateien und Verzeichnisse (incl. Subdirs)

Delphi-Quellcode:

function RM(FileName: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  FileName := ExcludeTrailingPathDelimiter(FileName);
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;  // für Fehlermeldungen FOF_NOCONFIRMATION weglassen
    pFrom := PChar(FileName + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;