delphi 如何拷贝mtp中的文件

delphi 如何拷贝mtp中的文件,第1张

可以用以下的方法:

CopyFile(pchar('c:\sql.txt'), pchar('d:\sql.txt'), True)

只要是文件的复制,都可以。

移动文件:

MoveFile(pchar('c:\sql.txt'), pchar('d:\sql.txt'))

删除文件:

DeleteFile('c:\sql.txt');

以上都是可行的。

//********************************************************************

//功能:将FromPath路径指定的文件拷贝到ToPath指定路径下

//参数:(1)FromPath,一个完全限定的文件路径,指定源 *** 作文件位置

//

(2)ToPath,目的文件位置,如果ToPath指定的目录不存在将自动创建它

//返回值:

1,复制 *** 作成功完成

//

0,复制 *** 作被取消

//

-1,复制 *** 作执行失败

//

//

说明:ToPath中不能含有通配符

//

若FromPath指定一个文件,则ToPath可以指定一个目录或一个将创建的

//

新文件;若FromPath指定一个目录或含有通配符的路径,即使ToPath指

//

定一个新文件,ToPath也将被解析为一个目录(目录名即为新文件名)。

//*********************************************************************

function

dlgCopyFiles(FromPath,ToPath:string):Integer

var

lpFileOP:SHFileOpStruct

begin

lpFileOP.Wnd:=0

lpFileOP.wFunc:=FO_COPY

lpFileOP.pFrom:=PWideChar(FromPath+#0)

lpFileOP.pTo:=PWideChar(ToPath+#0)

//自动创建目录

lpFileOP.fFlags:=FOF_NOCONFIRMMKDIR

Result:=SHFileOperation(lpFileOP)

if(lpFileOP.fAnyOperationsAborted)then

Result:=0

else

begin

if(Result=0)then

Result:=1

else

Result:=-1

end

end

把源文件拷贝走就行了

*.dpr //工程

*.pas //代码

*.res //资源

*.dfm //窗体

主要是这几个了

要是你说的是编译好的文件的话

那么一般拷贝走EXE就可以了。delphi不像VB要带着一大堆控件到处跑。

用到DLL或者驱动或者其它资源再考走。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/11725718.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-18
下一篇 2023-05-18

发表评论

登录后才能评论

评论列表(0条)

保存