Inno Setup (создание инсталяционных пакетов). Часть 2

[aLLeXUs]

PlayHard, что бы получить такую рамку как у каталистов нужно нарисовать Panel, и поверх него немного меньший Bevel. Получится вот такой эффект

Спойлер: скрин

 

[Snoopak96]

SeRaph1,
либо юзать юникод версию, либо для анси ..... ..... ..... (не для паблика) :crazy:

 

[LexBell]

Либо, задавать родителю цвет основного фона наложенной картинки. не всегда спасет - если картинка ляпистая, фон будет виден, но если относительно равномерная - вполне приемлемый результат выйдет.

 

[nik1967]

DARK-Silver666, [USER]Gnom[/USER] ещё немного оптимизировал этот код:

[SOURCE="inno"][Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
ShowComponentSizes=no

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

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык интерфейса:; Types: full; Flags: fixed
Name: text\eng; Description: Английский; Flags: exclusive
Name: text\rus; Description: Русский (Бука); Flags: exclusive
Name: text\rus; Description: Русский (Фаргус); Flags: exclusive
Name: voice; Description: Язык озвучки:; Types: full; Flags: fixed
Name: voice\eng; Description: Английский; Flags: exclusive
Name: text\rus; Description: Русский (Бука); Flags: exclusive
Name: voice\rus; Description: Русский (Фаргус); Flags: exclusive
Name: mod1; Description: Установить GrayFace MM6 Path v.1.11.1
Name: mod2; Description: Установить Мод «Заговор Хаоса»;
Name: mod3; Description: Создать ярлык на рабочем столе;

procedure CompOnClick(Sender: TObject);
var
  i: Integer;
begin
  with WizardForm.ComponentsList do begin
    for i:= 0 to ItemCount -1 do begin
      case i of
        1,5: Checked[i]:=  Checked[9];
        2,3,6,7: ItemEnabled[i]:= not Checked[9];
      end;
    end;
  end;
end;

procedure InitializeWizard();
begin
  with WizardForm.ComponentsList do begin
    TreeViewStyle:= True;
    OnClickCheck:= @CompOnClick;
    CompOnClick(nil);
  end;
end;[/SOURCE][/MORE]
В принципе - то же самое, но более современно :)

 

[AntiAngel]

Нужна помощь...
Не могу понять почему при распаковки через arc.ini прогресс бар реагирует тока в конце.
В том смысле что в конце распаковки тока прогресс бар промелькает до 100% сек за 3 и всё...

 

[Snoopak96]

Нужна помощь...
Не могу понять почему при распаковки через arc.ini прогресс бар реагирует тока в конце.
В том смысле что в конце распаковки тока прогресс бар промелькает до 100% сек за 3 и всё...

Я так понял что паковал внешним компрессором, то прогресс бар и не будет плавным если распаковываешь через ISArcExtract (IsDone.dll), так как не от чего отталкиваться чтобы двигать пб, а в конце 3 сек. это копирование данных из freearc.tmp в папку с игрой.
можно сделать так:
[FIELDSET="КОД"] if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\unarc.exe'), ExpandConstant('x -o+ "{src}\Data1.bin" -pПароль -dp"{app}'), ExpandConstant('{app}'), '...',false) then break;[/FIELDSET]
лучше чем ничего.

 

[PlayHard]

скажите пожалуйста код с помощью которого можно перемещать Доп. компоненты

Спойлер: d

 

[LexBell]

PlayHard,

WizardForm.TasksList.SetBounds(ScaleX(Слева), ScaleY(Сверху), ScaleX(Длинна), ScaleY(Высота));

 

[PlayHard]

Можно ли в исдоне поменять кнопку "Отменить распаковку", если да скажите пожалуйста код

 

[PUNISHER]

PlayHard, а теперь на русском языке, то что ты хочешь. я лично не понял что тебе надо с ней сделать.

 

[PlayHard]

мне надо чтобы кнопка была просто "отмена"

Спойлер: вот

 

[PUNISHER]

PlayHard, щас заплачу от твоих вопросов.

russian.CancelButton=Отменить распаковку - меняешь на Отмена

 

[vudi]

как сделать что бы перед тем как выскачит инсталятор показывалась небольшая картинка картинка на 2-3 секунды

 

[YURSHAT]

vudi, GameScript Generator

 

[alexa1995]

Как запретить запуск 2-х версий одного инсталлятора?
Чтоб происходила проверка на наличие процесса setup.tmp и если таковой имеется чтоб выбивало окно с надписью " Уже запущена одна версия инсталлятора. Одновременный запуск запрещён"

 

[sergey3695]

alexa1995,

Спойлер: Вот так...

; Название игры (С AppId НЕ БУДЕТ РАБОТАТЬ!) 
#define Name2                                   "Need For Speed: The RUN" 

[Setup]
AppMutex={#Name2}

[code_]
// Сама процедура Mutex
var
  Mutex: THandle;

function CreateMutex(lpMutexAttributes: Longint; bInitialOwner: BOOL; lpName: String): THandle; external 'CreateMutexW@kernel32.dll stdcall';
function ReleaseMutex(hMutex: THandle): BOOL; external 'ReleaseMutex@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';

procedure SMutex; 
begin 
  Mutex:= CreateMutex(0, False, '{#SetupSetting("AppMutex")}');
end;

\\ Твое сообщение
function InitializeSetup(): Boolean;
begin
if CheckForMutexes(ExpandConstant('{#SetupSetting("AppMutex")}')) then
begin
  MsgBox('Уже запущена одна версия инсталлятора. Одновременный запуск запрещён', mbError,mb_Ok);
  Exit;
end;
  Result:= True;
end;

procedure InitializeWizard();
begin
  SMutex; 
end;

\\ Для IsDone добавить
if (CurStep=ssPostInstall) and ISDoneError then begin
  ReleaseMutex(Mutex);
  CloseHandle(Mutex);
  Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', False);
end;

 

[alexa1995]

sergey3695,
Не работает.. Могу одновременно 2 версии запустить..
http://rghost.ru/39206129

 

[LexBell]

alexa1995, Держи.

Спойлер: код

[SOURCE="iss"]#define Name2 "OLOLO"

[Setup]
AppName={#Name2}
AppVersion={#Name2}
DefaultDirName={pf}\{#Name2}
AppMutex={#Name2}

// Сама процедура Mutex
var
  Mutex: THandle;

function CreateMutex(lpMutexAttributes: Longint; bInitialOwner: BOOL; lpName: AnsiString): THandle; external 'CreateMutexA@kernel32.dll stdcall';
function ReleaseMutex(hMutex: THandle): BOOL; external 'ReleaseMutex@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';

procedure SMutex;
begin
  Mutex:= CreateMutex(0, False, ExpandConstant('{#SetupSetting("AppMutex")}'));
end;


function InitializeSetup(): Boolean;
begin
  Result:= not CheckForMutexes(ExpandConstant('{#SetupSetting("AppMutex")}'));
  if not Result then
    MsgBox('Уже запущена одна версия инсталлятора. Одновременный запуск запрещён', mbError,mb_Ok);
end;

procedure InitializeWizard();
begin
  SMutex;
end;[/SOURCE][/SPOILER]

 

[murlakatamenka]

помню, что nik1967 сделал полностью прозрачный инсталл, поищи или спроси у него

поискал везде где только знал, может сохранилась ссылочка у кого-нибудь?

ура, нашёл - лови (надеюсь, nik1967 не против)

 

[nik1967]

ура, нашёл - лови (надеюсь, nik1967 не против)

Да мне не жалко - только тот скрипт заброшен и не доделан.