استدعاء exe

دالة أستدعاء ملف exe

هى

shell filename.exe

أما ماذا تقصد بداخل الملف الخاص بالبرنامج

و ضح ماذا تقصد

Dim a
a = Shell(App.Path & "\notepad.exe", 1)

مكان notepad.exe تستطيع وضع إسم البرنامج المراد تشغيله بشرط أن يكون في نفس مجلد البرنامج بتاعك

أرجو أن أكون أفدت

جرب هذا الكود

Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Function ShellProgram(pgmName As String, ParentName As Form)
Dim Handle As Long, Ret As Long
Shell pgmName, vbHide + vbMinimizedNoFocus
Handle = GetForegroundWindow
Ret = SetWindowLong(Handle, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS)
SetParent Handle, ParentName.hwnd
End Function
Private Sub Command1_Click
ShellProgam "C:\Myprgram.exe",Me
End Sub

مشكورييييييييييييييييييييييييييييييييييييييين

الف الف شكر

هو المطلوب فعلا

السلام عليكم

هل يستطيع احد ان يخبرنى كيف انفذ ملف Exe من داخل ملف Exe آخر بدون ان استخرجه منه على الهارديسك

يعنى انفذ exe بدون ان اكتبه فى ملف تمب مثلا (لا اريده على الهارديسك بتاتا)

يارب اسمع اجابه

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

أولاً يرجى وضع السؤال فى موضوع منفصل حتى يسهل البحث على الاعضاء الجدد

ثانياً كيف يتم تنفيذ البرنامج وهو غير موجود على الهارد؟؟؟؟؟؟؟؟ ارجو توضيح هذه النقطة

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

:) مرحبا اخى العزير محمد

اسف لطرح السؤال فى غير محله ولكنى ل اعتقد ان طرحه فى موضوع جديد سيلقى الرد عليه

وعلى العموم شكرا جزيلا لآهتمامك وسأضعه بموضوع جديد