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

منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  

 

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

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
طيباوي




عدد المساهمات : 98
نقاط : 282
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

 استخراج أيقونــــــة ملف تنفيــــــــذي Empty
مُساهمةموضوع: استخراج أيقونــــــة ملف تنفيــــــــذي    استخراج أيقونــــــة ملف تنفيــــــــذي Icon_minitimeالخميس أكتوبر 20, 2016 7:11 pm


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

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

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

begin
if opendialog1.execute then
begin
strpcopy(fichier1,opendialog1.filename);
n1:=0;
h1:=ExtractIcon(handle,fichier1,n1);
image1.Picture.Icon.ReleaseHandle;
image1.Picture.Icon.Handle:=h1;
image1.picture.SaveToFile('icon1.ico');
end;
end
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
samire




عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

 استخراج أيقونــــــة ملف تنفيــــــــذي Empty
مُساهمةموضوع: رد: استخراج أيقونــــــة ملف تنفيــــــــذي    استخراج أيقونــــــة ملف تنفيــــــــذي Icon_minitimeالإثنين أكتوبر 24, 2016 5:10 pm

مشكوووووووووووووور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
استخراج أيقونــــــة ملف تنفيــــــــذي
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: