+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ عند تشغيل برنامج خارجي (/showthread.php?tid=3133)
خطأ عند تشغيل برنامج خارجي - وليد - 29-05-2011
السلام عليكم
حدث لي خطأ عند محاولة تشغيل برنامج خارجي بواسطة برنامج أعددته بالدلفي
والخطأهو أنه عندما أستعمل edit و opendialog وعند حدث الضغط على الزر فتح أعلمه بأن مسار البرنامج هو ما يوجد في edit tuk$ i²h يفتح البرنامج عادي كما هو مبين في الصورة
وعندما أكتب له مسار البرنامج مباشرة يفتح البرنامج لكن يعطيني رسالة خطأ وهي مبينة في الصورة
ومع الصورتين false و true المثال الذي قمت به أتمنى التعديل عليه إن أمكن علما أن اليرنامج يفتح في نافذة الدوس dos .
فأين الخلل ياترى
وفق الله الجميع.
خطأ عند تشغيل برنامج خارجي - kachwahed - 29-05-2011
وعليكم السلام ورحمة الله
لم أجد أي خطأ، الصيغة صحيحة
كتبت:
كود :
C:\WINDOWS\system32\calc.exeتحقق من المسار
استخدم FileExist مثلا
بالتوفيق.
خطأ عند تشغيل برنامج خارجي - محمد عبد العزيز - 30-05-2011
السلام عليكم ورحمة الله
من الصورة الخطا واضح هو من البرنامج المنفذ
يعمل في 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) ;خطأ عند تشغيل برنامج خارجي - وليد - 30-05-2011
السلام عليكم
جزاك الله خيرا أستاذ عبد العزيز
وشكرا لأخينا المشرف kachwahed وجزاك الله خيرا .
المشكل حصل لي مع هذا البرنامج فقط وللإضافة قمت بتحميل مشروع خاص بصندوق العمل RUN لم يشتغل به بينما لما شغلته من صندو العمل الخاص بالويندوز اشتغل عادي حتى في مشروعي المرفق لما تحدد المسار عن طريق opendialog ويوضع المسار في الedit يشتغل عادي بينما إذا أدمجت المسار في كود الضغط على الزر هنا يحدث الخلل .
على كل لم أجرب بعد الحلول التي وضعها الأستاذ عبد العزيز سأجرب ثم أخبركم بالنتيجة.
وفق الله الجميع.
خطأ عند تشغيل برنامج خارجي - وليد - 30-05-2011
السلام عليكم
بفضل الله نجحت العملية حسب الحل الأول يا أخي عبد العزيز
وهو:
كود :
ShellExecute(Handle,'open',PChar('D:\fiel\FIEL.EXE'),nil, 'D:\fiel', SW_SHOWNORMAL) ;وفق الله الجميع.