كيف لبرنامج تنفيذي أن يحدد مساره؟

[ALmuhhnad]

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

تستطيع الحصول على مسار البرنامج مع اسم البرنامج مع امتدااد البرنامج عن طريق هذا الامر

كود :

ShowMessage(Application.ExeName);

وتستطيع الحصول على اسم الملف التنفيذي من خلال هذا الامر ...

كود :

ShowMessage(Application.Title);

ومن خلال المعطيات السابقة نستطيع عمل عملية صغيرة ونحصل على مسار مجلد البرنامج
وهي كتالي :

كود :

var sPath : string; iLengthExe : Integer; begin iLengthExe := Length(Application.ExeName); iLengthExe := iLengthExe - ( Length(Application.Title) + 4 ) ; sPath := Application.ExeName; sPath := Copy(sPath,0,iLengthExe); ShowMessage(sPath); end;

والسلام عليكم ورحمة الله وبركاتة لقد ارفقت لك الكود المصدري
اخوك ALmuhhnad