کپی کردن فایل

[Dracula]

با سلام خدمت همه دوستان عزیز

من میخواستم بدونم چطوری میشه با دلفی یک فایل رو کپی کرد ؟

مثلا از شاخه c:\database به شاخه a:\database

از بذل توجه شما متشکرم .

[(امید)]

Procedure Copyfile(InFile,OutFile:string);
Var
Inf,Outf : TFileStream;
Over : Boolean;
res : word;
InFFale,OutFFale :boolean;
begin
If FileEXists(InFile) then begin
if FileExists(OutFile) then begin
Res := MessageDlg('Do you want to overwrite existing file?', mtWarning, [mbYes, mbNo], 0);
Over := (Res = mrYes);
end else Over := true;
inffale:=false;outffale:=false;
If over then begin
Try
try
InF := TFileStream.Create(Infile,Fmopenread or fmShareDenyNone);
except
on e: Exception do inffale:=true;
end;
try
OutF := TFileStream.create(Outfile,FmCreate or FmShareExclusive);
except
On E: Exception do outfFale :=true
end;
outf.copyfrom(Inf,0);
Finally
if not inffale then FreeAndNil(Inf);
if not outfFale then FreeAndNil(outF);
end;
end;
end;
end;



کد از delphiassistant

[Dracula]

با سلام و تشکر از امید عزیز

من از سایت Torry.net یه کامپوننت دانلود کردم که برای کپی کردن فایلها بوسیله فرامین API ویندوزه و عملیات کپی کردن فایل رو با Progress Bar نمایش میده .

ولی موقع نصب این کامپوننت Error زیر گرفته میشه :


Build
[Warning] CopyFile.pas(55): Unit 'FileCtrl' is specific to a platform
[Error] CopyFile.pas(174): Undeclared identifier: 'SFCreateError'
[Error] CopyFile.pas(174): Incompatible types: 'String' and 'PResStringRec'
[Error] CopyFile.pas(177): Incompatible types: 'String' and 'PResStringRec'
[Fatal Error] dclusr.dpk(41): Could not compile used unit '..\..\..\..\CopyFile\CopyFile.pas'

لطفا راهنمایی کنید که مشکل چیه !
متشکرم .
در ضمن کامپوننت فوق الذکر رو میتونید از آدرس http://space.tin.it/computer/gburzoma/fcopynew.html دانلود کنید .

[بیگدلی]

من نمی دانم منظور شما دقیقا چیست ولی از این کد هم برای کپی می توان استفاده کرد


CopyFile('',
''), b);