View Single Post
  #6  
Old 11-08-2017, 22:24
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 4,689
Thanks: 1,106
Thanked 7,336 Times in 2,838 Posts
KaktoR is on a distinguished road
Need some help.

Code:
function InitializeSetup(): Boolean;
begin
    if FileExists(ExpandConstant('{tmp}\Setup.cjstyles')) then begin
      LoadSkin(ExpandConstant('{tmp}\Setup.cjstyles'), '');
      Result := True;
    end;
    if FileExists(ExpandConstant('{tmp}\Setup.vsf')) then begin
      LoadVCLStyle(ExpandConstant('{tmp}\Setup.vsf'));
      Result := True;
    end;
end;


procedure DeinitializeSetup();
begin
  if FileExists(ExpandConstant('{tmp}\Setup.cjstyles')) then begin
    UnloadSkin();
  end;
  if FileExists(ExpandConstant('{tmp}\Setup.vsf')) then begin
    UnLoadVCLStyles;
  end;
end;
Setup.exe don't start, it just closes.

Maybe i am blind and don't see the mistake

Edit: Ok after a cup of coffee i just found my mistake.

Result := True was missing in InitializeSetup
__________________
Haters gonna hate

Last edited by KaktoR; 11-08-2017 at 22:28.
Reply With Quote