المشاركات : 64
المواضيع 11
:
: 0
الإنتساب : Dec 2009
هذا البرنامج في المرفقات يعمل تماماً في XP وتسجل الخدمة بنجاح . ويلغى التثبيت بنجاح
PHP كود :
project1 /install
project1 /uninstall
ويظهر اسم الخدمة DisplayName : ServiceDemo ضمن مجموعة الخدمات
ولكن في ويندوز 7 يصدر خطأ : " تم رفض الوصول " .
كيف يمكن تسجيل البرنامج كخدمة في ويندوز 7
المثال مأخوذ من هذا الموقع :
كود :
http://www.thedelphigeek.com/2006/07/trouble-with-services.html
وإن تقدم ذو تقوى بصالحةٍ *** قدمتُ بين يديه عبرة الندمِ
المشاركات : 64
المواضيع 11
:
: 0
الإنتساب : Dec 2009
شغلت موجه الأمر cmd.exe كمسؤول ثم كتب الأمر مرة أخرى فعمل بنجاح وتم تثبيت الخدمة، وظهر اسمها ضمن الخدمات.
ولكن يبقى السؤال كيف أقوم بتشغيل cmd.exe كمسؤول برمجياً ؟؟
وإن تقدم ذو تقوى بصالحةٍ *** قدمتُ بين يديه عبرة الندمِ
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
المشاركات : 64
المواضيع 11
:
: 0
الإنتساب : Dec 2009
المعذرة لقد وجد الحل هنا :
كود :
http://www.delphi4arab.net/forum/showpost.php?p=19221&postcount=4
كود :
RunAsAdmin('path for services', '/install');
وإن تقدم ذو تقوى بصالحةٍ *** قدمتُ بين يديه عبرة الندمِ
المشاركات : 64
المواضيع 11
:
: 0
الإنتساب : Dec 2009
المعذرة أخي كاش واحد لم كتب الرد ولم أنظر لردك الأخير لان الصفحة كان مفتوحة على آخر مشاركة
بارك الله في الجميع .
وإن تقدم ذو تقوى بصالحةٍ *** قدمتُ بين يديه عبرة الندمِ
المشاركات : 64
المواضيع 11
:
: 0
الإنتساب : Dec 2009
نسيت أن أضيف أني استخدمت هذا الحل الموجود في الرد رقم
17
مع التعديل عليه من النت .
لأنه هناك مشكلتات لابد في تجاوزها من إذن مسؤول :
1- المشكلة الأولى في عملية تسجيل الخدمة فلا بد من إذن مسؤول وهذا استخدمنا فيه الإجرائية : RunAsAdmin
2- المشكلة الثانية في إستمرار الخدمة في العمل ولا بدلها من إذن مسؤول وهذا تم حله باستخدام الملف manifest.xml .
في المرفقات المشروع بعد التعديل عليه + صور من رسائل الخطأ التي تعترض هذه العلمية .
وإن تقدم ذو تقوى بصالحةٍ *** قدمتُ بين يديه عبرة الندمِ
