View Single Post
  #702  
Old 31-03-2019, 05:27
HunterEmrah HunterEmrah is offline
Registered User
 
Join Date: Jan 2013
Location: Canada
Posts: 59
Thanks: 28
Thanked 15 Times in 13 Posts
HunterEmrah is on a distinguished road
Quote:
Originally Posted by Cesar82 View Post
For your first problem maybe this will work (If the installer has only one disk).
Code:
procedure CurPageChanged(CurPageID: integer);
var
  I: Integer;
  CompFile: String;
begin
  //...
  if CurPageID = wpWelcome then
  begin
    //....
    #if UseComponents == "1"
    if ComponentsPageAvai then
    begin
      for I := 0 to GetArrayLength(CompIndexList) - 1 do
      begin
        CompFile := GetIniString('ComponentsSettings', 'Component' + IntToStr(CompIndexList[I]) + '.File', '', ExpandConstant('{tmp}\Settings.ini'));
        if (ExtractFileExt(CompFile) <> '') and (not FileExists(ExpandConstant('{src}\' + CompFile))) then
        begin
          ComponentsList.Checked[CompIndexList[I]] := False;
          ComponentsList.ItemEnabled[CompIndexList[I]] := False;
        end;
      end;
    end;
    #endif
  end;
  //...
  //...
end;
Perfect code. I just copied it to where it should, and it works. thank you
Reply With Quote
The Following User Says Thank You to HunterEmrah For This Useful Post:
Titeuf (31-03-2019)