Delete Folder

uses ShellApi

//

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

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DelDir('C:\Test\Verzeichnis') then
    Showmessage('Das Verzeichnis konnte gelöscht werden')
  else
    Showmessage('Das Verzeichnis konnte nicht gelöscht werden');
end;