إعـــــــلان

محمد بن أحمد أبو حذيفة · 06-09-2011, 09:43 AM

استعملت هذا الكود لكنه لم ينجح

[HTML]if File.Find("C:\\Program Files\\adobe\reader 10.0", "adobereader.exe", false, false, nil, nil) then
-- ?C EEEE C?E??C??
else File.Open("AutoPlay\\Docs\\AdbeRdr1010_fr_FR", "", SW_SHOWNORMAL);

end

[/HTML]

**azizsoft azizsoft** · 06-09-2011, 05:22 PM

بسم الله الرحمان الرحيم

بسيطة جدا العملية ولا تحاتج الى أي كود أو تعقيد واليك أخي الكريم الطريقة:

مطوري برنامج الأتوبلاي اهتموا بهاته المسألة ووضعوا قائمة لكل البرامج
الهامة التي يحتاجها البرنامج وتجد القائمة بالضغط على التبويب projects ثم
dependencies وكل ما عليك أخي " محمد " التأشير على برنامج أو أكثر ان شئت
لاشعار المستخدم بأهمية وجود هاته البرامج وستظهر عند الاقلاع " نافذة " تنبه المستخدم بهذا
الأمر . ومن التبويب " dialog " تستطيع تغيير عنوان الرسالة " windows title " الى أي عنوان
ملائم حسب رغبتك وكذلك تستطيع وضع رسالة في نافذة " message " ولك أن تغير في كل خصائص
الــ dialog ثم الضغط على ok . تستطيع أن تقوم بتجربة مثلا التأشير على برنامج غير منصب بجهازك
ووضع رسالة معينة ثم اضغط F5 .

بالتوفيق ان شاء الله .

محمد بن أحمد أبو حذيفة · 06-09-2011, 05:27 PM

بارك الله فيك ’ جزاك الله خيرا

هذه الطريقة اعرفها لكن لا تطيك خيار تثبيت البرنامج من جهازك بل من الانترنت والاسطوانة التي اعمل عليها موجه لم له انترنت ومن ليس له انترنت

فهل من اكواد

**azizsoft azizsoft** · 06-09-2011, 05:58 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

بارك الله فيك ’ جزاك الله خيرا

هذه الطريقة اعرفها لكن لا تعطيك خيار تثبيت البرنامج من جهازك بل من الانترنت والاسطوانة التي اعمل عليها موجه لم له انترنت ومن ليس له انترنت

فهل من اكواد

يا أخي محمد مطوري البرنامج سبق أن فكروا في سؤال " أبو حذيفة " وقالوا لك
أن هاته الطريقة تعطي أيضا خيار تثبيت البرنامج من الجهاز .
اذن وصلنا الى العنصر dialog وقلنا انك تستطيع ادراج رسالة وعنوان
الان فعل خيار show help button ... في نافذة abort button text
اكتب خروج وفي نافذة continue button text اكتب واصل بدون تثبيت البرنامج
وفي نافذة help button text اكتب تثبيت البرنامج ومن نافذة help button link
تجد الخيارين اضغط الان على browse وحدد البرنامج الذي تريده
من جهازك ياطيب ثم ok.

بالتوفيق ان شاء الله

**النصل القاطع النصل القاطع** · 06-09-2011, 06:04 PM

هذا الكود يحل المشكل

كود:

