11-04-2020, 09:14 PM
السلام عليكم
ممكن طريقة لفتح ملف يكون في نفس مسار البرنامج الذي برمجته بالدلفي
ممكن طريقة لفتح ملف يكون في نفس مسار البرنامج الذي برمجته بالدلفي
فتح ملف
|
11-04-2020, 09:14 PM
السلام عليكم
ممكن طريقة لفتح ملف يكون في نفس مسار البرنامج الذي برمجته بالدلفي
11-04-2020, 09:50 PM
(آخر تعديل لهذه المشاركة: 11-04-2020, 10:11 PM بواسطة larbiparadox.)
وعليك السلام
هل تقصد فتح ملف نصي؟ إذا كان ذلك ، فالطريقة كتالي كود : 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:48 PM
(آخر تعديل لهذه المشاركة: 11-04-2020, 10:50 PM بواسطة larbiparadox.)
(11-04-2020, 10:14 PM)appakar كتب : شكرا الأخ larbiparadox نفترض أن الملف التنفيذي مع مجلد إسمه 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 في حالتك هذه تفتح مجلد و ليس ملف كما طلبت
12-05-2020, 12:14 AM
السلام عليكم
يمكنك استخدام ExtractFilePath بدل من ExatrctFileDir PHP كود : ExtractFileDir(Application.ExeName)+ '\test.txt' PHP كود : ExtractFilePath(Application.ExeName)+ 'test.txt'
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج |
|