[ZVSRus]

меня больше всего интересует оформление

Вы имеете ввиду скрипт?.

[habib2302]

ZVSRus, ага

[ZVSRus]

ага

Скрипта как токового еще нет.
Есть наброски, т.е. на вновь созданной странице прикрутить 2 чекбокса.
И сразу 2 вопрос, где-то в справке находил как закрепить в меню пуск. {userstartmenu} & {commonstartmenu} Путь к "корню" меню Пуск.
А закрепить на панели задач никак. 2 вопрос заключается в том, можно-ли закрепить ярлык на панели задач через секцию [Icons], чтобы реально закреплялся.
Сам скрипт.

Скрытый текст

Код:

[Setup]
 AppName=ACDSee 5.0 Power Pack
 AppVersion=ACDSee 5.0 Power Pack
 DefaultDirName={pf}\ACD Systems
 DefaultGroupName=ACD Systems
 OutputDir=.
 UsePreviousAppDir=no
 UsePreviousGroup=no
 OutputBaseFilename=setup
 Compression=lzma
 SolidCompression=yes
 
[Languages]
 Name: "english"; MessagesFile: "compiler:Languages\English.isl"
 Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
 
[Files]
 Source: "C:\Program Files (x86)\Inno Setup v.5.5.1\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
// Name: "{group}\{AppName}"; Filename: "{app}\{AppExeName}"  
// Name: "{group}\{cm:UninstallProgram,{AppName}}"; Filename: "{uninstallexe}" 
// Name: "{commondesktop}\{AppName}"; Filename: "{app}\{AppExeName}"; Tasks: desktopicon
// Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{AppName}"; Filename: "{app}\{AppExeName}"; Tasks: quicklaunchicon 

[Run]
//Filename: "{app}\{AppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[Code ]
 var
  ComponentPage: TWizardPage;
  
  InstallerImage: TBitmapImage;
  PortableImage: TBitmapImage;
  FlagImage: TBitmapImage;
  
  InstallerGroupBox: TNewGroupBox;
  InstallerRadioButton: TNewRadioButton;
  PortableRadioButton: TNewRadioButton;
  
  IconsGroupBox: TNewGroupBox;
  DesktopIconCheck: TNewCheckBox;
  PuskIconCheck: TNewCheckBox;
  PanelZadachCheck: TNewCheckBox;
  PanelPuskCheck: TNewCheckBox;
  
  LangGroupBox: TNewGroupBox;
  LangRUS: TNewRadioButton;
  LangENG: TNewRadioButton;
  

procedure InitializeWizard();
begin
begin
  ComponentPage := CreateCustomPage(wpWelcome, 'Выбор типа установки', '...');

  InstallerImage := TBitmapImage.Create(WizardForm);
  with InstallerImage do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(227);
    Top := ScaleY(5);
    Width := ScaleX(190);
    Height := ScaleY(160);
  end;

  PortableImage := TBitmapImage.Create(WizardForm);
  with PortableImage do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(227);
    Top := ScaleY(5);
    Width := ScaleX(190);
    Height := ScaleY(160);
  end;

  FlagImage := TBitmapImage.Create(WizardForm);
  with FlagImage do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(252);
    Top := ScaleY(167);
    Width := ScaleX(110);
    Height := ScaleY(70);
  end;

  InstallerGroupBox := TNewGroupBox.Create(WizardForm);
  with InstallerGroupBox do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(205);
    Height := ScaleY(64);
    Caption := 'Тип установки:';
  end;

  InstallerRadioButton := TNewRadioButton.Create(WizardForm);
  with InstallerRadioButton do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(14);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Установка обычной версии';
    Checked := True;
    TabStop := True;
    OnClick := @InstallerRadioButtonClick;
  end;

  PortableRadioButton := TNewRadioButton.Create(WizardForm);
  with PortableRadioButton do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(39);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Распаковка портативной версии';
    OnClick := @PortableRadioButtonClick;
  end;

  IconsGroupBox := TNewGroupBox.Create(WizardForm);
  with IconsGroupBox do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(0);
    Top := ScaleY(74);
    Width := ScaleX(205);
    Height := ScaleY(114);
    Caption := 'Дополнительно:';
  end;

  DesktopIconCheck := TNewCheckBox.Create(WizardForm);
  with DesktopIconCheck do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(14);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Ярлык(и) на рабочем столе';
    OnClick := @DesktopIconCheckClick;
    Checked := True;
  end;

  PuskIconCheck := TNewCheckBox.Create(WizardForm);
  with PuskIconCheck do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(39);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Ярлык(и) в меню пуск';
    OnClick := @PuskIconCheckClick;
    Checked := True;
  end;

  PanelZadachCheck := TNewCheckBox.Create(WizardForm);
  with PanelZadachCheck do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(64);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Закрепить ярлык в панели задач';
    OnClick := @PanelZadachCheckClick;
  end;

  PanelPuskCheck := TNewCheckBox.Create(WizardForm);
  with PanelPuskCheck do
  begin
    Parent := IconsGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(89);
    Width := ScaleX(190);
    Height := ScaleY(17);
    Caption := 'Закрепить ярлык в меню пуск';
    OnClick := @PanelPuskCheckClick;
  end;

  LangGroupBox := TNewGroupBox.Create(WizardForm);
  with LangGroupBox do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(0);
    Top := ScaleY(197);
    Width := ScaleX(205);
    Height := ScaleY(39);
    Caption := 'Язык интерфейса:';
  end;

  LangRUS := TNewRadioButton.Create(WizardForm);
  with LangRUS do
  begin
    Parent := LangGroupBox;
    Left := ScaleX(40);
    Top := ScaleY(14);
    Width := ScaleX(40);
    Height := ScaleY(17);
    Caption := 'RUS';
    Checked := True;
  end;

  LangENG := TNewRadioButton.Create(WizardForm);
  with LangENG do
  begin
    Parent := LangGroupBox;
    Left := ScaleX(130);
    Top := ScaleY(14);
    Width := ScaleX(40);
    Height := ScaleY(17);
    Caption := 'ENG';
  end;
