[ErikPshat]

habib2302, спасибо! Проверил, отлично работает по умолчанию.

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

Windows 10 кривая, определяет и как Windows 8.1 и как Windows 10 уже с MinVersion 6.3, вы же замахнулись аж на MinVersion 6.4. Указав MinVersion 6.3 - уже будет блокировать Windows 10. »

не согласен
старый инно, манифест давно не обновлялся вот и путает установщик 0,6.3 с Win 10
лично я определяю версию по ntoskrnl.exe

Код:

[CODE]

var
VersionMSntoskrnl, VersionLSntoskrnl: Cardinal;

function InitializeSetup(): Boolean;
begin
GetVersionNumbers(ExpandConstant('{sys}\ntoskrnl.exe'), VersionMSntoskrnl, VersionLSntoskrnl);
end;
...
function IsWin10(): Boolean;
begin
if VersionMSntoskrnl > $60003 then Result := True else Result := False;
end;

[Nightwishh]

Можете посмотреть правильно ли я прикрути к ISDone новую форму окна отмены установки
Вот код новой формы окна отмены установки

Код:

var
  CancelForm: TSetupForm;
  YesButton: TNewButton;
  NoButton: TNewButton;
  FormClose: Boolean;

procedure CancelFormButtonClick(Sender: TObject);
begin
  case TNewButton(Sender) of
    YesButton: FormClose := True;
    NoButton:  FormClose := False;
  end;
  CancelForm.Close;
end;

function ShowCancelMessage(): Boolean;
begin
  CancelForm := CreateCustomForm();
  try
    with CancelForm do
    begin
      ClientWidth := ScaleX(473);
      ClientHeight := ScaleY(129);
      BorderIcons := [];
      Caption := SetupMessage(msgExitSetupTitle);
      CenterInsideControl(WizardForm, False);
    end;

    with TLabel.Create(CancelForm) do
    begin
      Parent := CancelForm;
      SetBounds(ScaleX(60), ScaleY(10), ScaleX(400), ScaleY(80));
      AutoSize := False;
      Caption := SetupMessage(msgExitSetupMessage);
    end;

    YesButton := TNewButton.Create(CancelForm);
    with YesButton do
    begin
      Parent := CancelForm;
      SetBounds(ScaleX(157), ScaleY(95), ScaleX(75), ScaleY(23));
      OnClick := @CancelFormButtonClick;
      Caption := SetupMessage(msgButtonYes);
    end;

    NoButton := TNewButton.Create(CancelForm);
    with NoButton do
    begin
      Parent := CancelForm;
      SetBounds(ScaleX(241), ScaleY(95), ScaleX(75), ScaleY(23));
      OnClick := @CancelFormButtonClick;
      Caption := SetupMessage(msgButtonNo);
    end;

    CancelForm.ShowModal;
    Result := FormClose;
  finally
    CancelForm.Free;
  end;
end;

ISDone

Код:

procedure CancelButtonOnClick(Sender: TObject);
begin
  SuspendProc;
  if ShowCancelMessage then ISDoneCancel:=1;
  ResumeProc;
end;

[habib2302]

Доброе время суток. Как отключить в деинсталляторе диалог с процессбаром оставив msgbox?

[habib2302]

Доброе время суток. Решил перейти на обычную (не расширенную) версию innosetup. При переходе решил изменить код. Но дело в том, что перестала работать ботва т.е. не отображаются картинки. Помогите решить проблему.
https://yadi.sk/d/Dcs1Az1T3Mz4BM

[ZVSRus]

habib2302,

Как отключить в деинсталляторе диалог с процессбаром оставив msgbox?

Какой msgbox вы хотите оставить, до (который спрашивает, Вы действительно хотите удалить программу) или после (Который информирует, что программа удалена)?

[habib2302]

ZVSRus, хочу оставить "Вы действительно хотите удалить программу" и "Программа была полностью удалена"
Хочу удалить (скрыть) вот этот диалог

[ZVSRus]

habib2302,

Тогда так:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.

[code]
function InitializeUninstall:boolean;
var
rcode: Integer;
begin
Result:= False;
if not UninstallSilent then begin
Exec(ExpandConstant('{uninstallexe}'), '/VERYSILENT', '', SW_SHOW, ewNoWait, RCode);
Exit;
end;
if MsgBox('Вы действительно хотите удалить программу?', mbConfirmation, MB_YESNO) = IDYES then
Result:= True;
MsgBox('Программа полностью удалена', mbInformation, mb_ok);
end;

[vk_k14m@vk]

Как запускать дополнительное приложение во время установки?

Допустим идет установка приложения:

адрес_установки/test/test.exe
адрес_установки/test/data/packer.exe
адрес_установки/test/data/00/file01
адрес_установки/test/data/00/file02
адрес_установки/test/data/00/file03
адрес_установки/test/data/00/fileXX
адрес_установки/test/data/01/file01
адрес_установки/test/data/01/file02
адрес_установки/test/data/01/file03
адрес_установки/test/data/01/fileXX

После распаковки этих файлов должна запуститься консоль и запаковать папки "00" и "01" в специальне архив с помощью packer.exe. В консоли это будет выглядеть так:

Код:

packer.exe 00
packer.exe 01

Или пусть это будет *.bat файл, который после установки приложение должен будет удалиться...

После чего консоль закрывается и приложение считается установленным. Как это устроить?

[Iska]

vk_k14m@vk, что мешает сделать это даже до создания инсталляции? Что мешает «запаковать папки "00" и "01" в специальне архив с помощью packer.exe» на месте и поместить в инсталляцию уже готовый архив?