Цель, используйте файлы ресурсов в Delphi
Этот пример должен добавить анимацию Flash в нашу программу и выпустить ее при запуске программы.
Сначала создайте новый файл
Напишите контент: Flash swffile1 спасибо.
Сохранить как: swffile.rc
Затем используйте BRCC32.exe для генерации файла ресурса.res
Затем добавьте линию (последнюю строку) в Delphi
Выполнение
{$ R *.dfm}
{$ R swffile.res} // Это строка
Затем добавьте процедуру:
процедура FlashRestoFile (const Resname, Restype, имя файла: String);
вар
Flashres: tresourcestream;
Начинать
Flashres: = tresourcestream.create (hinstance, resname, pchar (restype));
пытаться
Flashres.savetofile (имя файла);
Окончательно
Flashres.free;
конец;
конец;
использовать:
FlashRestoFile ('Flash', 'swffile1', 'спасибо. Sswf');
Shockwaveflash1.movie: = ExtractfilePath (paramstr (0)) + 'спасибо.
Shockwaveflash1.play;