"Pin to Tas&kbar"

[AUGE_OHR]

hi,

i have try thos Coden ti find "Pin to Tas&kbar"

Code: Select all

      oShell := CreateObject( "Shell.Application" )
      IF NIL <> oShell
         oFolder := oShell:NameSpace( cPath )
         IF NIL <> oFolder
            cFile := UPPER( TRIM( cFile ) )
            oItems := oFolder:Items()
            iMax := oItems:Count
            FOR i := 1 TO iMax
               oItem := oItems:Item( i - 1 )
               IF !EMPTY( oItem )
                  cName := UPPER( TRIM( oItem:name ) )
                  IF cFile = cName
                     oVerbs := oItem:Verbs()
                     jMax := oVerbs:Count
                     FOR j := 0 TO jMax - 1
                        oVerb := oVerbs:Item( j )
                        cVerbName := oVerb:Name
                        OnDummy( cName, cVerbName )
                     NEXT
                  ENDIF
               ENDIF
            NEXT
            oFolder:destroy()
         ENDIF
         oShell:destroy()
      ENDIF
      // clean-up ActiveX
      oVerbs := NIL
      oFolder := NIL
      oShell := NIL

but some "Verb" are "missing"

Pin2Taskbar_2.jpg (176.03 KiB) Viewed 7868 times

did some know how to "Pin to Tas&kbar" under Windows 10 / 11