[karika]

هل يمكتى استدعاء ملف exe الى مشروعى مثلا لو ارد تشغيل برنامج الاذان داخل مشروع الالهة الحسبة كيف يمكنى عمل ذلك ...؟

[asto]

ضع هذا الكود في command
Dim A As String
A = Shell("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
واستبدل المسار

[karika]

asto, شكراّ جزيلا لك اخى...هل ممكن اطمع فى طلب اخر..
اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد

[3amo]

karika كتب :اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد

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

PHP كود :

Dim f As Integer
Dim sPath As String
f = FreeFile

sPath = App.Path & "\"

Open sPath & "player.exe" For Binary As #f
Put #f, , LoadResData(101, "CUSTOM")
Close #f 


اتمنى ان يكون هذا طلبك
بالتوفيق..

[karika]

3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار

[3amo]

karika كتب :3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار

السلام عليكم ورحمة الله
للاسف الكود يستخرج الملف معطوب
و طريقة استعمالك سليمة
وهذا هو الكود الصحيح بعد تجربته

PHP كود :

Private Sub Command1_Click()
On Error GoTo 5
    Dim Res() As Byte
    Dim Location As String
    Location = App.Path & "\radio.exe"
    Res = LoadResData(101, "CUSTOM")
    FFile = FreeFile
    Open Location For Binary Shared As #FFile
    Put #FFile, 1, Res
5:  Close #FFile
End Sub 


واتمنى لك التوفيق

[karika]

انا عاجز عن الشكر لك اخى ..,3amo

[karika]

3amo كتب :السلام عليكم ورحمة الله
للاسف الكود يستخرج الملف معطوب
و طريقة استعمالك سليمة
وهذا هو الكود الصحيح بعد تجربته

PHP كود :

Private Sub Command1_Click()
On Error GoTo 5
    Dim Res() As Byte
    Dim Location As String
    Location = App.Path & "\radio.exe"
    Res = LoadResData(101, "CUSTOM")
    FFile = FreeFile
    Open Location For Binary Shared As #FFile
    Put #FFile, 1, Res
5:  Close #FFile
End Sub 


واتمنى لك التوفيق

لقد رايت هذا الكود اصغر ويمكنه ان يحل مكان الكود أعلاه...
[COLOR="#0000FF"]Shell "radio.exe", WindowsStyle
[/COLOR]

[awidan76]

تسلمو اخوتي في الله وجزاكم الله خير