[xryst]

Подскажите как поправить пример

Код:

[  code]
const
  INSTALLSTATE_DEFAULT = 5;

#ifdef UNICODE 
  #define A "W" 
 #else 
  #define A "A"
#endif

function MsiQueryProductState(szProduct: String): Integer;
external 'MsiQueryProductState{#A}@msi.dll stdcall';

function IsMsiProductInstall(ProductCode: String): Boolean;
begin
  Result := MsiQueryProductState(ProductCode) = INSTALLSTATE_DEFAULT;
end;

//к примеру определяем установлен ли Microsoft Visual C++ 2010  x86 Redistributable, ProductCode которого {196BB40D-1578-3D01-B289-BEFC77A11A1E}
procedure InitializeWizard();
begin
  if IsMsiProductInstall('{196BB40D-1578-3D01-B289-BEFC77A11A1E}') then
    MsgBox('vcredist 2010 installed for current user', mbInformation, MB_OK)
  else
    MsgBox('vcredist 2010 not installed', mbInformation, MB_OK);
end;

Нужно результатом работы получить, если Microsoft Visual C++ 2010 установлен, то продолжаем установку (можно и не показывать сообщение про это), если не установлен то отобразить сообщение что не установлен, и завершить процесс установки.
Сам пытался, но нечего путнего у меня не вышло

[Iska]

то отобразить сообщение что не установлен, и завершить процесс установки. »

Почему бы не предложить его тут же, прямо сейчас, загрузить и установить?!

[xryst]

Почему бы не предложить его тут же, прямо сейчас, загрузить и установить?! »

В реальном инсталере хочу использовать этот метод для установки обновления программы, которое делаю сам, если программа есть, обновляем, если нет то завершаем работу. Оригинальный инсталер программы msi, по этому и выбрал этот метод.

[nik1967]

xryst,

Скрытый текст

Код:

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[code]
const
  INSTALLSTATE_DEFAULT = 5;

#ifdef UNICODE 
  #define A "W" 
 #else 
  #define A "A"
#endif

function MsiQueryProductState(szProduct: String): Integer;
external 'MsiQueryProductState{#A}@msi.dll stdcall';

function IsMsiProductInstall(ProductCode: String): Boolean;
begin
  Result:= MsiQueryProductState(ProductCode) = INSTALLSTATE_DEFAULT;
end;

//к примеру определяем установлен ли Microsoft Visual C++ 2010  x86 Redistributable, ProductCode которого {196BB40D-1578-3D01-B289-BEFC77A11A1E}
function InitializeSetup: Boolean;
begin
  if IsMsiProductInstall('{196BB40D-1578-3D01-B289-BEFC77A11A1E}') then begin
    MsgBox('vcredist 2010 installed for current user', mbInformation, MB_OK);
    Result:= true;
  end else begin
    MsgBox('vcredist 2010 not installed', mbInformation, MB_OK);
    Result:= false;
  end;
end;

[Карась з Днiпра]

Здраствуйте, уважаемые знатоки!
Такая вот шняга. Скрипт Inno Setup подшаманить надо.
Надо убрать инфу для удаления, а конкретно - два файла. unins000.dat и unins000.exe с целевой папки
Может, посоветуете что?
Вариант ручного удаления - не вариант. Надо чтобы их не оставалось после установки

[Iska]

Карась з Днiпра, зачем?

[Карась з Днiпра]

Также задача второстепенной важности, которая мне никак не поддается. Буду благодарен, если поможете.
Видел как то русскую локализацию к игре Lost Via Domus, от пиратов. Целевой файл там на 2 ГБ, архив какой нибудь. А сам инсталл - мегабайта полтора или сколько там. Не помню. Мелочь. Подобное супер-мега-дупер-сжатие мне надо реализовать и в своем скрипте, потому как файлов там гигабайт на 15. Помогите, пожалуйста...

[nik1967]

Карась з Днiпра,

Читаем справку!

[Setup]: Uninstallable
Возможные значения:
yes или no, или логические выражения
Значение по умолчанию:
yes

Описание:
Inno Setup определяет, создавать ли автоматический деинсталлятор. При значении yes или логического выражения True он создается. Иначе автоматическое удаление будет невозможно, так что пользователь должен будет вручную удалять программу.

Установка значения директивы в True может быть полезной, если Вы хотите установить 'переносимую' программу.

Например:
[Setup]
Uninstallable=not IsTaskSelected('portablemode')

[Tasks]
Name: portablemode; Описание: "Portable Mode"
См. также:
CreateUninstallRegKey

[Setup]: CreateUninstallRegKey
Возможные значения:
yes или no, или логическое выражение
Значение по умолчанию:
yes

Описание:
При значении no или False (логические выражения) инсталлятор не будет создавать пункта программы в диалоге Установка и удаление программ. Это может быть полезно, если программа является обновлением для уже установленного приложения и запись в этом диалоге не нужна, но надо сохранить возможность удаления обновления (Uninstallable=no). В этом случае, UpdateUninstallLogAppName обычно устанавливается в no.

[Карась з Днiпра]

Iska, для моего инсталла деинсталяция вообще не нужна. Да и лишние файлы в целевой папке тоже.

[nik1967]

Помогите, пожалуйста... »

Использовать внешние упаковщики, для распаковки - IsDone.