Slet mappe

Denne funktion gør arbejdet:

function deletedir(Dirname: string): boolean;
var
T: TSHFileOpStruct;
ADir: string;
begin
  try
    Fillchar(T, SizeOf(T), #0);
    ADir := Dirname + #0#0;
    with T do begin
      Wnd := 0; // no handle therefore no animation
      wFunc := FO_DELETE;
      pFrom := pchar(ADir);
      fFlags := FOF_SILENT or FOF_NOCONFIRMATION; // just do it
    end;
    Result := (SHFileOperation(T) = 0);
  except
    Result := false;
  end;
end;

Der findes også Delphi funktionen RemoveDir som forudsætter, at kataloget er tomt forinden.

Min fejl - read the f...... question!

i hvilken unit ligger TSHFileOpStruct?

Kanon. Jeg skal vist inkludere at eller andet bibliotek, før jeg kan bruge funktionen. Kan du fortælle mig hvilket?

azzodiac -> Du skal tilføje ShellApi til uses :)

Perfekt. Tak for hjælpen.