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

１、

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

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

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

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

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

２、

api的不会   

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

copy    x:xxxxxx.exe    c:;   

exit;   

   

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

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

３、

也可以直接调用shellexec    winexec,   

shellexec('copy    gp.exe    c:')

４、

不用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;

５、

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

   

procedure    Tform1.formCreate(Sender:    TObject);   

var   

      s:Pchar;   

begin   

      s:=    Pchar(Application.ExeName);   

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

end;

６、

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

７、

才看到这个贴子，可以用以下的方法：   

   

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

   

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

   

移动文件：   

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

   

删除文件：   

   

DeleteFile('c:sql.txt')；   

   

以上都是可行的。

８、

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

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中。上次未能一次讲清楚。抱歉