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

【转载】delphi下如何复制文件

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1、

CopyFile(PChar(源目录),PChar(目标目录),True);

CopyFileTo('F:\MyProject\delphi\message\data\data.mdb','c:\data.mdb');//不能覆盖已存在的文件******//   

//***************下面的这个WINAPI最后的一个参数为true时不覆盖已经存在的文件。为false时自动覆盖存在的文件。*********//   

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

CopyFile(pchar(''+MyPath+'/data/data.mdb'),pchar(''+MyPath+'/data/backup.mdb'),false);

2、

api的不会   

我一般是在程序中根据程序所在目录建立一个批处理文件   

copy    x:\xxx\xxx.exe    c:;   

exit;   

   

在窗体创建或退出时执行;   

因为在外地网吧,所以不能提供代码,不过这个应该不难。

3、

也可以直接调用shellexec    winexec,   

shellexec('copy    gp.exe    c:')

4、

不用api的如下:   

procedure    CopyFile    (SourceName,    TargetName:    String);   

var   

      Stream1,    Stream2:    TFileStream;   

begin   

      Stream1    :=    TFileStream.Create    (SourceName,    fmOpenRead);   

      try   

          Stream2    :=    TFileStream.Create    (TargetName,    fmOpenWrite    or    fmCreate);   

          try   

              Stream2.CopyFrom    (Stream1,    Stream1.Size);   

          finally   

              Stream2.Free;   

          end   

      finally   

          Stream1.Free;   

      end   

end;

5、

如果是在本程序运行的时候复制本程序的话,可以这样:   

   

procedure    Tform1.formCreate(Sender:    TObject);   

var   

      s:Pchar;   

begin   

      s:=    Pchar(Application.ExeName);   

      copyfile(s,    'c:\a.exe',    true);   

end;

6、

CopyFile(PChar(源文件),PChar(目标文件),True);为False表示覆盖

7、

才看到这个贴子,可以用以下的方法:   

   

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

   

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

   

移动文件:   

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

   

删除文件:   

   

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

   

以上都是可行的。

8、

不好意思,今天刚看到这个帖子   

TO:    atm008    (小小菜鸟)       

运行到mypath出错!   

mypath是一个变量。用来取得当前系统的路径。以避免使用绝对路径。mypath要先定义才能使用。定义方法如下:   

   

unit    main;   

   

interface   

   

uses   

      Windows,    Messages,    SysUtils,    Variants,    Classes,    Graphics,    Controls,    forms,   

      Dialogs,    Menus,    ToolWin,    ComCtrls,    KsControls,    KsPanels,    KsThemePanels,   

      StdCtrls,    ExtCtrls,    jpeg,    DB,    ADODB,    ShellAPI,    IdGlobal;   

   

type   

      ……   

      private   

          {    Private    declarations    }   

      public   

          {    Public    declarations    }   

      end;   

   

var   

      //---引入此变量是为了解决导出XML文件时改变相对路径会改变应用程序路径的问题   

      MyPath:string;   

   

procedure    Tform_main.formCreate(Sender:    TObject);   

begin   

      MyPath:=ExtractFilePath(ParamStr(0));   

      ……   

end;   

   

如果要在其他的窗体中使用到mypath,则需要把主窗体放在要使用的窗体的USES中。上次未能一次讲清楚。抱歉


鲜花

握手

雷人

路过

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

请发表评论

全部评论

专题导读
上一篇:
Matlab7.0程序启动后自动退出问题发布时间: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