[Beavimo]

Nordek, мне нужно прикрепить значок на панель задач в Windows 10, я не могу понять как оно работает Process Monitor не помогает. ПАНЕЛЬ ЗАДАЧ...

Скрытый текст

Код:

[Setup]
AppName=Taskbar1
AppVerName=Taskbar2
DefaultDirName=C:\Taskbar
OutputDir=userdocs:..\Desktop

[*Code]
function PinToTaskbar(const FileName: String; IsPin: Boolean): Boolean; var
    ShellApp: Variant;
    Verb: String;
  begin
    Result:=False;
      if not FileExists(FileName) then 
Exit; 
  try 
      if IsPin then
    Verb:='taskbarpin' 
  else
    Verb:='taskbarunpin';
    ShellApp:=CreateOleObject('Shell.Application');
    ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName)).InvokeVerb(Verb);
    Result:=True; 
  except 
    ShowExceptionMessage;
end
end;

procedure CurStepChanged(CurStep: TSetupStep);
  begin
   if CurStep=ssPostInstall then
  PinToTaskbar(ExpandConstant('{app}\Taskbar.exe'), True);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
  begin
   if CurUninstallStep=usUninstall then
  PinToTaskbar(ExpandConstant('{app}\Taskbar.exe'), False);
end;

[Files]
Source: "Taskbar.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

на 7-ке работает как надо, а на 10-ке тока открепить может если я вручную прикреплю иконку к панели задач то при диинсталляции она удалится.... а прикрепить ее окромя ручками у меня не выходит может я просто туплю уже 3-ю сутку не сплю