delphi 转移文件目录

uses
 ShellApi;

function MoveDir(const FromDir, ToDir: string): Boolean;
var
SH: SHFILEOPSTRUCT;
begin
FillChar(SH, SizeOf(SH), 0);
with SH do
begin
Wnd := 0;
wFunc := FO_MOVE;
pFrom := PChar(FromDir+#0);
pTo := PChar(ToDir+#0);
fFlags := FOF_ALLOWUNDO
{or FOF_NOCONFIRMATION}
{or FOF_NOCONFIRMMKDIR}
{or FOF_RENAMEONCOLLISION}
{or FOF_SILENT};
end;
Result := SHFileOperation(SH) = 0;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MoveDir('c:\temp\testdir', 'd:\');
end;