[eromunald]

да легко »

Спасибо большое, протестируем.

[eromunald]

Прошу помощи, появилась еше одна проблема, может кто сталкивался с подобной.
На кастомной странице инсталлятора есть текстовая информация в ACaption, ASubCaption, ALabel1Caption, ALabel2Caption.
CheckBox для установки ПО. А есть AIconFileName который выводит иконку этого ПО. Раньше проблем не было т.к. использовались
иконки ПО 32х32. Сейчас же необходимо вывести bmp файл вместо иконки, и вот здесь появилась проблема. Указывая размеры bmp-шки
Width := 121;Height := 190; резервируется место для размеров изображения, но само изображение выводится 32х32.
В течение дня танцы с бубном ничего не дали. Есть подозрение что вся проблема из-за идентификатора hIcon который не дает возможности вывести изображение в реальном разрешении. Может быть есть возможность не использовать hIcon и заменить его на простое решение.

Код:

function CreateCustomOptionPage(AAfterId: Integer; ACaption, ASubCaption, AIconFileName, ALabel1Caption, ALabel2Caption,
  ACheckCaption: String; var CheckBox: TCheckBox): TWizardPage;
var
  Page: TWizardPage;
  Rect: TRect;
  hIcon: LongInt;
  Label1: TNewStaticText; Label2: TNewStaticText;
begin
  Page := CreateCustomPage(AAfterID, ACaption, ASubCaption);
  
  try
    AIconFileName := ExpandConstant('{tmp}\FixitLogo2.bmp');
//ExpandConstant('{tmp}\' + AIconFileName);
    if not FileExists(AIconFileName) then
    ExtractTemporaryFile(ExtractFileName(AIconFileName));

    hIcon := ExtractIcon(GetModuleHandle(0), ExpandConstant('{tmp}\FixitLogo2.bmp'), 0);
 //AIconFileName, 0);
    try
     with TBitmapImage.Create(Page) do begin
        with Bitmap do begin
         Width := 121;
         Height := 190;
         Rect.Right:= 32; 
         Rect.Bottom:= 32; 
         Rect.Left:= 0; 
         Rect.Top:= 0; 
          Canvas.Brush.Color := WizardForm.Color;
          Canvas.FillRect(Rect);
          DrawIconEx(Canvas.Handle, 0, 0, hIcon, 0, 0, 121, 190, DI_NORMAL);
        end;
        Parent := Page.Surface;
      end;
    finally
      DestroyIcon(hIcon);
    end;
  except
  end;

[ZVSRus]

eromunald,

Самое простое решение

[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] Source: "FixitLogo2.bmp"; DestDir: "{tmp}"; Flags: dontcopy [code] var Page : TWizardPage; Bitmap : TBitmapImage; NewCheckBox1 : TNewCheckBox; procedure InitializeWizard(); begin Page := CreateCustomPage(wpWelcome, 'FixIt', 'Additional Software Options'); Bitmap := TBitmapImage.Create(WizardForm); with Bitmap do begin Parent := Page.Surface; SetBounds(ScaleX(0),ScaleY(0),ScaleX(120),ScaleY(120)); ExtractTemporaryFile('FixitLogo2.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\FixitLogo2.bmp')); end; NewCheckBox1 := TNewCheckBox.Create(WizardForm); with NewCheckBox1 do begin Parent := Page.Surface; SetBounds(ScaleX(0),ScaleY(130),ScaleX(215),ScaleY(17)); Caption := 'Здесь название вашего NewCheckBox1'; end; end;

[eromunald]

Самое простое решение »

Спасибо большое, это то что надо!

[OldGamer]

Здравствуйте!

Подскажите, пожалуйста, как реализовать следующее:

1) При первом запуске программа создаёт папку с файлами по пути: "C:\Users\Имя пользователя\AppData\Local\папка на удаление".
Нужно, чтобы при деинсталляции программы эта папка была удалена.

2) Нужно, чтобы была страница с выбором из 2-х разных файлов/папок программы, так как во вложении, желательно без картинок.

[ZVSRus]

OldGamer

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

Код:

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

[Files]
Source: "compiler:Examples\MyProg.exe";     DestDir: "{app}"; Check: PortableCheck; Flags: ignoreversion
Source: "compiler:Examples\MyProg-x64.exe"; DestDir: "{app}"; Check: InstallerCheck; Flags: ignoreversion

[UninstallDelete]
 Type: filesandordirs; Name: "{localappdata}\папка на удаление";

[Code_]
var
  ComponentPage : TWizardPage;
  Installer     : TNewRadioButton;
  Portable      : TNewRadioButton;

function InstallerCheck: Boolean;           
 begin                                      
   Result := Installer.Checked;
 end;                                       

