[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;