Delphi moveFileEx文件移动示例.rar

Delphi移动文件，其实就是模拟了剪切文件再粘贴文件的效果，比较简单的例子，核心的代码也没几行：　　beginmoveFileEx(pchar(OpenDialog1.FileName),pchar('C:\'extractfilename(opendialog1.FileName)),MOVEFILE_COPY_ALLOWED);　　showmessage('文件已移动到C盘跟目录下');　　end　　else　　showmessage('无法复制文件');　　end;　　需要更完整的代码，请下载本Delphi文件移动源码包。