استخراج أيقونــــــة ملف تنفيــــــــذي
3 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
استخراج أيقونــــــة ملف تنفيــــــــذي
بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله
استخراج أيقونــــــة ملف تنفيــــــــذي
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
الصلاة السلام على رســــول الله
استخراج أيقونــــــة ملف تنفيــــــــذي
- الكود:
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 مرات (السبب : تصحيح بعض المعلومات)
رد: استخراج أيقونــــــة ملف تنفيــــــــذي
بارك الله فبك على الموضوع
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
رد: استخراج أيقونــــــة ملف تنفيــــــــذي
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى