PinAppToTaskbar unter Windows 10

[greenmile]

Hallo,

ich habe irgendwo (ev hier im Forum?) die folgende Procedure gefunden, die ich per Installer aufrufe und die unter Windows 7 korrekt funktioniert. Leider funktioniert sie unter Windows 10 nicht. Hat da jemand eine Windows10 Variante?

Code:

  procedure PinAppToTaskbar(strPath, strApp: AnsiString);
  var
    Buffer: array [0 .. 1023] of char;
    BufferLen: Integer;

    vShell, vFolder, vFolderItem, vItemVerbs: Variant;
    vPath, vApp: Variant;
    Count: Integer;
    dllHnd: LongInt;
    ItemName, FnkName: AnsiString;
  begin
    If (strPath='') or (strApp='') then Exit;
    Try
      dllHnd    := SafeLoadLibrary('Shell32.dll');
      If dllHnd<32 then Exit;
      BufferLen := LoadString(dllHnd, 5386, Buffer, 255);
      FreeLibrary(dllHnd);
      if (BufferLen>0) then begin
        SetString(FnkName, Buffer, BufferLen);
        vShell  := CreateOleObject('Shell.Application');
        vPath   := strPath;
        vFolder := vShell.NameSpace(vPath);
        vApp    := strApp;
        vFolderItem := vFolder.ParseName(vApp);
        vItemVerbs  := vFolderItem.Verbs;

        for Count := 1 to vItemVerbs.Count do begin
          ItemName := vItemVerbs.Item(Count).Name;
          if (ItemName=FnkName) then begin
            vItemVerbs.Item(Count).DoIt;
            break;
          end;
        end;
      end;
    Except
    End;
  end;