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

[bilgads]

السلام عليكم و رحمة الله وبركاته
المثال الموجود في المرفقات يقوم باستخراج ايقونة الملف الذي تختاره ويقوم بحفظها بجانبه

[Delphawi]

جزاك الله خيرا أخي ,

لكن لماذا كتبت كلمة begin أخرى في هذا السطر :
if opendialog1.Execute then begin

[bilgads]

أخي كتبتها لكي ينفّذ مجموعة من الاوامر إذا تحقق الشرط
فإن لم تكتب Begin فسينفّذ امر واحد فقط

[King SofT]

مشكور اخي الكريم
لكن لو وضحت كيفية حفظ الايقونة