//声明:
RemoveDirectory(
  lpPathName: PAnsiChar {目录名}
): BOOL;

---

//举例:
var
  Dir: string;
begin
  Dir := 'c:\temp\Test';
  if RemoveDirectory(PChar(Dir)) then
    ShowMessage(Dir + ' 已被删除')
  else
    ShowMessage('删除失败, 可能是 ' + Dir + ' 不存在或不为空');
end;
本文出自 51CTO.COM技术博客