试试这个行不行:<br>var<br> T:TSHfileOpStruct;//要引用ShellApI<br><br> P:String;<br>begin<br> P:='C:/a.txt';//要写完整路径。<br> with T do<br> begin<br> Wnd := 0;<br> wFunc := FO_DELETE;<br> pFrom := pchar(p);<br> pTo := nil;<br> fFlags := FOF_ALLOWUNDO;<br> end;<br> SHFileOperation(T);<br>end;<br>不仅可以删除,还能在回收站恢复。