تعبت من البحث و اتمنى اجد الحل عندكم

[agadirtech]

السلام عليكم
انا يا اخواني اعمل على تجميع سيدي الاوفيس
و صممت واجهة البرنامج بالفيجوال بيسك 6
لكن عندي مشكل وحيد وهو برمجة الازرار
لا اعرف كيف ابرمجها لتقوم بفتح ملف التتبيث الخاص بكل برنامج علما ان امتدادات الملفات هي msi.
http://www.4zz.net/up/uploads/598244be54.gif

ارجوكم فانا في امس الحاجة لكم
لا اريد لمشروعي ان يفشل
وشكرا لكم

[المبرمج]

وعليكم السلام


جرب الكود هذا
'// this code run c: test.msi
Shell "c:\test.msi", vbNormalFocus

وإذا تبي زيادة شف الرابط هذا

هــــــنــــــــا (http://www.developerfusion.co.uk/show/9/)


-------------------------------------------------------------
أنا عضو قديم كان أسمي 123 وهذي أول مشاركة بعد العودة

[agadirtech]

للاسف اخي الكود لا يشتغل:confused: :confused: :confused: :confused:

[المبرمج]

لكن خذ هذا البروجكت وإنشاء الله يكون واضح


:)

[المزمجر]

ضع هذا الكود في موديول


Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



ضع هذا الكود في الفورم



Private Sub Command1_Click()
'من المسار
ShellExecute Me.hWnd, "open", App.path & "\1.EXE", "", "", 1
' مسار معين
' ShellExecute Me.hWnd, "open", "C:\1.exe", "", "", 1
End Sub


غير لا حقة الملف على راحتك

بالتوفيق

[agadirtech]

يااااااااااااااااااااااه
الله يحفظك اخي المزمجر
شغال 100/100
اشكرك جزيل الشكر
م انت ايضا اخي
المبرمج
بفضلكم اضفت معلومات جديد الى خزانتي
و شكرا لكل من يسهر على راحة الاعضاء في هذا المنتدى الرائع
مع كل تحياتي
حياكم الله

[المبرمج]

لا شكر على واجب !!


نبي نسخة من السيدي إذا خلص !!

[المزمجر]

بارك الله فيك أخي agadirtech (http://www.vb4arab.com/vb/member.php?u=353) http://www.vb4arab.com/vb/images/statusicon/user_offline.gif
توضيح بسيط
Shell خاصة بفتح البرامج التنفيذية
ShellExecute وظيفتها فتح الملف للتحرير وبالتالي تفتح أي نوع من الملفات
بغض النظر عن نوعه

[agadirtech]

شكرا لكم
الان خلصت السي دس
ا ان شاء الله اعطيكم نسخة منه

[المزمجر]

ا ان شاء الله اعطيكم نسخة منه

لنجهز حالنا بدورة لغة فرنسية اذاً

[eng_mostafa]

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

انا استفدت من المطلوب والاجابة

ولكم جزيل الشكر