Zweck verwenden Sie Ressourcendateien in Delphi
In diesem Beispiel wird unser Programm eine Flash -Animation hinzufügen und sie zulassen, wenn das Programm startet.
Erstellen Sie zuerst eine neue Datei
Schreiben Sie Inhalt: Flash swffile1 Danke.swf
Speichern as: swffile.rc
Verwenden Sie dann BRCC32.exe, um die Ressourcendatei.res zu generieren
Fügen Sie dann eine Zeile (letzte Zeile) in Delphi hinzu
Durchführung
{$ R *.dfm}
{$ R swffile.res} // Dies ist die Zeile
Fügen Sie dann eine Prozedur hinzu:
Prozedur FlashRestofile (const resname, restyp, Dateiname: String);
var
Flashres: Tresourcestream;
Beginnen
Flashres: = Tresourcestream.create (Hinstance, Resname, pchar (Restyp));
versuchen
Flashres.Savetofile (Dateiname);
Endlich
Flashres.Free;
Ende;
Ende;
verwenden:
FlashRestofile ('Flash', 'swffile1', 'Danke.SWF');
ShockwaveFlash1.Movie: = extractFilepath (Paramstr (0)) + 'Danke.SWF';
ShockwaveFlash1.play;