목적, 델파이에서 리소스 파일을 사용하십시오
이 예는 프로그램에 플래시 애니메이션을 추가하고 프로그램이 시작될 때 해제하는 것입니다.
먼저 새 파일을 만듭니다
내용 작성 : Flash Swffile1 감사합니다
AS : SWFFILE.RC
그런 다음 brcc32.exe를 사용하여 리소스 파일을 생성하십시오
그런 다음 델파이에 라인 (마지막 줄)을 추가하십시오
구현
{$ r *.dfm}
{$ r swffile.res} // 이것은 줄입니다
그런 다음 절차를 추가하십시오.
프로 시저 FlashRestofile (const resname, restype, filename : string);
var
Flashres : Tresourcestream;
시작하다
FlashRes : = tresourcestream.create (Hinstance, Resname, pchar (restype));
노력하다
FlashRes.savetofile (filename); // 파일로 자원을 저장하십시오.
마지막으로
Flashres.free;
끝;
끝;
사용:
FlashRestofile ( 'flash', 'swffile1', 'thank.swf');
Shockwaveflash1.movie : = ExtractFilePath (paramstr (0)) + 'thanks.swf';
Shockwaveflash1.play;