[El Sanchez]

Но надо чтобы текстовое значение "Добавление задачи" бралось из CustomMessages... »

Vanadiy777,

Код:

Exec(ExpandConstant('{sys}\schtasks.exe'), Format('/create /f /tn "%s" /xml "%s"', [CustomMessage('foo'), ExpandConstant('{app}\AddTasks.xml')]), '', SW_HIDE, ewWaitUntilTerminated, i);

[Vanadiy777]

nik1967, El Sanchez,
Огромное сердечное вам спасибо!

Оба варианта работают.

[Vanadiy777]

Не могу сам разобраться, а примеров не нашел...
Нужно считать из реестра путь установленной программы.
Проблема заключается в том, что название программы - постоянное, а вот версия может быть разная.

Подскажите пожалуйста на примере Opera или Mozilla Firefox, в ней вообще посложнее будет...

Opera

Код:

[_Code]
function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKCU, Software\Microsoft\Windows\CurrentVersion\Uninstall\Opera 91.0.4516.77', 'InstallLocation', Path);
Result := Path;
end;

Mozilla Firefox 1

Код:

[_Code]
function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKLM, Software\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Firefox 99.0.1 (x64 ru)', 'InstallLocation', Path);
Result := Path;
end;

Mozilla Firefox 2

Код:

[_Code]
function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKLM, Software\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Firefox 106.0.2 (x86 ru)', 'InstallLocation', Path);
Result := Path;
end;

То, что написано красным, меняется в зависимости от установленной версии.

Как правильно прописать функцию, чтобы считывалось только название программы, а остальные данные (которые красным) игнорировались?
Или, возможно, есть другой способ как-то получить директорию установки программы?
Помогите, пожалуйста (ткните носом), если это вообще реализуемо средствами Inno...

Заранее благодарен за помощь.

[EdMSL]

Как сделать так, чтобы при определенном условии отменить установку?
Допустим, не проходим по системным требованиям. Есть экран проверки. И вот на нем при нажатии "Далее" выдавать сообщение и сразу на последний экран. Или экран с ошибкой может какой есть? В общем, надо правильно прервать установку. Я пробовал Abort, но возникает ошибка и установщик зависает.

[EdMSL]

Решил проблему так:

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;

  if CurPageId = wpWelcome then begin
    if IsWin64() then begin
      MsgBox('Ваш ПК не соответствует минимальным требованиям. Установка невозможна.', mbInformation, MB_OK);
      IsCanInstall := false;
    end  
  end
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if not IsCanInstall then begin
    case (PageID) of
      ChooseVersionPage.ID: Result := True
      wpSelectDir: Result := True
      wpSelectComponents: Result := True
      wpSelectTasks: Result := True
      wpReady: Result := True
    end
  end
  else
    Result := False;
end;

function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
  if not IsCanInstall then
    Result := 'Ваша ПК не соответствует минимальным требованиям.'
  else
    Result := '';
end;

Т.е. не проходим по условию, то пропускаем все страницы, а на шаге готовности к установке выдаем Result с текстом ошибки.
Не уверен, что способ правильный, но в моем случае рабочий.

[Vanadiy777]

Не уверен, что способ правильный, но в моем случае рабочий. »

EdMSL,
главное - результат!

[Vanadiy777]

nik1967,
Спасибо Вам огромное!
Если установлена Mozilla Firefox x64, то все отрабатывает отлично.
Если Mozilla Firefox x86 - то путь не видит.

Буду экспериментировать... По результатам отпишусь...

[EdMSL]

Нужно получить данные о системе. В шапке есть скрипт, но выглядит он громоздко. Может есть какой-то более современный способ?
Я пробовал этим способом https://stackoverflow.com/questions/...-in-inno-setup
Но видеопамять определяется неверно, хотя если делать это все через wmic напрямую, то данные выдает верные.
Пишу так:

Код:

Query := 'SELECT AdapterRAM FROM Win32_VideoController';
  VideoSystem := WbemQuery(WbemServices, Query);
  if not VarIsNull(VideoSystem) then
  begin
    log(VideoSystem.AdapterRam);
    vram := VideoSystem.AdapterRAM;
  end;

на выходе получаю -1048576

[Vanadiy777]

измени куст реестра с HKLM64 на HKLM, и возможно »

nik1967, да, эти варианты тоже уже пробовал - тогда х64 не работает, а х86 работает.

[Vanadiy777]

nik1967,
в общем, попробовал все возможные варианты...
Поиск идет конкретно по тем параметрам, которые указаны в #define.
Если указано HKLM64 и SOFTWARE\Microsoft\, то ищет путь для х64,
если HKLM и SOFTWARE\WOW6432Node\Microsoft\, то, соответственно, для х86.

Попытался добавить дополнительные значения в #define, естественно, с другими именами, и продублировать
процедуру поиска, чтобы искал сразу по двум ключам, но, покуда я не в зуб ногой, естественно, ни фига путного не получилось...

Т.е. надо как то организовать поиск одновременно по ключам "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
и "SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall", а затем уже как то это вывести в Result:= Path;

Но для меня это вообще темный лес, и я, безусловно, сам с этим никогда не справлюсь.
Если есть возможность, то помогите пожалуйста.

С уважением, и заранее благодарю за помощь.