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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:42 am

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

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

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

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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