Blackbox Inno Setup Script

[y_thelastknight]

Originally Posted by adiga

1-i wanna make 2 dvd's
setup-1.bin in dvd1
and setup-2.bin in dvd2
how can i edit that in script !!

find this line and

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

change like this

if not ISArcExtract ( 0, 50, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ShowChangeDiskWindow ('Please Insert Next Disk To Continue..', ExpandConstant('{src}'),'Setup-2.bin') then break;
if not ISArcExtract ( 0, 50, ExpandConstant('{src}\setup-2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

2- how can i make logo.bmp Button in setup
when i click for logo open my website ^__^

in the script find this line

procedure InitializeWizard1();

and add this script under InitializeWizard1()

WizardForm.WizardBitmapImage2.Cursor:=crHand;
WizardForm.WizardBitmapImage2.OnClick:=@LogoLabelOnClick;

and add this script above InitializeWizard1()

procedure LogoLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
  begin
  ShellExec('open', 'https://www.google.lk/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

its should be like this

procedure LogoLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
  begin
  ShellExec('open', 'https://www.google.lk/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure InitializeWizard1();
begin
  WizardForm.WizardBitmapImage2.Cursor:=crHand;
  WizardForm.WizardBitmapImage2.OnClick:=@LogoLabelOnClick;