کپی فایل

[Vahid.Shatery]

با سلام خدمت همه دوستان
ن یک برنامه ای با دلفی دارم می نویسم که کنار فایل EXE پوشه ای به نام Data قرار دادم که داخل این پوشه چهار فایل با پسوند Wav قرار دادم .
در برنامه قسمتی قرار دادم که با زدن دکمه OpenDialog باز شده و آدرس مذکور را در EditBox نشون میده.( البته برای هر فایل چهار دکمه و چهار Editox گذاشتم ولی با یک Open Dialog)
حالا میخواستم تا دکمه ثبت تنظیمات را زدم فایل انتخاب شده که مسیرش در EditBox نوشته شده را در پوشه Data کپی بکنه و نام فایل را هم Rename کنه و فایل قبلی را پاک کنه ( به طور کلی OwerWrite بکنه .
اگه کمک کنید ممنون می شم .
با تشکر

[Felony]

var
DataDir: String;
begin
DataDir:= ExtractFilePath(Application.ExeName)+'Data\';
CopyFile(PChar(Edit1.Text),PChar(DataDir+ 'NewFileName.xxx'), False);
end;

[h_mohamadi]

از فانکشن زير نيز مي توانيد استفاده کنيد

function CopyToArea(FromDir,ToDir : string ) : boolean;
var
lpFileOpStruct : TSHFileOpStruct;
begin
lpFileOpStruct.wFunc := FO_COPY;
lpFileOpStruct.pFrom := Pchar(FromDir+#0);
lpFileOpStruct.pTo := Pchar(ToDir+#0);
lpFileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT;
Result := not Boolean(SHFileOperation(lpFileOpStruct));
end;