• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

如何在Delphi5下拷贝一个文件

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
可以使用API函数CopyFile。如:
     CopyFile('c:\autoexec.bat', 'd:\my.bat', false);
    

    如果要拷贝多个文件或整个目录,可以使用SHFileOperation。例子:
    uses ShellAPI;
    
     procedure TForm1.Button1Click(Sender: TObject) ;
     var
     Fos : TSHFileOpStruct;
     Buf : array[0..4096] of char;
     p : pchar;
     sDest : string;
     begin
     FillChar(Buf, sizeof(Buf), #0) ;
     p := @buf;
     p := StrECopy(p, 'C:\FirstFile.ext1') + 1;
     p := StrECopy(p, 'C:\SecondFile.ext2') + 1;
     StrECopy(p, 'C:\ThirdFile.ext3') ;
    
     sDest := 'e:\';
    
     FillChar(Fos, sizeof(Fos), #0) ;
     with Fos do begin
     Wnd := Handle;
     wFunc := FO_COPY;
     pFrom := @Buf;
     pTo := sDest;
     fFlags := 0;
    end;
     if ((SHFileOperation(Fos) <> 0) or
     (Fos.fAnyOperationsAborted <> false)) then
     ShowMessage('操作被用户取消了')
     end;
    

    例子中的文件名可以使用通配符。

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
智能算法之Matlab实现(1)——遗传算法(1)发布时间:2022-07-18
下一篇:
matlab遗传算法工具箱发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap