السلام عليكم و رحمة الله وبركاته
المثال الموجود في المرفقات يقوم باستخراج ايقونة الملف الذي تختاره ويقوم بحفظها بجانبه
جزاك الله خيرا أخي ,
لكن لماذا كتبت كلمة begin أخرى في هذا السطر :
if opendialog1.Execute then begin
أخي كتبتها لكي ينفّذ مجموعة من الاوامر إذا تحقق الشرط
فإن لم تكتب Begin فسينفّذ امر واحد فقط
مشكور اخي الكريم
لكن لو وضحت كيفية حفظ الايقونة