اسئلة قبل تحزيم البرنامج ارجو ان اجد الاجابة لديكم

السلام عليكم ورحمة الله وبركاته

شغل هذا الكود مرة على الجهاز

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long		 ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_CLASSES_ROOT = &H80000000

Public Sub SaveString(hKey As Long, StrPath As String, StrValue As String, StrData As String)
   Dim KeyH&
	r = RegCreateKey(hKey, StrPath, KeyH&)
	r = RegSetValueEx(KeyH&, StrValue, 0, 1, ByVal StrData, Len(StrData))
	r = RegCloseKey(KeyH&)
End Sub

SaveString HKEY_CLASSES_ROOT, "\.Swf", "", "MyProg"
SaveString HKEY_CLASSES_ROOT, "\MyProg", "", "Swf file
SaveString HKEY_CLASSES_ROOT, "MyProg\shell\open\command", "", "Prog.EXE %1""
SaveString HKEY_CLASSES_ROOT, "\MyProg\DefaultIcon", "", "Prog.EXE"

حيث Prog.EXE مكان وإسم البنامج المراد تشغيله

ويتم قرآءة الملف بأمر Command في الفجوال بيسك

me.caption =Command()

والسلام عليكم ورحمة الله وبركاته

اخي العزيز ياسر جمال قمت بتجربة الكود السابق ولكن لم يحدث شيء

جزاك الله كل خير علي المحاولة

UP UP UP

السلام عليكم ورحمة الله وبركاته

أنا آسف لقد اكتشفت الخطأ

جرب المثال التالي ولكن ليعمل البرنامج لابد أن تقوم بتحويله إلى ملف exe حتي يتم التفاعل

_________________.rar

والسلام عليكم ورحمة الله وبركاته

انا الايد ان اجعل برنامجي يقوم بتشغيل الملفات ذات الامتداد swf في الكمبيوتر اي انا اجعل برناجي هو المشغل الاساسي لهذه الملفات بالكمبيوتر ارجو ان تكون اتضحت الفكرة وارجو اخي العزيز ياسر ان توضح لي ماذا يفعل هذا الكود وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

هذا الكود بإختصار شديد عند الضغط على ذر setup يضع مكان الملف التنفيذي داخل موقع معبن في الرجستري وبهذا عند النقر المزدوج بذر الفأرة الأيسر على أي ملف بإمتداد swf فإن البرنامج سيعمل تلقائياً

والسلام عليكم ورحمة الله وبركاته

مشكووووووووور اخي العزيز ياسر جمال وجزاك الله كل خير لقد قمت بتجربة البرنامج ونفع البرنامج الحمد لله مشكوووووووور مرة ثانية ولكن لي سؤال اخر وهو اخر سؤال عندي كيف اجعل ملفات ال swf تكون لها ايقونة معينة انا اقوم بتحديدها غير ايقونة البرنامج وجزاك الله كل خير

ظهرت لي مشكلة انه عند الضغط عليب اي ملف swf في الكمبيوتر يفتح البرنامج بتاعي ولكن دون ان يشغل الملف هل هناتك كود معين اضعه في البرنامج وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

لاحظ الملف التكست الموجود في المثال ستجد فيه عنوان الملف الذي قمة بتشغيله واسمه

وحدث ذلك عن طريق الأمر Command()

أما لتغيير الأيقونة لاحظ الكلمة الكتوبة DefaultIcon

فإن السطر الأخير هو المسئول عن ذلك

والسلام عليكم ورحمة الله وبركاته

اخي العزيز ياسر جمال اولا مشكوووووور علي اهتمامك وردودك ولكن لي ملحوظة

وهي اني لا اريد عند تشغيل البرنامج ان احدد مسار الملف المراد تشغيله اني اريد عندما اقوم بفتح ملف فلاش بالامتداد SWF يقو برنامجي بالعمل ويشغل هذا الملف كما هو الحتال في الميديا بلاير وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

هل بعدما ضغط على ذر setup قمت بتشغيل ملفswf

والسلام عليكم ورحمة الله وبركاته

نعم ضغطت علي زر setup ولكن لم يعمل ملف الفلاش

انا لي سؤال اين اضع هذا الكود الذي وضعته في برنامجك المرفق في برنامجي ارجو توضيح هذه النقظة للاهمية وجزاك الله كل خير

UP UP UP

السلام عليكم ورحمة الله وبركاته

أنا آسف على التأخير

لماذا المشروع بتعاك لم يعمل هل جربت المثال تتبع معي ما سأقوله لك

هل قمت بتغيير مكان الملف الexe بعد الضغط على ذر setup؟

أم لم تسمي الملف بإسم Project1

سأشرح لك بعض السطور التي في البرنامج لعلها تفيدك

SaveString HKEY_CLASSES_ROOT, ".Swf", "", "MyProg"

السطر السابق يعني أن الملف الذي بإمتداد Swf سوف يذهب للمفتاح MyProg لإحضار بعض الأوامر منه

SaveString HKEY_CLASSES_ROOT, "MyProg", "", "Swf file"

السطر السابق جعل الملف الذي بهذا الإمتداد يكون نوعه معروفاً لدي الويندوز بSwf file

SaveString HKEY_CLASSES_ROOT, "MyProg\shell\open\command", "", App.Path & "\Project1.exe %1"

السطر السابق يعني أن الملف سيفتح البرنامج الذي في المكان App.path المسمى Project1.exe وسيرسل له عنوان وإسم الملف

