Tujuan, Gunakan File Sumber Daya di Delphi
Contoh ini adalah untuk menambahkan animasi flash ke program kami dan melepaskannya saat program dimulai.
Buat file baru terlebih dahulu
Tulis konten: flash swffile1 terima kasih
Simpan sebagai: swffile.rc
Kemudian gunakan BRCC32.EXE untuk menghasilkan file sumber daya.res
Kemudian tambahkan baris (baris terakhir) di Delphi
Pelaksanaan
{$ R *.dfm}
{$ R swffile.res} // Ini adalah baris
Kemudian tambahkan prosedur:
Prosedur FlashRestOfile (Const Resname, Restype, FileName: String);
var
Flashres: Tresourcestream;
Mulai
Flashres: = tresourcestream.create (hinstance, resname, pchar (resype));
mencoba
Flashres.savetofile (nama file);
Akhirnya
Flashres.Free;
akhir;
akhir;
menggunakan:
Flashrestofile ('flash', 'swffile1', 'ucapan terima kasih');
Shockwaveflash1.movie: = extractFilePath (paramstr (0)) + 'terima kasih.swf';
Shockwaveflash1.play;