السلام عليكم:
هل هناك طريقة أو كود يدرج ضمن البرنامج (projet)، حيث أنك أينما وضعته، سيحدد مساره بنفسه
للتبسيط مثلا: نضع فيه button و edit، حيث بمجرد الضغط على الزر يظهر المسار في edit
بارك الله فيكم
وعليكم السلام ورحمة الله وبركاتة
نعم ممكن
تستطيع الحصول على مسار البرنامج مع اسم البرنامج مع امتدااد البرنامج عن طريق هذا الامر
كود :
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
أخي الكريم ALmuhhnad
بارك الله فيك ، وجزاك الله عنا كل الخير
هذا ما كنت ابحث عنه بالضبط
هناك دالة ابسط بكثير من ماذكره اخي الكريم في الرد السابق
كود :
extractfilepath(application.ExeName);
بارك الله فيك أخي محمد الدرة على الكود المختصر
وجزاك الله خيرا كثيرا.
شكرا
اخي العزيز بأمكان تحديد المسار عن طريق الدالة
(GetDir(0,msar حيث ان msar متغير من نوع string قم بوضع هذه الدالة داخل button ويكون شكل الكود كما يلي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
msar:string;
begin
getdir(0,msar);
edit1.text:=msar;
end;
end.
أخواي الكريمان:
ONEXITE
باقر جعفر
بارك الله فيكما من صميم قلبي
يبدو أن الدالتان getdir(0,msar); و extractfilepath(application.ExeName);
تعطيان المسار دون إسم البرنامج
أما الدالة ParamStr(0) فتعطي المسار مع إسم البرنامج
كل الشكر والتقدير لكم.
PHP كود :
extractfilepath(ParamStr(0))