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

تغيير ايقونة اي ملف تنفيذي عن طريق الدلفي,بدي مكتبة لعمل ذلك

بدأه Max bayne في 15 ديسمبر 2009 · 4 رد · 1,863 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء بعد السلام والتحية

بدي مكتبة DLL مكتوبة بلفة دلفي اقدر من خلالها اني اغير ايقونة اي ملف تنفيذي exe الي اي ايقونة اخري بحيث استطيع استخدام تلك المكتبة من داخل الفيجوال بيزك

- حيث قمت بالبحث علي كود يقوم بذلك من خلال الفيجوال بيزك ولكن لم اجد ما ابغي بالظبط والكود الموجود بيقبل انواع معينة من الايقونات ولتكن 16 مثلا غير ذلك لا يقوم بتغير اي شي بينما واثناء بحثي في الانترنت وجدت مكتبة مصنوعة بالدلفي تقوم بما اريد ولكنها يعيبها ان صاحبها عامل عليها اسمه وعنوانه كلما قمت باستدعاء تلك المكتبة للعمل بها ولا اعرف لماذا حيث كانت تقوم تلك المكتبة dll بتغير ايقونة الملف لاي ايقونة موجودة دون ادني مشاكل

- وما اطلبه الان لو حدا عنده كود بالدلفي لتغيير ايقونة الملف التنفيذي يقوم بعمله في صورة dll ومن ثم اعطاءئ المكتبة من اجل التعامل معها بالفيجوال بيزك حيث لا دراية لي بالدلفي من الاساس

وما يلي مثال لتغيير الايقونة بالدلفي ولكن ذي ما سبق وقلت لا اعرف شي عن الدلفي وده كود جاهز يا ريت حد ياخد الكود ده ويحوله الي مكتبة dll حتي يمكنني التعامل معها من خلالبالفيجوال بيزك ويرفع لي المكتبة وجزاه الله كل خير

Delphi EXE Icon Changer

وجزاكم الله كل خير ووفقكم لما يحبه ويرضاه

#2

تفظل يااخي هذا هو ملف ال Dll والذي يمكنك استعماله مع VB .

الا يمكنك تحويل هذا :

من دلفي :

function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean;

الى VB

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

FooDLL.rar

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#3

السلام عليكم ورحمة الله وبركاته

شكرا لك اخي الكريم علي مجهودك وجزاك الله كل خير

ولكن

لم تعمل المكتبة معي حيث يتم تنفيذ الامر من استدعاء للدالة داخل المكتبة بالكود التالي الخاص بالفيجوال بيزك وترجع الدالة بالقيمة True حيث تعطي قيمة منطقية وتعطي القيمة السابقة دالة علي نجاحها ولكن لا تاثير يذكر علي الملف التنفيذي سواء كان ملف تنفيذي مصنوع بالفيجوال بيزك او غيره والدالة المستخدمة في الفيجوال بيزك كما يلي :

ويتم وضع الكود التالي داخل Module

Declare Function UpdateApplicationIcon Lib "FooDll.dll" (ByVal srcicon As String, ByVal destexe As String) As Boolean

والكود التالي يستخدم لتنفيذ الدالة وارسال اليها البارمترات وتوضع اسفل اي زر امر

Dim rslt As Boolean


rslt = UpdateApplicationIcon(txticon.Text, txtexe.Text)


MsgBox rslt

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

لا ادري المشكلة من وين !!!!!!!!!!! اعتقد من الدالة الا في المكتبة يا ريت تجربها عندك يمكن يكون العيب منها

والسلام خير ختام

وجزاك الله كل خير

#4

جرب هذا

FooDLL_.zip

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#5

السلام عليكم ورحمة الله وبركاته

اخي العزيز ابعت لي اسم الدالة وبارمتراتها حتي يمكنني استخدام المكتبة بشكل سليم لان الدالة القديمة وبارمتراتها لا تعمل مع تلك المكتبة

وجزاك الله كل خير

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…