delphi4arab منتديات دلفي للعرب

نسخة كاملة : تشغيل البرنامج كخدمة Service
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هذا البرنامج في المرفقات يعمل تماماً في XP وتسجل الخدمة بنجاح . ويلغى التثبيت بنجاح
PHP كود :
project1 /install

project1 
/uninstall 

ويظهر اسم الخدمة DisplayName : ServiceDemo ضمن مجموعة الخدمات

ولكن في ويندوز 7 يصدر خطأ : " تم رفض الوصول " .

كيف يمكن تسجيل البرنامج كخدمة في ويندوز 7

المثال مأخوذ من هذا الموقع :

كود :
http://www.thedelphigeek.com/2006/07/trouble-with-services.html
شغلت موجه الأمر cmd.exe كمسؤول ثم كتب الأمر مرة أخرى فعمل بنجاح وتم تثبيت الخدمة، وظهر اسمها ضمن الخدمات.

ولكن يبقى السؤال كيف أقوم بتشغيل cmd.exe كمسؤول برمجياً ؟؟
السلام عليكم
ألق نظرة:
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟
بالتوفيق.
المعذرة لقد وجد الحل هنا :

كود :
http://www.delphi4arab.net/forum/showpost.php?p=19221&postcount=4

كود :
RunAsAdmin('path for services', '/install');
المعذرة أخي كاش واحد لم كتب الرد ولم أنظر لردك الأخير لان الصفحة كان مفتوحة على آخر مشاركة

بارك الله في الجميع .
نسيت أن أضيف أني استخدمت هذا الحل الموجود في الرد رقم 17

مع التعديل عليه من النت .

لأنه هناك مشكلتات لابد في تجاوزها من إذن مسؤول :

1- المشكلة الأولى في عملية تسجيل الخدمة فلا بد من إذن مسؤول وهذا استخدمنا فيه الإجرائية : RunAsAdmin

2- المشكلة الثانية في إستمرار الخدمة في العمل ولا بدلها من إذن مسؤول وهذا تم حله باستخدام الملف manifest.xml .

في المرفقات المشروع بعد التعديل عليه + صور من رسائل الخطأ التي تعترض هذه العلمية .