[R.i.m.s.k.y.]

Я рад, что вы смогли решить свою проблему. »

я тоже

[Gnom_aka_Lexander]

Serega, локальный IP у всех по умолчанию 127.0.0.1- позволю себе не согласится, это адрес хоста внутри самого компьютерра, и локальным не является, поскольку из локальной сети не виден.

[Sotonisto]

Всем доброго времени суток. Как обычно нужна ваша помощь
1. Можно ли к стандартному (не заскинованому, без музыки и пр.) инсталлятору добавить авторан, например, YURSHAT'a (скрипт NFSU)?
2. Поделитесь ссылкой на скрипт, при котором инсталл проверял установлено ли приложение. Если установлено - выдавал соответствующее сообщение и зыкрывался.
Заранее спасибо.

[R.i.m.s.k.y.]

2. Поделитесь ссылкой на скрипт, при котором инсталл проверял установлено ли приложение. Если установлено - выдавал соответствующее сообщение и зыкрывался. Заранее спасибо. »

Код:

[*C*ODE]
function haaliexists(): Boolean;
Var haaliPath: string;
begin
  if not IsWin64 then begin
    RegQueryStringValue(HKLM, 'SOFTWARE\HaaliMkx','Install_Dir', haaliPath);
    if FileExists (RemoveQuotes(haaliPath)+'\splitter.ax') then Result := True else Result := False;
  end;
  if IsWin64 then begin
    RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\HaaliMkx','Install_Dir', haaliPath);
    if FileExists (RemoveQuotes(haaliPath)+'\splitter.ax') then Result := True else Result := False;
  end;
end;

Function InitializeSetup: Boolean;
Begin
...
if (not haaliexists) then begin
  MsgBox('Проги нет! Ложки нет! Жисть не удалась!', mbInformation, MB_OK);
  result:=false 
  end
  else result:=true;
end;

[murlakatamenka]

2. Поделитесь ссылкой на скрипт, при котором инсталл проверял установлено ли приложение. Если установлено - выдавал соответствующее сообщение и зыкрывался. Заранее спасибо. »

можно проверять через реестр

Можно ли в Inno Setup задать, чтобы установка начиналась только если в реестре присутствует некоторый ключ? Вот готовый скрипт.

Код:

#define DateTime GetDateTimeString('ddddd','','')

[Setup]
AppName=CheckRegValue
AppVerName=CheckRegValue and select Component
DefaultDirName={pf}\My Program   OutputBaseFilename=Setup (сборка от {#DateTime})

[Tasks]
Name: eng; Description: Английская версия; Check: CheckKey
Name: rus; Description: Русская версия; Check: not CheckKey

[Коде] //заменить коде на Сode
Function CheckKey: Boolean;
Begin
if ExpandConstant('{reg:HKLM\Software\LucasArts\Star Wars Empire at War\1.0,CD Key}') = 'fc4c-3d8-05f-d411-uk20' then Result:= True
End;

Function InitializeSetup: Boolean;
Begin
If RegValueExists(HKLM, 'Software\LucasArts\Star Wars Empire at War\1.0\ExePath', ExpandConstant('{#SetupSetting("DefaultDirName")}')) then Result:=   True
else MsgBox('Программа ' + '{#SetupSetting("AppName")}' + ' не установлена!', mbInformation, mb_Ok)
End;

что здесь надо Вам, догадаетесь. взято из faq ру-борда

[MrAWP]

up!

Помогите вытащить путь к firefox.exe из реестра (ключ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe , параметр Path - папка, в который лежит firefox.exe), а затем открыть через него xpi файл для установки плагина.

заранее спасибо.

[Habetdin]

MrAWP, вместо ссылки впишите параметры для установки xpi:

Код:

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

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

[code]
function DetectInstallRegKey: Boolean;
var
  Firefox: string;
  res: Integer;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe', '', Firefox) then
    if Firefox <> '' then
        Exec(Firefox, 'http://forum.oszone.net/index.php?referrerid=150730', '', SW_SHOW, ewWaitUntilTerminated, res);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then
    DetectInstallRegKey;
end;

[mariolast]

Проконсультируйте если кто в курсе. При следующем раскладе

Compression=lzma2/ultra64
InternalCompressLevel=ultra64
SolidCompression=true

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

[R.i.m.s.k.y.]

Если убираю SolidCompression, то запускается мгновенно, но размер инсталлятора существенно больше. Это как то можно поправить? »

есть ExtractTemporaryFile в коде? попробуй эти файлы в секции Files вынести в отдельные строчки и поставь флаг solidbreak
solidbreak
When solid compression is enabled, this flag instructs the compiler to finalize the current compression stream and begin a new one before compressing the file(s) matched by Source. This allows Setup to seek to the file instantly without having to decompress any preceding files first. May be useful in a large, multi-component installation if you find too much time is being spent decompressing files belonging to components that weren't selected.