1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

The RemoveDirectory function deletes an existing empty directory. 

BOOL RemoveDirectory(

    LPCTSTR lpPathName   // address of directory to remove  
   );  
 

Parameters

lpPathName

Points to a null-terminated string that specifies the path of the directory to be removed. The path must specify an empty directory, and the calling process must have delete access to the directory. 

 

Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function RemoveDirectories(Dir:string):boolean;
// This function deletes a directory and returns the result of deletion
var SR:TSearchRec;
    Continue:boolean;
begin
 Result:=False;
 Dir:=BackSlash(Dir);
 Continue:=FindFirst(Dir+'*.*',faAnyFile,SR)=0;
 while Continue do try
  if (SR.Name='.') or (SR.Name='..') then System.Continue;
  if not DirectoryExists(Dir+SR.Name) then begin
   SetFileAttributes(PChar(Dir+SR.Name),FILE_ATTRIBUTE_NORMAL);
   DeleteFile(Dir+SR.Name);
  end else RemoveDirectories(Dir+SR.Name);
 finally
   Continue:=FindNext(SR)=0;
 end;
 FindClose(SR);

 SetFileAttributes(PChar(Dir),FILE_ATTRIBUTE_NORMAL);
 Delete(Dir,length(Dir),1);
 if length(Dir)>0 then Result:=RemoveDir(Dir);
end;					

1:
2:
3:
4:

function Backslash(const Dir:string):string;
begin
 if copy(Dir, length(Dir), 1) <> '\' then Result:=Dir+'\' else Result:=Dir;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Program KillDir;
uses Dialogs, ShellAPI;

 procedure DoRemoveDir(Dir : string);
 var sh : TSHFileOpStruct;
 begin
  if Dir <> '' then if Dir[Length(Dir)] = '\' then system.delete(Dir, Length(Dir), 1);
  sh.Wnd := 0;
  sh.wFunc  := FO_DELETE;
  sh.pFrom  := PChar(Dir + #0#0);
  sh.pTo    := #0#0;
  sh.fFlags := FOF_NOERRORUI or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_NOCONFIRMATION;
  sh.hNameMappings := NIL;
  sh.lpszProgressTitle := NIL;
  SHFileOperation(sh);
 end;

var Dir : String;

begin
 Dir := 'C:\Windows';
 if InputQuery('Welches Verzeichnis darf ich denn löschen?', 'Zu löschendes Verzeichnis', Dir) then
  DoRemoveDir(Dir);
end.