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]

Originally Posted by vint56

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]

Originally Posted by vint56

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]

Originally Posted by Cesar82

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

Thank you but it did not work.

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

[buttignol]

Thank you Vint56, Cesar82

Perfect the way I wanted

Hugs