剪切文件及文件
各位：
忙一段代，要求D中的Picutre文件剪切到E中，刻如何代啊？如果是剪切文件又是怎呢？可以一段完整的代出？了!


[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
function CopyFile(SourceName, TargetName: string): Boolean;
var
F: TShFileOpStruct;
begin
F.wnd := Form1.Handle;
F.wFunc := FO_MOVE; {操作方式}
F.pFrom := PChar(SourceName + #0#0);
F.pTo := PChar(TargetName + #0#0);
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
result := ShFileOperation(F) = 0;
end;
begin
copyFile( 'c:\123 ', 'd:\123 ' );
end;
[解决办法]
实现剪切就是　先复制　后删除原文件。
复制　CopyFile（）　删除　DeleteFile()