كيف يمكن عمل نسخ بنفس الكيفية التى تتم في ويندوز ؟

1- Animate1 الخاصية CommonAVI =aviCopyFile

2- هناك برامج كثير لعمل هدا منها

ama.rar

هل المقصود بعملية النسخ ظهور الشاشة مع نسخ الملفات الفعلي؟

الجزء الأول حله أخي زكيري وحتى تتم عملية النسخ الفعلية يلزم إستخدام أحد توابع ويندوز مثل CopyFile أو SHFileOperation

بسم الله الرحمن الرحيم

الإخوة أجادوا بارك الله فيهم

وأحب أن أضيف إذا أردت استعمال مكونات جاهزة دون فما عليك سوى تثبيت مجموعة المكونات JCL/JVCL مفتوحة المصدر والتي تحوي مجموعة كبيرة من المكونات التي تمس أغلب الميادين بما فيها ماذكرت

السلام عليكم ...

ياحبكم لأستخدام الكمبوننت ...انا ملاحظ اكثر اللي يستخدمون دلفي معجبين فيه عشان بس الكمبوننت المتوفره له ..برغم انها لا تفيد الا في حالات نادره ولها مساوئ كثيره منها تنفيخ و زياده حجم البرنامج و غيرها ....

على العموم العمليه تتم بكل سهوله كما هو موضح في موقع مكروسوفت عن ال SHFILEOPSTRUCT .

لعمل المطلوب اضيفي ShellAPI في ال uses و اكتبي الكود كالتالي بعد تغير المصدر للملف و الوجهه له :

procedure TForm2.Button1Click(Sender: TObject);
var
 ShFO : TSHFileOpStruct;
 Buffer : array[0..1024] of char;
 Pch : pchar;
 Dest : string;
begin
  FillChar(Buffer, sizeof(Buffer), #0) ;
  Pch := @Buffer;
  Pch := StrECopy(Pch, 'C:\1.txt') + 1;
  Dest := 'E:\';
  FillChar(ShFO, sizeof(ShFO), #0) ;

  with ShFO do
  begin
    Wnd := Handle;
    wFunc := FO_COPY;
    pFrom := @Buffer;
    pTo := PCHar(Dest);
    fFlags := 0;
  end;
  if ((SHFileOperation(ShFO) <> 0) or (ShFO.fAnyOperationsAborted <> false))
  then ShowMessage('You Cancelle the copy Operation')
end;

تحياتي .