[Beavimo]

Nordek, Я видел "532" пост, когда искал решение "удаление перед установкой" несколько раз.

Не понимая заданного вопроса "TROY Diamond" (Мне нужно, чтобы мой установщик при запуске находил уже ранее установленное приложение, НЕ только моим, НО и другими установщиками) - просто проходил мимо.
Теперь понял, спасибо за наводку

Но мне не то нужно, может есть возможность выполнить батник, или же конслольные команды после нажатия на финиш инсталлятора?
Банально мне нужно чтобы мой инсталятор само уничтожался после выполнения, как это делает unins000.exe...

[Tco 03]

Инсталлятор самоуничтожится после выполнения!

procedure CurStepChanged(CurStep: TSetupStep);
var ResultCode: Integer;
begin
if CurStep = ssDone then
begin
SaveStringToFile(ExpandConstant('{userappdata}\del.bat'), '@echo off' +#13#10+ ':trydel' +#13#10+ 'del "' + ExpandConstant('{srcexe}') + '"' +#13#10+ 'if exist "' + ExpandConstant('{srcexe}') + '" goto trydel' +#13#10+ 'del "' + ExpandConstant('{userappdata}\del.bat') + '"', False);
Exec(ExpandConstant('{userappdata}\del.bat'), '', '', SW_HIDE, ewNoWait, ResultCode);
end;
end;

[VLADEV]

Буду признателен. Не нашел (плохо искал наверно)

у меня папка установки берется из реестра. ={reg:HKLM64\SOFTWARE\Avid\install,Main Path} (как пример)
Все нормально никаких проблем. Мне просто нужно чтобы при установке этот путь показывался но НЕ давал сменить.
в Inno Script Studio пробовал. или не нашел или просто не появляется путь вообще.
Спасибо заранее.

[Gnom_aka_Lexander]

показывался но НЕ давал сменить. »

код

Код:

procedure InitializeWizard();
begin
  WizardForm.DirBrowseButton.Enabled := False;
  WizardForm.DirEdit.Enabled := False;
end;

[Beavimo]

Tco 03, робит

[Alex S]

Всем доброго вечера! Давненько я думал избавиться от длинного ключа тихой установки (/verysilent) и заменить его коротким (/S) как у других аналогов InnoSetup.
Читая архив наткнулся на уже готовое решение...
Взял на испытание. В целом код с задачей справляется хорошо, но нашёл одно НО. Заключается оно в регистре.
Ключ в нижнем регистре отрабатывает хорошо, а в верхнем не хочет.
Долго уже чешу бестолковку , но решить задачу не могу.
Прошу помощи в решении задачи с верхним регистром или может у кого-нибудь есть другое решение замены длинного ключа на короткий.

[Alex S]

Вопрос снимаю. Опробовал на другом компьютере и всё работает в верхнем и нижнем регистре.
Видать у меня в системе проблемы...
Хотя, если есть у кого-нибудь альтернативные решения буду рад взглянуть!!!

[Alex S]

Новая проблема с этим кодом (писал о нем несколькими сообщениями ранее).
Добавил языки в инсталлятор и тихая установка при помощи этого кода не работает.
При запуске с коротким ключом "/S" выводит окно выбора языка (чего не должно быть), жму "Ок" и дальше устанавливает тихо.
Если в функции InitializeSetup параллельно происходят еще какие-то операции (в моем случае это распаковка некоторых *.bmp во временную папку),
то при запуске с коротким ключом выводит окно выбора языка, после нажатия "Ок" и установка проходит в обычном режиме с показом всех последующих окон.

В общем так уже не работает:

[Setup]
AppName=Silent Install Key
AppVerName=Silent Install Key v 1.0
OutputBaseFilename=SilentInstallKey_setup
DefaultDirName={pf}\SilentInstallKey
CreateAppDir=no

[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[code]

function InitializeSetup(): Boolean;
var
i, ResultCode: Integer;
begin
for i := 1 to ParamCount do
if LowerCase(ParamStr(i)) = '/S' then
begin
Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
Exit;
end;
Result := True;
end;

Прошу помощи в решении задачи...

[Gnom_aka_Lexander]

Alex S, Так не пробовал?

код

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[_Code]
function InitializeSetup(): Boolean;
var
  i, ResultCode: Integer;
begin
  // проверяем с 1, потому что ParamStr(0) всегда будет имя исполняемого файла 
  for i := 1 to ParamCount do
    if LowerCase(ParamStr(i)) = '/v' then
      begin
        Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent /LANG=english', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
        Exit;
      end;
  Result := True;
end;

хотя, если верить справке, именно ключ /LANG может вызвать окно запроса выбора языка.
Можно еще такой вариант попробовать:

код

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[_Code]
function InitializeLanguageDialog(): Boolean;
var
  i : Integer;
  R : Boolean;
begin
  Result := True;
  R := False;
  for i := 1 to ParamCount do
    begin
      R :=  LowerCase(ParamStr(i)) = '/verysilent';
      if R then Break;
    end;
  if R then Result := False; // тут конструкция в виде Result := not R; может криво стработать, поэтому надежнее так.
end;

Так, возможно, более правильно:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[_Code]
function InitializeLanguageDialog(): Boolean;
var
  i : Integer;
begin
  Result := True;
  for i := 1 to ParamCount do
    if  LowerCase(ParamStr(i)) = '/verysilent' then
    begin
      Result := False;
      Break;
    end;
end;

[Alex S]

Gnom_aka_Lexander, спасибо большое!
Приклеил к исходному коду Вашу функцию InitializeLanguageDialog и всё стало работать нормально.
В InitializeSetup ключ /LANG не понадобился...
Первые тесты пока без глюков.