[shurfic]

Подскажите пожалуйста, как в этот скрипт добавить еще одну флэшку?

читать дальше »

Код:

procedure ISFlash_init(Handle:HWND; Ffile: PAnsiChar);
external 'isflash_init@files:ISFlash.dll stdcall';

procedure ISFlash_free;
external 'isflash_free@files:ISFlash.dll stdcall';

procedure InitializeWizard();
var
  FlashPanel: TPanel;
begin
  FlashPanel := TPanel.Create(WizardForm);
  FlashPanel.Parent := WizardForm.WelcomePage;
  FlashPanel.Top := WizardForm.OuterNotebook.Height - 313;
  FlashPanel.Left := 0;
  FlashPanel.Height := 313;
  FlashPanel.Width := 497;
  ExtractTemporaryFile('flash1.swf')
  ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\flash1.swf'));
end;

procedure DeinitializeSetup();
begin
  ISFlash_free;
end;