تشغيل برنامج آخر من داخل برنامجك أو فتح مجلد

[karamofweb]

ا تشغيل برنامج آخر من داخل برنامجك :
بفرض أنك تريد تستدعي برنامج الآلة الحاسبة ضمن برنامج : من المعلوم أن برنامج الحاسبة يتم تنفيذة عن طريق
الموجود ضمن فهرس الويندوز ولاستدعاء هذا البرنامج من برنامج اكتب التعليمة التالية في Calc.exe الملف
حدث الضغط على زر :

كود :

WinExec('C:\Windows\Calc.exe' ,Sw_Show) ;

تقوم هذه التعليمة بإظهار بتشغيل برنامج الآلة الحاسبة .
وهذا يحصل بشكل افتراضي C:\Windows ملاحظة : تفترض هذه التعليمة أن مجلد الويندوز على جهازك هو
Windows و Windows أما الفهرس الافتراضي ل 2000 Windows Me و Windows عند تنصيب 98
وكما تعلم يمكن للمستخدم تغير هذه الفهارس أثناء تنصيب نظام التشغيل لذلك تستخدم عادة C:\Win فهو 32 Xp
GetWindowsDirectoy : للوصول إلى فهرس نظام التشغيل مثال GetWindowsDirectory التعليمة
وسيكون فيه اسم مجلد الويندوز ( لاتنس استخدام التعليمة Pchar من النوع p حيث (p,200);
بعدها . FreeMem(p, قبل هذه التعليمة والتعليمة

كود :

( 200 GetMem(p,200) [B][U]2

تشغيل ملف تابع لبرنامج آخر من برنامج :[/U][/B]
ويعرض أحد الملفات ( Microsoft Word ) بقرض أنك تريد من برنامجك أن يشغل برنامج مايكروسوفت وورد
لتحقيق ذلك استخدم التعليمات التالية :
ومن ثم أكتب التعليمة التالية في حدث الضغط على زر . Uses إلى القسم ShellApi أضف أو ً لا الوحدة

كود :

shellapi.ShellExecute(0 ,'Open','C:\My Documents\Test.doc',Nil,Nil,0) ;

. My Document الموجود في المجلد Test.doc تقوم هذه التعليمة بفتح الملف
. 'Print' بالوسيط 'Open' إذا أردت من برنامجك فتح الملف وطباعته مباشرة استبدل الوسيط
لغة البرمجة دلفي
188
تقوم هذه التعليمة بالعودة إلى بيئة ويندوز لمعرفة البرنامج الافتراضي الذي تستخدمه لفتح هذا النوع الملفات ومن
ستقوم C:\Mypicture.jpg ثم تقوم بتشغيل البرنامج وفتح الملف بداخله فإذا اخترت استخدمت في التعليمة الملف
Internet التعليمة التعليمة بالبحث عن البرنامج الافتراضي الذي يفتح هذا النوع من الصور فقد يكون فوتوشوب أو
. Explorer
استخدام التعليمة السابقة لفتح مجلد ما :
إذا أردت فتح مجلد ما في مستكشف ويندوز أكتب التعليمة التالية :

كود :

shellapi.ShellExecute(0 ,'Open','C:\My Documents',Nil,Nil,0) ;

كود :

C:\My Document

تقوم التعليمة السابقة بفتح مجلد