كيف أستطيع أن أصل إلى المسار الذي يوجد فيه البرنامج

[عبدالله زعرور]

كيف أستطيع أن أصل إلى المسار الذي يوجد فيه البرنامج

ولك جزيل الشكر

[me_delphi]

كود :

procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:= application.ExeName; end;

[محمد عبد العزيز]

طريقة اخرى باستخدام Paramstr ألموجودة من ايام Turbo Pascal

PHP كود :

Label1.Caption := ExtractFilePath(Paramstr(0)); 


والسلام عليكم

[hamidi]

سلام عليكم
والله هدا المنتدى من أروع منتديات تعليمية برامج دلفي أتمنى لكل الأعظاء قائمين عليه و ناشطين فيه على كل مجهود الدي يقدمونه لنا أتمنى لهدا المنتدى إستمرارية وأشكركم شكرا جزيلا
و سلام عليكم

[h-farid]

كود :

Label1.caption := ExtractFilePath( Application.ExeName );