[Nordek]

Установщик родной Sandboxie отнюдь не Inno, а NSIS. »

Если родной установщик от NSIS, то какие могут быть претензии к Inno?

Добавляю только параметр /S и ноу проблем-с, тихое удаление. »

У NSIS "/S" и в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall есть такое как Sandboxie, но к Inno это отношения вообще не имеет.
У Inno "/SILENT" а в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall к Sandboxie дописывается хвост "_is1".

[El Sanchez]

Извлекаем параметр в интерпретатор командной строки, и получаем требуемый результат. Другого способа не нашел. »

Stealthmax, разделить полученную из реестра строку на путь к программе и параметры можно так:

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

Код:

#define A = (Defined UNICODE) ? "W" : "A"
type
  CMDLINE = record    // user defined
    szProg: String;
    szParams: String;
  end;

procedure PathRemoveArgs(pszPath: String); external 'PathRemoveArgs{#A}@shlwapi.dll stdcall';

////////////////////////////////////////
function argv(szCLine: String): CMDLINE;
begin
  PathRemoveArgs(szCLine);
  StringChangeEx(szCLine, #0, #13#10, True);
  with TStringList.Create do
  try
    Text := szCLine;
    if Count > 0 then Result.szProg := Strings[0];
    if Count > 1 then Result.szParams := Strings[1];
  finally
    Free;
  end;
end;

/////////////////////////////
procedure InitializeWizard();
var
  szCLine: String;
  cl: CMDLINE;
begin
  szCLine := '"C:\Windows\Inst aller\SandboxieInstall64.exe" /remove /fdfdfg -gggg "ghfhg fhg" 123';
  cl := argv(szCLine);
  MsgBox(Format('Program: %s'#13#10'Command Line: %s', [cl.szProg, cl.szParams]), mbInformation, MB_OK);
end;

[ROMKA-1977]

Подскажите как в ISDone правильно указать пароль архива FreeArc ? Делаю как показанно в инструкции но во время распаковки вылетает ошибка:
Произошла ошибка при распаковке: Неверный пароль!
Unarc.dll вернул код ошибки: -13
ERROR: wrong password
Пароль указал тот же что и при архивации.
Пример:
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Data-1.arc'), ExpandConstant('{app}\'), '', false, '1234', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

[audiofeel]

ROMKA-1977, Unarc.dll от фри арка ( тем чем сжимаеш) замени на тот что в скрипте

[Shift85]

ROMKA-1977, Пакуй так:

Код:

start /wait arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r -p1234 -m=lzma:a1:mfbt4:d128m:fb128:mc1000:lc8 data\data-1.arc packeddata\*

Распаковка так:

Код:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}'), '', false, '1234', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

Все необходимое:http://rghost.ru/54360629

[Stealthmax]

У NSIS "/S" и в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall есть такое как Sandboxie, но к Inno это отношения вообще не имеет. У Inno "/SILENT" а в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall к Sandboxie дописывается хвост "_is1". »

Ну то понятно, я делал репак программы, и нужна была проверка не предмет оригинальной установки и, допустим, наличие установки на базе Inno, так вот с Inno как раз проблем никаких, даже при обработке моего ключа для удаления в реестре вида:

Код:

RegWriteStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}_is1','UninstallString', ExpandConstant('{app}\{#UninstallExeName} /VERYSILENT /NORESTART /SUPPRESSMSGBOXES'));

, а с оригинальным установщиком возникла трабла, вот и всего-то. Но ещё раз спасибо всем, кто не прошел мимо и активно оказал содействие.
Нашел код для определения локали в таком формате 1049 и добавил в свой код при деинсталляции:

Код:

type
LCID = LongInt;

function GetSystemDefaultLCID() : LCID; external 'GetSystemDefaultLCID@kernel32.dll stdcall';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  ResultCode: Integer;
begin 
  if CurUninstallStep=usUninstall then
  begin
    Exec(ExpandConstant('{app}\KmdUtil.exe'),ExpandConstant(' /lang=LCID stop SbieSvc'),'',SW_HIDE,ewWaitUntilTerminated,ResultCode);
    Exec(ExpandConstant('{app}\KmdUtil.exe'),ExpandConstant(' /lang=LCID delete SbieSvc'),'',SW_HIDE,ewWaitUntilTerminated,ResultCode);
    Exec(ExpandConstant('{app}\KmdUtil.exe'),ExpandConstant(' /lang=LCID stop SbieDrv'),'',SW_HIDE,ewWaitUntilTerminated,ResultCode);
    Exec(ExpandConstant('{app}\KmdUtil.exe'),ExpandConstant(' /lang=LCID delete SbieDrv'),'',SW_HIDE,ewWaitUntilTerminated,ResultCode);    
end;
end;

Суть сводится к тому, что не требуется перезагрузка при удалении драйвера, в штатном комплекте Sandboxie идет исполняемый модуль для установки/удаления службы и драйвера, пробовал использовать sc.exe для подобного, но требуется в итоге перезагрузка. Данный вариант зарекомендовал себя отлично, т.е. прогнал 3 раза переустановку смешанную туда-сюда, все работает. Вопрос такой: правильно ли я употребил WinAPI в данном контексте? У разработчика выглядит так: {tmp}\KmdUtil.exe /lang=1049 stop SbieDrv применимо для русской локали.

[Dinvin4ester]

Ребята как сделать процентный прогресс бар ?

[audiofeel]

Ребята как сделать процентный прогресс бар ? »

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

[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Files]
Source: files\*; DestDir: {app}; AfterInstall: ExtLog(); Flags: recursesubdirs

[code]
var
ProgressLabel: TLabel;

procedure ExtLog();
begin
with WizardForm.ProgressGauge do begin
ProgressLabel.Caption:=IntToStr((Position-Min)/((Max - Min)/100)) + '%'
if (Position-Min)/((Max - Min)/100) > 50 then ProgressLabel.Font.Color:= clWhite
end
end;

procedure InitializeWizard;
begin
ProgressLabel:=TLabel.Create(WizardForm)
ProgressLabel.Top:= 4
ProgressLabel.Left:= 200
ProgressLabel.Caption:= '0%'
ProgressLabel.AutoSize:= True
ProgressLabel.Font.Color:= clBlue
ProgressLabel.Font.Style:= [fsBold]
ProgressLabel.Transparent:= True
ProgressLabel.Parent:= WizardForm.ProgressGauge
end;

НЕ ??

[Dodakaedr]

Можно свои ключи для командной строки придумать в Inno?

[Stealthmax]

Можно свои ключи для командной строки придумать в Inno? »

Частично, вот примеры: 1, 2, 3. По аналогии можно и другие ключи делать, поищи на форуме, а также в справке есть.