INNO FLASH动画

Share

1. ; 脚本由 Inno Setup 脚本向导 生成！
   
2. ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
   
3. #include "FlashLib.iss"
   
4. 
   
5. [Setup]
   
6. ; 注: AppId的值为单独标识该应用程序。
   
7. ; 不要为其他安装程序使用相同的AppId值。
   
8. ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
   
9. AppId={{07A9667A-62FA-4EE1-BA80-DE7B0AC3C12E}
   
10. AppName=我的程序
    
11. AppVerName=我的程序 1.5
    
12. AppPublisher=我的公司
    
13. AppPublisherURL=http://www.example.com/
    
14. AppSupportURL=http://www.example.com/
    
15. AppUpdatesURL=http://www.example.com/
    
16. DefaultDirName={pf}\我的程序
    
17. DefaultGroupName=我的程序
    
18. OutputDir=.
    
19. OutputBaseFilename=setup
    
20. Compression=lzma
    
21. SolidCompression=yes
    
22. 
    
23. [Files]
    
24. Source: 1.swf; DestDir: {tmp}; Flags: noencryption nocompression
    
25. 
    
26. [Icons]
    
27. Name: {group}\{cm:UninstallProgram, 我的程序}; Filename: {uninstallexe}
    
28. 
    
29. [Code]
    
30. var
    
31.   FlashHwnd: HWND;
    
32. 
    
33. procedure InitializeWizard();
    
34. var
    
35.   F: String;
    
36. begin
    
37.   ExtractTemporaryFile('1.swf');
    
38.   F:= ExpandConstant('{tmp}\1.swf');
    
39.   FlashHwnd := FlashLibInit(WizardForm.WizardBitmapImage.Left,
    
40.    WizardForm.WizardBitmapImage.Top, WizardForm.WizardBitmapImage.Width,
    
41.    WizardForm.WizardBitmapImage.Height,WizardForm.WelcomePage.Handle,
    
42.     WizardForm.WizardBitmapImage.Bitmap.Handle,True);
    
43.   FlashLoadMovie(FlashHwnd, F);
    
44. end;
    
45. 
    
46. procedure DeinitializeSetup();
    
47. begin
    
48.   FlashLibFree(FlashHwnd);
    
49. end;

复制代码

1. //复制到TXT文本改扩展名FlashLib.iss，放在Flash特效目录下才能正常使用！
   
2. 
   
3. [Files]
   
4. Source: FlashLib.dll; DestDir: {tmp}; Flags: noencryption nocompression
   
5. 
   
6. [Code]
   
7. //hWndParent　将FLASH创建在那个句柄上
   
8. //BmpTransparenthWnd 当FLASH在一个图像上时，并须要透明看到图像，就要指定该图像的句柄，
   
9. //   并且该FLASH的X, Y, nWidth, nHeight一定要与图像的一致，如不在图像上，可设置为0
   
10. //Transparent　是否透明
    
11. Function FlashLibInit(X, Y, nWidth, nHeight: Integer; hWndParent, BmpTransparenthWnd: HWND; Transparent: BOOL): HWND;
    
12. External 'FlashLibInit@files:FlashLib.dll Stdcall';
    
13. 
    
14. //退出时一定要执行该API，否则会报错
    
15. Procedure FlashLibFree(H: HWND);
    
16. External 'FlashLibFree@files:FlashLib.dll Stdcall';
    
17. 
    
18. //支持SWF、FLV
    
19. Function FlashLoadMovie(HWND: HWND; Path: PChar): Boolean;
    
20. External 'FlashLoadMovie@files:FlashLib.dll Stdcall';
    
21. 
    
22. Function FlashPlay(HWND: HWND): Boolean;
    
23. External 'FlashPlay@files:FlashLib.dll Stdcall';
    
24. 
    
25. Function FlashStop(HWND: HWND): Boolean;
    
26. External 'FlashStop@files:FlashLib.dll Stdcall';
    
27. 
    
28. Function FlashStopPlay(HWND: HWND): Boolean;
    
29. External 'FlashStopPlay@files:FlashLib.dll Stdcall';
    
30. 
    
31. Function FlashPutLoop(HWND: HWND; Loop: BOOL): Boolean;
    
32. External 'FlashStop@files:FlashLib.dll Stdcall';
    
33. 
    
34. Function FlashPutMenu(HWND: HWND; Menu: BOOL): Boolean;
    
35. External 'FlashPutMenu@files:FlashLib.dll Stdcall';
    
36. 
    
37. Function FlashPutStandardMenu(HWND: HWND; bEnable: BOOL): Boolean;
    
38. External 'FlashPutStandardMenu@files:FlashLib.dll Stdcall';
    
39. 
    
40. Function FlashBack(HWND: HWND): Boolean;
    
41. External 'FlashBack@files:FlashLib.dll Stdcall';
    
42. 
    
43. Function FlashForward(HWND: HWND): Boolean;
    
44. External 'FlashForward@files:FlashLib.dll Stdcall';
    
45. 
    
46. Function FlashRewind(HWND: HWND): Boolean;
    
47. External 'FlashRewind@files:FlashLib.dll Stdcall';
    
48. 
    
49. Function FlashZoom(HWND: HWND; Factor: DWORD): Boolean;
    
50. External 'FlashZoom@files:FlashLib.dll Stdcall';
    
51. 
    
52. Function FlashGotoFrame(HWND: HWND; FrameNum: DWORD): Boolean;
    
53. External 'FlashGotoFrame@files:FlashLib.dll Stdcall';
    
54. 
    
55. Function FlashSetVariableA(HWND: HWND; Name, Value: PChar): Boolean;
    
56. External 'FlashSetVariableA@files:FlashLib.dll Stdcall';

复制代码