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

//举例:
 var
  Dir: string;
begin
  Dir := 'c:\temp\Test';
  if RemoveDirectory(PChar(Dir)) then
    ShowMessage(Dir + ' 已被删除')
  else
    ShowMessage( '删除失败, 可能是 ' + Dir + ' 不存在或不为空');
end;