+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف لبرنامج تنفيذي أن يحدد مساره؟ (/showthread.php?tid=4900)
كيف لبرنامج تنفيذي أن يحدد مساره؟ - belnono - 25-01-2013
السلام عليكم:
هل هناك طريقة أو كود يدرج ضمن البرنامج (projet)، حيث أنك أينما وضعته، سيحدد مساره بنفسه
للتبسيط مثلا: نضع فيه button و edit، حيث بمجرد الضغط على الزر يظهر المسار في edit
بارك الله فيكم
كيف لبرنامج تنفيذي أن يحدد مساره؟ - ALmuhhnad - 25-01-2013
وعليكم السلام ورحمة الله وبركاتة
نعم ممكن
تستطيع الحصول على مسار البرنامج مع اسم البرنامج مع امتدااد البرنامج عن طريق هذا الامر
كود :
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
كيف لبرنامج تنفيذي أن يحدد مساره؟ - belnono - 26-01-2013
أخي الكريم ALmuhhnad
بارك الله فيك ، وجزاك الله عنا كل الخير
هذا ما كنت ابحث عنه بالضبط
كيف لبرنامج تنفيذي أن يحدد مساره؟ - محمد الدرة - 26-01-2013
هناك دالة ابسط بكثير من ماذكره اخي الكريم في الرد السابق
كود :
extractfilepath(application.ExeName);كيف لبرنامج تنفيذي أن يحدد مساره؟ - belnono - 27-01-2013
بارك الله فيك أخي محمد الدرة على الكود المختصر
وجزاك الله خيرا كثيرا.
شكرا
كيف لبرنامج تنفيذي أن يحدد مساره؟ - onexite - 27-01-2013
PHP كود :
ParamStr(0)
كيف لبرنامج تنفيذي أن يحدد مساره؟ - باقر جعفر - 29-01-2013
اخي العزيز بأمكان تحديد المسار عن طريق الدالة
(GetDir(0,msar حيث ان msar متغير من نوع string قم بوضع هذه الدالة داخل button ويكون شكل الكود كما يلي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
msar:string;
begin
getdir(0,msar);
edit1.text:=msar;
end;
end.كيف لبرنامج تنفيذي أن يحدد مساره؟ - belnono - 29-01-2013
أخواي الكريمان:
ONEXITE
باقر جعفر
بارك الله فيكما من صميم قلبي
يبدو أن الدالتان getdir(0,msar); و extractfilepath(application.ExeName);
تعطيان المسار دون إسم البرنامج
أما الدالة ParamStr(0) فتعطي المسار مع إسم البرنامج
كل الشكر والتقدير لكم.
كيف لبرنامج تنفيذي أن يحدد مساره؟ - onexite - 29-01-2013
PHP كود :
GetCurrentDir
PHP كود :
extractfilepath(ParamStr(0))