论坛风格切换切换到宽版
  • 2043阅读
  • 3回复

请教老虎版主,这个插件是不是不支持64位系统 [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-24
老虎版主,请您看下下面代码有木有问题,没问题我觉得可能是不支持 x64 系统;
这段时间测试有些插件都是 Can't import dll,根据老虎版主提供的方法查看导出函数修正了,有些还是有问题,报错,就像这个:
  1. [Setup]
  2. AppName=My Program
  3. AppVerName=My Program version 1.5
  4. DefaultDirName={pf}\My Program
  5. DefaultGroupName=My Program
  6. UninstallDisplayIcon={app}\MyProg.exe
  7. Compression=lzma
  8. SolidCompression=yes
  9. OutputDir=.
  10. [Files]
  11. Source: ISFlash.dll; DestDir: {tmp}; Flags: dontcopy
  12. Source: 1.swf; DestDir: {tmp}; Flags: dontcopy
  13. [Code]  
  14. procedure ISFlash_init(Handle:HWND; Ffile: PAnsiChar);
  15. external 'isflash_init@files:ISFlash.dll stdcall';
  16. procedure ISFlash_free;
  17. external 'isflash_free@files:ISFlash.dll stdcall';
  18. procedure InitializeWizard();
  19. var
  20.   FlashPanel: TPanel;
  21. begin
  22.   FlashPanel := TPanel.Create(WizardForm);
  23.   FlashPanel.Parent := WizardForm;
  24.   FlashPanel.Top := WizardForm.OuterNotebook.Height + 1;
  25.   FlashPanel.Left := 1;
  26.   FlashPanel.Height := 45;
  27.   FlashPanel.Width := 66;
  28.   ExtractTemporaryFile('1.swf')
  29.   ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\1.swf'));
  30. end;
  31. procedure DeinitializeSetup();
  32. begin
  33.   ISFlash_free;
  34. end;
附件: ISFlash_v0.0.2_Flash播放插件.zip (386 K) 下载次数:6


离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-25
代码和插件都没有问题,运行正常。
Win 7 / 64位
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 2 发表于: 2015-08-25
回 1楼(gnatix) 的帖子
老虎版主,为什么我这里出错呢,难道是没安装运行库,如果是,那这个插件就不具备广泛适用性



离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 3 发表于: 2015-08-25
不知道原因