[El Sanchez]

Проблема с картинками, я так понимаю, всего лишь из-за того, что картинки маленького разрешения (или нет?). Но что с кнопками Next и Cancel и текстом (мейби сам скин виноват?)? Это можно пофиксить? »

LagunaFAN, у своих TBitmapImage свойство Stretch в True, TLabel поменять на TNewStaticText, скин да, виноват, неверные метрики рассчитываются.

[neorom]

Ищу скрипт от dead-space-2-fenixx-ot-vasyakrn буду очень благодарен за помощь

[pollipen]

ребята помогите имеется несколько function InitializeSetup(): Boolean;
как это вынести

[Iska]

как это вынести »

Для начала привести сам код. Затем рассказать, как Вы дошли до жизни такой откуда этот код у Вас в таком виде взялся.

[nik1967]

pollipen, взять и объединить.

[pollipen]

всё парни разобрался

[pollipen]

парни как убрать вот такое сообщение

и дальше продолжала установку

[Iska]

Ну, допустим, уберёте сообщение, толку-то. Установка не продолжится, а завершится с ошибкой. Что Вы там такого обновляете?

[Nordek]

убрать вот такое сообщение Скрытый текст и дальше продолжала установку »

Зачем Вы взялись делать кривопак с таким условием? Ерунда у Вас получится.

Например имеется программа которую следует обновить.
При установке: Допустим пропустит, допустим установит - но файлы новой версии обновлены не будут или будут обновлены частично - после такой установки обновляемая программа перестанет работать или будет работать некорректно, с ошибками.

Пусть пользователь решает что ему делать (На снимке экране верный способ, инсталлятор сделает сам всё, что нужно.).

Если вам приспичило, то ловить нужно на инициализации, например:

Код:

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

[Code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';

function InitializeSetup(): Boolean;
begin
  If RunTask('myprog.exe', false) then
    begin
      if MsgBox('Программа {#SetupSetting("AppName")} используется.  Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then
        begin
          KillTask('myprog.exe');
          Result:= True;
        end else
          Exit;
    end;
Result:=True;
end;

[Nullkree]

Ребята, подскажите, как разрешить ввод только цифр в Edit1 на кастомной странице? Страницу создал с помощью Inno Setup Form Designer. Пробовал так, не работает:

Код:

procedure CustomPage_Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0','1','2','3','4','5','6','7','8','9']) then Key:=#0;
end;