adobe = File.DoesExist("C:\\Program Files\\Adobe\Reader 10.0\\Reader\\Adobe Reader ?.exe")
if not adobe then
Dialog.Message("no", "Adobe Reader ? dose not exist ..", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
File.Run("AutoPlay\\Docs\\AdbeRdr1010_fr_FR.exe", "", "", SW_SHOWNORMAL, true);
 else
Dialog.Message("ok", "Adobe Reader ? exist.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
en

و ضع مكان علامات الإستفهام الإصدار الصحيح

محمد بن أحمد أبو حذيفة · 06-09-2011, 06:55 PM

المشاركة الأصلية بواسطة azizsoft مشاهدة المشاركة

يا أخي محمد مطوري البرنامج سبق أن فكروا في سؤال " أبو حذيفة " وقالوا لك
أن هاته الطريقة تعطي أيضا خيار تثبيت البرنامج من الجهاز .
اذن وصلنا الى العنصر dialog وقلنا انك تستطيع ادراج رسالة وعنوان
الان فعل خيار show help button ... في نافذة abort button text
اكتب خروج وفي نافذة continue button text اكتب واصل بدون تثبيت البرنامج
وفي نافذة help button text اكتب تثبيت البرنامج ومن نافذة help button link
تجد الخيارين اضغط الان على browse وحدد البرنامج الذي تريده
من جهازك ياطيب ثم ok.

بالتوفيق ان شاء الله

كذلك هذه اعرفها لكن عند الضغط على

browse

ياخذ البرنامج الذي تحدده لك البرامج ولا يمكن تحديد لكل برنامج ماتريده

**azizsoft azizsoft** · 06-09-2011, 07:00 PM

المشاركة الأصلية بواسطة النصل القاطع مشاهدة المشاركة

هذا الكود يحل المشكل

كود:

adobe = File.DoesExist("C:\Program Files\Adobe\Reader 10.0\Reader\\Adobe Reader ?.exe")
if not adobe then
Dialog.Message("no", "Adobe Reader ? dose not exist ..", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
File.Run("AutoPlay\\Docs\\AdbeRdr1010_fr_FR.exe", "", "", SW_SHOWNORMAL, true);
 else
Dialog.Message("ok", "Adobe Reader ? exist.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
en

و ضع مكان علامات الإستفهام الإصدار الصحيح

عفوا أخي الكريم هذا الكود لايحل المشكل لمذا ؟؟؟؟
1/ اذا كان نظام التشغيل مثلا منصب بمسار مغاير لـــ c وهنا يجب تصحيح المسار
ليتم التعرف على النظام بأي مسار ولاحظ هنا السطر الأول من الكود الذي أدرجته
("C:\Program Files\Adobe\Reader 10.0\Reader\\Adobe Reader ?.exe")
2/ هذا الكود يخص برنامج واحد ؟؟؟ اذا اردنا تنبيه المستخدم لعدة برامج ماالعمل ؟؟؟

محمد بن أحمد أبو حذيفة · 06-09-2011, 07:01 PM

المشاركة الأصلية بواسطة النصل القاطع مشاهدة المشاركة

هذا الكود يحل المشكل

كود:

adobe = file.doesexist("c:\program files\adobe\reader 10.0\reader\\adobe reader ?.exe")
if not adobe then
dialog.message("no", "adobe reader ? Dose not exist ..", mb_ok, mb_iconinformation, mb_defbutton1);
file.run("autoplay\\docs\\adberdr1010_fr_fr.exe", "", "", sw_shownormal, true);
 else
dialog.message("ok", "adobe reader ? Exist.", mb_ok, mb_iconinformation, mb_defbutton1);
en

و ضع مكان علامات الإستفهام الإصدار الصحيح

الكود يكتشف عدم وجود البنرامج لكن يبقى يخبرك بعدم بوجود البرنامج حتى بعد تثبته

**النصل القاطع النصل القاطع** · 06-09-2011, 07:08 PM

ثبت البرنامج يدويا أولا
إذهب للمسار
c:\program files\adobe\reader 10.0\reader\adobe reader ?.exe

قم بعمل كوبى لإسم الملف الصحيح و أضف له نقطة ثم exe ليحل الكلمة المكتوبة بالأحمر
هذا هو الإسم هو الذى ستبحث عنه فعلا و ليس المذكور بالمثال
و لو كان المسار مختلف عندك فقم بتصحيح المسار فى الكود
مع مراعاة ان \ فى المسار تتحول الى \\ فى الكود
و الكود كان به خطأ بسيط و تم تصحيحه

كود:

 adobe = file.doesexist("c:\\program files\\adobe\\reader 10.0\\reader\\adobe reader ?.exe")
if not adobe then
dialog.message("no", "adobe reader ? Dose not exist ..", mb_ok, mb_iconinformation, mb_defbutton1);
file.run("autoplay\\docs\\adberdr1010_fr_fr.exe", "", "", sw_shownormal, true);
 else
dialog.message("ok", "adobe reader ? Exist.", mb_ok, mb_iconinformation, mb_defbutton1);
en

محمد بن أحمد أبو حذيفة · 06-09-2011, 07:12 PM

اتقصد هذا

كود PHP:


       adobe = File.DoesExist("C:\Program Files\Adobe\Reader 10.0\Reader\\Adobe Reader 10.exe")
if not adobe then
Dialog.Message("no", "Adobe Reader 10 dose not exist ..", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
File.Run("AutoPlay\\Docs\\AdbeRdr1010_fr_FR.exe", "", "", SW_SHOWNORMAL, true);
 else
Dialog.Message("ok", "Adobe Reader 10 exist.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

**النصل القاطع النصل القاطع** · 06-09-2011, 07:18 PM

راجع مشاركتى السابقة فبها تعديل
و لو كنت وضعت اسم البرنامج الصحيح الماخوذ من program files فسيعمل بدون مشاكل

**النصل القاطع النصل القاطع** · 06-09-2011, 07:22 PM

اخى عزيز
السائل يريد كود الكشف عن تثبيت برنامج ثم تثبيته
فقط لعدم التعقيد لم أشأ ان أكتبه بالصيغة العامة فهى خارج نطاق سؤاله

و بالنسبة لو اراد ان يثبت اكثر من برنامج
فلا اعتقد ان الكود سيعترض حتى لو تم تكراره 100 مرة

محمد بن أحمد أبو حذيفة · 06-09-2011, 07:31 PM

الصورة مرفقة

الملفات المرفقة

sshot-1.jpg (45.5 كيلوبايت, 33 مشاهدات)

**azizsoft azizsoft** · 06-09-2011, 07:47 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

كذلك هذه اعرفها لكن عند الضغط على

browse

ياخذ البرنامج الذي تحدده لك البرامج ولا يمكن تحديد لكل برنامج ماتريده

أخي محمد بداية يجب أن نتفق على أن كل البرامج التي يحتاجها برنامج الأتوبلاي
مدرجة بنافذة dependecies كما لاحظت واعتقد أنه لاداعي مثلا لبرنامج آخر

ثانيا : ضع البرامج التي تريدها كلها بمجلد بالمسار التالي :
AutoPlay Media Studio 8\Projects\My Project\CD_Root\AutoPlay\Docs
وقم طبعا بالتأشير عليها بقائمة البرامج وعند الضغط على browse
حدد مسار المجلد .

أظن أن الطريقة سهلة جدا وسبق أن اعتمدتها وبالتالي يتمكن المستخدم من تنصيب البرنامج أو البرامج
في صورة عدم التحقق من وجودها بالجهاز بخاصية dependecies .

هذه هي الطريقة المثلى حسب رأيي وتغني عن أي كود .

إعـــــــلان

كيف يتم الكشف عن برنامج ما عن اقلاع الاسطوانة

كيف يتم الكشف عن برنامج ما عن اقلاع الاسطوانة

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك