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

[Carlos]

Для смены иконки инсталлятора использую

SetupIconFile={#icon}

Но при этом иконка деинсталлятора такая же.

Можно ли как-нибудь сделать их разными?

 

[urban]

Для смены иконки инсталлятора использую

SetupIconFile={#icon}

Но при этом иконка деинсталлятора такая же.

Можно ли как-нибудь сделать их разными?

UninstallIconFile попробуй

 

[EvilAlex]

Для смены иконки инсталлятора использую

SetupIconFile={#icon}

Но при этом иконка деинсталлятора такая же.

Можно ли как-нибудь сделать их разными?

Вот как у меня...

[Setup]
SetupIconFile=Files\inicon.ico
UninstallIconFile=Files\unicon.ico

Или вот...

#define install        "1.ico"
#define uninstall     "2.ico"

[Setup]
SetupIconFile={#install}
UninstallIconFile={#uninstall}

 

[Carlos]

EvilAlex,
UninstallIconFile почему то инносетап не принимает.

 

[urban]

Carlos что пишет?

 

[Carlos]

urban, забыл саму иконку поменять.

Теперь всё работает. Спасибо!

 

[Лёха]

на что заменить WizardSelectedComponentsчто бы кнопка далее стало неактивной если не выбрана папка установки???

Спойлер: тык

function NextButtonClick(CurPageID: Integer): Boolean;  
begin  
Result:= True;  
if WizardSelectedComponents(False) = '' then  
begin  
MsgBox('Не выбрана папка установки!', mbInformation, MB_OK);  
Result:= False;  
end;  
end;

 

[Mailchik]

Лёха, пример...

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[B][[/B]Code]
procedure DirChange(Sender: TObject);
 begin
  if TEdit(Sender).GetTextLen >= 3 then
   WizardForm.NextButton.Enabled := True else WizardForm.NextButton.Enabled := False;
end;

procedure InitializeWizard;
 begin
  WizardForm.DirEdit.OnChange := @DirChange;
end;

procedure CurPageChanged(CurPageID: Integer);
 begin
 if CurPageID = wpSelectDir then
  DirChange(WizardForm.DirEdit);
end;

 

[Лёха]

Код в сочетании с DefaultDirName={code:GetInstallDir} :

Спойлер: тык

Function GetInstallDir( AppID: String ): String; var dir: String;
begin
if not RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6', 'installdir', dir) then
RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6', 'installdir', dir);
Result:= dir;
end;

function InitializeSetup(): Boolean;
begin
Result:= True;
if not RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6') then
begin
if not RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6') then
begin
MsgBox('Программа не найдена!', mberror, mb_ok);
Result:=False;
end;
end;
end;

в случае отсутствия данных в реестре оставляет поле пути установки пустым, и при выборе папке пользователем инстал дописывается "\Новая папка" возможно ли убрать это?

 

[Mailchik]

Лёха,

Function GetInstallDir(AppID: String): String;
var
 dir: String;
 begin
 if RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6', 'installdir', dir) then
  Result := dir else Result := ExpandConstant('{pf}\{#SetupSetting('AppName')}');
end;

 

[Djinn]

Ребят помогите пожалуйста подключить IS Done 06 final к этому скрипту я новичёк пока что (собрал из примеров скрипт а IS Done подключить невыходит

 

[sergey3695]

Спасибо за файлы к скрипту. Мне самому подбирать. Я то знаю что это закос под механиков (первый инсталл), но картинки мне искать неохото.

 

[Djinn]

Спасибо за файлы к скрипту. Мне самому подбирать. Я то знаю что это закос под механиков (первый инсталл), но картинки мне искать неохото.

извеняюсь вот

 

[sergey3695]

вот. (прикрепил только isdone. как на кнопку .bmp наложить правильно не знаю т.к. не работал как-то с этим текстурированием)

 

[urban]

sergey3695 там есть что-то типа loadimage в скрипте текстур,и в () пишется функция которую нужно текстурировать,там нужно писать самому mycancelbutton (если ты от этом)

 

[sergey3695]

urban, по-моему лучше другой скрипт взять и пользоваться,чем это старье.

 

[Djinn]

вот. (прикрепил только isdone. как на кнопку .bmp наложить правильно не знаю т.к. не работал как-то с этим текстурированием)

всё работает спасибо!!только если ошибка при установки он пишет что всёравно успешно установлено белыми буквами не так как в скрипте isdone

 

[sergey3695]

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

 

[urban]

Djinn,
[CustomMessages]
Error=Ошибка!

procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID = wpFinished) and ISDoneError then
begin
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;

end;

 

[Djinn]

Djinn,
[CustomMessages]
Error=Ошибка!

procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID = wpFinished) and ISDoneError then
begin
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;

end;[/QUOTE

есть это в скрипте (но неработает