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