الغرض ، استخدم ملفات الموارد في دلفي
هذا المثال هو إضافة رسوم متحركة فلاش إلى برنامجنا وإطلاقها عند بدء البرنامج.
إنشاء ملف جديد أولاً
اكتب المحتوى: فلاش 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 ؛