[Johny777]

neorom, на основе последнего примера saurn:

читать дальше »

Код:

[Files]
Source: C:\Windows\fonts\*.ttf; DestDir: {app}\fonts; BeforeInstall: BetterInfo();

[code ]
var
    fLabel: TNewStaticText;
    AppPath: String;

procedure BetterInfo();
var
    Buff: String;
begin
    Buff := ExpandConstant(CurrentFilename);
    StringChange(Buff, AppPath, '');
    fLabel.Caption := Buff;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall:
        begin
            AppPath := WizardDirValue(); // WizardForm.DirEdit.Text;
            fLabel := TNewStaticText.Create(WizardForm)
            with fLabel do
            begin
                Parent := WizardForm.FilenameLabel.Parent;
                SetBounds(WizardForm.FilenameLabel.Left, ScaleY(20), WizardForm.ProgressGauge.Width, ScaleY(16));
            end;
            WizardForm.FilenameLabel.Hide;
        end;
        ssPostInstall: fLabel.Hide;
    end;
end;

=====================================================
elmariacci,
так сойдёт?

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirname={pf}\My Program
Compression=none

[Components]
Name: "Audio"; Description: "I need audio folder";
Name: "NoAudio"; Description: "I dont care...";


[code ]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
    if CurPageID = wpSelectComponents then
    begin
        if IsComponentSelected('Audio') then Result := DirExists(AddBackslash(RemoveBackslash(WizardDirValue())) + 'audio') else Result := True;
        if not Result then MsgBox('В выбранной Вами директории установки нет папки "audio"!', mbError, MB_OK);
    end else Result := True;
end;