فتح ملف
#1
السلام عليكم
ممكن طريقة لفتح ملف يكون في نفس مسار البرنامج الذي برمجته بالدلفي
الرد
#2
وعليك السلام

هل تقصد فتح ملف نصي؟
إذا كان ذلك ، فالطريقة كتالي


[صورة: 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) ;
الرد
#3
شكرا الأخ larbiparadox
في الحقيقة ليس هذا ما ابحث عنه
لدي مجلد به ملفات word و pdf مرفق مع المشروع
لنفرض ان مسار مشروعي على جهازي هو c:/mydocuments/Docs
ماذا لو قام الزبون بتنصيب البرنامج على مسار آخر هنا يكمن سؤالي عن كيفية فتح المجلد في نفس مسار تنصيب البرنامج

اضن اني وجدت الحل
Uses shellapi
Button click

shellapi.ShellExecute(Handle ,'Open','.\Docs',Nil,Nil,SW_SHOWNORMAL)
الرد
#4
(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)

في حالتك هذه تفتح مجلد و ليس ملف كما طلبت
الرد
#5
السلام عليكم
يمكنك استخدام ExtractFilePath بدل من ExatrctFileDir
PHP كود :
ExtractFileDir(Application.ExeName)+ '\test.txt' 
PHP كود :
ExtractFilePath(Application.ExeName)+ 'test.txt' 
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم