دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

استخراج أيقونــــــة ملف تنفيــــــــذي

3 مشترك

اذهب الى الأسفل

  استخراج أيقونــــــة ملف تنفيــــــــذي Empty استخراج أيقونــــــة ملف تنفيــــــــذي

مُساهمة  mah11 6/1/2014, 7:52 pm

بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله

 استخراج أيقونــــــة ملف تنفيــــــــذي


الكود:

uses SHELLAPI; // delph.forumalgerie.net
procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net
var  fichier1:  array[0..254] of char; // delph.forumalgerie.net
    h1:  integer; // delph.forumalgerie.net
    n1:  integer; // delph.forumalgerie.net

begin
  if opendialog1.execute then
  begin
    strpcopy(fichier1,opendialog1.filename); // delph.forumalgerie.net
    n1:=0; // delph.forumalgerie.net
    h1:=ExtractIcon(handle,fichier1,n1); // delph.forumalgerie.net
    image1.Picture.Icon.ReleaseHandle; // delph.forumalgerie.net
    image1.Picture.Icon.Handle:=h1; // delph.forumalgerie.net
    image1.picture.SaveToFile('icon1.ico');
  end; // delph.forumalgerie.net
end; // delph.forumalgerie.net



منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net


عدل سابقا من قبل mah11 في 24/5/2015, 11:55 am عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

  استخراج أيقونــــــة ملف تنفيــــــــذي Empty رد: استخراج أيقونــــــة ملف تنفيــــــــذي

مُساهمة  sad13 7/1/2014, 7:45 pm


بارك الله فبك على الموضوع


sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

  استخراج أيقونــــــة ملف تنفيــــــــذي Empty رد: استخراج أيقونــــــة ملف تنفيــــــــذي

مُساهمة  sdk11 13/6/2015, 9:10 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى