فتح ملف - نسخة قابلة للطباعة

فتح ملف - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فتح ملف (/showthread.php?tid=10764)

فتح ملف - appakar - 11-04-2020

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

RE: فتح ملف - larbiparadox - 11-04-2020

وعليك السلام

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

[صورة: 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) ;

RE: فتح ملف - appakar - 11-04-2020

شكرا الأخ larbiparadox
في الحقيقة ليس هذا ما ابحث عنه
لدي مجلد به ملفات word و pdf مرفق مع المشروع
لنفرض ان مسار مشروعي على جهازي هو c:/mydocuments/Docs
ماذا لو قام الزبون بتنصيب البرنامج على مسار آخر هنا يكمن سؤالي عن كيفية فتح المجلد في نفس مسار تنصيب البرنامج

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

shellapi.ShellExecute(Handle ,'Open','.\Docs',Nil,Nil,SW_SHOWNORMAL)

RE: فتح ملف - larbiparadox - 11-04-2020

(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)

في حالتك هذه تفتح مجلد و ليس ملف كما طلبت

RE: فتح ملف - S.FATEH - 12-05-2020

السلام عليكم
يمكنك استخدام ExtractFilePath بدل من ExatrctFileDir

PHP كود :
ExtractFileDir(Application.ExeName)+ '\test.txt' 

PHP كود :
ExtractFilePath(Application.ExeName)+ 'test.txt' 