دخول

AnoirsoftDeveloper · 06-02-2011, 12:32 AM

السلام عليكم
كيف أنسخ مجلد إلى مجلد آخر باستعمال ProgressBar

**kachwahed** · 06-02-2011, 02:50 PM

وعليكم السلام ورحمة الله وبركاته
نسخ الملفات بكل الطرق في العدد الرابع.
بالتوفيق.

**لؤي** · 06-02-2011, 06:42 PM

هناك 6 طرق مذكورة في المجلة 4

أبسط طريقة:

كود :
procedure TForm1.Button1Click(Sender: TObject);

var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.txt';
  fileDest := 'D:\DestFile.txt';
  CopyFile(PChar(fileSource), PChar(fileDest), False);
end;



end.

gladiator16 · 08-02-2011, 08:08 PM

هو يقصد ProgressBar

gladiator16 · 09-02-2011, 05:22 PM

تفضل اخي الكود كامل وكما تريده تماما
واذا كانت عندك نسخة 7 اي نسخة القديمة سيضهر لك خطا غيره هكذا
Application.MainFormOnTaskbar := True;//
احذف هذا السطر فقط

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة