随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

//举例: var Dir: string; begin Dir := 'c:\temp\Test'; if RemoveDirectory(PChar(Dir)) then ShowMessage(Dir + ' 已被删除') else ShowMessage('删除失败, 可能是 ' + Dir + ' 不存在或不为空'); end;
posted on 2008-02-12 10:33  万一  阅读(...)  评论(...编辑  收藏