Quote:
Originally Posted by Cesar82
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