Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для habib2302

Ветеран


Сообщения: 855
Благодарности: 101

Профиль | Отправить PM | Цитировать


Цитата ZVSRus:
Может так

Код: Выделить весь код
[Setup]
  AppName=My Application
  AppVersion=1.5
  DefaultDirName={pf}\My Application
  OutputDir=.

[Tasks]
  Name: WebSite; Description: "Перейти на страницу Автора"; GroupDescription: "Другие задачи:"; Flags: unchecked

[Code  ]
procedure CurStepChanged(CurStep: TSetupStep);
var
  r: integer;

begin
  if CurStep = ssDone then if IsTaskSelected('WebSite') then
  begin
    ShellExec('open', 'http://forum.oszone.net/post-3024679-1051.html', '','', SW_SHOW, ewNoWait, r);
  end;
end;
А выполнить открытие сайта через секцию run нельзя?

Отправлено: 11:22, 29-02-2024 | #1053