//声明:RemoveDirectory( lpPathName: PAnsiChar {目录名}): BOOL; //举例:var Dir: string;begin Dir := 'c:\temp\Test'; if RemoveDirectory(PChar(Dir)) then ShowMessage(Dir + ' 已被删除') else ShowMessage('删除失败, 可能是 ' + Dir + ' 不存在或不为空');end; 本文共 291 字，大约阅读时间需要 1 分钟。
//声明:RemoveDirectory( lpPathName: PAnsiChar {目录名}): BOOL; //举例:var Dir: string;begin Dir := 'c:\temp\Test'; if RemoveDirectory(PChar(Dir)) then ShowMessage(Dir + ' 已被删除') else ShowMessage('删除失败, 可能是 ' + Dir + ' 不存在或不为空');end; 转载于:https://my.oschina.net/hermer/blog/319400