更改文件夹名(Delphi)

Question

重新命名：
//RenDirectory('d:\wt2','d:\bcde');
function RenDirectory(const OldName,NewName:string): boolean;
var
  fo: TSHFILEOPSTRUCT;
begin
  FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_RENAME;
    pFrom := PChar(OldName+#0);
    pTo := pchar(NewName+#0);
    fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
  end;
  Result := (SHFileOperation(fo) = 0);
end;

Answer 1

是一下
if MoveFile('D:\temp\losenetway','D:\temp\rose') then edit1.Text :='good';

Answer 2

MoveFile()也可以，我的那个是调用的API，不是在那个pas里面，只是一个函数而已。
推荐你用MoveFile()简单，方便。我找了好久没有找到，原来有一个MoveFile也可以。哎，惭愧啊。

Answer 3

用RenameFile也可以，我就这样用的，没问题

Answer 4

to Kingron,您能看看RenameFile的函数定义吗？