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
Re: Pin to Taskbar (An Taskleiste anheften)
Verfasst: Mi, 31. Okt 2018 19:55
von AUGE_OHR
hi,
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.
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