delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف أستطيع أن أصل إلى المسار الذي يوجد فيه البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف أستطيع أن أصل إلى المسار الذي يوجد فيه البرنامج

ولك جزيل الشكر
كود :
procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:= application.ExeName; end;

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

PHP كود :
Label1.Caption := ExtractFilePath(Paramstr(0)); 
والسلام عليكم
سلام عليكم
والله هدا المنتدى من أروع منتديات تعليمية برامج دلفي أتمنى لكل الأعظاء قائمين عليه و ناشطين فيه على كل مجهود الدي يقدمونه لنا أتمنى لهدا المنتدى إستمرارية وأشكركم شكرا جزيلا
و سلام عليكم
كود :
Label1.caption := ExtractFilePath( Application.ExeName );