|
正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- ; 脚本由 Inno Setup 脚本向导 生成!
- ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档!
- #include "FlashLib.iss"
- [Setup]
- ; 注: AppId的值为单独标识该应用程序。
- ; 不要为其他安装程序使用相同的AppId值。
- ; (生成新的GUID,点击 工具|在IDE中生成GUID。)
- AppId={{07A9667A-62FA-4EE1-BA80-DE7B0AC3C12E}
- AppName=我的程序
- AppVerName=我的程序 1.5
- AppPublisher=我的公司
- AppPublisherURL=http://www.example.com/
- AppSupportURL=http://www.example.com/
- AppUpdatesURL=http://www.example.com/
- DefaultDirName={pf}\我的程序
- DefaultGroupName=我的程序
- OutputDir=.
- OutputBaseFilename=setup
- Compression=lzma
- SolidCompression=yes
- [Files]
- Source: 1.swf; DestDir: {tmp}; Flags: noencryption nocompression
- [Icons]
- Name: {group}\{cm:UninstallProgram, 我的程序}; Filename: {uninstallexe}
- [Code]
- var
- FlashHwnd: HWND;
- procedure InitializeWizard();
- var
- F: String;
- begin
- ExtractTemporaryFile('1.swf');
- F:= ExpandConstant('{tmp}\1.swf');
- FlashHwnd := FlashLibInit(WizardForm.WizardBitmapImage.Left,
- WizardForm.WizardBitmapImage.Top, WizardForm.WizardBitmapImage.Width,
- WizardForm.WizardBitmapImage.Height,WizardForm.WelcomePage.Handle,
- WizardForm.WizardBitmapImage.Bitmap.Handle,True);
- FlashLoadMovie(FlashHwnd, F);
- end;
- procedure DeinitializeSetup();
- begin
- FlashLibFree(FlashHwnd);
- end;
复制代码
- //复制到TXT文本改扩展名FlashLib.iss,放在Flash特效目录下才能正常使用!
- [Files]
- Source: FlashLib.dll; DestDir: {tmp}; Flags: noencryption nocompression
- [Code]
- //hWndParent 将FLASH创建在那个句柄上
- //BmpTransparenthWnd 当FLASH在一个图像上时,并须要透明看到图像,就要指定该图像的句柄,
- // 并且该FLASH的X, Y, nWidth, nHeight一定要与图像的一致,如不在图像上,可设置为0
- //Transparent 是否透明
- Function FlashLibInit(X, Y, nWidth, nHeight: Integer; hWndParent, BmpTransparenthWnd: HWND; Transparent: BOOL): HWND;
- External 'FlashLibInit@files:FlashLib.dll Stdcall';
- //退出时一定要执行该API,否则会报错
- Procedure FlashLibFree(H: HWND);
- External 'FlashLibFree@files:FlashLib.dll Stdcall';
- //支持SWF、FLV
- Function FlashLoadMovie(HWND: HWND; Path: PChar): Boolean;
- External 'FlashLoadMovie@files:FlashLib.dll Stdcall';
- Function FlashPlay(HWND: HWND): Boolean;
- External 'FlashPlay@files:FlashLib.dll Stdcall';
- Function FlashStop(HWND: HWND): Boolean;
- External 'FlashStop@files:FlashLib.dll Stdcall';
- Function FlashStopPlay(HWND: HWND): Boolean;
- External 'FlashStopPlay@files:FlashLib.dll Stdcall';
- Function FlashPutLoop(HWND: HWND; Loop: BOOL): Boolean;
- External 'FlashStop@files:FlashLib.dll Stdcall';
- Function FlashPutMenu(HWND: HWND; Menu: BOOL): Boolean;
- External 'FlashPutMenu@files:FlashLib.dll Stdcall';
- Function FlashPutStandardMenu(HWND: HWND; bEnable: BOOL): Boolean;
- External 'FlashPutStandardMenu@files:FlashLib.dll Stdcall';
- Function FlashBack(HWND: HWND): Boolean;
- External 'FlashBack@files:FlashLib.dll Stdcall';
- Function FlashForward(HWND: HWND): Boolean;
- External 'FlashForward@files:FlashLib.dll Stdcall';
- Function FlashRewind(HWND: HWND): Boolean;
- External 'FlashRewind@files:FlashLib.dll Stdcall';
- Function FlashZoom(HWND: HWND; Factor: DWORD): Boolean;
- External 'FlashZoom@files:FlashLib.dll Stdcall';
- Function FlashGotoFrame(HWND: HWND; FrameNum: DWORD): Boolean;
- External 'FlashGotoFrame@files:FlashLib.dll Stdcall';
- Function FlashSetVariableA(HWND: HWND; Name, Value: PChar): Boolean;
- External 'FlashSetVariableA@files:FlashLib.dll Stdcall';
复制代码 |
|