استخدم ملفات الموارد في دلفي

الغرض ، استخدم ملفات الموارد في دلفي

هذا المثال هو إضافة رسوم متحركة فلاش إلى برنامجنا وإطلاقها عند بدء البرنامج.

إنشاء ملف جديد أولاً

اكتب المحتوى: فلاش swffile1 شكرا

حفظ كما: swffile.rc

ثم استخدم brcc32.exe لإنشاء ملف المورد.

ثم أضف سطر (السطر الأخير) في دلفي

تطبيق

{$ r *.dfm}

{$ r swffile.res} // هذا هو الخط

ثم أضف إجراء:

الإجراءات Flashrestofile (const resname ، restype ، اسم الملف: سلسلة) ؛

var

Flashres: Tresourcestream ؛

يبدأ

Flashres: = tresourcestream.create (Hinstance ، Resname ، Pchar (restype)) ؛

يحاول

flashres.savetofile (اسم الملف) ؛

أخيراً

Flashres.free ؛

نهاية؛

نهاية؛

يستخدم:

Flashrestofile ('flash' ، 'swffile1' ، 'شكرًا. swf') ؛

ShockWaveflash1.movie: = extractFilePath (paramstr (0)) + 'thank.swf' ؛

Shockwaveflash1.play ؛