删除非空目录
摘要:
function DeleteDirectory(mSource: string): Boolean; var vSHFileOpStruct: TSHFileOpStruct; begin FillChar(vSHFileOpStruct, SizeOf(vSHFileOpStruct), 0); with vSHFileOpStruct do begin Wnd := Ap... 阅读全文
posted @ 2010-08-05 14:56 浔阳渔夫 阅读(414) 评论(1) 推荐(0) 编辑