سؤال صغير

هناك الدالةexename تعيد مسار البرنامج بدون اسمه

application.exename

أظن أنها هي

أخوك حازم

كما تفضل اخي حازم

وهذا مثال على ذلك

procedure TForm1.Button1Click(Sender: TObject);

var

ExeDir : ShortString;

begin

ExeDir := ExtractFilePath(Application.ExeName);



end;

اي نعم هاي هي الف شكر