حيث %1 تعني أن اسم الملف ومكانه سيرسلا إلى البرنامج المحدد

SaveString HKEY_CLASSES_ROOT, "MyProg\DefaultIcon", "", App.Path & "\Project1.exe"

السطر السابق يعني أن الملف سيأخذ أيقونة البرنامج الذي في المكان App.path المسمى Project1.exe

علماً بأنه إذا تم تغيير مكان أو إسم البرنامج لن يتم فتح الملف المراد فتح

وأن الكلام الموجود في ذر setup إذا تم تفعيله مرة واحده فقط على الجهاز فإنه يكفي.

والسلام عليكم ورحمة الله وبركاته

اخي العزيز ياسر انا كل الذي اريده هو كيفية وضع هذا الكود في برنامجي علشان انا اريد ان اعمل package لبرنامجي

السلام عليكم ورحمة الله وبركاته

أخي العزيز إن كان البنامج الذي تستخدمه لصنع الست أب بتاعك به إمكانية تشغيل هذا الكود ولو لمرة واحدة فاستخدم هذه الخاصية

ولكن أكتب مكان App.path المكان الذي سوف يكون فيه البرنامج

والسلام عليكم ورحمة الله وبركاته

انا استخدم البرنامج المدمج مع الفيجوال بيسيك 6 وهو Package & Deployment Wizard

ولا اعرف اين اجد هذه الخاصية إمكانية تشغيل هذا الكود ولو لمرة واحدة ارجو التوضيح مع العلم ان الكود الذي علرضته في الرد بتاعك شغال وهو ما اريد ولكن مشكلة في تحزيم البرنامج حيث انني نقلت مكان المشروع بتاع البرنامج وظهرت لي مشكلة فاعدته الي مكانه وانا الان اريد عمل حزمة تثبيت للبرنامج واضع الكود بتاعك في برنامجي لكي يعمل بشكل سليم ولكن انا لا اعارف كيف اضعه في برنامجي لكي يعمل ارجو منك التوضيح وجزاك الله كل خير لمحاولتك مساعدتي اثابك الله علي هذا التعب والمجهود وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

1- اجعل الملف الذي يشغل المل swf بتاعك في مجلد الوندوز من خلال البرنامج Package & Deployment Wizard

2- اصنع برنامج بالفجوال به هذه الكود المطلوب وجعله ينادي الست أب بتاعك

3- اجعل المستخدم يقوم بتفعيل البرنامج بتاعك

ويمكن ذلك بعدة طرق

أسهلها وضع الست أب المصنوع Package & Deployment Wizard في مجلد ووضع البرنامج الذي تريد تفعيله خارج المجلد

والسلام عليكم ورحمة الله وبركاته

ياسر جمال كتب:

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

السلام عليكم ورحمة الله وبركاته

1- اجعل الملف الذي يشغل المل swf بتاعك في مجلد الوندوز من خلال البرنامج Package & Deployment Wizard

2- اصنع برنامج بالفجوال به هذه الكود المطلوب وجعله ينادي الست أب بتاعك

3- اجعل المستخدم يقوم بتفعيل البرنامج بتاعك

ويمكن ذلك بعدة طرق

أسهلها وضع الست أب المصنوع Package & Deployment Wizard في مجلد ووضع البرنامج الذي تريد تفعيله خارج المجلد

والسلام عليكم ورحمة الله وبركاته

أخي العزيز جمال بارك الله بك علىمجهودك

و لكن لو تكرمت شرح أكثر حول هذه الفقرات الثلاثة و لو كان بمثال صغير أكن شاكرا لك

السلام عليكم ورحمة الله وبركاته

طرقة أخرى

إجعل برنامج المراد تغيل به ملفات swf موضوع في مجلد الويندوز وهذه الخاصية موجودة في برنامج Package & Deployment Wizard

وأضف هذا الملف المرفق في برنامج Package & Deployment Wizard

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

والسلام عليكم ورحمة الله وبركاته

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

اخي العزيز ياسر جمال هل لو قمت بربط هذا الملف ( الريجيستري ) ببرنامجي اثناء التنصيب يعتبر بديل للكود الذي وضعته وشرحته لي اي بمعني اخر اكتفي بملف الريجيستري هذا ولا اضع الكود الذي شرحته لي اي هذا الملف يفي بالغرض ارجو التوضيح وهل هذا الملف يعمل علي جميع انظمة الويندوز وجزاك الله كل خير

اخي العزيز ياسر جمال هل لو قمت بربط هذا الملف ( الريجيستري ) ببرنامجي اثناء التنصيب يعتبر بديل للكود الذي وضعته وشرحته لي اي بمعني اخر اكتفي بملف الريجيستري هذا ولا اضع الكود الذي شرحته لي اي هذا الملف يفي بالغرض ارجو التوضيح وهل هذا الملف يعمل علي جميع انظمة الويندوز وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

اقتباس

هل لو قمت بربط هذا الملف ( الريجيستري ) ببرنامجي اثناء التنصيب يعتبر بديل للكود الذي وضعته وشرحته لي

نعم

اقتباس

اكتفي بملف الريجيستري هذا ولا اضع الكود الذي شرحته لي اي هذا الملف يفي بالغرض

نعم

اقتباس

وهل هذا الملف يعمل علي جميع انظمة الويندوز

لا

ولكن المرفق التالي يعمل على جميع الأنظمة الوندزية

pp.rar

والسلام عليكم ورحمة الله وبركاته