المشاركات : 71
المواضيع 38
:
: 0
الإنتساب : Aug 2010
السلام عليكم
أود نقل ملف من قرص إلى قرص آخر وذلك بالضغط على زر معين لكن الكود الذي جربته لم ينجح معي لا ادري مالسبب علما انه لم تظهر اي رسالة خطأ
الكود
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile('D:\piste_5.mp3','c:\a1',false)
end;
end.
المشاركات : 654
المواضيع 34
:
: 106
الإنتساب : Aug 2010
وعليكم السلام
اخي ابحث في المنتدى لأن مثل هده الأسئلة تكون مطروحة سابقا
نسخ
كود :
CopyFile(PChar('C:\1.txt'), PChar('D:\1.txt'), False);
قص
كود :
MoveFile(PChar('C:\1.txt'), PChar('D:\1.txt'));
المشاركات : 71
المواضيع 38
:
: 0
الإنتساب : Aug 2010
شكرا أخ ghost-dz على الرد
قمت بالبحث لكن لم ينفع معي ذلك
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم ورحمة الله
النقل ما هو إلا نسخ ثم حذف
راجع موضوع نسخ الملفات (بطرق مختلفة) من العدد الرابع من مجلة منتدى دلفي للعرب
http://www.delphi4arab.net/forum/showthr...p?tid=4202
