Current Dir

سلام

آيا توي دلفي تابعي رو داريم كه مسير فايل EXE رو بده
توي بعضي زبان ها تابع Current Dir وجود داره
توي دلفي هم همچين نابعي هست

نقل قول:

---

نوشته شده توسط mahdi bg

سلام

آيا توي دلفي تابعي رو داريم كه مسير فايل EXE رو بده
توي بعضي زبان ها تابع Current Dir وجود داره
توي دلفي هم همچين نابعي هست

---

سلام
يكي از راهها :

کد:

---

strAppPath := IncludeTrailingPathDelimiter(extractFilePath(expandFileName(paramstr(0))));

---

يك راه ديگه هم سراغ دارم :

کد:

---

path := ExtractPath(Application.exename);

---

با سلام یه تابع خیلی کوتاه
get current dir
البته بسته به خایی که می خواین استفاده کنید راه های مختلفی داره
خدانگهدار

سلام

از كمكتون ممنون

البته باید متذکر شم که اگه از دستور getdir استفاده كني و در برنامه هم از opendialog استفاده كني و يك فايل را بوسيله آن انتخاب كني دستور getdir مسير فايل انتخاب شده در opendialog را نشان ميدهد .
بهتره از ExtractPath استفاده كني .





موفق باشيد .

سلام

خيلي ممنون

یه راهی که استفاده می کنم اینکه در فرم اصلی(FrmMain)
از یه متغغیر استفاده می کنم که مسیر جاری رو نگه داره
و توی CreatForm کد زیر رو وارد میکنم

MyApplicationDir:= Get Current Dir


MyApplicationDir یه متغییر از نوع String
که به صورت Public در کلاس فرم تعریف میشه
تا کل برنامه (سایر فرم ها) بهش دسترسی داشته باشند