|
procedure CurStepChanged(CurStep: TSetupStep);
begin
#ifdef Soft1
if (CurStep = ssInstall) and not ISDoneError and (Soft1 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft1}...';
end;
#endif
#ifdef Soft2
if (CurStep = ssInstall) and not ISDoneError and (Soft2 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft2}...';
end;
#endif
#ifdef Soft3
if (CurStep = ssInstall) and not ISDoneError and (Soft3 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft3}...';
end;
#endif
#ifdef Soft4
if (CurStep = ssInstall) and not ISDoneError and (Soft4 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft4}...';
end;
#endif
end;
|