View Single Post
  #4  
Old 05-05-2016, 03:40
inatha3 inatha3 is offline
Registered User
 
Join Date: Feb 2015
Location: indonesia
Posts: 21
Thanks: 17
Thanked 2 Times in 2 Posts
inatha3 is on a distinguished road
Quote:
Originally Posted by Carldric Clement View Post
Use this...
Code:
procedure CurStepChanged(CurStep: TSetupStep);
var
    URL: integer;
begin
    if (CurStep=ssPostInstall) and not (ISDoneError) then
    begin
        ShellExec('open', 'http://your.app.url/', '', '', SW_SHOW, ewNoWait, URL);
    end;
end;
i edit :

Code:
procedure CurStepChanged(CurStep: TSetupStep);
begin
  CurStepChanged1(CurStep);
end;
replace with :

Code:
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;
succes open url but my game not instaled my game no data
Reply With Quote