جلب مسار البرنامج بأستخدام opendialog

[mahmoud2hack]

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

كيف أستطيع أن أصنع برنامج به :

2 زر و 1 Edittext وأضع العنصر Opendialog بحيث أذا ضغطت علي الزر أختار أي برنامج ثم أجلب مسار ذلك البرنامج وأحفظه في متغير من نوع String ،،، ثم يعرض المسار في المكون Edit ،، وشكرا

صورة البرنامج المراد عمله في المرفقات

[CID_01]

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

كود :

var path:string; begin if opendialog1.Execute then path:=opendialog1.filename; edit1.text:=path end;

يمكن الاسغناء عن المتغير path

كود :

begin if opendialog1.Execute then edit1.text:=opendialog1.filename; end;

[mahmoud2hack]

شكرا يا أخي وبارك الله فيك ،،،،،،،