السلام عليكــم ورحمـة الله وبركاتــه
بســم الله الـرحمــن الرحيــم
اعضاء اكبر متندى لتعليم البرمجة
لى استفسار ارجو من الله ان يوفق لى احد اعلام المنتدى للاجابة علية
الاستفسار هو :
اريد عمل ملف تنفيذى للمشروع اثناء عملة او بأستخدام مشروع اخر لا يهم
بمعنى ( انى اقوم بأغلاق المشروع المراد عمل exe لة واستدعى برنامج اخر من صنعى ايضا ليقوم بعمل exe للمشروع الاول
مثال:
اللمشروع الاول (Project1.vbp)
المشروع الثانى (Project2.vbp)
اقوم بعمل exe للمشروع Project1.vbp من خلال Project2.vbp
وذلك لان على حد علمى لا يمكن للجهاز عمل استبدال لاى ملف هو قيد التشغيل
ارجو ان اكون اوضحت الصورة
ما اريدة هوة الكود الذى يتمكن من ذلك
ان كان موجود اصلا خاصية مثل هذة
وفى حد معرفتى المتواضعة اعرف انة يمكن عمل exe من خلال القائمة الفرعية
عن الضغط بزر الماوس الايمن على Project1.vbp
هل من الممكن ان اصل الى هذة القائمة ايضا بالكود
وها صورة توضح الطريقة
اعرف ان الموضوع ليس سهل (انا اتكلم على حد معرفتى المتواضعة) وفوق زى كل علم عليم
قمت بالبحث على الانترنت لمدة ثلاثة ايام لم اجد شى يتكلم فى صلب الموضوع
حتى موقع ميكروسوفت
الا هذا الكود الذى لم اعرف استخدمة
اضعة بين يديكم
لعل يرزقنا الله بشخص وفير المعرفة ينفعنا
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
Global Const SW_SHOWNORMAL = 1
and then u put this code in form..
Sub ShellExecuteExample()
Dim s As String
Dim hwnd
Dim StartDoc
hwnd = apiFindWindow("OPUSAPP", "0")
s="filepath_n_filename.xls"
StartDoc = ShellExecute(hwnd, "open", s, "", _
"D:\MyProject", SW_SHOWNORMAL)
End Sub
Declare Function ShellExecute Lib "shell32.dll" Alias _
لعلة يكون يتحدث عن الموضوع وانا لم افهمة
واشكركم على مجهودكم الذى لا يقدر بثمن
واعتذر على الاطالة ولكن لانى فى امس الحاجة الى هذا الكود
واتمنى ان اكون لم اخالف قواعد هذا الصرح العظيم
