Objective To use the resource file in Delphi This order is plus a flash animation to my programs and release it when the program starts. First create a file file write content: flash swftile1 Thanks.swf Save As: swftile. RC then generates resource files with Brcc32.exe .RES and then add a line (last line) in Delphi (last line) Implementation {$ r * .dfm} {$ r swftile.res} // is then adding a procedure: Procedure FlashrestOfile (Const) ResName, ResType, FileName: string); var FlashRes: TResourceStream; begin FlashRes: = TResourceStream.Create (hInstance, ResName, PChar (ResType)); try FlashRes.SaveToFile (FileName); // save the resource is a file, i.e., the reduction file finally FlashRes.Free; end; end; used: FlashResToFile ( 'FLASH', 'SwfFile1', 'Thanks.SWF'); ShockwaveFlash1.Movie: = ExtractFilePath (ParamStr (0)) 'Thanks.SWF'; ShockwaveFlash1. Play;
