04-27-2012، 10:59 AM
با تابع زیر میتونید یک فایل رو در محل مشخص شده کپی کنید این تابع نیاز به فراخوانی 2 یونت زیر داره Classes, SysUtils
کد:
procedure CopyFile(const Source, Dest: string);
var
SourceStream, DestStream: Classes.TFileStream; // source and dest file streams
begin
DestStream := nil;
// Open source and dest file streams
SourceStream := Classes.TFileStream.Create(
Source, SysUtils.fmOpenRead or SysUtils.fmShareDenyWrite
);
try
DestStream := Classes.TFileStream.Create(
Dest, Classes.fmCreate or SysUtils.fmShareExclusive
);
// Copy file from source to dest
DestStream.CopyFrom(SourceStream, SourceStream.Size);
// Set dest file's modification date to same as source file
SysUtils.FileSetDate(
DestStream.Handle, SysUtils.FileGetDate(SourceStream.Handle)
);
finally
// Close files
DestStream.Free;
SourceStream.Free;
end;
end;