هل يمكتى استدعاء ملف exe الى مشروعى مثلا لو ارد تشغيل برنامج الاذان داخل مشروع الالهة الحسبة كيف يمكنى عمل ذلك ...؟
ضع هذا الكود في command
Dim A As String
A = Shell("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
واستبدل المسار
asto, شكراّ جزيلا لك اخى...هل ممكن اطمع فى طلب اخر..
اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد
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
اتمنى ان يكون هذا طلبك
بالتوفيق..
3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار
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
واتمنى لك التوفيق
انا عاجز عن الشكر لك اخى ..,3amo
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]
تسلمو اخوتي في الله وجزاكم الله خير