WinAPI: RemoveDirectory - 删除空目录

//声明:

RemoveDirectory(

  lpPathName: PAnsiChar {目录名}

): BOOL;	


 
   




//举例:

var

  Dir: string;

begin

  Dir := 'c:\temp\Test';

  if RemoveDirectory(PChar(Dir)) then

    ShowMessage(Dir + ' 已被删除')

  else

    ShowMessage('删除失败, 可能是 ' + Dir + ' 不存在或不为空');

end;