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或者驱动或者其它资源再考走。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)