تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟
#1
هل يمكتى استدعاء ملف exe الى مشروعى مثلا لو ارد تشغيل برنامج الاذان داخل مشروع الالهة الحسبة كيف يمكنى عمل ذلك ...؟
الرد }}}}
تم الشكر بواسطة:
#2
ضع هذا الكود في command
Dim A As String
A = Shell("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
واستبدل المسار
الرد }}}}
تم الشكر بواسطة:
#3
asto, شكراّ جزيلا لك اخى...هل ممكن اطمع فى طلب اخر..
اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد
الرد }}}}
تم الشكر بواسطة:
#4
karika كتب :اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد
السلام عليكم ورحمة الله
قم بإضافة الملف للريسورس ثم اكتب هذا الكود في المكان المناسب للاستخراج الملف من الريسورس
PHP كود :
Dim f As Integer
Dim sPath 
As String
FreeFile

sPath 
App.Path "\"

Open sPath & "
player.exe" For Binary As #f
Put #f, , LoadResData(101, "
CUSTOM")
Close #f 
اتمنى ان يكون هذا طلبك Cool
بالتوفيق..
الرد }}}}
تم الشكر بواسطة:
#5
3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار
الرد }}}}
تم الشكر بواسطة:
#6
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 
واتمنى لك التوفيق


الملفات المرفقة
.zip   مثال.zip (الحجم : 4.42 ك ب / التحميلات : 53)
الرد }}}}
تم الشكر بواسطة:
#7
انا عاجز عن الشكر لك اخى ..,3amo
الرد }}}}
تم الشكر بواسطة:
#8
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]
الرد }}}}
تم الشكر بواسطة:
#9
تسلمو اخوتي في الله وجزاكم الله خير
اعز الناس واعز معلمين :
1)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إجراء عملية القرعة عبد العزيز البسكري 5 165 06-12-16, 01:29 AM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 92 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 148 10-07-16, 12:26 PM
آخر رد: عمور2016
  [vb6.0] المشروع لا يعمل على الاجهزة الاخرى DeMahdi 1 138 09-06-16, 12:59 AM
آخر رد: عبد العزيز البسكري
  [كود] كود اضافة أو حذف تحديث باستخدام اختصارات الأزارر مثل F1 ,F2,F3 alfakeeh 2 242 05-04-16, 07:49 PM
آخر رد: Amir_alzubidy
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 292 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 13 1,043 06-01-16, 11:07 AM
آخر رد: Ashraf Elafify
  [تم الحل] القسم الصحيح من عدد asto 2 414 26-12-15, 02:37 PM
آخر رد: awidan76
  اكمال بعض الجزئيات في المشروع odaowdi 3 540 08-05-15, 03:54 PM
آخر رد: اسلام الكبابى
  اضافة ملفات داخل حقل superwoofer 5 776 10-12-14, 09:47 PM
آخر رد: superwoofer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم