delphi4arab منتديات دلفي للعرب
استخراج ايقونة اي ملف - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : استخراج ايقونة اي ملف (/showthread.php?tid=132)



استخراج ايقونة اي ملف - bilgads - 07-04-2008

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


استخراج ايقونة اي ملف - Delphawi - 16-04-2008

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

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


استخراج ايقونة اي ملف - bilgads - 17-04-2008

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


استخراج ايقونة اي ملف - King SofT - 02-03-2010

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