Setup: Fix crash if ROM was present.
This commit is contained in:
parent
a0fb9bc4ab
commit
3441c390bd
|
@ -127,7 +127,8 @@ end;
|
|||
var ROMFilePage: TInputFileWizardPage;
|
||||
var R : longint;
|
||||
var rom: string;
|
||||
procedure InitializeWizard();
|
||||
|
||||
procedure AddRomPage();
|
||||
begin
|
||||
rom := FileSearch('Zelda no Densetsu - Kamigami no Triforce (Japan).sfc', WizardDirValue());
|
||||
if Length(rom) > 0 then
|
||||
|
@ -152,13 +153,19 @@ begin
|
|||
ROMFilePage.Add(
|
||||
'Location of ROM file:',
|
||||
'SNES ROM files|*.sfc|All files|*.*',
|
||||
'.sfc');
|
||||
'.sfc');
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
begin
|
||||
AddRomPage();
|
||||
end;
|
||||
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
if PageID = ROMFilePage.ID then
|
||||
if (assigned(ROMFilePage)) and (PageID = ROMFilePage.ID) then
|
||||
Result := not (WizardIsComponentSelected('client/lttp') or WizardIsComponentSelected('generator'));
|
||||
end;
|
||||
|
||||
|
|
Loading…
Reference in New Issue