تقييم الموضوع :
  • 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 ك ب / التحميلات : 64)
الرد
تم الشكر بواسطة:
#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) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تم الحل: مساعدة اخي احمد منصور علي مثالك لنسخ قاعدة البيانات والاتصال بها awidan76 7 0 28-01-18, 06:56 PM
آخر رد: awidan76
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 14 2,251 13-01-18, 01:06 PM
آخر رد: awidan76
  [سؤال] سؤال حول نسخ المشروع (المجلد) amer2000 7 236 29-07-17, 01:11 AM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 650 14-05-17, 06:03 PM
آخر رد: nourmandour
  [ تمّ الحل ] : إجراء عملية القرعة عبد العزيز البسكري 5 549 06-12-16, 01:29 AM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 529 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 460 10-07-16, 12:26 PM
آخر رد: عمور2016
  [vb6.0] المشروع لا يعمل على الاجهزة الاخرى DeMahdi 1 341 09-06-16, 12:59 AM
آخر رد: عبد العزيز البسكري
  [كود] كود اضافة أو حذف تحديث باستخدام اختصارات الأزارر مثل F1 ,F2,F3 alfakeeh 2 563 05-04-16, 07:49 PM
آخر رد: Amir_alzubidy
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 628 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem

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


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