[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Tukash · Конфигурация компьютера

кто-нибудь подскажет параметр для ярлыка задающий совместимость? например Win 98?

МИШАНЧИК · Конфигурация компьютера

serg aka lain, большое спасибо! Здорово!

Код:

Caption := 'Установка DirectX, пожалуйста ждите ...';
          Alignment := taCenter;

taCenter я так понимаю задаёт расположение надписи по центру, а можно ли как-то задать расположение со сдвигом вправо(или влево)?

serg aka lain · Отправлено: **23:59, 06-02-2010** | #**1233**

Цитата МИШАНЧИК:

taCenter я так понимаю задаёт расположение надписи по центру, а можно ли как-то задать расположение со сдвигом вправо(или влево)? »

TAlignment = (taLeftJustify, taRightJustify, taCenter);

svensoft · Отправлено: **00:32, 07-02-2010** | #**1234**

Люди, такая ситуация, есть объект с идентификатором Panel_ProgrammGroup. Вопрос, как можно в какой-то либо функции или процедуре проверить этот объект на видимость, с учетем того что конечно же объект объявлен в глобальных переменных ?..

то есть нужно в какой-либо процедуре сделать условие на видимость этого объекта, что-то вроде :
if Panel_ProgrammGroup.Active = 1 then
или
if Panel_ProgrammGroup: Active : = True then
и это конечно все неправильно, подскажите если кто-то знает ... ))

МИШАНЧИК · Конфигурация компьютера

serg aka lain, большое спасибо!

Deen · Отправлено: **14:26, 07-02-2010** | #**1236**

Как сделать чтобы при установке игры второй раз появлялось окно "удалить игру" но или что то подобное?

Подскажите где посматреть мануал на создание установщика с архивами FreeArc.

YURSHAT · Отправлено: **22:06, 07-02-2010** | #**1237**

Цитата Deen:

Как сделать чтобы при установке игры второй раз появлялось окно "удалить игру" но или что то подобное? »

Как то так

Пример

Deen · Отправлено: **23:05, 07-02-2010** | #**1238**

YURSHAT,
Ничего нипишут как было так и осталось.

Может что я нето делаю, вот посмотри

Подскажите где посматреть мануал на создание установщика с архивами FreeArc.

YURSHAT · Отправлено: **01:51, 08-02-2010** | #**1239**

Цитата Deen:

Может что я нето делаю, вот посмотри »

Правильно

так

Код:

#define MyAppName "GTS"
//укажите название игры

[Setup]
AppName={#MyAppName}
AppVerName=GTS 1.0
AppPublisher=DCore
DefaultDirName={pf}\GTS
DefaultGroupName=GTS
AllowNoIcons=yes
;OutputDir=E:\Инсталяторы
OutputBaseFilename=setup
;SetupIconFile=E:\Инсталяторы\icon.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
DiskSpanning=true
DiskSliceSize=1457664000

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

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: dxinstall; Description: Установить DirectX; Flags: unchecked
Name: C; Description: Установить С++ 2005 redistributable; Flags: unchecked

[Files]
;Source: D:\Games\GTS\bin\win_x86\game.exe; DestDir: {app}\bin\win_x86\; Flags: ignoreversion
;Source: D:\Games\GTS\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\GTS; Filename: {app}\bin\win_x86\game.exe; WorkingDir: {app}\bin\win_x86
Name: {group}\{cm:UninstallProgram,GTS}; Filename: {app}\bin\win_x86\game.exe; WorkingDir: {app}\bin\win_x86; IconIndex: 0
Name: {commondesktop}\GTS; Filename: {app}\bin\win_x86\game.exe; Tasks: desktopicon; WorkingDir: {app}\bin\win_x86; IconIndex: 0
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\GTS; Filename: {app}\bin\win_x86\game.exe; Tasks: quicklaunchicon; WorkingDir: {app}\bin\win_x86; IconIndex: 0

[Run]
Filename: {app}\bin\win_x86\game.exe; Description: {cm:LaunchProgram,GTS}; Flags: nowait postinstall skipifsilent
Filename: {src}\Redist\DXSETUP.exe; Parameters: /silent; Tasks: dxinstall
Filename: {src}\Redist\vcredist_x86.exe; Parameters: /q; Tasks: C

[Code_]

function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
  ResultStr:string;
begin
Result:=True;
begin
  If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}_is1', 'UninstallString', ResultStr)
then
 begin
  If ResultStr<>''
then
 begin
  ResultStr:=RemoveQuotes(ResultStr);
  if MsgBox('Игра {#MyAppName} уже установлена.' #13#13 'Вы хотите удалить существующую копию перед продолжением?', mbConfirmation, MB_YESNO) = idYes
then
  if not Exec(ResultStr, '/silent', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
then
  MsgBox('Ошибка удаления.' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;

Цитата Deen:

Подскажите где посматреть мануал на создание установщика с архивами FreeArc. »

В шапке есть скрипт для распаковки FreeArc, в нем все расписано. Ссыль

Deen · Отправлено: **04:33, 08-02-2010** | #**1240**

YURSHAT,
Сразу же ошибка в первой строчке.

Про freearc: Я хотел мануал с самых азов.
Во первых: как делить архив фриарк на части? У меня установленная игра размером 12Гб мне архивировать сразу всю папку в один архив или где есть в настройках (сам ненашол) разделить на части 5-6 частей или вообще сколько нужно?

Второе: Сделал я например 6 архивов в скрипте написано "поместите архивы в одну папку с инсталятором" тоесть туда же где игра или в папку назначения и исталятора в установленной игре нет. unarc.dll где должен быть? рядом с архивами или вообще в папке с IS? Тот же вопрос про InnoCallback.dll

Пока что всё, жду ответов.