Technology Learning

导航

2010年8月5日

删除非空目录

摘要： 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 浔阳渔夫 阅读(428) 评论(1) 推荐(0)