السلام عليكم
كيف أنسخ مجلد إلى مجلد آخر باستعمال ProgressBar
هناك 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.
تفضل اخي الكود كامل وكما تريده تماما
واذا كانت عندك نسخة 7 اي نسخة القديمة سيضهر لك خطا غيره هكذا
Application.MainFormOnTaskbar := True;//
احذف هذا السطر فقط