خطأ عند تشغيل برنامج خارجي

[محمد عبد العزيز]

السلام عليكم ورحمة الله

من الصورة الخطا واضح هو من البرنامج المنفذ
يعمل في DOS وهو مبرمج بClipper (على الأغلب) يبحث عن ملفاته بنفس مكان التنفيذ ان لم يجدها يظهر خطأ
عند تنفيذ برنامج ما هناك مكان التنفيذ (اين ينفذ)
لتلمس الفرق بنفسك ضف هذا السطر في كل من الزرين، نفذ ولاحظ

كود :

showmessage(GetCurrentDir);

احدد الحلول تحديد مسار التنفيذ

كود :

ShellExecute(Handle,'open',PChar('D:\fiel\FIEL.EXE'),nil, 'D:\fiel', SW_SHOWNORMAL) ;

حل اخر تغيير المسار الى مجلد البرنامج قبل تنفيذه

كود :

chdir('D:\fiel'); ShellExecute(Handle,'open',PChar('D:\fiel\FIEL.EXE'),nil, nil, SW_SHOWNORMAL) ;