【转载】delphi下如何复制文件
１、
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中。上次未能一次讲清楚。抱歉
