Propósito, use arquivos de recursos em Delphi
Este exemplo é adicionar uma animação flash ao nosso programa e lançá -lo quando o programa é iniciado.
Crie um novo arquivo primeiro
Escreva conteúdo: flash swffile1 obrigado.swf
Salvar como: swffile.rc
Em seguida, use BRCC32.exe para gerar o arquivo de recursos.res
Em seguida, adicione uma linha (última linha) em Delphi
Implementação
{$ R *.dfm}
{$ R Swffile.res} // Esta é a linha
Em seguida, adicione um procedimento:
Procedimento FlashRestOfile (const resname, Restype, nome do arquivo: string);
var
Flashres: TresourceStream;
Começar
FlashRes: = TresourceStream.create (hinstance, resname, pchar (reabastecimento));
tentar
Flashres.Savetofile (nome do arquivo);
Finalmente
Flashres.Free;
fim;
fim;
usar:
FlashRestOfile ('flash', 'swffile1', 'obrigado.swf');
Shockwaveflash1.movie: = ExtractFilePath (paramstr (0)) + 'obrigado.swf';
Shockwaveflash1.play;