[Johny777]

Как добавить проценты удаления на деинсталлятор... »

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: {win}\Help\*; DestDir: {app}; Flags: external recursesubdirs

[  code]
var
  UPercentsTimer: LongWord;
  UPercentsLabel: TLabel;
  
  
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
  


procedure UPercentsProc;
begin
  UPercentsLabel.Caption := IntToStr(UninstallProgressForm.ProgressBar.Position) + ' %';
end;

procedure DeinitializeUninstall();
begin
  KillTimer(0, UPercentsTimer);
end;

procedure InitializeUninstallProgressForm();
begin
  with UninstallProgressForm do
  begin
    OuterNotebook.Hide;
    ProgressBar.Parent := UninstallProgressForm;
    ProgressBar.Max := 100;

    UPercentsLabel:= TLabel.Create(nil);
    with UPercentsLabel do
    begin
      SetBounds(ProgressBar.Left + ScaleX(30),ProgressBar.Top + ProgressBar.Height + ScaleY(10), ProgressBar.Width, ProgressBar.Height);
      AutoSize:= True;
      Transparent := True;
      Parent:= UninstallProgressForm;
    end;
  end;
  
  UPercentsTimer:= SetTimer(UninstallProgressForm.Handle, 0, 10, CallbackAddr('UPercentsProc'));
end;

===============================================================================

Ооочень желательно еще и с выбором из командной строки »

для компонентов есть спец. ком. строка
в справке почитай

===============================================================================

возможно ли через Inno подкачать недастающие файлы через интернет, не прибегая, к примеру "InnoTools Downloader " »

эту тему почитай
в сообщении El Sanchez - а найдёшь!

Возможно ли запустить инсталлятор только при подключении к интернет? »

в шапке пример "IsInternetActive.iss"
впиши в него заместо процедуры InitializeWizard();
это:

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

Код:

function InitializeSetup(): Boolean;
begin
  if IsInternetActive() then Result := True else
  begin
    MsgBox('Отсутствует соединение с интернетом. Бывай!', mbError, MB_OK);
    Result := False;
  end;      
end;