دخول

**kachwahed**

آسف، لا أدري بالضبط أين الخلل
ليست لدي المكونات للتجريب لا أدري أي نسخة دلفي تستخدم...
المهم...
1- لا تستخدم توابع Shell لنسخ الملفات إن لم تكن تتحكم فيها بشكل جيد
أيضا افحص الناتج لتحديد موضع الخلل، مثال:

كود :
if copyfile('e:\text.txt','d:\bakcup\'+Edit1.Text+ '.txt') then
    ShowMessage('Opération terminé!')
  else
    ShowMessage('Erreur de copie!')

بهذه الطريقة -على الأقل- تعرف أين الخطأ في (أو ليس في) تابع النسخ...

2- استخدمت الأعلام FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT هل تعرف جيدا معناها؟
إذا لم تكن بحاجة لنافذة نسخ الملفات، فلِم لا تستخدم تابع API مباشرة (وهو ما أنصحك به)، مثال:

كود :
function MyCopyFile(const Source, Dest: string; Overwrite: Boolean = False): Boolean;
{Usage:
     if MyCopyFile('c:\text.txt', 'd:\') then }
begin
  Result := CopyFile(PChar(Source), PChar(IncludeTrailingPathDelimiter(Dest)+
    ExtractFileName(Source)), Overwrite);
end;

3- التابع الذي استخدمت ينسخ الملفات بشكل صحيح...
فقط تأكد من صحة المسارات (كلاها)
ليس بالعين المجردة، وإنما بشيء مثل:

كود :
if not FileExists('..\..\Pstock\Stock.ABS') then
  ShowMessage('Fichier introuvable!');

تتبع الخطأ بهذه المنجهة:
- تأكد من صحة عمل الدالة
- تأكد من سلامة المسارات
- افحص الناتج دائما (if... then)
بالتوفيق.

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