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

[makst]

Mailchik,

[Icons]
Name: {group}\{#GameName}; Filename: {app}\{#exeName}; Check: CheckError;
Name: {commondesktop}\{#GameName}; Filename: {app}\{#exeName}{#exeDir}; Workingdir: {app}; Tasks: Icons\StartMenu; Check: CheckError;

[Tasks]
Name: icon; Description: {cm:Icons}
Name: icons\Desktop; Description: {cm:DesktopIcons}
Name: icons\StartMenu; Description: {cm:StartIcons}

Теперь при его выборе не создаётся..

 

[Mailchik]

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

Спойлер: код

[SOURCE="inno"][Icons]
Name: {group}\{#GameName}; Filename: {app}\{#exeName}; Tasks: Icons\StartMenu; Check: CheckError;
Name: {commondesktop}\{#GameName}; Filename: {app}\{#exeName}{#exeDir}; Workingdir: {app}; Tasks: icons\Desktop; Check: CheckError;

[Tasks]
Name: icon; Description: {cm:Icons}
Name: icons\Desktop; Description: {cmesktopIcons}
Name: icons\StartMenu; Description: {cm:StartIcons}[/SOURCE]

так попробуй

 

[makst]

Mailchik, теперь при выборе всё нормально, но есть другая проблема. Ярлык неактивен, нажимаю на него - ноль эффекта, правой кнопкой>Расположение>http://i42.fastpic.ru/big/2012/0901/1a/2623f50aef4924e4d3b21bf86896131a.png

+ Если запустить из корневой папки то, http://i43.fastpic.ru/big/2012/0901/3b/66e4ca46a594865f1d9ab9e8a2f5003b.png

Наверное накосячили мы..

 

[ACtivity]

Mailchik, теперь при выборе всё нормально, но есть другая проблема. Ярлык неактивен, нажимаю на него - ноль эффекта, правой кнопкой>Расположение>http://i42.fastpic.ru/big/2012/0901/1a/2623f50aef4924e4d3b21bf86896131a.png

+ Если запустить из корневой папки то, http://i43.fastpic.ru/big/2012/0901/3b/66e4ca46a594865f1d9ab9e8a2f5003b.png

Наверное накосячили мы..

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

 

[Devils Night]

[Icons]
Name: {group}\{#GameName}; Filename: {app}\{#exeName}; Tasks: Icons\StartMenu; Check: CheckError;
Name: {commondesktop}\{#GameName}; Filename: {app}\{#exeName}{#exeDir}; Workingdir: {app}; Tasks: icons\Desktop; Check: CheckError;

kkels, смотри внимательней на пути в секции Icons, может всё потому что между {#exeName} и {#exeDir} не хватает слеша?

[Icons]
Name: {group}\{#GameName}; Filename: {app}\{#exeName}; Check: CheckError
Name: {commondesktop}\{#GameName}; Filename: {app}\{#exeName}\{#exeDir}; Workingdir: {app}; Tasks: Icons\StartMenu; Check: CheckError

Вообще приглядись к Filename

Filename: {app}\{#exeName}
Filename: {app}\{#exeName}\{#exeDir}

странное расположение у тебя.

 

[namquang93]

I have a function to convert a float number to string, it worked normally with ANSI compiler but when I try to use Inno Setup Unicode compiler it returned wrong result. I don't know what's the reason, can anyone help me:

function NumToStr(Float: Extended): String;
begin
    Result:= Format('%.2n', [Float]);StringChange(Result, ',', '.');
    while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
        SetLength(Result, Length(Result)-1);
end;

thanks very much

 

[Evilboy]

Can anyone help me ??

I have many scripts and file of it!! Many of them have images which load in starting of installer when I try to change it with some other image and compile then !!After running exe it says invalid image!!

I also tried of doing the same size like 600x300 everything same but then also it shows the same error!!

 

[ShuToff]

Текущая версия компилятора – 5.5.1. Обновлено 24 Августа 2011г.

 

[kingshady]

Ребят, нужно в софт вставить хамачи, но когда приходит время, после установки запуска установки хамачей появляется:
Невозможно выполнить файл:
....\Redist\Hamachi.msi

CreateProcess: сбой; код193,
%1 не является приложением Win32.
хамачи же вроде как 1 версия для всех платформ... у меня х64

 

[aLLeXUs]

kingshady,

Filename: {sys}\msiexec.exe; Parameters: "/quiet /i ""{src}\Redist\Hamachi.msi"""; WorkingDir: "{src}\Redist"; Flags: skipifdoesntexist;

 

[kingshady]

alex0413 теперь запускаются хамачи сами, а не установка) или типа они проверяют, если утсановлено то запускают, а если нет, то устанавливают?

 

[ACtivity]

alex0413 теперь запускаются хамачи сами, а не установка) или типа они проверяют, если утсановлено то запускают, а если нет, то устанавливают?

Если у тебя клиент хомяк установлен, то он его запустит, а если нет, то запустит установку данного клиента., соответственно интсалл.

 

[namquang93]

I have a function to convert a float number to string, it worked normally with ANSI compiler but when I try to use Inno Setup Unicode compiler it returned wrong result. I don't know what's the reason, can anyone help me:

function NumToStr(Float: Extended): String;
begin
    Result:= Format('%.2n', [Float]);StringChange(Result, ',', '.');
    while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
        SetLength(Result, Length(Result)-1);
end;

thanks very much

anyone help me

 

[prey2009]

namquang93, I receive right result from this function on unicode inno.

 

[YURSHAT]

namquang93, this function is correct work on unicode (this function from NFS Undercover 2x)

 

[Лёха]

Есть информационная кнопка, как сделать так что бы при нажатии на ОК пользователя перебрасывало на сайт?

Код

InfBtn:=BtnCreate(WizardForm.Handle,5,362,88,34,ExpandConstant('Btn.png'),1,False);
BtnSetEvent(InfBtn,BtnClickEventID,WrapBtnCallback(@InfBtnClick,1));
BtnSetEvent(InfBtn,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetText(InfBtn, '{#InfoText}');
BtnSetFont(InfBtn,WFButtonFont.Handle);
BtnSetFontColor(InfBtn,{#ColorText},{#ColorButonOff},$000000,$B6B6B6);
BtnSetCursor(InfBtn,GetSysCursorHandle(32649));
---
procedure InfBtnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'),$0001);
if MsgBox('бла бла бла', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then
end;

И подскажите почему это происходит когда включаю в сетапник рекордс файл, если делать в тестовом режиме всё отлично.

 

[YURSHAT]

Есть информационная кнопка, как сделать так что бы при нажатии на ОК пользователя перебрасывало на сайт?

Пример

[SOURCE="iss"][Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

[Languages]
Name: "default"; MessagesFile: "compilerefault.isl"

var
  InfoButton: TNewButton;
  
procedure InfoButtonClick(Sender: TObject);
var
  ReturnCode: Integer;
begin
  if MsgBox('Скрипт взят на Форуме krinkels.org'+#13+'Посетить форум?', mbConfirmation, MB_YESNO) = IDYES then
  ShellExec('open', 'http://krinkels.org', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure RedesignWizardForm;
begin
  InfoButton := TNewButton.Create(WizardForm);
  with InfoButton do
  begin
    Caption := 'Инфо';
    Parent := WizardForm;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(23);
    OnClick := @InfoButtonClick;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;[/SOURCE][/MORE]

 

[Лёха]

а на счёт второй ошибки кто может что сказать??

 

[pshaklein]

Добрый день ребята! Если не в той ветке отписываюсь, просьба к модераторам перенести мой вопрос в соответствующий раздел, не судите строго, я у вас впервые.

Как реализовать страницу подобного вида с дополнением чекбокса:
"Не создавать папку в меню пуск"?




То-есть именно на этой странице хотелось бы совместить выбор директории установки и группы меню. Заранее, благодарю.

 

[YURSHAT]

Как реализовать страницу подобного вида с дополнением чекбокса:
"Не создавать папку в меню пуск"?

Пример

[SOURCE="iss"][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
DisableProgramGroupPage=yes
AllowNoIcons=yes

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

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Check: desktopicon

var
  DesktopIconCheckBox: TNewCheckBox;

function desktopicon: Boolean;
begin
  Result:= DesktopIconCheckBox.Checked;
end;

procedure RedesignWizardForm;
begin
  WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage;
  WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage;
  WizardForm.GroupEdit.Top := WizardForm.GroupEdit.Top + ScaleY(30);
  WizardForm.GroupBrowseButton.Top := WizardForm.GroupBrowseButton.Top + ScaleY(30);
  WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage;
  WizardForm.NoIconsCheck.Top := WizardForm.GroupEdit.Top + ScaleY(50);
  
  DesktopIconCheckBox := TNewCheckBox.Create(WizardForm);
  with DesktopIconCheckBox do
  begin
    Caption := ExpandConstant('{cm:CreateDesktopIcon}');
    Parent := WizardForm.SelectDirPage;
    Width := WizardForm.NoIconsCheck.Width;
    Top := WizardForm.GroupEdit.Top + ScaleY(30);
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;[/SOURCE][/MORE]