بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله
استخراج أيقونــــــة ملف تنفيــــــــذي
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