[Beavimo]

иконка на панели задач Виндовс 7 без проблем, а на 10-ке никак. как решыть?

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

Код:

[Setup]
AppName=ICONKA
AppVerName=ICONKA
DefaultDirName=C:\ICONKA
OutputDir=userdocs:..\Desktop

[Tasks]
Name: "taskbaricon"; Description: "Create Quick Launch icon"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[*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
      if IsTaskSelected('taskbaricon') then 
    PinToTaskbar(ExpandConstant('{app}\ICONKA.exe'), True);
end;

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

уже все перерыл