WinAPI: RemoveDirectory - 删除空目录

转载于 2008-02-12 10:33:00 发布 · 72 阅读

·

0

·

0

本文提供了一个使用Delphi语言实现的目录删除功能示例代码。通过调用RemoveDirectory函数，可以实现对指定路径的目录进行删除操作。如果目录存在且为空，则删除成功；若目录不存在或不为空，则会提示删除失败。

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


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