Blackbox Inno Setup Script

[Carldric Clement]

Originally Posted by inatha3

How to Open URL after finish instalation and how to roll back install if corupt or eror ? thanks

Use This:

procedure CurStepChanged(CurStep: TSetupStep);
var
    URL: integer;
begin
  if (CurStep = ssPostInstall) and ISDoneError then
  begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
    if (CurStep=ssPostInstall) and not (ISDoneError) then
    begin
        ShellExec('open', 'http://your.app.url/', '', '', SW_SHOW, ewNoWait, URL);
    end;
end;

[inatha3]

Originally Posted by Carldric Clement

Use This:

procedure CurStepChanged(CurStep: TSetupStep);
var
    URL: integer;
begin
  if (CurStep = ssPostInstall) and ISDoneError then
  begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
    if (CurStep=ssPostInstall) and not (ISDoneError) then
    begin
        ShellExec('open', 'http://your.app.url/', '', '', SW_SHOW, ewNoWait, URL);
    end;
end;

still not working .
can you help me edit my script ? heheh