Seite 1 von 1

Pin to Taskbar (An Taskleiste anheften) [erledigt]

Verfasst: Mi, 31. Okt 2018 1:29
von AUGE_OHR
hi,

ich versuche einen LNK in

Code: Alles auswählen

%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\ 
zum laufen zu bringen. der LNK wird zwar erstellt aber erscheint nicht in der Taskbar ... wieso :?:

Re: Pin to Taskbar (An Taskleiste anheften)

Verfasst: Mi, 31. Okt 2018 7:44
von Tom
Bist Du Dir mit dem %USERPROFILE% sicher?

https://social.technet.microsoft.com/wi ... olicy.aspx

Re: Pin to Taskbar (An Taskleiste anheften)

Verfasst: Mi, 31. Okt 2018 19:55
von AUGE_OHR
hi,
Tom hat geschrieben: Mi, 31. Okt 2018 7:44 Bist Du Dir mit dem %USERPROFILE% sicher?

https://social.technet.microsoft.com/wi ... olicy.aspx
Danke für den Hinweis
USERPROFILE=C:\Users\a
APPDATA=C:\Users\a\AppData\Roaming
da %USERPROFILE% in %APPDATA% vorhanden ist sollte es gehen.
Auch wird ein LNK File in dem Verzeichnis erstellt aber es erscheint nicht in der Taskbar :?:

---

dein Hinweis zeigt das in der Registry unter

Code: Alles auswählen

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband
den Punkt "Favorites" gibt. hier sind die Apps eingetragen.

das kopieren alleine scheint nicht zu reichen sondern man muss auch noch einen Registry Eintrag machen :(
habe mir das PinItem.VBS geladen. In der Function PinItem() scheint das zu stehen was ich suche :)

Re: Pin to Taskbar (An Taskleiste anheften)

Verfasst: Sa, 03. Nov 2018 0:32
von AUGE_OHR
hi,

der Weg es auch noch in der Registry und "Favorite" (REG_BINARY) einzutragen war mir zu umständlich.

ich habe es nun mit dem rechte-Maustaste Menu Element (Verb) gemacht

Code: Alles auswählen

   objShell    := CreateObject("shell.application")
   IF NIL <> objShell
      objFolder   := objShell:NameSpace(cDir)
      IF NIL <> objFolder
      #IFDEF Use_Invoke
         oItem := objFolder:ParseName(cFile)
         IF NIL <> oItem
            oItem:InvokeVerb( "An Tas&kleiste anheften" )
         ENDIF
das war der Ansatz aber das Ausführen per o:Invokeverb() funktioniert oft nicht. :oops:

man muss dann die Elemente (Verb) durchgehen und den o:Doit() Befehl ausführen.

Code: Alles auswählen

      oVerb := oVerbs:Item(j-1) 	// Zero-based
      IF "leiste anheften" $ oVerb:name
         oVerb:DoIt()
damit funktioniert es nun :D