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;