الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أصنع برنامج Portable

مغلق
بدأه ail_fahad777 في 2 أبريل 2007 · 7 رد · 702 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لو سمحتوا أخواني و أخواتي

أبغى برنامجي يكون Portable

هل توجد طريقة في الفيجوال بيسك نقدر من خلالها نسوي برنامج Portable

تحياتي لكم

#2

تقصد ايه بـ Portable ؟

#3

السلام عليكم

أشكرك أخي msayed2004 على الرد :)

بالنسبة للـ Portable

أقصد أبغى يكون برنامجي فقط ملف تنفيذي exe يعني لا أريد أن يكون معاه ملفات المساعدة التابعة للفيجوال

بمفهوم آخر : أقصد أريد برنامجي يشتغل على أي جهاز بدون ما أعمل له Setup وبدون الملفات التابعة للفيجوال بيسك

فقط ملف تنفيذي لا غير exe

أتمنى وضحت لك مقصودي

وأتمنى تساعدوني ولا تبخلون علي :)

تحياتي لكم

#4

حاول على قد ما تقدر تستعمل الـ APIs كبديل للأدوات اللى بتستعملها و خد اكواد الأدوات مفتوحة لمصدر بدل الأدوات اللى بتيجى مع الـ Visual Basic أما بالنسبة للأدوات و الملفات اللى مش هتقدر تعملها كده خزنها بالملف كـ Resources و خرجها بحدث الـ Sub_Main يعنى قبل ما تحمل اى Form يوجد مثال عن استخراج ملف من الـ Resources بالمشاركة : /index.ph...st&p=611599

#5

ملحوظة ممكن تستخدم الكود التالى لمعرفة ان كانت مكتبة ما موجوده و معرفة بالنظام ام لا :

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long


Public Function ComponentExist(Component As String) As Boolean
Dim Ret As Long
Ret = LoadLibrary(Component)
FreeLibrary Ret

If Ret = 0 Then
		ComponentExist = False
	Else
		ComponentExist = True
End If

End Function

MsgBox ComponentExist ("shell32.dll")
#6

الله يجزاك خير أخي الكريم

ويجعل كل حرف كتبته في ميزان حسناتك :)

عندي استفسار بسيط لو سمحت

أنا ما أستخدمت أدوات خارجية بمعنى آخر أنا أستخدم أدوات الفيجوال القياسية الـ Command والـ Label وهكذا ..

أنا فهمت قصدك أخي الكريم

لكن أنا أود أن يكون برنامجي صغير الحجم ولا يحتاج إلى الملفات اللازمة للتشغيل هل توجد طريقة أم لا ؟؟ <<< أتوقع لا توجد :(

#7

انت تقصد تستعنى عن الـ VB Run time file و المسمى msvbvm60.dll , طبعا لأ مش ممكن لأن البرنامج هيعتمد عليه علشان يشتغل.

هنا لازم تستعمل لغة برمجة تانية تكون نواتجها لا تعمد سوع على ملفات النظام مباشرة

#8

الحاجة الى مش هتعرف تهرب منها مكتبة msvbvm60.dll لكن ممكن تربط الكنترولز الاساسية بمكتبة comctrl32.dll وبكدة هتستخدم الكنترولز الاساسية للنظام + انك لو شغال على اكس بى هتاخد شكلها والكود التالى يوضح طريقة الربط

Declare Sub InitCommonControls Lib "comctl32" ()

وفى الفورم انشياليز

InitCommonControls

اما اى ادوات اخرى مثل لست فيو او الادوات التى تستعمل الايكونا او الادوات الجمالية مثل البروجريس بار او اى شئ اخر فهناك الكثير منها ومفتوح المصدر فاذا وضعتة داخل المشروع على هيئة usercontrol فسيتم ترجمته مع الملف التنفيذى وتكون مدمجة داخله

اما مكتبة الفيجوال بيسيك التى بها كل الدوال التى تعمل بها فهى مجودة فى انظمة nt اما انظمة ال 9x فيمكنك كما قال محمد عملها كريسورس ويتم اخراجها من الملف التنفيزى وقت التنفيذ

نصيحتى ابتعد عن الفيجوال بيسيك لانها مبتنفعش عاده فى كدة وخليك مع السى ++

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

هذا الموضوع مغلق.

مواضيع مشابهة