如何改名目录？？？(50分)

如题

Uses shellapi;<br>//参数自己写，分太少了<br>function MyReNameDir: Boolean;<br>var<br>&nbsp; F:TShFileOpStruct;<br>begin<br>&nbsp; F.wnd:=0;<br>&nbsp; F.wFunc:=FO_RENAME; {操作方式}<br>&nbsp; F.pFrom:=PChar('C:/Temp/Temp' +#0#0);<br>&nbsp; F.pTo:=PChar('C:/Temp/Tempp'+#0#0);<br>&nbsp; F.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION;<br>&nbsp; result:= ShFileOperation(F)=0;<br>end;

接受答案了.