[Crazy Noise]

Aquila,

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Components]
Name: ag; Description: Aquila; Check: AquilaComp

[Icons]
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}; Check: GroupIcon
Name: {commondesktop}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}; Check: DesktopIcon
Name: {commondesktop}\Aquila\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}; Check: AquilaIcon


[Code]
function CheckParam(s: string): boolean;
var
 i: integer;
 begin
  for i := 0 to ParamCount do begin
   Result := ParamStr(i) = s;
   if Result then Break;
  end;
end;


function GroupIcon: boolean;
 begin
  Result := CheckParam('iGroup');
end;


function DesktopIcon: boolean;
 begin
  Result := CheckParam('iDesktop');
end;



function AquilaIcon: boolean;
 begin
  Result := CheckParam('iAquila');
end;



// Можно и к компонентам прикрутить
function AquilaComp: boolean;
 begin
  Result := CheckParam('iAquilaComponents');
end;

Как в исходном коде приведённый в посте от Mailchik

Код:

setup.exe iAquila

Пример для компонентов

Код:

setup.exe iAquilaComponents