Ｄｅｌｐｈｉ文件复制

１、 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); ２、 api的不会 我一般是在程序中根据程序所在目录建立一个批处理文件 copy x:/xxx/xxx.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中。