end;
end;

[habib2302]

Доброе время суток. Помогите с кодом. Пытаюсь выполнить удаление файлов через unlocker, но происходит "exit code: 1" после запуска

Код:

[Files]
Source: unlock\*; Flags: dontcopy;

[code]
var
  RC: integer;
  lpBuff: String;

function InitializeSetup(): Boolean;
begin
    ExtractTemporaryFile('Unlocker.exe');
    ExtractTemporaryFile('UnlockerCOM.dll');
    ExtractTemporaryFile('UnlockerDriver5.sys');
    ExtractTemporaryFile('UnlockerInject32.exe');
    if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver', 'InstallLocation', lpBuff) then
    Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarExt.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC)
    Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarExt32.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC)
    Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarLng.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC)
end;

https://yadi.sk/d/6b-vcZyIkmjcy

[El Sanchez]

Пытаюсь выполнить удаление файлов через unlocker, но происходит "exit code: 1" после запуска »

habib2302, а с чего это имя переменной lpBuff, а не её значение, входит в комстроку? Нужно так:

Код:

Exec(ExpandConstant('{tmp}\Unlocker.exe'), Format('"%s\RarExt.dll" /S /D', [lpBuff]), '', SW_HIDE, ewWaitUntilTerminated, RC)

Да и все 3 вызова не помешало бы в блок begin - end обернуть после условия.

[habib2302]

El Sanchez, и можно как то пропустить этот момент

т.к инсталлятор ругается на отсутствие файлов

Found pending rename or delete that matches one of our files: c:\program files\winrar\rarext.dll

[mouri]

Подскажите, как проверить синтаксис ввода. Через edit забиваются параметры в конфиг, должны соответствовать шаблону --param1 --param2 и т.д.

[BMODS]

Всем привет, нужны компоненты с галочкой без галочки с кружочком и зачеркнутые компоненты с галочкой и кружочком.

[BMODS]

Не у кого нет примеров компонентов что ли?

[kotyarko@fb]

Всем привет, нужны компоненты с галочкой без галочки с кружочком и зачеркнутые компоненты с галочкой и кружочком. »

Например:

Скрытый текст

Код:

[Components]
Name: a; Description: Компонент 1.;
Name: b; Description: Компонент 2.; Flags: exclusive;
Name: c; Description: Компонент 3.; Flags: exclusive;
Name: d; Description: Компонент 4.; Flags: fixed;
Name: e; Description: Компонент 5.; Flags: fixed;
Name: f; Description: Компонент 6.; Flags: fixed exclusive;
Name: g; Description: Компонент 7.; Flags: fixed exclusive;

[*Code]
Procedure InitializeWizard();
var
 I: Integer;
begin
 with WizardForm.ComponentsList do
  for I := 0 to ItemCount - 1 do
   if not ItemEnabled[i] then
    ItemFontStyle[i] := [fsStrikeOut];
end;