function PortableCheck: Boolean;           
 begin                                      
   Result := Portable.Checked;
 end;                                       

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

  { Installer }
  Installer := TNewRadioButton.Create(WizardForm);
  with Installer do
  begin
    Parent := ComponentPage.Surface;
    SetBounds(ScaleX(0),ScaleY(15),ScaleX(100),ScaleY(17));
    Caption := 'Установка';
    Checked := True;
  end;

  { Portable }
  Portable := TNewRadioButton.Create(WizardForm);
  with Portable do
  begin
    Parent := ComponentPage.Surface;
    SetBounds(ScaleX(0),ScaleY(45),ScaleX(100),ScaleY(17));
    Caption := 'Распаковка';
  end;
end;

[OldGamer]

ZVSRus,
Огромное-преогромное Спасибо! Этот скрипт работает! Очень благодарен

Остался "последний штрих" - нужно, чтобы вокруг этих RadioButton был GroupBox с надписью "Версия:".

[Nordek]

нужно, чтобы вокруг этих RadioButton был GroupBox с надписью "Версия:". »

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

Код:

[Code]
var

  ComponentPage : TWizardPage;
  Installer     : TNewRadioButton;
  Portable      : TNewRadioButton;
  GroupBox: TNewGroupBox;
  
  
function InstallerCheck: Boolean;
 begin
   Result := Installer.Checked;
 end;

function PortableCheck: Boolean;
 begin
   Result := Portable.Checked;
 end;

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


  { GroupBox }
  GroupBox := TNewGroupBox.Create(WizardForm);
  with GroupBox do
  begin
    Parent := ComponentPage.Surface;
    SetBounds(ScaleX(0),ScaleY(0),ScaleX(417),ScaleY(220));
    Caption := 'Версия:';
  end;

  { Installer }
  Installer := TNewRadioButton.Create(WizardForm);
  with Installer do
  begin
    Parent := GroupBox;
    SetBounds(ScaleX(20),ScaleY(35),ScaleX(100),ScaleY(17));
    Caption := 'Установка';
    Checked := True;
  end;

  { Portable }
  Portable := TNewRadioButton.Create(WizardForm);
  with Portable do
  begin
    Parent := GroupBox;
    SetBounds(ScaleX(20),ScaleY(65),ScaleX(100),ScaleY(17));
    Caption := 'Распаковка';
  end;
end;

[ZVSRus]

OldGamer,

Остался "последний штрих"

[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}"; Check: PortableCheck; Flags: ignoreversion Source: "compiler:Examples\MyProg-x64.exe"; DestDir: "{app}"; Check: InstallerCheck; Flags: ignoreversion [UninstallDelete] Type: filesandordirs; Name: "{app}"; Type: filesandordirs; Name: "{localappdata}\папка на удаление"; Type: filesandordirs; Name: "{userappdata}\папка на удаление"; [code] var ComponentPage : TWizardPage; InstallGroupBox : TNewGroupBox; Installer : TNewRadioButton; Portable : TNewRadioButton; function InstallerCheck: Boolean; begin Result := Installer.Checked; end; function PortableCheck: Boolean; begin Result := Portable.Checked; end; procedure InitializeWizard(); begin ComponentPage := CreateCustomPage(wpWelcome, 'Выбор типа установки', 'Выберите тип установки'); { InstallGroupBox } InstallGroupBox := TNewGroupBox.Create(WizardForm); with InstallGroupBox do begin Parent := ComponentPage.Surface; SetBounds(ScaleX(0),ScaleY(0),ScaleX(210),ScaleY(60)); Caption := 'Выбор типа установки:'; end; { Installer } Installer := TNewRadioButton.Create(WizardForm); with Installer do begin Parent := InstallGroupBox; SetBounds(ScaleX(5),ScaleY(14),ScaleX(195),ScaleY(17)); Caption := 'Установка обычной версии'; Checked := True; end; { Portable } Portable := TNewRadioButton.Create(WizardForm); with Portable do begin Parent := InstallGroupBox; SetBounds(ScaleX(5),ScaleY(36),ScaleX(195),ScaleY(17)); Caption := 'Распаковка портативной версии'; end; end;

[LagunaFAN]

Доброго времени суток!

Недавно столкнулся с тем (собственно, мне сообщили об этом, ибо у самого FullHD), что при разрешении 3840x2160 в инсталляторе съезжают кнопки Next и Cancel, а также некоторые кастомные элементы (картинки, текст etc.)...

Скриншот проблемы

Проблема с картинками, я так понимаю, всего лишь из-за того, что картинки маленького разрешения (или нет?). Но что с кнопками Next и Cancel и текстом (мейби сам скин виноват?)? Это можно пофиксить? Прошу помощи!

Инсталлятор у меня без наворотов, разве что установлен скин и произведены некоторые другие легкие модификации.

Если нужно, то вот ссылка на скрипт - https://cloud.mail.ru/public/9Acu/Lt6HGA7hz