FileForums - Icon TaskBar

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - Icon TaskBar (https://fileforums.com/showthread.php?t=104991)

buttignol

28-03-2022 09:20

Icon TaskBar

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

28-03-2022 21:47

1 Attachment(s)

buttignol

29-03-2022 08:54

Quote:

Originally Posted by vint56 (Post 496320)

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

29-03-2022 10:02

1 Attachment(s)

buttignol

29-03-2022 18:03

Quote:

Originally Posted by vint56 (Post 496337)

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

29-03-2022 21:47

Quote:

Originally Posted by Cesar82 (Post 496345)

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

Thank you but it did not work.

Cesar82

30-03-2022 20:36

Quote:

Originally Posted by buttignol (Post 496346)

Thank you but it did not work.

Code:

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

30-03-2022 21:47

Quote:

Originally Posted by Cesar82 (Post 496358)

Code:

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

Quote:

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

30-03-2022 21:54

Thank you Vint56, Cesar82

Perfect the way I wanted

Hugs

All times are GMT -7. The time now is 01:13.