DLL FMXInno October 27, 2024

[Shegorat]

где располагается при запуске инсталлятор?

Чётко посередине, между экранами

 

[audiofeel]

Чётко посередине, между экранами

Понятно. Есть ли такая же проблема на "голой" Inno Setup?

 

[xDarkSTALKERx]

Подскажите пожалуйста люди добрые как вставить в инсталлятор даже не знаю как правильно сформулировать, вот у фит герл типо есть кнопочка (другие РеПаки , ну или как то так) вообщем что бы человек жамкнув на кнопочку видел список РеПаков

 

[Yaroslav950]

Конечно можно, конкретно, что у нее там просто список ее репаков или переходит на сайт, внятно пишите.И если вы хотите задать вопрос прочтите правила сайта, где можно задавать вопрос и прочее

 

[xDarkSTALKERx]

Конечно можно, конкретно, что у нее там просто список ее репаков или переходит на сайт, внятно пишите.

именно как список при чём с кликабильными ссылками( то есть название, кликаешь - перекидывает на ее сайт именно на этот репак)
Просто хочу в свои типо такого сделать что бы человеки могли все мои творения увидеть и скачать если захотят

 

[Yaroslav950]

если вам надо в точь в точ скиньте скриншот,если надо типо как у нее тогда сейчас сделаю.

 

[xDarkSTALKERx]

если вам надо в точь в точ скиньте скриншот,если надо типо как у нее тогда сейчас сделаю.

Не точь в точь как у неё мне не надо, а вот типо как у неё это да)

 

[Yaroslav950]

Скриншот предоставьте что вам там надо? У нее везде ссылки на сайт.

 

[xDarkSTALKERx]

Скриншот предоставьте что вам там надо? У нее везде ссылки на сайт.

во вторник кину вам в ЛС, сейчас просто на сутках на арбайтене

 

[Yaroslav950]

я не знаю,прочту ли, но вот вам маленький пример, она использовала Readmy.txt сама выделяла цветом текст и прочее. Я вам сделал не всего текста а вот только ссылку.

Спойлер

; Основные настройки установщика
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=Output
OutputBaseFilename=Setup
Compression=lzma
SolidCompression=yes



; Код для создания страницы с кликабельным URL

procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'https://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
  InfoBeforePage: TWizardPage;
  InfoMemo: TNewMemo;
  URLLabel: TNewStaticText;
begin
  // Создание страницы InfoBefore
  InfoBeforePage := CreateCustomPage(wpWelcome, 'Информация', 'Дополнительная информация перед установкой');

  // Текстовое поле
  InfoMemo := TNewMemo.Create(InfoBeforePage);
  InfoMemo.Parent := InfoBeforePage.Surface;
  InfoMemo.Width := InfoBeforePage.SurfaceWidth;
  InfoMemo.Height := InfoBeforePage.SurfaceHeight - 30;
  InfoMemo.ScrollBars := ssVertical;
  InfoMemo.Text := 'Другие репаки вы можете найти здесь:' + #13#10 +
                  ' '; // Пустая строка для размещения ссылки

  // Кликабельный URL
  URLLabel := TNewStaticText.Create(InfoBeforePage);
  URLLabel.Parent := InfoBeforePage.Surface;
  URLLabel.Caption := 'https://www.innosetup.com';
  URLLabel.Left := 10; // Отступ слева внутри поля
  URLLabel.Top := InfoMemo.Top + 25; // Позиция внутри Memo
  URLLabel.Cursor := crHand;
  URLLabel.Font.Color := clBlue; // Явно задаем синий цвет
  URLLabel.Font.Style := [fsUnderline];
  URLLabel.Enabled := True; // Убеждаемся, что элемент активен
  URLLabel.OnClick := @URLLabelOnClick;
end;
[/SPOILER][/SPOILER]

 

[xDarkSTALKERx]

я не знаю,прочту ли, но вот вам маленький пример, она использовала Readmy.txt сама выделяла цветом текст и прочее. Я вам сделал не всего текста а вот только ссылку.

Спойлер

; Основные настройки установщика
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=Output
OutputBaseFilename=Setup
Compression=lzma
SolidCompression=yes



; Код для создания страницы с кликабельным URL

procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'https://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
  InfoBeforePage: TWizardPage;
  InfoMemo: TNewMemo;
  URLLabel: TNewStaticText;
begin
  // Создание страницы InfoBefore
  InfoBeforePage := CreateCustomPage(wpWelcome, 'Информация', 'Дополнительная информация перед установкой');

  // Текстовое поле
  InfoMemo := TNewMemo.Create(InfoBeforePage);
  InfoMemo.Parent := InfoBeforePage.Surface;
  InfoMemo.Width := InfoBeforePage.SurfaceWidth;
  InfoMemo.Height := InfoBeforePage.SurfaceHeight - 30;
  InfoMemo.ScrollBars := ssVertical;
  InfoMemo.Text := 'Другие репаки вы можете найти здесь:' + #13#10 +
                  ' '; // Пустая строка для размещения ссылки

  // Кликабельный URL
  URLLabel := TNewStaticText.Create(InfoBeforePage);
  URLLabel.Parent := InfoBeforePage.Surface;
  URLLabel.Caption := 'https://www.innosetup.com';
  URLLabel.Left := 10; // Отступ слева внутри поля
  URLLabel.Top := InfoMemo.Top + 25; // Позиция внутри Memo
  URLLabel.Cursor := crHand;
  URLLabel.Font.Color := clBlue; // Явно задаем синий цвет
  URLLabel.Font.Style := [fsUnderline];
  URLLabel.Enabled := True; // Убеждаемся, что элемент активен
  URLLabel.OnClick := @URLLabelOnClick;
end;
[/SPOILER][/SPOILER]

Благодарю попробую сделать.