Icon TaskBar

[buttignol]

I'm trying to create an icon on the taskbar
But I can not, Icone is created in ({userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar)
but does not appear on the taskbar
Sera missing any entry in Regedit
or it is not possible to create icon on the taskbar
Thanks
script - Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\{#AppName}; Filename: {#path}; Check: Task; IconFilename: {app}\icon.ico

[vint56]

buttignol

[buttignol]

buttignol
Thank you Vint56 works perfect
But I wanted to have the option in [icons] for the user to choose
Create or not icon on the taskbar

[vint56]

buttignol

[buttignol]

buttignol
It was very good I managed to wear with Botva2

I did not find how to modify the executable name

It creates icon in the progress bar as the name of the executable

It would be possible to create icone with the game name the type

Name: {Commandesktop} \ {# MyAppName}; Filename: {app} {# myappexename}; Check: Desktopiconscheck

But with the progress bar

Thanks

[buttignol]

Try fixing shortcut, not executable.
Replace {#MyAppExeName} in code by {group}\{#MyAppName}.lnk

Thank you but it did not work.

[Cesar82]

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]

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;

[buttignol]

Thank you Vint56, Cesar82

Perfect the way I wanted

Hugs