Delphi上传文件一例附程序源码，实际上是一个复制文件的例子，设置文件的源路径，再重新定义需要复制后的路径，点击“确定”即可上传复制文件到新目录下。以下是核心的代码： 　　if(Trim(Edit1.Text)'')and(Trim(Edit2.Text)'')then 　　begin 　　Try 　　CopyFile(Pchar(Trim(Edit1.Text)),Pchar(Trim(Edit2.Text)'\'ExtractFileName(Trim(Edit1.Text))),False); 　　ShowMessage('拷贝成功.'