السلام عليكم
ممكن طريقة لفتح ملف يكون في نفس مسار البرنامج الذي برمجته بالدلفي
وعليك السلام
هل تقصد فتح ملف نصي؟
إذا كان ذلك ، فالطريقة كتالي
![[صورة: 631346492.png]](https://www7.0zz0.com/2020/04/11/23/631346492.png)
كود :
Memo1.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\test.txt');
المثال يوضح فتح ملف إسمه test.txt في نفس مسار البرنامج في Memo1
أو كنت تريد تنفيذ ملف تنفذي في نفس مسار البرنامج
أولا التصريح بالمكتبة ShellApi في uses
ومثال لتنفيذ برنامج أخر إسمه test.exe في نفس مسار البرنامج
كود :
ShellExecute(Handle, 'open',PChar(ExtractFileDir(Application.ExeName)+ '\test.exe'), nil, nil, SW_SHOWNORMAL) ;
شكرا الأخ larbiparadox
في الحقيقة ليس هذا ما ابحث عنه
لدي مجلد به ملفات word و pdf مرفق مع المشروع
لنفرض ان مسار مشروعي على جهازي هو c:/mydocuments/Docs
ماذا لو قام الزبون بتنصيب البرنامج على مسار آخر هنا يكمن سؤالي عن كيفية فتح المجلد في نفس مسار تنصيب البرنامج
اضن اني وجدت الحل
Uses shellapi
Button click
shellapi.ShellExecute(Handle ,'Open','.\Docs',Nil,Nil,SW_SHOWNORMAL)
(11-04-2020, 10:14 PM)appakar كتب : [ -> ]شكرا الأخ larbiparadox
في الحقيقة ليس هذا ما ابحث عنه
لدي مجلد به ملفات word و pdf مرفق مع المشروع
لنفرض ان مسار مشروعي على جهازي هو c:/mydocuments/Docs
ماذا لو قام الزبون بتنصيب البرنامج على مسار آخر هنا يكمن سؤالي عن كيفية فتح المجلد في نفس مسار تنصيب البرنامج
نفترض أن الملف التنفيذي مع مجلد إسمه docs أريد فتح ملف اسمه guide.pdf
نقصد من هذا ExtractFileDir(Application.ExeName) المصار الذي يوجد به الملف التنفيذي أينما تم تحويله يعطيك المسار الذي نفذ منه
كود :
ShellExecute(Handle, 'open',PChar(ExtractFileDir(Application.ExeName)+ '\Docs\guide.pdf'), nil, nil, SW_SHOWNORMAL) ;
(11-04-2020, 10:14 PM)appakar كتب : [ -> ]شكرا الأخ larbiparadox
في الحقيقة ليس هذا ما ابحث عنه
لدي مجلد به ملفات word و pdf مرفق مع المشروع
لنفرض ان مسار مشروعي على جهازي هو c:/mydocuments/Docs
ماذا لو قام الزبون بتنصيب البرنامج على مسار آخر هنا يكمن سؤالي عن كيفية فتح المجلد في نفس مسار تنصيب البرنامج
اضن اني وجدت الحل
Uses shellapi
Button click
shellapi.ShellExecute(Handle ,'Open','.\Docs',Nil,Nil,SW_SHOWNORMAL)
في حالتك هذه تفتح مجلد و ليس ملف كما طلبت
السلام عليكم
يمكنك استخدام ExtractFilePath بدل من ExatrctFileDir
PHP كود :
ExtractFileDir(Application.ExeName)+ '\test.txt'
PHP كود :
ExtractFilePath(Application.ExeName)+ 'test.txt'