[saurn]

GolD18

Код:

[Tasks]
Name: Soft\SFS; Description: Установить SangFroidSetup

[Run]
Filename: {src}\Redist\SangFroidSetup.exe; Parameters: /q; StatusMsg: Установка SangFroidSetup ...; Flags: skipifdoesntexist; Tasks: Soft\SFS; Check: CheckError

Это наверное прозвучит банально, но ответы на эти вопросы подробно описаны в справке. Не бойтесь в неё иногда заглядывать.

[ilya_klimovich]

посдскажите пожалуйста как при создании репака удалить все локализации кроме русской и английской?

[insombia]

ilya_klimovich дааа,вспоминается картинка с 2 гопниками...

[neorom]

Можно ли скрить надпись C:\Program Files\ со страници розпаковки файлов и стало бы
P.S. Сукция код отсуствуєт.

[saurn]

neorom

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

Немного измененный перепост:

Код:

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


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


[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

var
  hInfoFile: HWND;

function SetWindowText(hWnd: HWND; lpString: String): BOOL; external 'SetWindowText{#A}@user32.dll stdcall';

procedure BetterInfo();
var
  CurrentFile: String;
begin
  CurrentFile := ExpandConstant(CurrentFilename);
  SetWindowText(hInfoFile,  ExtractFileName(CurrentFile));
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    with TNewStaticText.Create(nil) do
    begin
      Parent := FilenameLabel.Parent;
      SetBounds(FilenameLabel.Left, ScaleY(20), ProgressGauge.Width, ScaleY(16));
      hInfoFile := Handle;
      AutoSize := False;
    end;
    FilenameLabel.Hide;
  end;
end;

Оригинальный пост: http://forum.oszone.net/post-2091992-1651.html Поиском когда пользоватся будем?

Можно еще как-то так:

Код:

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

[code]
var
fLabel: TNewStaticText;

procedure BetterInfo();
begin
  fLabel.Caption := MinimizePathName(ExtractFileName(ExpandConstant(CurrentFilename)), WizardForm.FilenameLabel.Font, WizardForm.FilenameLabel.Width);
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    fLabel := TNewStaticText.Create(nil)
    with fLabel do
    begin
      Parent := FilenameLabel.Parent;
      SetBounds(FilenameLabel.Left, ScaleY(20), ProgressGauge.Width, ScaleY(16));
    end;
    FilenameLabel.Hide;
  end;
end;

[insombia]

neorom пиши грамотно,о то глаза болят

[neorom]

Как добавить перед имям файла, имя папки при розпаковки.
Пример C:\Program Files\Restorator 2009\Help\FAQ.html а желательно чтоби било Help\FAQ.html , в окне инсталяции только єсть имя файла FAQ.html, а желательно чтоби било перед имям файла, имя папки, как у примере.

[elmariacci]

Вопрос такого характера- есть несколько компонентов,при выборе которых инсталятор должен сделать проверку на наличие подпапки в директории с игрой,на которую ставиться патч.
Сам патч ставиться по адрессу {app} там должна находиться папка audio ,если ее нет,то запретить продолжение работы.Мне уже дырку в голове сделали,потому как нечитатели ставят патч и пропадают звуки в игре...так как нужно сперва скопировать папку audio в папку с патчем,куда и ставяться все моды...

[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;

[elmariacci]

ну что-то типа того)) попробую прикрутить .Спасибо за понимание)) да только вот проверка идет только на папку следующую запапкой по умолчанию,а как задать дополнительный путь? типа (умолчание)\....\....\audio