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

من طرف **salme** السبت يناير 21, 2017 5:34 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