Icon TaskBar

[Cesar82]

Originally Posted by buttignol

Thank you but it did not work.

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
    if userappdata.Checked then
      PinToTaskbar(ExpandConstant('{group}\{#MyAppName}.lnk'), true);
    PinToStartMenu(ExpandConstant('{group}\{#MyAppName}.lnk'), true);
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    PinToTaskbar(ExpandConstant('{group}\{#MyAppName}.lnk'), false);
    PinToStartMenu(ExpandConstant('{group}\{#MyAppName}.lnk'), false);
  end;
end;

[buttignol]

Originally Posted by Cesar82

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
    if userappdata.Checked then
      PinToTaskbar(ExpandConstant('{group}\{#MyAppName}.lnk'), true);
    PinToStartMenu(ExpandConstant('{group}\{#MyAppName}.lnk'), true);
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    PinToTaskbar(ExpandConstant('{group}\{#MyAppName}.lnk'), false);
    PinToStartMenu(ExpandConstant('{group}\{#MyAppName}.lnk'), false);
  end;
end;

Now yes Solved
A small modification

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then begin
if task then
//if userappdata.Checked then
PinToTaskbar(ExpandConstant('{group}\{#AppName}.ln k'), true);
//PinToTaskbar(ExpandConstant('{app}\{#AppExec}'), true);
end;