Размещение значков приложения на рабочем столе и в автозагрузке с помощью InnoSetup

Delphi , Программа и Интерфейс , Инсталяция

При создании установщика с помощью InnoSetup часто возникает потребность в размещении значков приложения на рабочем столе и в автозагрузке для всех пользователей или только для текущего. В этой статье мы рассмотрим, как добиться этого с помощью переменной InstallForAllUsers, которая определяется на кастомной странице мастера в конфигурации InnoSetup.

Проблема

В нашей конфигурации InnoSetup есть переменная InstallForAllUsers, значение которой определяет, нужно ли устанавливать приложение для всех пользователей или только для текущего. Мы хотим использовать это значение для размещения значков приложения в соответствующих местах: на общем рабочем столе и в общем автозагрузке для всех пользователей, и на рабочем столе текущего пользователя и в автозагрузке текущего пользователя для текущего пользователя.

Наш раздел Icons в конфигурации InnoSetup выглядит следующим образом:

[Icons]
Name: "{group}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"
Name: "{group}\{cm:UninstallProgram,MyApp}"; Filename: "{uninstallexe}"; IconFilename: E:\Continuous Integration\InnoSetup Files\icon.ico
Name: "{commondesktop}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"
Name: "{commonstartup}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename:  "{app}\MyApp.exe"

Как можно использовать значение переменной InstallForAllUsers, чтобы заменить эти константы по мере необходимости?

Решение

Чтобы решить эту проблему, мы можем создать две функции, GetDesktopFolder и GetStartupFolder, которые возвращают соответствующие пути в зависимости от значения переменной InstallForAllUsers. Затем мы используем эти функции в разделе Icons для определения местоположения значков.

Вот как это можно сделать:

Раздел Icons:

[Icons]
Name: "{group}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"
Name: "{group}\{cm:UninstallProgram,MyApp}"; Filename: "{uninstallexe}"; IconFilename: E:\Continuous Integration\InnoSetup Files\icon.ico
Name: "{code:GetDesktopFolder}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"
Name: "{code:GetStartupFolder}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename:  "{app}\MyApp.exe"

Код:

function GetDesktopFolder(Param: String): String;
begin
  if (InstallForAllUsers) then
    Result := ExpandConstant('{commondesktop}')
  else
    Result := ExpandConstant('{userdesktop}');
end;

function GetStartupFolder(Param: String): String;
begin
  if (InstallForAllUsers) then
    Result := ExpandConstant('{commonstartup}')
  else
    Result := ExpandConstant('{userstartup}');
end;

В этом примере мы используем функцию ExpandConstant для расширения значений констант InnoSetup. Если InstallForAllUsers равен true, то значок будет размещен на общем рабочем столе или в общем автозагрузке. В противном случае он будет размещен на рабочем столе текущего пользователя или в автозагрузке текущего пользователя.

Альтернативный ответ

В качестве альтернативного решения можно использовать функцию Check в разделе Icons, чтобы определить, должен ли значок быть создан или нет, в зависимости от значения переменной InstallForAllUsers. Вот как это можно сделать:

Раздел Icons:

[Icons]
Name: "{commondesktop}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"; Check: Not CheckPerUserInstall;
Name: "{userdesktop}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename: "{app}\MyApp.exe"; Check: CheckPerUserInstall;
Name: "{commonstartup}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename:  "{app}\MyApp.exe"; Check: Not CheckPerUserInstall;
Name: "{userstartup}\MyApp"; Filename: "{app}\MyApp.exe"; IconFilename:  "{app}\MyApp.exe"; Check: CheckPerUserInstall;

Код:

function CheckPerUserInstall(): Boolean;
begin
  Result := InstallForAllUsers;
end;

В этом примере мы используем функцию CheckPerUserInstall, чтобы проверить, следует ли устанавливать приложение для текущего пользователя. Если значение переменной InstallForAllUsers равно true, то значок не будет создан на рабочем столе или в автозагрузке текущего пользователя. В противном случае значок будет создан.

Заключение

В этой статье мы рассмотрели, как размещать значки приложения на рабочем столе и в автозагрузке с помощью InnoSetup в зависимости от значения переменной InstallForAllUsers. Мы представили два решения: использование функций для определения местоположения значков и использование функции Check для определения, должен ли значок быть создан или нет. Оба решения позволят вам добиться желаемого результата в зависимости от ваших конкретных потребностей.

Создано по материалам из источника по ссылке.

При создании установщика с помощью InnoSetup, для размещения значков приложения на рабочем столе и в автозагрузке в зависимости от того, устанавливается ли приложение для всех пользователей или только для текущего, можно использовать переменную `InstallFo

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::